D2XP Realm Help.. - Updated

[BaDDBLooD]

Code Select Expand



                   With buffer
                   
                       If BnetBot.UseRealm = True And BnetBot.Product = "VD2D" Xor BnetBot.Product = "PX2D" Then
                           Realm = True
                       
                           .InsertDWORD &H0
                           .InsertDWORD &H0
                           .InsertBYTE &H0
                           .SendPacket &H34
                       
                       Else
                       
                           Realm = False
                           .InsertNTString BnetBot.username
                           .InsertBYTE &H0
                           .SendPacket &HA
                           .InsertDWORD &H1
                           .InsertNTString "L"
                           .SendPacket &HC
                           
                       End If
                           
                    End With



Code Select Expand



Private Sub WinsockMCP_Connect()

AddChat vbGreen, "MCP: Connected, sending startup.."

Main.WinsockMCP.SendData Chr(1)

With buffer
   .InsertNonNTString MCP1
   .InsertNonNTString MCP2
   .InsertNTString BNCSName
   .SendMCPPacket &H1
End With

End Sub



Code Select Expand



Select Case PacketID

   Case &H1
   
       Select Case (GetDWORD(Mid(strTemp, 4, 4)))
       
           Case &H0
           
               AddChat vbGreen, "MCP: Startup accepted, ", vbYellow, "Logging on to Realm character..."
                   With buffer
                       .InsertDWORD &H8
                       .SendMCPPacket &H17
                   End With
                   
           End Select
           
   Case &H17
   
       With buffer
           .InsertNTString BnetBot.CharName
           .SendMCPPacket &H7
       End With

   Case &H7
   
       Select Case (GetDWORD(Mid(strTemp, 4, 4)))
           
           Case &H0
               
               AddChat vbGreen, "MCP: Logged on to Realm Character"
               
                   With buffer
                       .InsertNTString BnetBot.username
                       .InsertBYTE &H0
                       .SendPacket &HA
                   End With
                   
                   With buffer
                       .InsertNonNTString BnetBot.Product
                       .SendPacket &HB
                   End With
                   
                   With buffer
                       .InsertDWORD 1
                       .InsertNTString "L"
                       .SendPacket &HC
                   End With
               
       End Select
       
End Select



i'm having problems after i send 0x07

i seem to be getting a ip ban after sending 0x0A, and 0x0C

Any help would be GREATLY Apreciated

Code Select Expand

[MyndFyre]

i am unsure of how to send 0x01 ( mcp_startup data )

when i packetlogged my other bot, i got this:

Code Select Expand



0000  01 4D 00 01 0C EC 84 A0 9B 7F 7B 53 3F F0 CA 82    .M........{S?...
0010  45 77 71 00 00 00 00 00 2A ED 7F 06 1D B9 E2 DE    Ewq.....*.......
0020  50 58 32 44 36 38 58 49 3F F0 CA 82 33 10 00 00    PX2D68XI?...3...
0030  D5 5D 07 41 59 98 F8 A2 79 21 77 C5 2A 24 1F C2    .].AY...y!w.*$..
0040  76 AB B9 94 42 61 44 44 42 4C 6F 6F 44 00          v...BaDDBLooD.



You create a socket, connect it to the realm server, and send the data from the packet.

[BaDDBLooD]

Code Select Expand



you create a socket, connect it to the realm server, and send the data from the packet.



Thanks, i already have a socket, i connected to realm server, what exactly do i send from 0x3E in 0x01

[UserLoser.]

Try the "Reply with quote" feature.  Check out BnetDocs.  I believe it's all on there.

[Stealth]

It is. I was doing this not four days ago. BNetDocs contains all the information you need.

[BaDDBLooD]

when i get the &H0 Success from &H7 ( MCP_CharLogon )

Code Select Expand



   Case &H7
   
       Select Case (GetDWORD(Mid(strTemp, 4, 4)))
           
           Case &H0
               
               AddChat vbGreen, "MCP: Logged on to Realm Character"
               
                   With buffer
                       .SendMCPPacket &H12
                   End With
                   
                   With buffer
                       .InsertNonNTString BnetBot.Product
                       .SendPacket &HB
                   End With
                   
                   With buffer
                       .InsertNTString BnetBot.username
                       .InsertNTString BnetBot.Realm & "," & BnetBot.CharName
                       .SendPacket &HA
                   End With
                   
       End Select



i get ipbanned...

[Stealth]

It looks like you start talking to the realm server and then just continue to log on normally to Battle.net. You should suspend your connection to Battle.net (not send 0x0B/0x0A) until you've successfully logged onto a Realm character.

[BaDDBLooD]

i thought i did log on it?

[BaDDBLooD]

anyone? ;\

[MyndFyre]

anyone? ;\

We can see that you already posted something that indicated you were confused about your connection process.  The people here are not your slaves.  Be patient.

[BaDDBLooD]

just am Exasperated ;O

sorry, my bad ;o

anyone??

What do i do after i get the Success from &H7, send &H12, and before i send &HA, and &HB To bnet.