Visual Basic Forum for Visual Basic Programmers VB

[mnymny]

Im trying to make a bot in VB6 to connect to Ares(File sharing network)Protocol, the CHAT protocol, i got a good bit of it but it still wont work. heres the code




Option Explicit

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Winsock1_Connect()
Dim strdata As String
Dim guid As String
Dim fileamount As String
Dim userconnect As String

Winsock1.RemotePort = Val(text2.Text)
Winsock1.RemoteHostIP = Val(Text1.Text)
Winsock1.Connect
If Winsock1.State = sckConnected Then
Let strdata = sizebyte '''size of packet [00 00]
Let strdata = strdata & Chr(&H2) ''' Messagetype - stays at [02] for joining
Let strdata = strdata & guid '' GUID (16 bit number)
Let strdata = strdata & fileamount ' Number of shared files (reversed bits)
Let strdata = strdata & Chr(&H0) '''Null
Let strdata = strdata & Chr(&H0) & Chr(&H0) ''' Port number (just use nulls for now)
Let strdata = strdata & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) '''Node IP etc. No need in chat client
Let strdata = strdata & Chr(&H0) & Chr(&H0) & Chr(&H0) ''' connection type
Let strdata = strdata & Chr(&H0) '''Null
Let strdata = strdata & userconnect '''Username
Let strdata = strdata & Chr(&H0) '''Null
Let strdata = strdata & Chr(&H41) & Chr(&H72) & Chr(&H65) & Chr(&H73) & Chr(&H20) & Chr(&H31) & Chr(&H2E) & Chr(&H38) & Chr(&H2E) & Chr(&H31) & Chr(&H2E) & Chr(&H32) & Chr(&H39) & Chr(&H34) & Chr(&H31) '''Ares version number... Currently not important
Let strdata = strdata & Chr(&H0) '''Null
Let strdata = strdata & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) 'Chr(&HC0) & Chr(&HA8) & Chr(&H0) & Chr(&H ''' Constant admin stuff
Let strdata = strdata & Chr(&H0) & Chr(&H0) & Chr(&H0) & Chr(&H0) ''' IP of sum kind
Let strdata = strdata & Chr(&H1) '''& Chr(&H3) '''Allow browse or not
Let strdata = strdata & Chr(&H0) '''Null
Let strdata = strdata & Chr(&H4) & Chr(&H0) ''' Full folder browse or not
Winsock1.SendData strdata
End If
Winsock1.SendData Chr(5) & Chr(0) & Chr(10) & Chr(104) & Chr(101) & Chr(108) & Chr(108) & Chr(111)
Winsock1.SendData Text4.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strdata
Winsock1.GetData strdata
Winsock1.GetData TextBox3.Text
End Sub



IF YOU HAVE ANY HELP PLEASE TELL ME

[rbgCODE]

Please post your winsock dataarrival code, I dont wish to download any files.
_________________
'><>
'rBg
'><>