Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Skopírujte a vložte nasledujúci kód v hornej časti vášho hlavného kódu formulára :
Declare Sub mouse_event Lib " user32.dll " ( byval dwFlags ako dlho , byval dxAs Long , byVal dy As Long , byVal cButtons As Long , byVal dwExtraInfo As Long ) Const MOUSEEVENTF_LEFTDOWN = & H2Const MOUSEEVENTF_LEFTUP = & H4Const MOUSEEVENTF_RIGHTDOWN = & H8Const MOUSEEVENTF_RIGHTUP = & H10
2
skopírujte a vložte nasledujúci kód do sekcie funkciu pomocníka hlavného kódu formulára :
Sub Do_MouseClick ( byval click_type ako Long )
Volajte mouse_event ( click_type , 0 , 0 , 0 , 0 )
End Sub
3
skopírujte a vložte nasledujúci do udalosti , ktorý chcete spustiť , kliknite od :
" do Ľavá ClickDo_MouseClick ( MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP ) " do Pravá ClickDo_MouseClick ( MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP )
Stránka 4
spustite svoj projekt na vykonanie automatickej zaklapnutie .