by rc (4 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Tue 16th January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Aol idle code for aol 6.0 by rc
Idle = True ' 01/16/01 this is the newist
If Idle1$ = "" Then ' idle code up to date
Idle1$ = InputBox("Reason", " Whats your reason")
SendChat "°.° WHATEVER THE IDLERS NAME IS °.° - YOUR NICKNAME HERE -"
SendChat "°.°User: " + UserSn$ & "°.°" ' QBICFX.CJB.NET
If Idle1$ <> "" Then SendChat "°.°Idle› " & Idle1$
SendChat "Idle for " & d & "00:d " & h & "00:hr " & M & "00:min"
GoTo Idle
Idle: ' email me for help with problems with this code :)
Do: DoEvents
Pause 60#
M = Val(M) + 1
If M = "60" Then
h = Val(h) + 1
M = "0"
If h = "24" Then
d = Val(d) + 1
h = 0
End If
End If
SendChat "°.° wHATEVER HERE°.° -YOUR NICKNAME HERE -"
If Idle1$ <> "" Then SendChat "°.°IdleReason:› " & Idle1$
SendChat "°.°Idleing for " & d & ":d " & h & ":hr " & M & ":min"
Loop
End If