now i cant get it to work all of the time but i now most of the syntax for it
say you made your server stuff and made your winsock and named it SockMain then you would prolly want to prep your data if your are doing packets (like the way Mirage does) if not then you can just skip this step
Code:
Dim Packet as string
Dim SentData as string
SentData = this is where you could either say it would come directly from a text box or label or you could have it as a variable for the sub this is in
Packet = "Whateveryourpacketnameshouldbe" & SEP_CHAR & SentData & SEP_CHAR & END_CHAR
SockMain(Index).SendData Packet 'now im not sure exaclty about the index but i think thats how you do it
now youll want to go to your client and make another winsock and well call it SockMain too
this would go with the rest of the coding for the form that your winsock is on
Code:
Private Sub sockMain_DataArrival(ByVal bytesTotal As Long)
sockMain.GetData strData, vbString
Call HandleData(bytesTotal)
End Sub
now i usually put this in modClientTCP but you dont have to
Code:
Sub HandleData(ByVal Data As String)
Dim Msg As String
Dim Parse() As String
If Parse(0) = "Whateveryourpacketnameshouldbe" Then
Msg = Parse(1)
Call DoWhatEverWithMsgData(Msg)
End If
End Sub
and here are some tuts on another site that i find useful
a simple client server
http://www.vb6.us/tutorials/client-server-chat-program-using-winsock-control-tutoriala multiple client server
http://www.vb6.us/tutorials/multiple-client-server-chat-program-using-winsock-controlhope this helps
Login
Register
FAQ
Search
Members
