VB.NET using hotkeys to sendkeys to an active window

i try to use hotkeys f1,f2 to start and stop my code,to active windows form2 and sendkeys and sleep time then active form2 and send keys... etc problem when i press f1 to start my code work fine but when i press f2 my code doesn't stop how can i solve that thanks

Code:

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cMilierNetButtons As Integer, ByVal dwExtraInfo As Integer)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    Dim starthotkey As Boolean
    Dim stophotkey As Boolean
    starthotkey = GetAsyncKeyState(Keys.F1)
    stophotkey = GetAsyncKeyState(Keys.F2)
    If starthotkey = True Then
        Timer1.Enabled = True
    Else
        If stophotkey = True Then
            Timer1.Enabled = False
        End If
    End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    AppActivate("Form2")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form3")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form4")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form5")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form6")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
End Sub
end class

Edit: removed . Misread.

Byval vkey As Long
http:// msdn.microsof*****m/en-us/library/ windows/ desktop/ms646293(v=vs.85).aspx

Should be Int32 (or just 'Integer')

You are talking vb.net, not vb6, right?

if the form you're writing to is in the project why don't you just use

Code:

Textbox1.text += "bla bla bla"

Thanks bro for you comment
yes its vb.net i think the problem not from the hotkeys code cuz i replaced the code in Timer1 with msgbox and it workes fine
the problem from this code but i cant get it

Code:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    AppActivate("Form2")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form3")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form4")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form5")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
    AppActivate("Form6")
    mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    SendKeys.Send(TextBox1.Text + "{ENTER}")
    Threading.Thread.Sleep(500)
End Sub

Originally Posted by Raow

if the form you're writing to is in the project why don't you just use

Code:

Textbox1.text += "bla bla bla"

thanks for your replay bro. its not in same project

good to know..that eliminates one thing. But please fix your declaration...your return type and parameter type are wrong for getasynckeystate. maybe works, but please fix : /

I tried your code and works on my machine...

text version of above code

Code:

Imports System****

Public Class Form1
    Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cMilierNetButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AppActivate("Form1")
        Threading.Thread.Sleep(5000) '' give me time to move cursor over the button
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub


End Class

I made a temporary program made of just 1 button, which shows a messagebox("Button was clicked").
The other program (Form123) is the code above. I click the button and move the cursor over form1's button
4-5 seconds later the button gets clicked. mouse_event is working.

maybe your problem is with SendKeys()...or..

VB.NET using hotkeys to sendkeys to an active window

Post a Reply

Similar Threads

Tags for this Thread