[code]        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
[/code]
any ideas why it ip bans me when i send the reg email packet.

you need to send 0x59, instead of 0x5A

[quote author=BaDDBLooD link=topic=9548.msg88873#msg88873 date=1100476914]
you need to send 0x59, instead of 0x5A
[/quote]i changed to &H59 and it works now that you!

You might also want to look over your code for typos.