Please help

[Warrior]

Im sorry to pester you guys with my newbie questions. Im having trouble with connecting my bot. It uses CSB. It will just show Connecting to Bnls.
Can someone please help.
BTW heres the code

Code Select Expand

Private Sub Form_Load()
AddChat "Warrior Bot 1.0 - LW-Warrior" & vbNewLine, vbBlue
AddWhisper "Whisper Box" & vbNewLine, vbBlue
End Sub



Private Sub mnuDisconnect_Click()
AddChat "Disconnected " & vbNewLine, vbRed
CleanSlateBot1.Disconnect
End Sub
Private Sub mnuConnect_Click()

   strProduct = GetStuff("Login", "Client") 'Set Values For Your Variables
   strUsername = Form2.txtUsername.Text
   strPassword = Form2.txtpassword.Text
   strCDKey = Form2.txtcdkey
   strServer = Form2.txtserver.Text
   strHomeChannel = Form2.txthomechan.Text
   CleanSlateBot1.BNLSBotID = ""
   CleanSlateBot1.BNLSBotPassword = '"
   CleanSlateBot1.CDKey = "strcdkey"
   CleanSlateBot1.Product = "strProduct"
   CleanSlateBot1.HomeChannel = "strHomeChannel"
   CleanSlateBot1.Password = "strPassword"
   CleanSlateBot1.Username = "strUsername"
   CleanSlateBot1.Server = "strServer"
   CleanSlateBot1.Accept = "-65"
   AddChat "Attempting Connection To Battle.Net " & vbNewLine, vbYellow
 
End Sub
Private Sub mnuconfig_Click()
Form2.Show
End Sub
Private Sub CleanSlateBot1_BnetError(ErrorNumber As Integer, Description As String)
AddChat "Bnet error: " & ErrorNumber & " - " & Description & vbNewLine, vbRed
End Sub

Private Sub CleanSlateBot1_BnetConnected()
CleanSlateBot1.Connect
AddChat "Connected!" & vbNewLine, vbGreen
End Sub

Private Sub CleanSlateBot1_FlagsUpdate(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
       
       Dim intstr As Integer 'Declare The integers
       Dim lagicoN As Integer
       Dim icon As Integer

icon = GetIconCodeFLAGS(Message, Flags)
lagicoN = GetLagIcon(Ping, Flags)
   If InStr(1, Username, "*", vbTextCompare) <> 0 Then
       intstr = InStr(1, Username, "*", vbTextCompare)
       Username = Right(Username, Len(Username) - intstr)
   End If
   
   If (Flags And BNFLAGS_OP) = BNFLAGS_OP Then
           icon = ICON_GAVEL
           Form1.lvchannel.ListItems.Remove Form1.lvchannel.FindItem(Username).Index
           With Form1.lvchannel.ListItems.Add(1, , Username, , icon)
           .ListSubItems.Add 1, , , lagicoN
           End With
       Else
           With Form1.lvchannel
               .ListItems(.FindItem(Username).Index).SmallIcon = icon
           End With
       End If

End Sub
Private Sub CleanSlateBot1_BnetConnecting()
AddChat "Connecting..." & vbNewLine, vbYellow
End Sub



Private Sub txtsend_KeyPress(keyascii As Integer)
On Error Resume Next
strCurrentUsername = Form2.txtUsername.Text
If keyascii = 13 And txtsend.Text <> "" Then
       keyascii = 0
       Dim strSend As String
       strSend = txtsend.Text
CleanSlateBot1.Send txtsend.Text
AddChat "<" & Form2.txtUsername & "> ", vbCyan, strSend & vbNewLine, vbWhite
txtsend.Text = ""
End If
End Sub
Private Sub CleanSlateBot1_LoggedOnAs(Username As String, Product As String)
AddChat "Successfully logged on as: ", vbCyan, Username & vbNewLine, vbYellow
End Sub
Private Sub CleanSlateBot1_LogonEvent(Message As Byte)
If Message = 0 Then
      AddChat "Account doesn't exist!" & vbNewLine, vbRed
  ElseIf Message = 1 Then
      AddChat "Invalid Password!" & vbNewLine, vbRed
  ElseIf Message = 2 Then
      AddChat "Login successfull" & vbNewLine, vbGreen
  ElseIf Message = 3 Then
      AddChat "Attempting to create account.." & vbNewLine, vbYellow
  ElseIf Message = 4 Then
      AddChat "Account creation was a success!" & vbNewLine, vbGreen
  End If
End Sub
Private Sub CleanSlateBot1_ServerError(ByVal Message As String, SimulatedEvent As Boolean)
AddChat Message & vbNewLine, vbRed
End Sub
Private Sub CleanSlateBot1_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)
AddChat Message & vbNewLine, vbYellow
End Sub
Private Sub CleanSlateBot1_SomethingUnknown(ByVal UnknownString As String, SimulatedEvent As Boolean)
AddChat "Unknown Bot Error" & vbNewLine, vbRed
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, StatUpdate As Boolean, SimulatedEvent As Boolean)
   strSexp = Product
   strSTAR = Product
   strd2 = Product
   strD2XP = Product
   strW2BN = Product
   strw3 = Product
   strDw3xp = Product
