Error When Connecting Bot

[FLiPPY_]

Ok.. I just realized something.. I click CleanSlateBot1 under the dropdown box, and as a declaration.. I realized I didn't do the BNET Connected, Connecting, and that stuff.. That might be the problem.. let me try that.

Code Select Expand


[22:04:32] Connecting to BNLS....
[22:04:32] Connected to BNLS!
[22:04:32] DEBUG: BNLS In:  07 00 0E 82 ED 3C 2E
HType=0/spass=False/cb=0
[22:04:33] DEBUG: BNLS In:  07 00 0F 00 00 00 00
HType=0/spass=False/cb=0
[22:04:34] BNLS Authorization Passed.
[22:04:34] DEBUG: BNLS In:  07 00 10 00 00 00 00
HType=0/spass=False/cb=0
[22:04:34] Version Byte: 7471104
[22:04:34] Connecting to BNET!
[22:04:34] Connected to BNET!
[22:04:34] Disconnected from BNET!

I get that now.. but what should I put for this

Code Select Expand


Private Sub CleanSlateBot1_BnetError(ErrorNumber As Integer, Description As String)


Maybe there's a Bnet error?

[______]

Addchat vbRed, "Error Number: " & Number & " Description: " & Description

but that wouldnt help your bot to connect.

[FLiPPY_]

Yeah, It didn't help my bot connect.. obviously I am getting the wrong version byte .. I get 7471104 for some reason..

[FLiPPY_]

Its odd.. I tried the bot again.. and i get a version byte as
5963776

[Kp]

... are so called for a reason.  To the best of my knowledge, there has never been a version byte that wouldn't actually fit in a byte.  Therefore, if your program is telling you something bigger than would fit in a byte, it's pretty clearly wrong.  Check your parsing.

[FLiPPY_]

Well.. i'm all out of ideas now.. anyone else want to give it a shot?

[Lenny]

You could try making another one from a clean form.....just a simple one enough to connect....you may be able to find the problem

[FLiPPY_]

Maybe you could explain more.. but I don't know how that would help.. I'll try it anyways though.

[Lenny]

Maybe you could explain more.. but I don't know how that would help.. I'll try it anyways though.

Well you could make a new project...place the cleanslatebot module....hardcode all the properties and make a cleanslatebot.connect button and see if it can log onto bnet....

[FLiPPY_]

Ok.. so I did that.. anyone else have a solution for the bot problem?

[Lenny]

Did it connect?
Can you see it in a bnet channeL?

[FLiPPY_]

Yeah.. so it can't be my CleanSlateBot.. it must be my code..

[Lenny]

Now you know it connects...compare it to the other project....

[FLiPPY_]

For some reason.. I keep thinking the code problem is in here

Code Select Expand


Public Sub Form_Load()
Dim imConnected As Boolean
Dim strTheTime, strDay, strMonth, strYear, strHour, strMin, strSec As String
imConnected = False
strDay = Format$(Now, "Dd")
strMonth = Format$(Now, "Mm")
strYear = Format$(Now, "Yyyy")
strHour = Format$(Now, "Hh")
strMin = Format$(Now, "Nn")
strSec = Format$(Now, "Ss")

If strMonth = 1 Then
   strMonth = "January"
ElseIf strMonth = 2 Then
   strMonth = "February"
ElseIf strMonth = 3 Then
   strMonth = "April"
ElseIf strMonth = 4 Then
   strMonth = "March"
ElseIf strMonth = 5 Then
   strMonth = "May"
ElseIf strMonth = 6 Then
   strMonth = "June"
ElseIf strMonth = 7 Then
   strMonth = "July"
ElseIf strMonth = 8 Then
   strMonth = "August"
ElseIf strMonth = 9 Then
   strMonth = "September"
ElseIf strMonth = 10 Then
   strMonth = "October"
ElseIf strMonth = 11 Then
   strMonth = "November"
ElseIf strMonth = 12 Then
   strMonth = "December"
End If
strTheTime = Format(Now, "mmmm dd, yyyy | .:. | HH:MM:SS")
AddSpeech vbYellow, strTheTime
AddChat vbYellow, "Welcome to SystemBot v1.47d by R.a.B.B.i.T and FLiPPY_" & vbNewLine, _
       vbYellow, "This is a beta version and is not to be leaked."

Dim strUsername, strPassword, strChangePW, strNewPassword, strProduct, strCDKey, strLODKey, strServer As String
Dim strRealm, strUseRealm, strCharacter, strHomeChannel, strUseUDP, strConnectStart As String
strUsername = GetStuff("Configuration", "Username")
strPassword = GetStuff("Configuration", "Password")
strChangePW = GetStuff("Configuration", "Change Password")
strNewPassword = GetStuff("Configuration", "New Password")
strProduct = GetStuff("Configuration", "Product")
strCDKey = GetStuff("Configuration", "CD-Key")
strLODKey = GetStuff("Configuration", "LoD-Key")
strServer = GetStuff("Configuration", "Server")
strRealm = GetStuff("Configuration", "Realm")
strHomeChannel = GetStuff("Configuration", "Home Channel")
strUseUDP = GetStuff("Configuration", "Use Bot Plug")
strConnectStart = GetStuff("Configuration", "Connect At Run")

CleanSlateBot1.Accept = 579728
CleanSlateBot1.BNLSBotID = "xxxx"
CleanSlateBot1.BNLSBotPassword = "xxxxxx"
CleanSlateBot1.Server = strServer
If strUseRealm = "Yes" Then
   CleanSlateBot1.UseRealm = True
   CleanSlateBot1.LODKey = strLODKey
   CleanSlateBot1.Character = strCharacter
Else
   CleanSlateBot1.UseRealm = False
End If
CleanSlateBot1.CDKey = strCDKey
CleanSlateBot1.UserName = strUsername
CleanSlateBot1.Password = strPassword
If strChangePW = "Yes" Then
   CleanSlateBot1.ChangePassword = True
   CleanSlateBot1.NewPassword = strNewPassword
Else
   CleanSlateBot1.ChangePassword = False
End If
CleanSlateBot1.HomeChannel = strHomeChannel
If strUsePlug = "Yes" Then
   CleanSlateBot1.UseUDP = True
Else
   CleanSlateBot1.UseUDP = False
End If
If strConnectStart = "Yes" Then
   CleanSlateBot1.Connect
   mnuDisconnect.Enabled = True
   mnuReconnect.Enabled = True
   mnuConnect.Enabled = False
Else
   CleanSlateBot1.Disconnect
   mnuDisconnect.Enabled = False
   mnuReconnect.Enabled = False
   mnuConnect.Enabled = True
End If


Form1.Caption = "System Bot 1.47d Beta by R.a.B.B.i.T and FLiPPY_"
Close #1
Close #2
End Sub


[FLiPPY_]

OMG
YAY
It connects..
I forgot to add

Code Select Expand


CleanSlateBot1.Product = strProduct

But Now I get runtime errrors and alot of stuff.. +1 to Lenny.. I did what you told me to.. and it worked.. Thanks.