[12:07:14] Connecting to BNLS....
[12:07:15] Connected to BNLS!
[12:07:15] DEBUG: BNLS In: 07 00 0E 1D 89 CC 43
HType=0/spass=False/cb=0
[12:07:16] DEBUG: BNLS In: 07 00 0F 00 00 00 00
HType=0/spass=False/cb=0
[12:07:19] BNLS Authorization Passed.
[12:07:20] DEBUG: BNLS In: 07 00 10 00 00 00 00
HType=0/spass=False/cb=0
[12:07:20] Version Byte: 5963776
This is what it displays.. and right vefore BNLS Authorization Passed, it pops up a message box saying Invalid Version. Any Help would be appreciated.
Quote from: FLiPPY_ on July 30, 2003, 11:05 AM
[12:07:14] Connecting to BNLS....
[12:07:15] Connected to BNLS!
[12:07:15] DEBUG: BNLS In: 07 00 0E 1D 89 CC 43
HType=0/spass=False/cb=0
[12:07:16] DEBUG: BNLS In: 07 00 0F 00 00 00 00
HType=0/spass=False/cb=0
[12:07:19] BNLS Authorization Passed.
[12:07:20] DEBUG: BNLS In: 07 00 10 00 00 00 00
HType=0/spass=False/cb=0
[12:07:20] Version Byte: 5963776
This is what it displays.. and right vefore BNLS Authorization Passed, it pops up a message box saying Invalid Version. Any Help would be appreciated.
Given that we don't know your code (other than you appear to be YACU), pasting your output isn't exactly conducive to telling us what's wrong. We don't know why you pop up an "invalid version" message box.
A very quick check of the protocol document reveals to me that your received 0 for the version byte response says you asked for a product that BNLS doesn't recognize. Perhaps you shouldn't go passing invalid product IDs...? :)
Well we put them as PXES, RATS.. and that stuff.. is that not correct?
Quote from: FLiPPY_ on July 31, 2003, 05:42 PM
Well we put them as PXES, RATS.. and that stuff.. is that not correct?
That is not correct. You send the value of the product which is recognized by BNLS...
#define PRODUCT_STARCRAFT (0x01)
#define PRODUCT_BROODWAR (0x02)
#define PRODUCT_WAR2BNE (0x03)
#define PRODUCT_DIABLO2 (0x04)
#define PRODUCT_LORDOFDESTRUCTION (0x05)
#define PRODUCT_JAPANSTARCRAFT (0x06)
#define PRODUCT_WARCRAFT3 (0x07)
#define PRODUCT_THEFROZENTHRONE (0x08)
.-'Modified Code'-.
Private Sub CleanSlateBot1_BnetConnected()
AddChat vbGreen, "Connected to BNET!"
End Sub
Private Sub CleanSlateBot1_BnetConnecting()
AddChat vbYellow, "Connecting to BNET!"
End Sub
Private Sub CleanSlateBot1_BnetDisconnected()
AddChat vbRed, "Disconnected from BNET!"
End Sub
Private Sub CleanSlateBot1_BnetError(ErrorNumber As Integer, Description As String)
AddChat vbRed, "Error Number: " & Number & " Description: " & Description
End Sub
Private Sub CleanSlateBot1_BNLSAuthEvent(Success As Boolean)
If Success = True Then
AddChat vbGreen, "BNLS Authorization Passed."
ElseIf Success = False Then
AddChat vbRed, "BNLS Authorization Failed."
End If
End Sub
Private Sub CleanSlateBot1_BNLSConnected()
AddChat vbGreen, "Connected to BNLS!"
End Sub
Private Sub CleanSlateBot1_BNLSConnecting()
AddChat vbYellow, "Connecting to BNLS...."
End Sub
Private Sub CleanSlateBot1_BNLSDataError(Message As Byte)
If Message = 1 Then
AddChat vbRed, "Bad CD key."
ElseIf Message = 2 Then
AddChat vbRed, "Bad product version."
ElseIf Message = 3 Then
AddChat vbRed, "Bad NLS revision."
End If
End Sub
Private Sub CleanSlateBot1_BNLSDisconnected()
AddChat vbRed, "Disconnected from BNLS."
End Sub
Private Sub CleanSlateBot1_BNLSError(ErrorNumber As Integer, Description As String)
AddChat vbRed, ErrorNumber & Description
End Sub
Private Sub CleanSlateBot1_ChannelList(ChannelName As String)
lblChannelName.Caption = ChannelName
End Sub
Private Sub CleanSlateBot1_CharacterList(CharacterName As String)
strBox = MsgBox(CharacterName, , "Character") = vbOK
End Sub
Private Sub CleanSlateBot1_Debugger(Message As String)
AddChat vbRed, "DEBUG: " & Message
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
Main.lvChannel.ListItems.Remove Main.lvChannel.FindItem(UserName).Index
With Main.lvChannel.ListItems.Add(1, , UserName, , icon)
.ListSubItems.Add 1, , , lagicoN
End With
Else
With Main.lvChannel
.ListItems(.FindItem(UserName).Index).SmallIcon = icon
End With
End If
End Sub
Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal Flags As Long, SimulatedEvent As Boolean)
AddChat vbYellow, "Joined " & ChannelName & " [" & Flags & "]."
lvChannel.ListItems.Add (UserName)
End Sub
Private Sub CleanSlateBot1_LoggedOnAs(UserName As String, Product As String)
AddChat vbGreen, "Logged on as " & UserName & " using " & Product & "."
imConnected = True
End Sub
Private Sub CleanSlateBot1_LogonEvent(Message As Byte)
If Message = 0 Then
AddChat vbRed, "Failed logon, account doesn't exist."
ElseIf Message = 1 Then
AddChat vbRed, "Failed logon, bad password."
ElseIf Message = 2 Then
AddChat vbGreen, "Successful logon."
ElseIf Message = 3 Then
AddChat vbYellow, "Attempting to create the account."
ElseIf Message = 4 Then
AddChat vbGreen, "Successfully created account."
End If
End Sub
Private Sub CleanSlateBot1_News(News As String)
AddChat vbYellows, News & vbNewLine
End Sub
Private Sub CleanSlateBot1_PasswordChange(Success As Boolean)
If Success = True Then
AddChat vbGreen, "Password change successful."
ElseIf Success = False Then
AddChat vbRed, "Password chage failed."
End If
End Sub
Private Sub CleanSlateBot1_RealmConnected()
AddChat vbGreen, "Connected to Diablo II Realm."
End Sub
Private Sub CleanSlateBot1_RealmConnecting()
AddChat vbYellow, "Connecting to Diablo II Realm..."
End Sub
Private Sub CleanSlateBot1_RealmDisconnected()
AddChat vbRed, "Disconnected from Diablo II Realm."
End Sub
Private Sub CleanSlateBot1_RealmError(ErrorNumber As Integer, Description As String)
AddChat vbRed, ErrorNumber & Description
End Sub
Private Sub CleanSlateBot1_ServerError(ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbRed, Message
End Sub
Private Sub CleanSlateBot1_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbYellow, Message
End Sub
Private Sub CleanSlateBot1_SimulatedEvent(ByVal PassedControl As Integer, ByVal EventType As String)
AddChat vbYellow, PassedControl & EventType
End Sub
Private Sub CleanSlateBot1_SomethingUnknown(ByVal UnknownString As String, SimulatedEvent As Boolean)
AddChat vbRed, "Something unknown has happened... Did B.Net just get more gay?"
End Sub
Private Sub CleanSlateBot1_UserEmote(ByVal UserName As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
AddChat vbYellow, "<" & UserName & Message & ">"
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)
'nada
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)
AddChat vbYellow, UserName & " has joined the channel using " & Product & " with a ping of " & Ping & ". " & Message
lvChannel.ListItems.Add (UserName)
End Sub
Private Sub CleanSlateBot1_UserLeaves(ByVal UserName As String, ByVal Flags As Long, SimulatedEvent As Boolean)
AddChat vbYellow, UserName & " has left the channel."
lvChannel.ListItems.Remove (UserName)
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)
AddSpeech vbWhite, "[" & Format$(Time, "Hh:Nn:Ss") & "] "
AddSpeech vbCyan, "<", _
vbWhite, UserName, _
vbCyan, "> ", _
vbWhite, Message
End Sub
Private Sub CleanSlateBot1_VersionByte(VersionByte As Long)
AddChat vbYellow, "Version Byte: " & VersionByte
End Sub
Private Sub CleanSlateBot1_VersionCheck(Message As Byte, ExtraInfo As String)
If Message = 0 Then
AddChat vbGreen, "Client version accepted!"
ElseIf Message = 1 Then
AddChat vbRed, "Version check failed! Bad version.. this message should not appear ever!"
ElseIf Message = 2 Then
AddChat vbGreen, "Version check passed!" & vbCrLf, vbRed, "CDKey invalid!"
ElseIf Message = 3 Then
AddChat vbRed, "Version check failed! BNLS has not been updated yet.."
ElseIf Message = 4 Then
AddChat vbGreen, "Version check passed!" & vbCrLf, vbRed, "Your CD-key is for another game."
ElseIf Message = 5 Then
AddChat vbGreen, "Version check passed!" & vbCrLf, vbRed, "Your CD-key is banned."
ElseIf Message = 6 Then
AddChat vbGreen, "Version check passed!" & vbCrLf, vbRed, "Your CD-key is currently in use."
End If
End Sub
Private Sub CleanSlateBot1_WhisperFromUser(ByVal UserName As String, ByVal Flags As Long, ByVal Message As String, SimulatedEvent As Boolean)
AddWSpeech vbWhite, "[" & Format$(Time, "Hh:Nn:Ss") & "] "
AddWSpeech vbCyan, "<From: ", _
vbGray, UserName, _
vbCyan, "> ", _
vbGray, Message
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)
AddWSpeech vbWhite, "[" & Format$(Time, "Hh:Nn:Ss") & "] "
AddWSpeech vbCyan, "<To: ", _
vbWhite, UserName, _
vbCyan, "> ", _
vbWhite, Message
End Sub
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
Private Sub mnuConfig_Click()
Dim theConfig As New Form2
theConfig.Show
End Sub
Private Sub mnuConnect_Click()
CleanSlateBot1.Connect
Debug.Print
Form1.lvChannel.ListItems.Clear
mnuDisconnect.Enabled = True
mnuConnect.Enabled = False
mnuReconnect.Enabled = True
End Sub
Private Sub mnuDisconnect_Click()
AddChat vbRed, "Disconnected."
CleanSlateBot1.Disconnect
Form1.lvChannel.ListItems.Clear
mnuDisconnect.Enabled = False
mnuConnect.Enabled = True
mnuReconnect.Enabled = False
End Sub
Private Sub mnuReconnect_Click()
AddChat vbYellow, "Reconencting..."
CleanSlateBot1.Disconnect
CleanSlateBot1.Connect
mnuDisconnect.Enabled = True
mnuConnect.Enabled = False
mnuReconnect.Enabled = True
End Sub
Private Sub mnuExit_Click()
Dim ansclick As String
ansclick = MsgBox("Are you Sure you want to Exit?", vbYesNo, "Exit")
If ansclick = vbYes Then
Close #1
CleanSlateBot1.Send "Forced disconnect by Exit menu command."
CleanSlateBot1.Disconnect
End
End If
End Sub
Private Sub txtSend_KeyPress(keyascii As Integer)
If imConnected = True Then
Dim strSend, strPrepend, strAppend, strFull, mUsername As String
mUsername = GetStuff("Configuration", "Username")
If keyascii = 13 And txtSend.Text <> "" Then
strSend = txtSend.Text
strPrepend = txtPrepend.Text
strAppend = txtAppend.Text
strFull = strPrepend & strSend & strAppend
txtSend.Text = ""
AddSpeech vbWhite, "[" & Format$(Time, "Hh:Nn:Ss") & "] ", _
vbCyan, "<", _
vbWhite, mUsername, _
vbCyan, "> ", _
vbWhite, strFull
End If
End If
End Sub
Yes we do have a BNLS username/ password
Quote from: FLiPPY_ on July 31, 2003, 06:04 PM
Private Sub CleanSlateBot1_BNLSAuthEvent(Success As Boolean)
If Success = True Then
AddChat vbGreen, "BNLS Authorization Passed."
ElseIf Success = False Then
AddChat vbRed, "BNLS Authorization Failed."
Else
AddChat vbRed, "Something is afoot..."
End If
End Sub
A boolean can only be True or False, so there's no need for the Else.
Ok, fixed that in both parts.. still I get the same errors.. if I'm not showing you the right code then just tell me.. and I'll give that code.. I'm all out of ideas now.. :(
If BNLS is sending you the wrong version byte, you could always use a function like this:
Public Function GetVerByte() As String
On Error Resume Next
Select Case varProduct
Case "RATS"
GetVerByte = "C7"
Case "PXES"
GetVerByte = "C7"
Case "NB2W"
GetVerByte = "4F"
Case "VD2D"
GetVerByte = "09"
Case "PX2D"
GetVerByte = "09"
Case "3RAW"
GetVerByte = "0C"
Case "PX3W"
GetVerByte = "0C"
End Select
End Function
Quote from: FLiPPY_ on July 31, 2003, 06:04 PM
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
Plenty I could fix in there, but this caught my eye.
strMonth = Format(Now,"mmmm")
Oh and if all you want is the time in this format:
QuotestrTheTime = strMonth & " " & strDay & ", " & strYear & " | . : . | " & strHour & ":" & strMin & ":" & strSec
Try this:
strTheTime = Format("Now, "mmmm dd, yyyy | .:. | HH:MM:SS")
Looks much cleaner.
Hope this helps.
Quote from: DaRk-FeAnOr on July 31, 2003, 08:56 PM
If BNLS is sending you the wrong version byte, you could always use a function like this:
Public Function GetVerByte() As String
On Error Resume Next
Select Case varProduct
Case "RATS"
GetVerByte = "C7"
Case "PXES"
GetVerByte = "C7"
Case "NB2W"
GetVerByte = "4F"
Case "VD2D"
GetVerByte = "09"
Case "PX2D"
GetVerByte = "09"
Case "3RAW"
GetVerByte = "0C"
Case "PX3W"
GetVerByte = "0C"
End Select
End Function
BNLS wouldn't send an invalid version byte. My guess is he's parsing the return wrong.
Ok,
Dark-Feanor, your code doesn't work at all on my script. Maybe I'm adding it wrong? I dont know.
Grok, when you want me to add
strTheTime = Format("Now, "mmmm dd, yyyy | .:. | HH:MM:SS")
It asks me to put a list seperator or a ) and it puts my mouse cursor over mmmm. I've tried to do that and it doesn't seem to work.
Thanks for trying though
Take the quotation mark away next to Now.
Ok, now it works. ;) Does anyone have a clue why my bot wont connect?
Yes, I am using Cleanslatebot. :-)
Try adding Option Explicit to the top of your form to make sure that you haven't accidentally re-declared a variable with nothing in it.
Have you coded all the CleanSlateBot events in some form or another? I didn't have time to scan your entire block of code.
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.
[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
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.
Yeah, It didn't help my bot connect.. obviously I am getting the wrong version byte .. I get 7471104 for some reason..
Its odd.. I tried the bot again.. and i get a version byte as
5963776
... 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.
Well.. i'm all out of ideas now.. anyone else want to give it a shot?
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
Maybe you could explain more.. but I don't know how that would help.. I'll try it anyways though.
Quote from: FLiPPY_ on August 02, 2003, 09:18 PM
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....
Ok.. so I did that.. anyone else have a solution for the bot problem?
Did it connect?
Can you see it in a bnet channeL?
Yeah.. so it can't be my CleanSlateBot.. it must be my code..
Now you know it connects...compare it to the other project....
For some reason.. I keep thinking the code problem is in here
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
OMG
YAY
It connects..
I forgot to add
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.