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

[问题求助] VBS如何google搜索后自动点击下一页

在google搜索结果中,如何利用VBS在网页中复制文本,然后自动点击下一页,有点难,想了一段时间还是不行,谁能帮帮咱?

收藏,学习了

TOP

回复 2# batman


    在么??大神能解释下这个vbs么?最近在看vbs、ie的好多函数都不懂~~百度也百度不到资料,求指点一二~~~
活着就是为了改变世界

TOP

回复 2# batman


    多谢了,其实我希望在google搜索结果中,把网页上的email采集下来,然后再翻页,采集下一页上的email,目前手工在做,苦不堪言不说,效率太低.

老大的这段代码只打开了google搜索,好象有点小问题.

TOP

因为楼主没有把问题描述清楚,写了个示例,楼主根据需要修改吧:
  1. On Error Resume Next
  2. Dim objIE, Sestr, Url
  3. Set objIE = CreateObject("Internetexplorer.Application")
  4. Url = "http://www.google.com.hk/"
  5. Sestr = "批处理"
  6. objIE.Visible = True
  7. objIE.Navigate Url
  8. Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  9. objIE.Document.GetElementById("lst-ib").Value = Sestr
  10. objIE.Document.GetElementsByName("btng")(0).Click
  11. Do Until OK = "ok"
  12.   Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  13.   WScript.Sleep 200
  14.   objIE.Document.GetElementById("pnnext").Click
  15.   If Error Then
  16.     Err.Clear
  17.     OK = "ok"
  18.   End If
  19. Loop
  20. objIE.Quit
  21. Set objIE = Nothing
复制代码
***共同提高***

TOP

返回列表