Valhalla Legends Forums Archive | Battle.net Bot Development | D2XP Char logins

AuthorMessageTime
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

Search