[VB6] Packet Logger

[Quackster]

Hello,

I've been working on a packet logger and the DataArrival doesn't capture the packets?
Does Habbo have protection or does my code just fail.

Private Sub Form_Load()
Winsock1.RemoteHost = ("game-us.habbo.com")
Winsock1.RemotePort = 38101
Winsock1.Connect
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Text1.Text = Text1.Text & data & vbNewLine
End Sub

 

[onemorejosh]

Maybe you need to send data first before habbo sends anything back

 

[rice]

I hope you're using another thread, assuming at least that exists in VB.
Man, I'd really think about using SharpPCap for C#, 95% of the work is done for you

 

[zarut]

tbh you dont connect new client in order to log packets what you will have to do is read packets send in some spefic port or just hook in the clients send/recv functions

 

[SheenBR]

You wont get any packet like that.

You need to do a Hook into the winsock functions, so everytime habbo tries to send anything, ur function will be fired. So u can debug the packet and then return to the normal func.

Or, use Sharp PCaP. It is very good.

 

[Quackster]

Okay thanks for you guys help, I kinda lost interest in this anyway.

DON'T RESPOND​