Dim b As Object
DoEvents
Set b = CreateObject("WScript.shell")
b.SendKeys "a"'模拟按下a --------------------------------------------------------------------------延迟：申明：Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
调用： Sleep 3000 '延时3秒执行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024