Dim icon As Integer
icon = GetIconCode(Product, Flags)
Dim lagicoN As Integer
lagicoN = GetLagIcon(Ping, Flags)
If icon = ICON_GAVEL Then
With Form1.lvchannel.ListItems.Add(1, Username, Username, , icon)
   .ListSubItems.Add lvchannel.FindItem(Username).Index, , , lagicoN
   End With
End If
If icon <> ICON_GAVEL Then
   With Form1.lvchannel.ListItems.Add(, , Username, , icon)
   .ListSubItems.Add , , , lagicoN
   End With
End If
End Sub
Private Sub CleanSlateBot1_UserEmote(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
If Dii = True Then
       Username = Right(Username, Len(Username) - 1)
   End If
   Dim intstr As Integer
       If InStr(1, Username, "*", vbTextCompare) <> 0 Then
       intstr = InStr(1, Username, "*", vbTextCompare)
       Username = Right(Username, Len(Username) - intstr)
  End If
  AddChat "<" & Username & " " & Message & ">" & vbNewLine, vbCyan
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)
If Dii = True Then
       Username = Right(Username, Len(Username) - 1)
   End If
   Dim intstr As Integer
   If InStr(1, Username, "*", vbTextCompare) <> 0 Then
       intstr = InStr(1, Username, "*", vbTextCompare)
       Username = Right(Username, Len(Username) - intstr)
   End If
   
   strSexp = Product
   strSTAR = Product
   strd2 = Product
   strD2XP = Product
   strW2BN = Product
   strw3 = Product
   strw3xp = Product
   strProduct = Product

Dim icon As Integer
icon = GetIconCode(Product, Flags)
Dim lagicoN As Integer
lagicoN = GetLagIcon(Ping, Flags)
If icon = ICON_GAVEL Then
   With Form1.lvchannel.ListItems.Add(1, Username, Username, , icon)
   .ListSubItems.Add lvchannel.FindItem(Username).Index, , , lagicoN
   End With
End If
If icon <> ICON_GAVEL Then
   With Form1.lvchannel.ListItems.Add(, , Username, , icon)
   .ListSubItems.Add , , , lagicoN
   End With
End If


If LCase(strSexp) = "SEXP" Then
   Product = "Starcraft: Broodwar"
ElseIf LCase(strSTAR) = "STAR" Then
   Product = "Starcraft"
ElseIf LCase(strd2) = "D2DV" Then
   Product = "Diablo II"
ElseIf LCase(strD2XP) = "D2XP" Then
   Product = "Diablo II: Lord of Destruction"
ElseIf LCase(strW2BN) = "W2BN" Then
   Product = "Warcraft II"
ElseIf LCase(strw3) = "WAR3" Then
   Product = "Warcraft III: Reign of Chaos"

End If
AddChat Username & " has joined the channel using " & vbNewLine, &H808080
End Sub
Private Sub CleanSlateBot1_UserLeaves(ByVal Username As String, ByVal Flags As Long, SimulatedEvent As Boolean)
Dim intstr As Integer
       If InStr(1, Username, "*", vbTextCompare) <> 0 Then
           intstr = InStr(1, Username, "*", vbTextCompare)
           Username = Right(Username, Len(Username) - intstr)
       End If
