VBS如何google搜索后自动点击下一页

wangb70

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

batman

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

1. 
   
2. On Error Resume Next
   
3. Dim objIE, Sestr, Url
   
4. Set objIE = CreateObject("Internetexplorer.Application")
   
5. Url = "http://www.google.com.hk/"
   
6. Sestr = "批处理"
   
7. objIE.Visible = True
   
8. objIE.Navigate Url
   
9. Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
   
10. objIE.Document.GetElementById("lst-ib").Value = Sestr
    
11. objIE.Document.GetElementsByName("btng")(0).Click
    
12. Do Until OK = "ok"
    
13.   Do Until objIE.ReadyState = 4 : WScript.Sleep 200 : Loop
    
14.   WScript.Sleep 200
    
15.   objIE.Document.GetElementById("pnnext").Click
    
16.   If Error Then
    
17.     Err.Clear
    
18.     OK = "ok"
    
19.   End If
    
20. Loop
    
21. objIE.Quit
    
22. Set objIE = Nothing
    
23. 
    

复制代码

wangb70

回复 2# batman


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

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

林小七

回复 2# batman


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

moon3003003

收藏，学习了