使用VB WebBrowser获取到网站内容，一个利用 “绿色下载吧” 网站做成的脚本程序，程序还没成熟，时不时有点出错，但还是能运行，本源码不再更新。感谢作者发布，仅供学习参考。If 判断 = 0 Then

　　 搜索 列表源码

　　 一共页数 = Val(一共的页数(列表源码))

　　 目前页数 = Val(目前的页数(列表源码-Use VB WebBrowser get to the site content, one use of "green download it" website made ​ ​ scr ipt, the program is not mature, occasionally a little mistake, but still able to run, the source is no longer updated. Thanks to the author published reference for the study. If judged = 0 Then

Search Source

A total number of pages = Val (total number of pages (list source))

Currently Pages = Val (current number of pages (list source))