help me put hotkeys into my coding pelase

[DylanOwnsYou]

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

[Iamazn]

https://www.mpgh.net/forum/33-visual-...albasic08.html

[trevor206]

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

What are u trying to make if you tell me i guess i could help you.

[Iamazn]

Hes trying to make an auto typer.

[trevor206]

Make a new timer and delete your other code and put this and set the new timers interval to 1 and enable it.

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

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.

[DylanOwnsYou]

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

[Zoom]

Make a new timer and delete your other code and put this and set the new timers interval to 1 and enable it.

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

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.

Don´t make it to 1 as interval it will LAAAAAAAAAAAAAAAAGGG.....

set it as 50 and then it will work much better..

[trevor206]

Don´t make it to 1 as interval it will LAAAAAAAAAAAAAAAAGGG.....

set it as 50 and then it will work much better..

It doesn't lag me at all.

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 i'll try.

[trevor206]

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.

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

[Katie_Perry]

Hmmm, i need help with this stuff...I am so bad with codes.

[DylanOwnsYou]

sorry i am done those

[Zoom]

It doesn't lag me at all.


ok i'll try.

If you are unluckey it will frezze your mouse and you need to press CTRL-ALT-DELETE and then end your spammer or ...