Print Page - D2XP Char logins

Title: D2XP Char logins
Post by: Fr0z3N on December 30, 2003, 09:22 PM

whats wrong with this?


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

Code Select


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


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

Title: Re:D2XP Char logins
Post by: UserLoser. on December 30, 2003, 09:25 PM

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

Title: Re:D2XP Char logins
Post by: Fr0z3N on December 30, 2003, 10:27 PM

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

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

Valhalla Legends Archive

Programming => Battle.net Bot Development => Topic started by: Fr0z3N on December 30, 2003, 09:22 PM