here's my coding, can some1 help me?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Interval = TextBox2.Text
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Hes trying to make an auto typer.
Make a new timer and delete your other code and put this and set the new timers interval to 1 and enable it.
Tell me if it works the hotkey for that is holding insert if it doesn't i'll go make one and see if it works.Code:Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32"(ByVal vkey As Long) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Interval = TextBox2.Text Timer1.Enabled = True End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Timer1.Interval = TextBox2.Text Timer1.Enabled = False End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send(TextBox1.Text) SendKeys.Send("{enter}") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As Dim starthotkey As Boolean starthotkey = GetAsyncKeyState(Keys.Insert) If starthotkey = True Then SendKeys.Send(TextBox1.Text) SendKeys.Send("{enter}") End If End Sub End Class
nvm user1 helped me, now i need help with this crosshair hack. these are the codes for crosshairs, can some1 help me make the hotkeys f10 to start f12 to stop?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Form3.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Hide()
Form3.Hide()
End Sub
End Class
ok make two new timers enable them and set their interval to 1.
delete all the code you have and paste this or just fill in what you dont have.Code:Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() Form3.Show() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form2.Hide() Form3.Hide() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim starthotkey As Boolean starthotkey = GetAsyncKeyState(Keys.F10) If starthotkey = True Then Form2.Show() Form3.Show() End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim stophotkey As Boolean stophotkey = GetAsyncKeyState(Keys.F12) If stophotkey = True Then Form2.Hide() Form3.Hide() End If End Sub End Class
Hmmm, i need help with this stuff...I am so bad with codes.
sorry i am done those