talking in channels

[13-yr-Old-Newb]

I just finished making my first ever bot(using vb).  It doesn't do much, just connect to battle.net on CHAT.  I want to know how I can make a chat window so I can at least see the things that people are saying and maybe even be able to talk back! If someone could help me out with this that would be great.
Thanks,
--13-yr-old-newb

[13-yr-Old-Newb]

Oh yeah, I'm not using csb if that matters =\
--13-yr-old-newb

[iago]

Using CSB to connect to CHAT would be incredibly stupid.

[13-yr-Old-Newb]

Sorry, I didn't know.  I have never used csb before and I thought maybe it would does something to connect to chat...?
--13-yr-old-newb

[hismajesty]

Did you perhaps try the RTB control?

[ObsidianWolf]

perhaps you could show some patience until after i was done eating and i would have told you?

Take the what i  have shown you so far

add a text box
in the text box type

Code Select Expand


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
winsock1.senddata text2.text & vbcrlf
text2.text=""

End If

End Sub


didnt show him how to use rtb, he wanted something simple.  
Only had him add winsock

[ObsidianWolf]

no he is not, i was contacting him through aim, hes not using CSB.  I instructed him on adding the components and such and it only contains a textbox and a winsock.  

It doesnt parse the data at all.
Thats the next step, taking it slow he is after eager to learn.

although i hope he would use CSB after i get him somewhat educated in vb.  Atleast educated to the point that he knows a how to figure stuff out.

[iago]

I believe he said he was using CleanSlateBot -  So I don't think winsock1.senddata helps him.

Oh yeah, I'm not using csb if that matters =\
--13-yr-old-newb

[iago]

-1 for trying to cover that up, but being sloppy and getting quoted.

knock it off with the karma, it just gets irritating.

[Tazo]

perhaps you could show some patience until after i was done eating and i would have told you?

Take the what i  have shown you so far

add a text box
in the text box type

Code Select Expand


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
winsock1.senddata text2.text & vbcrlf
text2.text=""

End If

End Sub


didnt show him how to use rtb, he wanted something simple.  
Only had him add winsock

keyascii = 0 unless you like beeps :-p

[13-yr-Old-Newb]

KeyAscii =  13,  I can't talk in channels if it = 0

[hismajesty]

unless you like beeps :-p

In which case he could do...

Code Select Expand


Private Sub Form_Load()
Do
    Beep
Loop
End Sub


[iago]

KeyAscii =  13,  I can't talk in channels if it = 0

No, he means after you send the text, and clear your textbox, put KeyAscii = 0

Changing your size like that is just plain rude