by gie (16 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 8th June 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Make your own AFK bot Its Very Neat...and WONT SIGN YOU OFF
'1 textbox
'and i timer with the interval too 60000
'now JUST ADD ALL THIS AND UR DONE =)
Option Explicit
Dim a As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
a = 0
End Sub
Private Sub Form_Load()
SendChat (" ··÷••(¯`·._MouTain DeW_.·´¯)••÷·")
SendChat (" ··÷••(¯`·._AFK Bot Loaded_.·´¯)••÷·")
End Sub
Private Sub Timer1_Timer()
a = a + 1
AppActivate "america online": SendKeys "•÷^· ·• I am AFK " & Text1.Text: SendKeys "{ENTER}"
AppActivate "america online": SendKeys "•÷^· ·• Afk For [" & a & "] Minutes": SendKeys "{ENTER}"
End Sub