Keskustelu: Ohjelmointikysymykset: [VB6] AutoShooter

Private Declare Function SetCursorPos Lib "user32.dll" _
(ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
ByVal cButtons As Long, ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN As Long = &H2
Private Const MOUSEEVENTF_LEFTUP As Long = &H4

Private Sub click_timer()
'ohjelma kattoo hiiren sijainnin tän nimisestä pelistä: ET.exe
If
'jos hiiri on jonkun tietyn 3D-objektin päällä
Then
Call mouse_event(MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&)
Else
mouse_event(MOUSEEVENTF_LEFTUP)
End If
End Sub