Private Sub Form_Load()
Timer1.Interval = 1000
End SubPrivate Sub Timer1_Timer()
Dim hwnd
Static i
i = i + 1
Set hwnd = CreateObject("wscript.shell")
hwnd.AppActivate Combo1.Text '这儿的COMBO1.TEXT 是装标题的,你在编写时可以在里面填入一些经常要使用的窗口的标题就可以了
hwnd.SendKeys "A"
End Sub
创建健盘钩子！得用API函数
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024