Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα κοντά στην κορυφή του κύριου κωδικού φόρμας :
αναγνωρίσει Sub mouse_event Lib " user32.dll " ( ByVal dwFlags Όπως Long , ByVal dxAs Long , ByVal dy Όπως Long , ByVal cButtons Όπως Long , ByVal dwExtraInfo Όπως Long ) Const MOUSEEVENTF_LEFTDOWN = & H2Const MOUSEEVENTF_LEFTUP = & H4Const MOUSEEVENTF_RIGHTDOWN = & H8Const MOUSEEVENTF_RIGHTUP = & H10 2
αντιγραφή και επικόλληση του παρακάτω κώδικα στην ενότητα λειτουργία βοηθού του κύριου κωδικού μορφή :
Sub Do_MouseClick ( ByVal click_type ως Long)
Καλέστε mouse_event ( click_type , 0 , 0 , 0 , 0 )
End Sub
Η 3
Αντιγράψτε και επικολλήστε τον παρακάτω σε περίπτωση που θέλετε να ενεργοποιεί το κλικ από :
« Do Αριστερά ClickDo_MouseClick ( MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP )« Do Right ClickDo_MouseClick ( MOUSEEVENTF_RIGHTDOWN + MOUSEEVENTF_RIGHTUP )
Φτηνές 4
εκτέλεση του έργου σας για να εκτελέσει την αυτόματη κλικ .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα