Connecting,Connected,Diconnected

[Miccolo]

i have a problem wenn i conncet du bnls and the output  is
Connecting
Connected
Diconnected
way

[Maddox]

Is this a joke?

[FLiPPY_]

I think you might want to post your code.. make sure you use the [code ]
[/code ] Function (Without Spaces before ])

[DarkMinion]

My IQ just lowered.  

[K]

I think it would make a beautiful haiku.

wenn i conncet du bnls
is connecting, connected
diconnected way

[Hazard]

Every man and woman on this forum is now dumber having read it.

!~!HaZaRD!~!

[hismajesty]

whats is the a forum it be?

[Miccolo]

this is my code

Code Select Expand

Private Sub CleanSlateBot1_BnetConnected()
chat.Text = chat.Text & "BNet Connected" & vbCrLf
End Sub

Private Sub CleanSlateBot1_BnetConnecting()
chat.Text = chat.Text & "BNet Connecting" & vbCrLf
End Sub

Private Sub CleanSlateBot1_BNLSAuthEvent(Success As Boolean)
If Success = True Then
       chat.Text = chat.Text & "Authorized" & vbNewLine
   Else
       chat.Text = chat.Text & "Unauthorized" & vbNewLine
   End If
End Sub

Private Sub CleanSlateBot1_BNLSConnected()
chat.Text = chat.Text & "BNLS Connected" & vbCrLf
CleanSlateBot1.Send ""
End Sub

Private Sub CleanSlateBot1_BNLSConnecting()
chat.Text = chat.Text & "BNLS Connecting" & vbCrLf
End Sub

Private Sub CleanSlateBot1_BNLSDataError(Message As Byte)
chat.Text = chat.Text & "BNLS DataError" & vbCrLf
End Sub

Private Sub CleanSlateBot1_BNLSDisconnected()
chat.Text = chat.Text & "BNLS Disconnected" & vbNewLine
End Sub

Private Sub CleanSlateBot1_BNLSError(ErrorNumber As Integer, Description As String)
chat.Text = chat.Text & "Error" & vbNewLine
End Sub

Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal Flags As Long, SimulatedEvent As Boolean)
chat.Text = chat.Text & "Joined Channel: " & ChannelName & vbCrLf
End Sub

Private Sub connect_button_Click()
CleanSlateBot1.Connect
End Sub

Private Sub Form_Load()
CleanSlateBot1.BNLSBotID = "xxxxxx"
CleanSlateBot1.BNLSBotPassword = "xxxxx"
CleanSlateBot1.CDKey = "1234567890123"
CleanSlateBot1.Product = "PXES"
CleanSlateBot1.HomeChannel = "Op GdG"
CleanSlateBot1.Password = "XXXXX"
CleanSlateBot1.Username = "Miccolo-Bot"
CleanSlateBot1.ChangePassword = False
CleanSlateBot1.Server = "europe.battle.net"
CleanSlateBot1.Accept = "579728"
End Sub

(chat ist a multiline box)

[l)ragon]

Remove your CD-Key so noone like steals it ^^

[RhiNo]

best way to just simply disconnect is close the bot with unload me or just make all your winsocks close :-P

[Camel]

best way to just simply disconnect is close the bot with unload me or just make all your winsocks close :-P

Unload Me will only work if there is only 1 loaded form (loaded != visible) -- use End instead.

[DarkMinion]

Great, another clueless CSB user...thanks CupHead

[dxoigmn]

Unload Me will only work if there is only 1 loaded form (loaded != visible) -- use End instead.

Never use End!!  Instead you should unloading all the loaded forms using the Forms object.

[Camel]

Never use End!!  Instead you should unloading all the loaded forms using the Forms object.

Never use incomplete sentances!!  Instead you should making all the words being in the sentance.

What's so horrible about End?

[Grok]

End leaves code in memory.  That code may contain references to objects.  Since those objects are still referenced, they will not end and release their own code or data.

I wouldn't say never use End.  However, you should only use End when you know exactly why you are using it instead of doing a clean shutdown.