help me put hotkeys into my coding pelase

Posts 112 of 12 · Page 1 of 1
help me put hotkeys into my coding pelase
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
Quote Originally Posted by DylanOwnsYou View Post
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.
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.

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
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.
Quote Originally Posted by trevor206 View Post
Make a new timer and delete your other code and put this and set the new timers interval to 1 and enable it.

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
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..
Quote Originally Posted by Zoom View Post
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.

Quote Originally Posted by DylanOwnsYou View Post
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.
Hmmm, i need help with this stuff...I am so bad with codes.
Quote Originally Posted by trevor206 View Post
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 ...
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
Quote Originally Posted by DylanOwnsYou View Post
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
Posts 112 of 12 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Tags for this Thread

Need help?