Board logo

标题: [网络连接] 求教VBS随机输入字符到网页对话框 [打印本页]
作者: ltnetbar    时间: 2009-5-15 11:58     标题: 求教VBS随机输入字符到网页对话框

我想实现以下功能：vbs随机读取txt文件的字符并在指定IE输入框中输入(复制粘贴)并按回车键等待IE完成响应后关闭IE！
下面是我看别人的脚本示例修改后的另一个实现思路，觉的不理想！最不理想的是VBS控制键盘输入很容易出错，大家有什么好的方法请帮帮忙！并且副上我收集的脚本合集！我不会VBS，还多请各位高手帮帮忙！谢谢！
  1. '简单的打开浏览器浏览某个公共页面

  2. 'set huobilie = Wscript.CreateObject("Wscript.Shell")

  3. 'huobilie.run "iexplore http://www.baidu.com"

  4. 

  5. Set ie = Wscript.CreateObject("InternetExplorer.Application")

  6. 

  7. ie.Navigate "about:blank"   

  8. ie.ToolBar = 0

  9. ie.StatusBar = 0

  10. ie.Width=400

  11. ie.Height = 100 

  12. ie.Left = 300

  13. ie.Top = 300

  14. SynchronizeIE()

  15. ie.Visible = 1    

  16. ie.Document.Body.InnerHTML = "自动输入"

  17. WScript.Sleep 2000

  18. 

  19. 

  20. ie.navigate "www.baidu.com"

  21. 

  22. SynchronizeIE()

  23. 

  24. Set wshshell=CreateObject("wscript.shell")

  25. wscript.sleep 500

  26. wshshell.Sendkeys"{TAB}"

  27. wshshell.Sendkeys"{TAB}"

  28. wshshell.Sendkeys"{TAB}"

  29. wshshell.Sendkeys"{TAB}"

  30. wshshell.Sendkeys"{TAB}"

  31. wshshell.Sendkeys"{TAB}"

  32. wshshell.Sendkeys"{TAB}"

  33. wshshell.Sendkeys"{TAB}"

  34. wscript.Sleep 500

  35. wshshell.Sendkeys"a"

  36. wshshell.Sendkeys"d"

  37. wshshell.Sendkeys"m"

  38. wshshell.Sendkeys"i"

  39. wshshell.Sendkeys"n"

  40. wshshell.Sendkeys"{ENTER}"

  41. 

  42. SynchronizeIE()

  43. 

  44. ie.Visible=1

  45. 

  46. 'WShell.SendKeys "~" ' 回车

  47. 'wscript.Sleep 5000 

  48. 'Wshell.SendKeys "^W" ' 关闭IE窗口

  49. 

  50. '//等待IE操作结束。

  51. Function SynchronizeIE()

  52.     While ie.Busy 

  53.           WScript.Sleep(100)

  54.     Wend

  55. 'Do

  56. ' Wscript.Sleep 200

  57. 'Loop Until ie.ReadyState=4

  58. End Function
复制代码
下面是bat随机运行VBS的脚本：
  1. @echo off

  2. SET num=%RANDOM% 

  3. SET /A (num%%=16) 

  4. start C:\new\%num%.vbs
复制代码
附件不支持RAR格式我把格式换成.TXT大家下载后改成.rar即可

[ 本帖最后由 ltnetbar 于 2009-5-15 14:40 编辑 ]
作者: Batcher    时间: 2009-5-15 12:28

本版规则
1、求代码、寻求代码解释、探讨代码得失的帖子均可发在本版块，其余话题禁止在本版讨论；
2、求助时，务必在顶楼一次性把问题交代清楚；若文字难以表述，请配图说明，或是上传附件；但是，一切操作应从节约论坛资源的角度出发，能文字说明清楚的就无需再发图片，小图能说明问题的尽量不截全图，在不影响效果的前提下尽量压缩图片及附件；
3、所发代码若不止一行，请务必用code标记把代码部分首尾括起来，以便他人复制；


Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html
作者: ltnetbar    时间: 2009-5-16 10:32

有高手请给帮帮忙好吗？



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2