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! :D If someone could help me out with this that would be great.
Thanks,
--13-yr-old-newb
Oh yeah, I'm not using csb if that matters =\
--13-yr-old-newb
Using CSB to connect to CHAT would be incredibly stupid.
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
Did you perhaps try the RTB control?
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
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
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.
Quote from: UserLoser. on November 27, 2003, 05:08 PM
I believe he said he was using CleanSlateBot - So I don't think winsock1.senddata helps him.
Quote from: 13-yr-Old-Newb on November 27, 2003, 03:46 PM
Oh yeah, I'm not using csb if that matters =\
--13-yr-old-newb
Quote from: warz on November 27, 2003, 09:26 PM
-1 for trying to cover that up, but being sloppy and getting quoted.
knock it off with the karma, it just gets irritating.
Quote from: ObsidianWolf on November 27, 2003, 05:04 PM
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
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
KeyAscii = 13, I can't talk in channels if it = 0
Quote from: laurion on November 28, 2003, 12:40 PM
unless you like beeps :-p
In which case he could do...
Private Sub Form_Load()
Do
Beep
Loop
End Sub
:P
Quote from: UserLoser. on November 28, 2003, 02:39 PM
Quote from: 13-yr-Old-Newb on November 28, 2003, 02:38 PM
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 :P