'Mouse Oynatma



Private Type POINTAPI

 X As Long

 Y As Long

End Type



Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _

 ByVal Y As Long) As Long

Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, _

 lpPoint As POINTAPI) As Long



Sub MoveMouseCursor(ByVal X As Long, ByVal Y As Long, _

 Optional ByVal hWnd As Long)

 If hWnd = 0 Then

 SetCursorPos X, Y

 Else

 Dim lpPoint As POINTAPI

 lpPoint.X = X

 lpPoint.Y = Y

 ClientToScreen hWnd, lpPoint

 SetCursorPos lpPoint.X, lpPoint.Y

 End If

End Sub



Private Sub Detail_Click()

 MoveMouseCursor 400, 400 'Mouse u 400, 400 kordinatlarına taşır.

End Sub



Private Sub Form_Timer()

 MoveMouseCursor Int(Rnd * 400), Int(Rnd * 400) 'Mouse u Rastgele kordinatlara taşır.

End Sub