• Welcome to Valhalla Legends Archive.
 

I am confused again!

Started by Michael, November 14, 2004, 05:45 PM

Previous topic - Next topic

Michael

        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.

BaDDBLooD

you need to send 0x59, instead of 0x5A
There are only two kinds of people who are really fascinating: people who know absolutely everything, and people who know absolutely nothing.

Michael

#2
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!

Blaze

You might also want to look over your code for typos.
Quote
Mitosis: Haha, Im great arent I!
hismajesty[yL]: No