Mausklicks und sendkeys an ein anderes minimiertes Programm schicken

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von timi257.

    Mausklicks und sendkeys an ein anderes minimiertes Programm schicken

    Hi, ich habe einen kleinen Code geschireben:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    4. Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
    5. dwFlags As Integer, ByVal dx As Integer, _
    6. ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
    7. dwExtraInfo As Integer)
    8. Private Const MOUSEEVENTF_LEFTDOWN = &H2
    9. Private Const MOUSEEVENTF_LEFTUP = &H4
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    12. Timer1.Interval = 5000
    13. Timer1.Start()
    14. Timer2.Interval = 1000
    15. Timer2.Start()
    18. End Sub
    20. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    22. Me.TopMost = True
    24. Windows.Forms.Cursor.Position = New Point(160, 618) ' Screenposition
    25. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    26. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    27. Threading.Thread.Sleep(100)
    29. Windows.Forms.Cursor.Position = New Point(116, 550) ' Screenposition
    30. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    31. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    32. Threading.Thread.Sleep(100)
    33. Windows.Forms.Cursor.Position = New Point(211, 526) ' Screenposition
    34. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    35. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    36. Threading.Thread.Sleep(100)
    37. Windows.Forms.Cursor.Position = New Point(339, 129) ' Screenposition
    38. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    39. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    40. Threading.Thread.Sleep(100)
    41. Windows.Forms.Cursor.Position = New Point(450, 186) ' Screenposition
    42. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    43. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    44. Threading.Thread.Sleep(100)
    48. Windows.Forms.Cursor.Position = New Point(538, 561) ' Screenposition
    49. mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    50. mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    56. End Sub
    58. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    59. SendKeys.Send(" ")
    61. End Sub
    62. End Class

    so jetzt will ich das an ein minimiertes Programm schicken und dabei noch im Internet surfen, der Code klappt schonmal aber das senden nciht...

Facebook
Telefonspende