自动跳转上/下一页的脚本

分类： L_E(多页面浏览器) 编程心得 2010-10-19 14:00 394人阅读 评论(0) 收藏 举报

each脚本工具

突然觉得要找到网页中的上/下一页的链接然后点击很麻烦,于是就想着弄个工具来自动找到并点击就好了.

于是就有了下面的脚本,vbs的:

 

[vb] view plaincopy

1. On Error Resume Next  
2. Dim doc,docs  
3. Set docs=external.GetAllDocument  
4. Dim links,link  
5.     for each doc in docs  
6.         set links = doc.links  
7.         for each link in links  
8.             If InStr(link.innerText,"下一页")>0 Then  
9.                 window.location.href=link.href  
10.                 Exit For  
11.             End If  
12.         next  
13.     next  

 

在le中使用很简单,只需要在插件runscript中调用就可以了,并且还可以设置鼠标手势.