09-07-2006, 10:50 AM
Thanks Xentar, I've got it working now ^^.
phantasy, just follow the tutorial but change all the GameServer.Sockets... to GamerServer.Sockets.Item...
Then when you're done go to client and change Sub SendData to:
(got that code from a tutorial on elysium).
It should work now
phantasy, just follow the tutorial but change all the GameServer.Sockets... to GamerServer.Sockets.Item...
Then when you're done go to client and change Sub SendData to:
Code:
Sub SendData(ByVal data As String)
Dim dbytes() As Byte
dbytes = StrConv(data, vbFromUnicode)
If IsConnected Then
frmMirage.Socket.SendData dbytes
DoEvents
End If
End Sub
It should work now
