Skocz do zawartości
Bartek4175

jak zrobic PPM z LPM

Rekomendowane odpowiedzi

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

Odnośnik do komentarza

Dołącz do nas za darmo i naucz się zarabiać!

  • Dostęp do darmowych poradników pokazujących krok po kroku jak zarabiać w Internecie
  • Sposoby zarabiania niepublikowane nigdzie indziej
  • Aktywna społeczność, która pomoże Ci rozwiązać problemy i doradzi
  • Profesjonalne treści na temat SEO, social media, afiliacji, kryptowalut i wiele więcej!

 

 

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Jedynie zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się poniżej.

Zaloguj się


×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Ta strona korzysta z ciasteczek aby świadczyć usługi na najwyższym poziomie. Dalsze korzystanie z witryny oznacza zgodę na ich wykorzystanie. Polityka prywatności .