Text only | Text with Images

Valhalla Legends Archive

Programming => Battle.net Bot Development => Topic started by: Michael on November 14, 2004, 05:45 PM

Title: I am confused again!
Post by: Michael on November 14, 2004, 05:45 PM
Code Select
        Case &H54
            Select Case GetWORD(Mid(data, 5, 2))
            Case &H0
                rtbAdd "BNET: Logon Passed!" & vbNewLine, vbGreen
                    InsertNTString myusername
                    InsertBYTE 0
                    SendPacket &HA
                    InsertNonNTString myproduct
                    SendPacket &HB
                    InsertDWORD 1
                    InsertNTString "L"
                    SendPacket &HC
            Case &HE
            jjemail = InputBox("Please enter your email to reg this accoutn with battle.net so you can login!")
            InsertNTString jjemail
            SendPacket &H5A
            rtbAdd "Account reg activated, sending email as " & jjemail & vbNewLine, vbGreen


            Case &H2
                rtbAdd "BNET: Logon Failed!" & vbNewLine, vbRed
                If AttemptedC = False Then

                    InsertNTString myusername
                    InsertNTString mypw
                    SendBNLSPacket &H4

                AttemptedC = True
                End If
            End Select

any ideas why it ip bans me when i send the reg email packet.
Title: Re: I am confused again!
Post by: BaDDBLooD on November 14, 2004, 06:01 PM
you need to send 0x59, instead of 0x5A
Title: Re: I am confused again!
Post by: Michael on November 14, 2004, 06:20 PM
Quote from: BaDDBLooD on November 14, 2004, 06:01 PM
you need to send 0x59, instead of 0x5A
i changed to &H59 and it works now that you!
Title: Re: I am confused again!
Post by: Blaze on November 16, 2004, 05:04 PM
You might also want to look over your code for typos.
Text only | Text with Images