AddChat Username & " has left the channel" & vbNewLine, &H808080
On Error Resume Next
Form1.lvchannel.ListItems.Remove Form1.lvchannel.FindItem(Username).Index
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)
If Dii = True Then
       Username = Right(Username, Len(Username) - 1)
   End If
   Dim intstr As Integer
       If InStr(1, Username, "*", vbTextCompare) <> 0 Then
       intstr = InStr(1, Username, "*", vbTextCompare)
       Username = Right(Username, Len(Username) - intstr)
   End If
AddChat "<" & Username & ">", vbYellow, Space(1) & Message & vbNewLine, vbWhite
End Sub
Private Sub CleanSlateBot1_VersionCheck(Message As Byte, ExtraInfo As String)
If Message = 0 Then
      AddChat "Client Has Been Accepted!" & vbNewLine, vbGreen
  ElseIf Message = 1 Then
      AddChat "Version Check Failed!" & vbNewLine, vbRed
  ElseIf Message = 2 Then
      AddChat "Version Check Passed!" & vbNewLine, vbGreen
  ElseIf Message = 3 Then
      AddChat "Version Check Failed!" & vbNewLine, vbRed
  ElseIf Message = 4 Then
      AddChat "Version Check Passed!" & vbNewLine, vbGreen
  ElseIf Message = 5 Then
      AddChat "Version Check Passed!" & vbNewLine, vbWhite
  ElseIf Message = 6 Then
      AddChat "Cd-Key In Use By " & ExtraInfo & vbNewLine, vbRed
  End If
