Copia e incolla il seguente codice nella parte superiore del codice del modulo principale :
Declare Sub mouse_event Lib " user32.dll " ( ByVal dwFlags As Long , ByVal dxAs Lunga , ByVal dy As Long , cButtons ByVal come lungamente, dwExtraInfo ByVal come lungamente) Const MOUSEEVENTF_LEFTDOWN = & H2Const MOUSEEVENTF_LEFTUP = & H4Const MOUSEEVENTF_RIGHTDOWN = & H8Const MOUSEEVENTF_RIGHTUP = & H10
2
Copia e incolla il seguente codice nella sezione funzione di supporto del codice del modulo principale :
Sub Do_MouseClick ( ByVal click_type come Long ) per
Chiama mouse_event ( click_type , 0 , 0 , 0 , 0 ) per
End Sub
3
Copia e incolla il seguente nel caso in cui si desidera attivare il clic da :
' Do Sinistra ClickDo_MouseClick ( MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP ) ' Do Right ClickDo_MouseClick ( MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP )
4
eseguire il progetto per eseguire lo scatto automatico .
Programmazione © www.354353.com