Hi, ich habe einen kleinen Code geschireben:
so jetzt will ich das an ein minimiertes Programm schicken und dabei noch im Internet surfen, der Code klappt schonmal aber das senden nciht...
VB.NET-Quellcode
- Public Class Form1
- 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
- Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
- dwFlags As Integer, ByVal dx As Integer, _
- ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
- dwExtraInfo As Integer)
- Private Const MOUSEEVENTF_LEFTDOWN = &H2
- Private Const MOUSEEVENTF_LEFTUP = &H4
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Timer1.Interval = 5000
- Timer1.Start()
- Timer2.Interval = 1000
- Timer2.Start()
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Me.TopMost = True
- Windows.Forms.Cursor.Position = New Point(160, 618) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- Threading.Thread.Sleep(100)
- Windows.Forms.Cursor.Position = New Point(116, 550) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- Threading.Thread.Sleep(100)
- Windows.Forms.Cursor.Position = New Point(211, 526) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- Threading.Thread.Sleep(100)
- Windows.Forms.Cursor.Position = New Point(339, 129) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- Threading.Thread.Sleep(100)
- Windows.Forms.Cursor.Position = New Point(450, 186) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- Threading.Thread.Sleep(100)
- Windows.Forms.Cursor.Position = New Point(538, 561) ' Screenposition
- mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
- mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
- End Sub
- Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
- SendKeys.Send(" ")
- End Sub
- 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...