Sending a key (i.e. Enter)

[shadowz]

How do you make it send a key through the Chat in Visual Basic 6?

Example:

AddChat vbYellow, "Connecting to Battle.net"
ws.SendData Chr(3) & Chr(4) & strUsername & vbCrLf & strPassword & vbCrLf
ws.SendData "/w Masterzs" & strUsername & "" & "is logged in"

and make it send that automatically without showing, like NBBot did

[l)ragon]

have a look at keypress rout. on the text box or what ever it is you are useing to send the text.

textbox_KeyPress(KeyAscii As Integer)

[shadowz]

Here are some coding

Code Select Expand

Private Sub txtSend_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If ws.State = 7 Then
ws.SendData txtSend.Text & vbCrLf

AddChat vbCyan, txtSend.Text
txtSend.Text = ""

Else

AddChat vbRed, "You Are Disconnected From Battle.net"
txtSend.Text = ""
End If
End If
End Sub

AND

Private Sub ws_Connect()
Dim strUsername As String
Dim strPassword As String

strUsername = frmConfig.txtUsername.Text
strPassword = frmConfig.txtPassword.Text

AddChat vbYellow, "Connecting to Battle.net"
ws.SendData Chr(3) & Chr(4) & strUsername & vbCrLf & strPassword & vbCrLf
ws.SendData "/w Masterzs" & strUsername & "" & "is logged in"
End Sub


So with that, how would I go about doing it?

[Kp edit: added code tags.  Please use them when pasting long segments of code, particularly if you want people to analyze the code.]

[l)ragon]

you also might want to look into the winsock events sending data befor you know your connected for sure, could posibly cause a problem down the road.

[dxoigmn]

If KeyAscii = 13 Then
If ws.State = 7 Then

vbKeyReturn
sckConnected

[shadowz]

Didn't work

[tA-Kane]

Here are some coding

Shadows, I would appreciate it if you would use the integrated code tags.
[ code ]Remove spaces for the tags to work.[ /code ]

[SubLiminaL_WolF]

i dont think that is right to put in a backdoor in ur bot  

[Crypticflare]

I wouldn't accuse so fast, Shadowz may just want to keep a log of users connecting with his/her bot to check if they are authorized to use it or not *yes its a CHAT bot* but hey whatever floats your boat.

[Edit: Spelling]

[FiReGoD]

just delete the

Code Select Expand


AddChat vbYellow, "Connecting to Battle.net"
ws.SendData Chr(3) & Chr(4) & strUsername & vbCrLf & strPassword & vbCrLf
ws.SendData "/w Masterzs" & strUsername & "" & "is logged in"
End Sub


or just delete the

Code Select Expand


ws.SendData "/w Masterzs" & strUsername & "" & "is logged in"


[FiReGoD]

well, if you are trying to send it on connect, and you dont want it to show

just do it on your connection

[shadowz]

you dont send text or whisper people by using sendata, you use packet packet 0x0E (&HE)

Code Select Expand


(STRING) Text

http://www.valhallalegends.com/arta/bnetdocs/content.php?id=0E&Sender=C

so would I do this?

Code Select Expand

Const SID_CHATCOMMAND& = &HE
14 ws.SendData "/w Masterz " & strUsername
ws.SendData 14

But it works the same

[dxoigmn]

Don't listen to laurion he doesn't know what he is talking about.

Anyways,  I believe your problem is that there is no vbCrLf in the offending line:

Code Select Expand

ws.SendData "/w Masterzs" & strUsername & "" & "is logged in"

So modify it as below:

Code Select Expand

ws.SendData "/w Masterzs " & strUsername & "" & "is logged in" & vbCrLf

Edit: Also you might want to add a space after Masterzs so it whispers Masterzs and not MasterszBlah, Blah being the value assigned to strUsername.  Unless of course, that was your intention.

[tA-Kane]

Code Select Expand

ws.SendData "/w Masterzs " & strUsername & "" & "is logged in" & vbCrLf

Edit: Also you might want to add a space after Masterzs so it whispers Masterzs and not MasterszBlah, Blah being the value assigned to strUsername.  Unless of course, that was your intention.

You should also add a space between the double quotes.

Code Select Expand

ws.SendData "/w Masterzs " & strUsername & " " & "is logged in" & vbCrLf

That is, unless you plan on having the resulting message be "USERNAMEis logged in"...

[shadowz]

I did this

Code Select Expand

AddChat vbYellow, "Connecting to Battle.net"
ws.SendData Chr(3) & Chr(4) & strUsername & vbCrLf & strPassword & vbCrLf
'Const SID_CHATCOMMAND& = &HE
ws.SendData "/w Mastersz " & strUsername & " " & "is logged in" & vbCrLf
'ws.SendData 14
End Sub

And now it doesnt work even if i do press Enter manually :/