Sending a key (i.e. Enter)

[tA-Kane]

I beleive the Enter key (bottom right of number pad) has a different character code than the Return key (to the right of all the letters, just up and left of the arrow keys).

IIRC, on my Mac, the Enter key creates a keydown event with Chr(3) as the value, instead of Chr(13).

[shadowz]

I beleive the Enter key (bottom right of number pad) has a different character code than the Return key (to the right of all the letters, just up and left of the arrow keys).

IIRC, on my Mac, the Enter key creates a keydown event with Chr(3) as the value, instead of Chr(13).

Still doesn't work  

[Tazo]

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.

ah, nevermind, I forgot that on chat you use senddata, props to UserLoser for correcting me :-p

[MrRaza]

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

He's talking about a chat bot, not a binary bot. Also, please edit your post to fix your grammar errors please.

[Stealth]

I beleive the Enter key (bottom right of number pad) has a different character code than the Return key (to the right of all the letters, just up and left of the arrow keys).

IIRC, on my Mac, the Enter key creates a keydown event with Chr(3) as the value, instead of Chr(13).

In Windows, the standard ENTER key and the numpad ENTER key both generate chr(13) in the KeyPress event.

Code Select Expand


Private Sub txtSend_KeyPress(KeyAscii as Integer)
     if keyascii =13 then 'if enter is pressed
         if sckbnet.state = 7 then 'if the socket is connected
              keyascii = 0 'removes that cursed DING noise you would otherwise hear
              sckbnet.senddata txtsend.text & vbcrlf
              txtsend.text = ""
         endif
     endif
End Sub


Untested, but should work.

[Camel]

Code Select Expand


     if keyascii =13 then 'if enter is pressed


that'll work, but you should use the vbKeyReturn constant instead of just 13

[dxoigmn]

ah, nevermind, I forgot that on chat you use senddata, props to UserLoser for correcting me :-p

I still use SendData() for a binary connection.

Code Select Expand

Socket.SendData sData    ' sData == BNCS packet