Valhalla Legends Forums Archive | Battle.net Bot Development | CSB Question

AuthorMessageTime
LizArD
*Waits for laughs and giggles to this thread*

Anyway..

I've done everything that I have should for installing CSB to the bot, and getting it to connect, however I believe I have the wrong version of CSB. For some reason it does say "[5:20:55 PM] Version check failed, bad version." however I dont believe that is a problem with CSB... A wrong game version? Im beat. cuphead.valhallalegends.com is down so I really cant check there. And the bot does connect to bnet and bnls

[5:20:54 PM] Connecting To BNLS
[5:20:54 PM] Connected To BNLS
[5:20:55 PM] Loging in BNLS
[5:20:55 PM] Connecting To useast.battle.net
[5:20:55 PM] Connected to useast.battle.net
[5:20:55 PM] Version check failed, bad version.

i've tried diablo2, starcraft, and broodwar. All the same message. Anyone got a clue?
August 28, 2004, 9:22 PM
Kp
Yes. You're probably passing the wrong parameters to BNLS, resulting in it giving you a bad answer.
August 28, 2004, 9:25 PM
LordNevar
I'm curious to know how he's connecting to BNLS if it's unreacheable.
August 28, 2004, 9:28 PM
The-Rabid-Lord
chances are your product codes are the wrong way round

Starcrat = RATS
Warcraft 2 = NB2W

ETC
August 28, 2004, 9:31 PM
UserLoser.
[quote author=LordNevar link=board=17;threadid=8430;start=0#msg77823 date=1093728499]
I'm curious to know how he's connecting to BNLS if it's unreacheable.
[/quote]

Using www.valhallalegends.com works fine as BNLS server.
August 28, 2004, 9:54 PM
LordNevar
Well don't I feel like an idiot. ::)
August 28, 2004, 10:03 PM
LizArD
[code]Public msChannelName As String
Public ver As String
Public Nick As String
Public formwidth As Long
Public formheight As Long


Private Sub CleanSlateBot1_BnetConnected()
addText "Connected to " & CleanSlateBot1.Server, vbGreen
End Sub

Private Sub CleanSlateBot1_BnetConnecting()
addText "Connecting To " & CleanSlateBot1.Server, vbGreen

End Sub

Private Sub CleanSlateBot1_BnetDisconnected()
addText "Disconnected From " & CleanSlateBot1.Server, vbRed

End Sub

Private Sub CleanSlateBot1_BnetError(ErrorNumber As Integer, Description As String)
addText "ERROR B.NET: " & Description, vbRed

End Sub

Private Sub CleanSlateBot1_BNLSAuthEvent(Success As Boolean)
If Success Then
addText "Loging in BNLS", vbYellow
Else
addText "Unable To Login BNLS", vbYellow
End If
End Sub

Private Sub CleanSlateBot1_BNLSConnected()
addText "Connected To BNLS", vbYellow

End Sub

Private Sub CleanSlateBot1_BNLSConnecting()
addText "Connecting To BNLS", vbYellow

End Sub

Private Sub CleanSlateBot1_BNLSDisconnected()
addText "Disconnected From BNLS", vbRed

End Sub

Private Sub CleanSlateBot1_BNLSError(ErrorNumber As Integer, Description As String)
addText "ERROR BNLS: " & Description, vbRed

End Sub

Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal flags As Long, SimulatedEvent As Boolean)
msChannelName = ChannelName
frmMain.RoomList.ListItems.Clear
addText "Joined channel " & ChannelName & vbCrLf, vbYellow
End Sub


Private Sub CleanSlateBot1_LoggedOnAs(Username As String)
addText "Logged On As " & Username, vbGreen
Nick = Username
Me.Caption = "Blah " & ver & " - By: Blah" & " >> Connected [ Username: " & Username & ", Server: " & CleanSlateBot1.Server & " ]"
End Sub

Private Sub CleanSlateBot1_LogonEvent(Message As Long)

If Message = "0" Then addText "Failed logon, account doesn't exist.", vbRed
If Message = "1" Then addText "Failed logon, bad password.", vbRed
If Message = "2" Then addText "Successful logon.", vbGreen
If Message = "3" Then addText "Attempting to create the account.", vbGreen
If Message = "4" Then addText "Successfully created account.", vbGreen

End Sub

Private Sub CleanSlateBot1_ServerError(ByVal Message As String, SimulatedEvent As Boolean)
addText "Error: " & Message, vbRed

End Sub

Private Sub CleanSlateBot1_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)
addText "Info: " & Message, vbYellow

End Sub

Private Sub CleanSlateBot1_UserInChannel(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)
Dim Icon As Integer
Icon = GetIconCode(Product, flags)


frmMain.RoomList.ListItems.Add , , Username, , Icon
frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , , Module1.GetLagIcon(Ping, flags)
frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , Ping

