[VB.NET]Oto Cursor

C++ ya Geçtim, Elimdeki Tüm VB.NET Projeleri, Kodları Paylaşacam ​

Mantık : GPFamer vb. yapmak isteyenlerin işine yarayacak, Cursor'u raskele yerlere götürerek ateş edebileceksiniz yani otomatik olarak sağ sol yapıp ateş edebileceksiniz ​

[align=justify]    Private Declare Function GetAsyncKeyState Lib "user32.dll" (vKey As Keys) As Short​

    Private Declare Sub mouse_event Lib "user32.dll" (dwFlags As Integer, dx As Integer, dy As Integer, dwData As Integer, dwExtraInfo As Integer)​

    Private Declare Auto Sub keybd_event Lib "user32.dll" (bVk As Byte, bScan As Byte, dwFlags As Long, dwExtraInfo As Long)
'--------------------------------------------------------------------------------------------------------------​

    Private Sub hareket_Tick(sender As Object, e As EventArgs) Handles hareket.Tick​

        Label1.Text = Control.MousePosition.X​

        Label2.Text = Control.MousePosition.Y​

        TextBox1.Text = "(" & Label1.Text & ", " & Label2.Text & ")"​

        Dim a​

        Dim Rastgelekonum As New Random​

        Dim Olusturulankonum As Integer = Rastgelekonum.Next(0, Screen.PrimaryScreen.Bounds.Width)​

        a = New Drawing.Point(Olusturulankonum, 350)​

        Cursor.Position = a​

        mouse_event(&H2, 0, 0, 0, 1)​

        mouse_event(&H4, 0, 0, 0, 1)​

    End Sub​

'--------------------------------------------------------------------------------------------------------------​

    Private Sub key_Tick(sender As Object, e As EventArgs) Handles key.Tick​

        If GetAsyncKeyState(Keys.F2) Then​

            hareket.Start()​

        End If​

        If GetAsyncKeyState(Keys.F3) Then​

            hareket.Stop()​

        End If​

    End Sub​

End Class​

Genişletmek için tıklayın ...

Ne Sayko' Alıntı:

loadthevb.net

Genişletmek için tıklayın ...