• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Make your own AFK bot Its Very Neat...and WONT SIGN YOU OFF

Make your own AFK bot Its Very Neat...and WONT SIGN YOU OFF

Make your own AFK bot Its Very Neat...and WONT SIGN YOU OFF

Rate Make your own AFK bot Its Very Neat...and WONT SIGN YOU OFF

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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