View Single Post
11-10-2007, 04:57 PM
#9
Nightscream is offline Nightscream
Status: Junior Member
Join date: Aug 2006
Location:
Expertise:
Software:
 
Posts: 58
iTrader: 0 / 0%
 

Nightscream is on a distinguished road

  Old

ok full code
Code:
Public Class frmClicker
    Declare Function mouse_event Lib "user32.dll" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

    Const MOUSEEVENTF_MOVE = &H1

    Private Sub btnPosition_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPosition.Click

        System.Threading.Thread.Sleep(2000)
        txtX.Text = System.Windows.Forms.Cursor.Position.X
        txtY.Text = System.Windows.Forms.Cursor.Position.Y

    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        mouse_event(MOUSEEVENTF_MOVE, txtX.Text, txtY.Text, 0, 0)

    End Sub
End Class