End Sub
Private Sub CleanSlateBot1_WhisperFromUser(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
AddChat "<From: " & Username & "> " & Message & vbNewLine, vbCyan
End Sub
Private Sub CleanSlateBot1_WhisperToUser(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
AddWhisper "<To: " & Username & "> " & Message & vbNewLine, vbCyan
End Sub
Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal Flags As Long, SimulatedEvent As Boolean)
AddWhisper "Joined channel: " & ChannelName & vbNewLine, vbYellow
lvchannel.ListItems.Clear

End Sub


[Eli_1]

Your accept is wrong, and that needs to be the first property you set.

[Warrior]

Hmm ill try it thanks.

[Eli_1]

The correct accept number for CSB is 579728. So your code should work if it was:

Code Select Expand


Private Sub mnuConnect_Click()

   strProduct = GetStuff("Login", "Client") 'Set Values For Your Variables
   strUsername = Form2.txtUsername.Text
   strPassword = Form2.txtpassword.Text
   strCDKey = Form2.txtcdkey
   strServer = Form2.txtserver.Text
   strHomeChannel = Form2.txthomechan.Text
   
   CleanSlateBot1.Accept = "579728"
   CleanSlateBot1.BNLSBotID = ""
   CleanSlateBot1.BNLSBotPassword = ""
   CleanSlateBot1.CDKey = "strcdkey"
   CleanSlateBot1.Product = "strProduct"
   CleanSlateBot1.HomeChannel = "strHomeChannel"
   CleanSlateBot1.Password = "strPassword"
   CleanSlateBot1.Username = "strUsername"
   CleanSlateBot1.Server = "strServer"
   AddChat "Attempting Connection To Battle.Net " & vbNewLine, vbYellow
 
End Sub


I also just noticed that your never calling CleanSlateBot1.Connect.

[Warrior]

Hey Thanks Alot man i moved all the cleanslate bot stuff to the Form_load and left the connect.
As i did this another problem arose
When itry to Connect i get a bot that says Invalid Version and then i get
[7:18:25 PM] Attempting Connection To Battle.Net
[7:18:26 PM] Connecting...
[7:18:33 PM] Bnet error: 11001 - Authoritative answer: Host not found
Thanks for helping so far all i need is this so can u please help?

[Eli_1]

Hey Thanks Alot man i moved all the cleanslate bot stuff to the Form_load and left the connect.
As i did this another problem arose
When itry to Connect i get a bot that says Invalid Version and then i get
[7:18:25 PM] Attempting Connection To Battle.Net
[7:18:26 PM] Connecting...  '// <-------------
[7:18:33 PM] Bnet error: 11001 - Authoritative answer: Host not found
Thanks for helping so far all i need is this so can u please help?

Change that to AddText("Connecting to: " & CleanSlateBot1.Server, vbGreen) -- or whatever your AddText/AddChat function is and I'm almost positive you'll find your problem.  

[Warrior]

[7:31:23 PM] Connecting to:useast.battle.net
[7:31:23 PM] Connected!
[7:31:23 PM] Bnet error: 10053 - Connection is aborted due to timeout or other failure
I know this means im ipbanned or something
but before that i get a invalid version box. I REALLY Apreciate your help so far

[Warrior]

nvm i got it i had quotes around my strserver like so

Before

Code Select Expand

  CleanSlateBot1.BNLSBotID = ""
   CleanSlateBot1.BNLSBotPassword = ""
   CleanSlateBot1.CDKey = "strCDKey"
   CleanSlateBot1.Product = "strProduct"
   CleanSlateBot1.HomeChannel= "strHomeChannel"
   CleanSlateBot1.Password = "strPassword"
   CleanSlateBot1.Username = "strUsername"
   CleanSlateBot1.Server = "strServer"
   CleanSlateBot1.Accept = "579728"
After

Code Select Expand

  CleanSlateBot1.BNLSBotID = ""
   CleanSlateBot1.BNLSBotPassword = ""
   CleanSlateBot1.CDKey = strCDKey
   CleanSlateBot1.Product = strProduct
   CleanSlateBot1.HomeChannel = strHomeChannel
   CleanSlateBot1.Password = strPassword
   CleanSlateBot1.Username = strUsername
   CleanSlateBot1.Server = strServer
   CleanSlateBot1.Accept = "579728"

[MyndFyre]

Having no idea about CSB or anything related, I saw this line that function to stick out:

Code Select Expand


Private Sub CleanSlateBot1_BnetConnected()
CleanSlateBot1.Connect
AddChat "Connected!" & vbNewLine, vbGreen
End Sub


As I recall, you call CSB.Connect() before it's connected.  I don't know what this would do by having it hear, but I'm sure it can't be good.

Also, do you believe in whitespace?

[edit] In the future, rather than posting twice in a row, when nobody has posted since your last post, utilize the Modify feature up and to the right of your post.  It's a convention here, and it is nice to see. [/edit]

[Eli_1]

nvm i got it i had quotes around my strserver like so

That's why I wanted you to use that code I told you, I don't know how you got useast.battle.net though.

Maybe I'm wrong, but I thought CSB.Accept needed to be set first. Also, I highly suggest you remove your BNLSBotID and BNLSBotPassword from your posted code via modify -- as to stop others from making a bot using your BNLS ID.

Having no idea about CSB or anything related, I saw this line that function to stick out:
I don't know what this would do by having it hear, but I'm sure it can't be good.

Create a wannabe floodbot.

Also, do you believe in whitespace?

* Eli_1 breaks into song.

". . . I'm a believer . . . I'm in love, oooooooooooo"

[Warrior]

Yea the CleanSlateBot1.Connect in
CleanSlateBot1_Connected
was a typo on my part. I Fixed it though

[MyndFyre]

Also, I highly suggest you remove your BNLSBotID and BNLSBotPassword from your posted code via modify -- as to stop others from making a bot using your BNLS ID.

Why don't you extend him the same courtesy?

[Warrior]

Id like to say how i apreciate both of your help man.
I dont know what i would of done
I had no idea i used the Accept from cupheads site
lmao.
Well thanks.
Hey i connect but i get the error image list must be initialized before it can be used. Hmm if you can can you help me. Im sorry if i sound like a pest

[Eli_1]

Hey i connect but i get the error image list must be initialized before it can be used.

You initialize it like so:

Code Select Expand


Private Sub Form_Load()
   Set ListView.SmallIcons = ImageList
End Sub
Assuming you have an imagelist on your form with all the chat icons also.

Why don't you extend him the same courtesy?

Done.  

[Warrior]

Thanks.
Now i just need to fix my image view lol
If i need anymore help ill post it
really thanks.