Valhalla Legends Archive

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

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

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

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


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