A-A+

一个很原始的用VBScript点击弹窗窗口OK的方法

2015年11月25日 路由器高级应用 暂无评论 阅读 3 views 次

今天上班的时候碰到了一个很无奈的问题:一个公司的客户不断上传格式错误的文件,致使我们的Windows服务器不断弹出Invalid Fax Merge的窗口,需要每次点击“OK”才能继续下一项任务。如果是几十个文件也就算了,但那是几千个啊!!!一开始我还手工点确定,但每隔一两分钟就去点一次,实在受不了,所以我就想到写个VBScript来自动处理。由于之前没怎么接触过VBScript,所以就参考了网上的一些案例,然后自己修改了一下。因为是急着用,所以写得仓促,希望有高手能替我修改一下,欢迎大家留言。

其实这个脚本很简单,只要完成以下要求:

1、当Invalid Fax Merge的窗口弹出后,激活窗口。

2、点击两次Tab键,移动到OK按钮。

3、点击回车一次。

4、休眠3秒。

5、重复步骤1-4五次(客户平均一次上传5个格式错误的文件)。

6、退出脚本。

这是我的代码,不过我觉得问题很大,我不知道如何用事件触发,也就是在窗口弹出后自动运行这个脚本。我暂时的解决方法是用Windows Server自带的Scheduled Task,让它每隔1分钟运行一次脚本。

  1. Set WshShell=Wscript.CreateObject("Wscript.Shell")  
  2. WshShell.AppActivate "Invalid Fax Merge" //激活标题为Invalid Fax Merge的窗口  
  3. WshShell.SendKeys vbTab //点击Tab一次  
  4. WshShell.SendKeys vbTab //点击Tab一次  
  5. WshShell.SendKeys "~"   //点击回车一次  
  6. Wscript.sleep 3000     //休眠3秒  
  7. WshShell.AppActivate "Invalid Fax Merge"  
  8. WshShell.SendKeys vbTab  
  9. WshShell.SendKeys vbTab  
  10. WshShell.SendKeys "~"  
  11. Wscript.sleep 3000  
  12. WshShell.AppActivate "Invalid Fax Merge"  
  13. WshShell.SendKeys vbTab  
  14. WshShell.SendKeys vbTab  
  15. WshShell.SendKeys "~"  
  16. Wscript.sleep 3000  
  17. WshShell.AppActivate "Invalid Fax Merge"  
  18. WshShell.SendKeys vbTab  
  19. WshShell.SendKeys vbTab  
  20. WshShell.SendKeys "~"  
  21. Wscript.sleep 3000  
  22. WshShell.AppActivate "Invalid Fax Merge"  
  23. WshShell.SendKeys vbTab  
  24. WshShell.SendKeys vbTab  
  25.   
  26.   
  27. WshShell.SendKeys "~"  
  28. Wscript.sleep  
  29. WScript.Quit  
标签:

给我留言