Znajdź zawartość
Wyświetlanie wyników dla tagów 'uto' .
Znaleziono 1 wynik
-
mam kod: Public Class Form1 Declare Sub mouse_event Lib "user32.dll" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) Private Sub FlatButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton1.Click Timer1.Start() End Sub Private Sub FlatButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton2.Click Timer1.Stop() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick SendKeys.Send("{F}") Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position) mouse_event(&H2, 0, 0, 0, 1) 'cursor will go down (like a click) mouse_event(&H4, 0, 0, 0, 1) ' cursor goes up again End Sub Private Sub FlatButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Timer1.Interval = TextBox1.Text End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub FlatButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton6.Click Timer1.Start() End Sub Private Sub FlatButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton5.Click Timer1.Stop() End Sub Private Sub FlatButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton4.Click Timer1.Interval = TextBox2.Text End Sub Private Sub FlatLabel5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatLabel5.Click End Sub Private Sub FormSkin1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FormSkin1.Click End Sub Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.F4 Then Timer1.Stop() End If End Sub Private Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.F2 Then Timer1.Start() End If End SubEnd Class chce z tego zrobić aby zamiast lewego przycisku myszy klikało prawy! pomocy
