如何控制滑鼠和鍵盤自動按鍵?

這是來自本站留言區 的網友問題：

■ 請問一下...
++ 小修 (幼稚園生)　∼第1篇∼ 

--------------------------------------------------------------------------------

大家好..我是一個剛學vb的新手...有個問題想請教一下...
如果我設一個timer..時間到時會執行按鍵盤上的某一個按鈕or按下滑鼠左鍵 or右鍵 要如果設呢??
thx...
sho. 
(c195.h061013097.is.net.tw).. 2001/5/25(Fri) 17:46 [#249] 


--------------------------------------------------------------------------------

++ 德本立 (大學院生)　∼第116篇∼ 
取得時間請參考:
http://vbex.uhome.net/vbfunction/vbtime.html

自動按鍵範例:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo 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 Sub Picture1_Click() '模擬按ENTER鍵
　 keybd_event vbKeyReturn, 0, &H0, 0
　 keybd_event vbKeyReturn, 0, &H2, 0
End Sub

Private Sub Timer1_Timer()'模擬按右鍵
　mouse_event 8, 0, 0, 0, 0
　mouse_event 16, 0, 0, 0, 0
End Sub

Private Sub Timer2_Timer()'模擬按左鍵
　mouse_event 2, 0, 0, 0, 0
　mouse_event 4, 0, 0, 0, 0
End Sub

上一頁