Yea yea I know this is a cheap way to make a bot but until I learn more I'm going to use it... I re-created my old BNLS bot and got everything going... I try to connect and it connects to bnls and then pops up an error msgbox and says "Invalid Version" and then it gives me this....
"[1:34:33 AM] Battle.net Logon Server Authorization Successful.
[1:34:33 AM] Connecting to Battle.net...
[1:34:33 AM] A Battle.net Error has occured: 10049 Address is not available from the local machine"

Can anyone explain this or has anyone had the same problem?

Read the documentation on what to set the Product property to.

Ok, I'll just post my code because it's all set correctly and since CleanSlateBot.OCX is posted for dl and use I will just show my code... I changed a few things and now it won't even try to connect... I'll just post the code for my entire Main.frm.

[code]
Private Sub BNLS_BnetConnected()
AddChat vbGreen, "Connected to Battle.net."
End Sub

Private Sub BNLS_BnetConnecting()
AddChat vbGreen, "Connecting to Battle.net..."
End Sub

Private Sub BNLS_BnetDisconnected()
AddChat vbRed, "Disconnected from Battle.net."
End Sub

Private Sub BNLS_BnetError(ErrorNumber As Integer, Description As String)
AddChat vbRed, "A Battle.net Error has occured: " & ErrorNumber & " " & Description
End Sub

Private Sub BNLS_BNLSAuthEvent(Success As Boolean)
If Success = True Then AddChat vbGreen, "Battle.net Logon Server Authorization Successful."
If Success = False Then AddChat vbRed, "Battle.net Logon Server BotID/Password was rejected!"
End Sub

Private Sub BNLS_BNLSConnected()
AddChat vbGreen, "Connected to Battle.net Logon Server."
End Sub

Private Sub BNLS_BNLSConnecting()
AddChat vbGreen, "Connecting to Battle.net Logon Server..."
End Sub

Private Sub BNLS_BNLSDataError(Message As Byte)
AddChat vbRed, Message
End Sub

Private Sub BNLS_BNLSDisconnected()
AddChat vbRed, "Disconnected from Battle.net Logon Server."
End Sub

Private Sub BNLS_BNLSError(ErrorNumber As Integer, Description As String)
AddChat vbRed, "A Battle.net Logon Server Error has occured: " & ErrorNumber & " " & Description
End Sub

Private Sub BNLS_JoinedChannel(ByVal ChannelName As String, ByVal Flags As Long, SimulatedEvent As Boolean)
AddChat vbBlue, "Joined channel " & ChannelName & " with the flag(s) of " & Flags
End Sub

Private Sub BNLS_LoggedOnAs(Username As String, Product As String)
AddChat vbYellow, "Logged on as " & Username & " with " & Product
End Sub

Private Sub BNLS_LogonEvent(Message As Byte)
If Message = 0 Then AddChat vbRed, "Logon Failed: Account doesn't exist."
If Message = 1 Then AddChat vbRed, "Logon Failed: Incorrect password."
If Message = 2 Then AddChat vbGreen, "Logon Successful."
If Message = 3 Then AddChat vbBlue, "Attempting to create the account."
If Message = 4 Then AddChat vbBlue, "Account Creation Successful."
End Sub