frmMain.text1.Text = msChannelName & " [" & frmMain.RoomList.ListItems.Count & "]"

'addText Username & "Is Here, With the Ping of " & Ping & " has joined using " & Message & vbCrLf, vbGreen

End Sub

Private Sub CleanSlateBot1_UserJoins(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)
Dim Icon As Integer
Icon = GetIconCode(Product, flags)

frmMain.RoomList.ListItems.Add , , Username, , Icon
frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , , Module1.GetLagIcon(Ping, flags)
frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , Ping

frmMain.text1.Text = msChannelName & " [" & frmMain.RoomList.ListItems.Count & "]"

addText Username & "Has joined the channel, With the Ping of " & Ping & " has joined using " & Message & vbCrLf, vbGreen

End Sub

Private Sub CleanSlateBot1_UserLeaves(ByVal Username As String, ByVal flags As Long, SimulatedEvent As Boolean)
On Error Resume Next
frmMain.RoomList.ListItems.Remove frmMain.RoomList.FindItem(Username).Index
addText Username & " has left the channel" & vbNewLine, &H80000003
End Sub

Private Sub CleanSlateBot1_UserTalk(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
AddChat vbWhite, "<", vbYellow, Username, vbWhite, "> ", vbWhite, Message & vbCrLf, vbWhite
End Sub

Private Sub CleanSlateBot1_VersionCheck(Message As Long)

If Message = "0" Then addText "Version check and CD-Key check passed. ", vbGreen
If Message = "1" Then addText "Version check failed, bad version.", vbRed
If Message = "2" Then addText "CD-Key check failed, bad key.", vbRed
If Message = "3" Then addText "Version check failed, need updated hashes.", vbRed
If Message = "4" Then addText "CD-Key check failed, key is for another game.", vbRed
If Message = "5" Then addText "CD-Key check failed, key is banned.", vbRed
If Message = "6" Then addText "CD-Key check failed, key is in use.", vbRed

End Sub

Private Sub Form_Load()
ver = App.Major & "." & App.Revision
formwidth = frmMain.Width
formheight = frmMain.Height
Me.Caption = "Blah " & ver & " - By: blah >> Disconnected"
End Sub

Private Sub Form_Resize()
On Error Resume Next

Dim CWIDTH As Long
Dim CHeight As Long

If frmMain.WindowState = 2 Or frmMain.WindowState = 0 Then
CWIDTH = frmMain.Width - formwidth
CHeight = frmMain.Height - formheight

txtRecieve.Width = txtRecieve.Width + CWIDTH
txtRecieve.Height = txtRecieve.Height + CHeight

text1.Left = text1.Left + CWIDTH

RoomList.Height = RoomList.Height + CHeight
RoomList.Left = RoomList.Left + CWIDTH

txtSend.Width = txtSend.Width + CWIDTH
txtSend.Top = txtSend.Top + CHeight

formwidth = frmMain.Width
formheight = frmMain.Height

End If
End Sub

Private Sub mnuConnect_Click()
On Error GoTo Disconnect
CleanSlateBot1.BNLSBotID = ""
CleanSlateBot1.BNLSBotPassword = ""
CleanSlateBot1.CDKey = "KEY"
CleanSlateBot1.Product = "RATS"
CleanSlateBot1.HomeChannel = "Op Abyss"
CleanSlateBot1.Password = "pw"
CleanSlateBot1.Username = "name"
CleanSlateBot1.NewPassword = "bleh"
CleanSlateBot1.ChangePassword = False
CleanSlateBot1.Server = "useast.battle.net"
CleanSlateBot1.Accept = -65
CleanSlateBot1.Connect

Dim Connected As String
Connected = CleanSlateBot1.Connected
Exit Sub
Disconnect:
CleanSlateBot1.Disconnect
Me.Caption = "Blah " & ver & " - By: Blah >> Disconnected"
End Sub



Private Sub mnuDisconnect_Click()
CleanSlateBot1.Disconnect
Me.Caption = "Blah " & ver & " - By: Blah >> Disconnected"
End Sub

Private Sub txtSend_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CleanSlateBot1.Send txtSend.Text
AddChat vbWhite, "<", vbCyan, Nick, vbWhite, "> ", vbWhite, txtSend.Text & vbCrLf, vbWhite
KeyAscii = 0
txtSend.Text = ""
End If
End Sub

[/code]

I do believe there is an updated version, however.. this should work still..
August 28, 2004, 10:09 PM
The-Rabid-Lord
your accept is wrong. use the search function it there somewhere.
August 28, 2004, 10:14 PM
LizArD
[code] CleanSlateBot1.Accept = -65[/code]

correct?
August 28, 2004, 10:17 PM
The-Rabid-Lord
Wrong the accept value is 579728(positive as in + not -65 thats old)
August 28, 2004, 10:18 PM
LizArD
[quote author=ChRoNiC link=board=17;threadid=8430;start=0#msg77839 date=1093731506]
[quote author=LizArD link=board=17;threadid=8430;start=0#msg77838 date=1093731425]
[code] CleanSlateBot1.Accept = -65[/code]

correct?
[/quote]

[quote author=Meh link=board=17;threadid=8430;start=0#msg77836 date=1093731268]
your accept is wrong. use the search function it there somewhere.
[/quote]

No it's incorrect !!
[/quote]


sorry to confuse u, I was just wondering if that was the right part of code, I obviously knew the number was wrong.
August 28, 2004, 10:22 PM
The-Rabid-Lord
OK, did it work?
August 28, 2004, 10:23 PM
LizArD
I updated it so it is now

[code] CleanSlateBot1.Accept = "579728"[/code]

and now when i press connect it does.. well nothing
August 28, 2004, 10:23 PM
The-Rabid-Lord
Where does it stop. If its stoping at connecting to BNLS then it wont work as BNLS is down.
August 28, 2004, 10:27 PM
ChR0NiC
[quote author=LizArD link=board=17;threadid=8430;start=0#msg77845 date=1093731819]
I updated it so it is now

[code] CleanSlateBot1.Accept = "579728"[/code]

and now when i press connect it does.. well nothing
[/quote]

Don't put the Accept in quotes.
August 28, 2004, 10:28 PM
LizArD
no, it doesn't do ANYTHING it doesn't even start to connect, aka when i hit connect, the screen does not move
August 28, 2004, 10:28 PM
LordNevar
But as "Userloser" pointed out you can use www.valhallalegends.com, if you use that than you can connect, I just updated my bot by adding bnls server selection, and It's working just fine now.
August 28, 2004, 10:31 PM
The-Rabid-Lord
You may want to change the OCX then to Chronics as he "May" give u support on it, where as cuphead is possibly still banged up and there is no support. If your worried about changing loads of code then just use find and replace function.
August 28, 2004, 10:33 PM
LordNevar
That's cause you don't have BNLS Error controls, which means you don't see the response that BNLS conection refused, or whatever the error is.
August 28, 2004, 10:33 PM
LizArD
yes but shouldn't it even make a peep of action when you click connect.. It should of said "trying to connect to bnet" then bnls etc ? =(


--- where would I get chr0nics ?
August 28, 2004, 10:35 PM
The-Rabid-Lord
Try not having the accept value.[code]
CleanSlateBot1.CDKey = "KEY"
CleanSlateBot1.Product = "RATS"
CleanSlateBot1.HomeChannel = "Op Abyss"
CleanSlateBot1.Password = "pw"
CleanSlateBot1.Username = "name"
CleanSlateBot1.Server = "useast.battle.net"
CleanSlateBot1.Connect[/code]
That may be all you need. Worked for me when I used CSB.

His topic is in the trash can. Its most updated I think. There is a link to his site.
August 28, 2004, 10:37 PM
LizArD
still nothing when I remove the 'accept' it seems like it only likes the "-65" version because when I but it back at that, it shows it connecting, just not with the other.
August 28, 2004, 10:43 PM
The-Rabid-Lord
try just using what i suggested above.
August 28, 2004, 10:44 PM
LizArD
still nothing, think we can talk in bnet? getting annoying refreshing every 10 seconds =\ acctname Matthew channel im in, matthew =o
August 28, 2004, 10:46 PM
FrOzeN
just tested this and works fine:
[code] With CleanSlateBot1
.Disconnect
.Accept = 579728
.CDKey = "KEY"
.HomeChannel = "Clan Fa"
.Password = "PASS"
.Product = "PXES"
.Server = "uswest.battle.net"
.Username = "USER"
.Connect
End With[/code]

also remove this its a pointless sub
[code]Private Sub CleanSlateBot1_BNLSDisconnected()
addText "Disconnected From BNLS", vbRed
End Sub[/code][code][/code][code][/code]
August 29, 2004, 5:08 AM
Quarantine
He could want it to show that BNLS disengaged after connecting to Battle.net I find it useful.
August 29, 2004, 5:40 AM
LordNevar
What version of CSB are you using?????
August 29, 2004, 1:01 PM
LizArD
[code]
Private Sub CleanSlateBot1_LoggedOnAs(Username As String)
addText "Logged On As " & Username, vbGreen
Nick = Username
Me.Caption = "blahblah " & ver & " - By: blah" & " >> Connected [ Username: " & Username & ", Server: " & CleanSlateBot1.Server & " ]"
End Sub[/code]

highlights
[code]Private Sub CleanSlateBot1_LoggedOnAs(Username As String)[/code]

compile error saying:

"Proedure declaration does not match description of the event or procedure having the same name"

anyone?
August 29, 2004, 6:45 PM

Search