创建健盘钩子！得用API函数
Private Sub Form_Load() Timer1.Interval = 1000 End Sub Private 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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024