When you click "mnuConnect" this is what needs to happen.
You need to define all the shit in your config (i.e. txtUsername.Text, txtPassword.Text) as strings.
For example:
Dim strUsername As String
'strUsername = frmOne.txtUsername.Text
'Or
strUsername = Config("Battle.Net", "Username") [This is recommended mainly, because it reads it from the config file that is set (meaning once it's saved)]
Do all the rest of the coding with the rest of the coding for "frmOne" and it's Text Boxes, etc.
CSB.UseUDP = True (For NOT getting the plug)
CSB.BNLSBotID = "YourBNLSUsername"
CSB.BNLSBotPassword = "YourBNLSPassword"
CSB.CDKey = strCDKey
CSB.Product = strProduct
CSB.Realm = strRealmName
CSB.HomeChannel = strHome
CSB.Password = strPassword
CSB.Username = strUsername
CSB.ChangePassword = False
CSB.Server = strServer
CSB.Accept = 579728 (This is the Accept code BNLS uses now for CSB)
CSB.Connect
If you need more help with CSB, just read the documentation...I read it a long time ago, and understood it perfectly.
You need to define all the shit in your config (i.e. txtUsername.Text, txtPassword.Text) as strings.
For example:
Dim strUsername As String
'strUsername = frmOne.txtUsername.Text
'Or
strUsername = Config("Battle.Net", "Username") [This is recommended mainly, because it reads it from the config file that is set (meaning once it's saved)]
Do all the rest of the coding with the rest of the coding for "frmOne" and it's Text Boxes, etc.
CSB.UseUDP = True (For NOT getting the plug)
CSB.BNLSBotID = "YourBNLSUsername"
CSB.BNLSBotPassword = "YourBNLSPassword"
CSB.CDKey = strCDKey
CSB.Product = strProduct
CSB.Realm = strRealmName
CSB.HomeChannel = strHome
CSB.Password = strPassword
CSB.Username = strUsername
CSB.ChangePassword = False
CSB.Server = strServer
CSB.Accept = 579728 (This is the Accept code BNLS uses now for CSB)
CSB.Connect
If you need more help with CSB, just read the documentation...I read it a long time ago, and understood it perfectly.