Question

VB 怎么自动按alt+c键

VB 怎么自动按alt+c键
Private Sub Timer1_Timer()
keybd_event vbKeyAlt , 0, 0, 0
End Sub
这样只按了一个Alt键 我想它按Alt+C这个怎么做呢

Answer 1

Public Sub DoubleKey(ByVal key1 As Byte, ByVal key2 As Byte)
Call keybd_event(key1, 0, 0, 0)
DoEvents
Call keybd_event(key2, 0, 0, 0)
DoEvents
Call keybd_event(key2, 0, 2, 0)
DoEvents
Call keybd_event(key1, 0, 2, 0)
DoEvents
End Sub

'用法
Private Sub Timer1_Timer()
DoubleKey vbKeyAlt, vbKeyC
End Sub

Answer 2

WshShell.SendKeys "%(c)"
就这么简单