Author | Message | Time |
---|---|---|
Fr0z3N | whats wrong with this? [code] Private Sub mnuConnectRealm_Click() With TCP .InsertDWORD &H0 .InsertDWORD &H0 .InsertBYTE &H0 .SendPacket &H34 End With End Sub [/code] [code] Private Sub sckRealm_Connect() sckRealm.SendData Chr(1) Unload frmRealm AddC vbGreen, "Connected to Diablo Realm!" With TCP .InsertNonNTString p1 .InsertNonNTString p2 .InsertNTString UName .SendRealmPacket &H1 End With End Sub [/code] and [code] Case &H3E p1 = Mid(Data, 5, 16) p2 = Mid(Data, 29, 48) AddC vbYellow, "Attempting to connect to Diablo Realm " & varServer Form1.sckRealm.Close Form1.sckRealm.Connect varServer, 6112 [/code] | December 31, 2003, 3:22 AM |
UserLoser. | i'm assuming varServer is the same chat server you're connecting to. The realm servers are different, and are sent back to you in 0x3E Edit: correct packet id | December 31, 2003, 3:25 AM |
Fr0z3N | anyone know how to find out the d2 realm server using 0x3E? I've tryed mid(data,17,4) and that doesnt work | December 31, 2003, 4:27 AM |