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
温馨提示:内容为网友见解,仅供参考