disconnect & Quit

[TeEhEiMaN]

This is what tryed but It did not work. Can you guys help me out here?


'disconnect command

Code Select Expand


If Username = Form5.txtMaster.Text Then
If Left((LCase(Message)), 12) = (Form5.txtTrigger.Text & "disconnect ") Then
CleanSlateBot1.Disconnect
End If
End If


Code Select Expand


'quit command
If Username = Form5.txtMaster.Text Then
If Left((LCase(Message)), 6) = (Form5.txtTrigger.Text & "quit ") Then
Unload Me
End If
End If


[Tazo]

y do you have spaces at the end of the commands?

[Yoni]

Did you try sending the commands with a space after them?

[timbo]

just a thought...

Code Select Expand


If Username = Form5.txtMaster.Text and Instr(1,Message,strTrigger & "disconnect",vbTextCompare) > 0 Then
CleanSlateBot1.Disconnect
End If

[______]

Code Select Expand


If Left((LCase(Message)), 5) = frmOptions.Trigger.Text & "quit" Then
If Username = Form5.txtMaster.Text Then
unload me
end

End If


[WiLD]

wow thx ______

a great code example, i have been using case, i might start using code now, looks easyier enough.

I understand everything except for 1 part:

Code Select Expand

If Left((LCase(Message)), 5)
Could you kinda put this into english.

thx

[Yoni]

"If the 5 leftmost chars in the translation to lowercase of Message are-"

[______]

Left(string,length) meaning left of a string and how long it is

lcase(message)    = lower cased message to look for

5 =  the length in  Left(string,length)

[timbo]

vb language reference
http://msdn.microsoft.com/library/en-us/VBRef98/html/vbmscLROverview.asp

[Grok]

Or ..

Code Select Expand


      If VB.Left(LCase(Message), 5) = frmOptions.DefInstance.Trigger.Text & "quit" Then
         If Username = Form5.DefInstance.txtMaster.Text Then
            Me.Close()
         End If
      End If


However, you should not use Left anymore.  Use SubString function of the String class.

[CrAz3D]

If Username = Form5.txtMaster.Text Then
If Left((LCase(Message)), 12) = (Form5.txtTrigger.Text & "disconnect ") Then
FORM1.CleanSlateBot1.Disconnect
End If
End If

Might that be your problem?  That your CSB mod is in a different arrear than your commands?  I know I don't have my commands on my main form.

[______]

If Username = Form5.txtMaster.Text Then

wouldnt

Code Select Expand


If lcase(Username) = lcase(Form5.txtMaster.Text) Then

be better beacause if you didnt lcase it would be looking for Exact casing on the user.  

example USERnAme@azeroth = username@azeroth ' this would be false
lcaseing makes it like this  username@azeroth = username@azeroth ' this would be true

[Soul Taker]

I just use Option Compare Text myself, much easier than lcase()ing everything.

[Undeference]

you know, vb really sucks. Try using something else. There are already too many vb bots.

[Kp]

you know, vb really sucks. Try using something else. There are already too many vb bots.

This is not the place to start a language war.  If these people want to write in VB, so be it.