VB Send and Recive Data (Winsock)

[zero_tolerance]

By WHERE

Well here is my lil ol Winsock guide for all you (MMORPG?....meh.) General gamers out there..

Step 1: goto the toolbar -> right click -> componants -> Microsoft Winsock Componant

Step2: Make a SendData function

PHP Code:

Function SendData(Packet As String) As String
On Error Resume Next
Form1.Winsock1.SendData Packet
End Function 


Step 3: Make a Listbox

Step 4: Make a dataarrival Sub

PHP Code:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim strdata As String
   Winsock1.GetData strdata 


Send strdata to List1.AddItem

PHP Code:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim strdata As String
   Winsock1.GetData strdata
List1.AddItem strdata 


Connect

PHP Code:

Winsock1.Close
Port = Val(Text3.Text)
IP = Text2.Text
Winsock1.Connect IP, Port
DoEvents 


(text3.text being the port textbox, and text2 the IP, place this code into a button....easier...and this was using the UDP protocol.)

finally send data, lets say the chat packet is (hex) 01 02 & "text" & 00, you send this

PHP Code:

SendData Chr(&H1) & Chr(&H2) & "text" & Chr(0) 


end tutorial.




*sorry if this has been posted before.*