D2XP Char logins

[Fr0z3N]

whats wrong with this?

Code Select Expand


Private Sub mnuConnectRealm_Click()
With TCP
   .InsertDWORD &H0
   .InsertDWORD &H0
   .InsertBYTE &H0
   .SendPacket &H34
End With
End Sub


Code Select Expand


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


and

Code Select Expand


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


[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

[Fr0z3N]

anyone know how to find out the d2 realm server using 0x3E?

I've tryed mid(data,17,4) and that doesnt work