[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

(已解决)一个网站的登录VBS问题

本帖最后由 zhiminhua 于 2015-1-26 20:04 编辑
  1. set objExcel = CreateObject("Excel.Application")
  2. objExcel.Visible = true
  3. Set objWorkbooks = objExcel.Workbooks.open ("D:\aa.xls",3,false)
  4. for i=1 to 5
  5. x=objExcel.Cells(i,2).value
  6. y=objExcel.Cells(i,3).value
  7. set ie2=WScript.CreateObject("InternetExplorer.Application")
  8. ie2.visible=true
  9. ie2.navigate "http://www.co188.com/"
  10. Do
  11. Wscript.Sleep 300
  12. Loop Until ie2.ReadyState=4
  13. ie2.document.getElementById("username").value=x
  14. ie2.document.getElementById("password").value=y
  15. document.getElementsByid("sumbit").click()
  16. Wscript.Sleep 10000
  17. CreateObject("WScript.Shell").Run "taskkill /f /im iexplore.exe", 0
  18. Wscript.Sleep 4000
  19. next
复制代码

问题在哪里?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

你好,有高手给我解决了,谢谢你。

TOP

返回列表