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