Well, I'm not that good using VB 4, but here are a few basic tutorials that I got out of a VB book I bought about a year ago.

VB Tutorials

Code Tutorial Name Updated Date Writer

Scroller

 January, 24th, 2001

Wizard

Idle Bot

 January, 25th, 2001

Wizard

C-com

 January, 30th, 2001

Wizard

Submit a tutorial | Back to main page























Scroller

Overview

In my opinion scrollers suck, but this is a good way to learn basic commands.

How To Make A Scroller

Make a textbox, a timer and 2 command buttons

Click on the timer properties and set the interval to 6000 and put enabled to false. Note: the

lower the number the faster it will scroll.

Double click on the timer in the code area put this: ChatSend "" + Text1.text + "". Note: you may have to change chatsend to the chat code your bas file uses.

Now double click on your first command button and in the code area put timer1.enabled=true And in the command2 button put timer1.enabled=false.

Foot Notes

Chat send may not be the same command as your bas file chat command

Back to top























Idle bot

Overview

this tutorial is very simple tutorial. This idle bot states the day the hour and the minutes that you been away.

How To Make A Idle bot

Ok this tutorial is for vb 4, 5, and 6.

make a new form, 1 textbox, 3 labels, 2 command buttons, and 1 timer.

change the 3 labels captions to 0 then change the command button captions to start and stop. Note: the textbox will be your reason.

Now double click on your timer and put this code:

Private Sub Timer1_Timer()

Label3.Caption = (Label3.Caption + 1)

If Label3.Caption = 60 Then

Label3.Caption = 0

Label2.Caption = (Label2.Caption + 1)

If Label2.Caption = 24 Then

Label1.Caption = (Label1.Caption + 1)

Label2.Caption = 0

End If

End If

ChatSend "Idled for: Day(s): " + Label1.Caption + " Hr(s): " + Label2.Caption + " Min(s): " + Label3.Caption + " "

Pause ("0.3")

ChatSend "Reason: "" + text1.text+ ""

End Sub

Now go to the timer properties and set the interval to 60000 and put enabled to false.

next double click on your start button and put Timer1.enabled = true then double click on your stop button and put timer1.enabled = false.

Now was that so hard. Now go to a private chat room and try it out.

Back to top























C-com

Overview

This is a quick tutorial on how to make a c-com. Before using this tutorial it is requested that you download the 2 following files.

Box432
Chatscan3

How To Make A C-com

make a new form

press ctrl+t then hit browse and open up chatscan3.ocx

Hit ok then look at the bottom of your toolbox you should see a icon that says dos in blue.

click on it and make a box then double click on it and in the code area put

If Screen_Name = GetUser Then

If What_Said Like LCase("-test") Then

ChatSend "Whatever Text you want to send to chat"

Exit Sub

End If

End If

-test = that is what the person types to have the command work

chatsend = that should be replaced with the command you want to happen

Note = To add more then one code just copy the code i gave you and put under the other one

Your last step is to click on form 1 and in form load put chat1.scanon and in unload put chat1.scanoff

Back to top