Private Sub BNLS_ServerError(ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbRed, "A server error has occured: " & Message
End Sub

Private Sub BNLS_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbYellow, "Server Info: " & Message
End Sub

Private Sub BNLS_UserEmote(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbYellow, "<" & Username & " " & Message & ">"
End Sub

Private Sub BNLS_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)
AddChat vbYellow, Username & " [" & Flags & "] " & "is in the channel with " & Product & "with a ping of [" & Ping & "]."
End Sub

Private Sub BNLS_UserJoins(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)
AddChat vbGreen, Username & " has joined the channel using " & Product & " with a ping of [" & Ping & "]."
End Sub

Private Sub BNLS_UserLeaves(ByVal Username As String, ByVal Flags As Long, SimulatedEvent As Boolean)
AddChat vbgreed, Username & " has left the channel."
End Sub

Private Sub BNLS_UserTalk(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
AddChat vbWhite, "<", vbCyan, Username, vbWhite, ">" & Message
End Sub

Private Sub BNLS_WhisperFromUser(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbCyan, "<From:" & Username & "> ", vbGrey, Message
End Sub

Private Sub BNLS_WhisperToUser(ByVal Username As String, ByVal Flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
AddChat vbCyan, "<To:" & Username & "> ", vbGrey, Message
End Sub

Private Sub Form_Load()
g_strUsername = ReadINI("SOIBBot Config", "Username", FixPath(App.Path) & "Config.ini")
g_strPassword = ReadINI("SOIBBot Config", "Password", FixPath(App.Path) & "Config.ini")
g_strHomeChannel = ReadINI("SOIBBot Config", "Home Channel", FixPath(App.Path) & "Config.ini")
g_strClient = ReadINI("SOIBBot Config", "Client", FixPath(App.Path) & "Config.ini")
g_strServer = ReadINI("SOIBBot Config", "Server", FixPath(App.Path) & "Config.ini")
g_strCDKey = ReadINI("SOIBBot Config", "CD-Key", FixPath(App.Path) & "Config.ini")

With BNLS
.BNLSBotID = "*****"
.BNLSBotPassword = "*****"
.UseUDP = True
.Username = g_strUsername
.Password = g_strPassword
.HomeChannel = g_strHomeChannel
.Product = g_strClient
.Server = g_strServer
.CDKey = g_strCDKey
End With

Load Config
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Config
End Sub

Private Sub mnuFile_Click()
If BNLS.Connected Then
mnuConnect.Enabled = False
mnuDisconnect.Enabled = True
mnuReconnect.Enabled = True
Else
mnuConnect.Enabled = True
mnuDisconnect.Enabled = False
mnuReconnect.Enabled = False
End If
End Sub

Private Sub mnuConnect_Click()
BNLS.Connect
End Sub

Private Sub mnuDisconnect_Click()
BNLS.Disconnect
End Sub

Private Sub mnuReconnect_Click()
mnuConnect_Click
End Sub

Private Sub mnuSetup_Click()
Config.Show
End Sub
[/code]

Can anyone find what's wrong? I can't and I've messed with it for hours so that means it's just something simple I know it is!

Wheres BNLS.Accept? ^^

Well I just realized that the newest OCX build is up for download but CupHead's readme is still linked to the old OCX's readme, it'd probably help if I had a link to the newest readme.

And I was under the impression that .Accept wasn't any longer needed because it's public.

[quote author=AnThRaX-SOI link=board=17;threadid=1132;start=0#msg8308 date=1051112598]And I was under the impression that .Accept wasn't any longer needed because it's public.
[/quote]
It's still needed even though it's public. Someone other than me knows the value.

The documentation for the newer CSB can be found here. Enjoy.

p.s.
[quote]
Example: CleanSlateBot1.Accept = 579728
[/quote]

Ok thanks guys! But now there is something else wrong lol...

[11:54:19 AM] Connecting to Battle.net Logon Server...
[11:54:20 AM] Connected to Battle.net Logon Server.
[11:54:20 AM] Battle.net Logon Server Authorization Successful.
[11:54:20 AM] Connecting to Battle.net...
[11:54:20 AM] Connected to Battle.net.
[11:54:21 AM] Disconnected from Battle.net Logon Server.
[11:54:21 AM] Disconnected from Battle.net.

That's what I am getting now.

Bad logins is my guess

my guess is you supllied an invalid key.
<edit> and or you have a space after the cd-key. </edit>

[quote author=laurion link=board=17;threadid=1132;start=0#msg8315 date=1051114036]
Bad logins is my guess
[/quote]

It's not a bad login, I use the account all the time.

You said " I changed a few things and now it won't even try to connect "

Well If it worked b4 you changed things... You found the problem. Next time change 1 word, then try, etc etc.

[quote author=UnBearAble link=board=17;threadid=1132;start=0#msg8319 date=1051114691]Change 1 word, then try, etc etc.[/quote][quote author=Grok link=board=17;threadid=1078;start=15#msg8221 date=1051031721]If it compiles and runs today, it's all they need or care about, right?[/quote]

+1 to Kane for having a leet avatar.

[quote author=St0rm.iD link=board=17;threadid=1132;start=0#msg8349 date=1051140312]+1 to Kane for having a leet avatar.[/quote]-1 to St0rm for not liking Karma.

+1 to kane for having a funny personal text and the picture/word/byte thing in signature
+1 to st0rm for having a not so funny personal text.

meh, that's a pretty bad joke. not to mention it's older than windows.

[quote author=Camel link=board=17;threadid=1132;start=15#msg8405 date=1051202027]meh, that's a pretty bad joke.[/quote]Shush, you! :P

hey, can we stop giving camel -1 for being a jerk? :'(

[edit] and wasn't ANSI a dos/win9x driver for adding color to dos prompts? and isn't kane a mac freak?

[quote author=Camel link=board=17;threadid=1132;start=15#msg8417 date=1051207863]wasn't ANSI a dos/win9x driver for adding color to dos prompts?[/quote]I don't know... but ANSI to me is a bunch of standard libraries for C (eg, ANSI C).[quote author=Camel link=board=17;threadid=1132;start=15#msg8417 date=1051207863]isn't kane a mac freak?[/quote]I wouldn't call myself a "freak"... but I suppose you could sum myself up like that.

[quote author=Camel link=board=17;threadid=1132;start=15#msg8417 date=1051207863]
hey, can we stop giving camel -1 for being a jerk? :'(

[edit] and wasn't ANSI a dos/win9x driver for adding color to dos prompts? and isn't kane a mac freak?
[/quote]

Umm.. No. ANSI is the American National Standards Institute.

That's like saying that GNU is Unix!
(if you don't get the joke, go here)

[quote author=iago link=board=17;threadid=1132;start=15#msg8428 date=1051217332]
That's like saying that GNU is Unix!
(if you don't get the joke, go here)
[/quote]

no, it isn't!
what's with all the jokes from 1990 lately?

+1 to Kane for giving me less karma.