SAMP Bot
SAMP Bot
Hello everyone 
i make bot for samp so him job is to make a new account in game so he need to write some information for account and then skip server tutorial, after that give money to player and exit from the game, but now i want to make after he exit from game then he need to click on samp server chooser application and change player name and after that again connect to server and make same things.. how i can do that? srry for bad english :/
i make bot for samp so him job is to make a new account in game so he need to write some information for account and then skip server tutorial, after that give money to player and exit from the game, but now i want to make after he exit from game then he need to click on samp server chooser application and change player name and after that again connect to server and make same things.. how i can do that? srry for bad english :/
Code:
Public Class Form1
Dim counter As Integer = -1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 3350 ' Create a 3350mS delay
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Integer
i = i + 1
Select Case i
Case Is = 1
My.Computer.Keyboard.SendKeys("")
Case Is = 2
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 3
My.Computer.Keyboard.SendKeys("gramofon")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 4
My.Computer.Keyboard.SendKeys("gramofon")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 5
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 6
My.Computer.Keyboard.SendKeys("20")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 7
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 8
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 9
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 10
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 11
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 12
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 13
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 14
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 15
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 16
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 17
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 18
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 19
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 20
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 21
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 22
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 23
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 24
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 25
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 26
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 27
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 28
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 29
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 30
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 31
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/dalje")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 32
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/pay ")
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys(" 15000")
My.Computer.Keyboard.SendKeys("{enter}")
Case Is = 33
My.Computer.Keyboard.SendKeys("T")
My.Computer.Keyboard.SendKeys("/q")
My.Computer.Keyboard.SendKeys("{enter}")
i = 0
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub TextBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.MouseClick
TextBox1.Text = ""
End Sub
End Class
Originally Posted by Crostator
