批处理之家 - Powered by Discuz! Board

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

作者: wangb70 时间: 2013-8-12 11:34 标题: VBS如何google搜索后自动点击下一页

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

作者: batman 时间: 2013-8-12 19:17

因为楼主没有把问题描述清楚，写了个示例，楼主根据需要修改吧：

On Error Resume Next
Dim objIE, Sestr, Url
Set objIE = CreateObject("Internetexplorer.Application")
Url = "http://www.google.com.hk/"
Sestr = "批处理"
objIE.Visible = True
objIE.Navigate Url
Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
objIE.Document.GetElementById("lst-ib").Value = Sestr
objIE.Document.GetElementsByName("btng")(0).Click
Do Until OK = "ok"
  Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
  WScript.Sleep 200
  objIE.Document.GetElementById("pnnext").Click
  If Error Then
    Err.Clear
    OK = "ok"
  End If
Loop
objIE.Quit
Set objIE = Nothing
复制代码

作者: wangb70 时间: 2013-8-13 09:10

回复 2# batman

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

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

作者: 林小七 时间: 2013-8-22 11:07

回复 2# batman

在么？？大神能解释下这个vbs么？最近在看vbs、ie的好多函数都不懂~~百度也百度不到资料，求指点一二~~~

作者: moon3003003 时间: 2015-2-7 12:23

收藏，学习了

欢迎光临批处理之家 (http://www.bathome.net/)