[原创] 分析下xiaoming的刷百度空间的VBS

lixiaodaoaaa

========================================================= on error resume next do set ie=CreateObject("InternetExplorer.Application") ie.Visible=flase ie.Navigate "http://hi.baidu.com/loveee" do until ie.Readystate=4 wscript.sleep 200 loop wscript.sleep 1000 ie.Quit wscript.sleep 1000*60*5 loop 复制代码 ======================================================= 适当解析下: on error resume next '忽略错误，就是有错误 ，仍然继续 next ,error就是错误的意思， 'netxt仍然接着往下走，不报错 do 'do loop 是vbscript的循环固定格式，用它就是为了循环。 set ie=CreateObject("InternetExplorer.Application") '创建一个ie对象。以此为中心对ie进行操作。 ie.Visible=true '使ie的界面为可见 ie.Navigate "http://hi.baidu.com/loveee" '定义ie的的打开的网站为http://hi.baidu.com/loveee do until ie.Readystate=4 wscript.sleep 200 loop '这句很重要，如果ie.readystate的状态为4，才停止循环 '如果状态不为4,就一直wscript.sleep 200就一直循环的延时。 '那么ie.readystate 4是什么意思呢？ 这里是ie.readystate 有 ' 1 2 3 4 四种状态，我们分别的进行分析 '0 － （未初始化）还没有调用send()方法 '1 － （载入）已调用send()方法，正在发送请求 '2 － （载入完成）send()方法执行完成，已经接收到全部响应内容 '3 － （交互）正在解析响应内容 '4 － （完成）响应内容解析完成，可以在客户端调用了 wscript.sleep 1000 '继续延时1妙 ie.Quit 'ie退出 wscript.sleep 1000*60*5 '这里 延时为 乘机的形式出现，自己可以做做实验，*相当于X 乘 loop '继续反回去循环下去 复制代码 ******************************************************************************** 我们可以关于此问可以做若干扩充和学习 关于vbs 控制ie 看个例子: '用VBS控制IE(随便研究研究呵呵只供学习) '我个人感觉VBS的功能很强大强大倒你鼠标和键盘可以完成的动作VBS都能做倒 ''======================================================= '首先建立IE对象 Set Objie=CreateObject("InternetExplorer.application") '设置Objie为可视 Objie.Visible=True '打开我们最熟悉的网站http://hi.baidu.com/lixiaodaoaaa Objie.Navigate "http://hi.baidu.com/lixiaodaoaaa" '设置浏览器的宽度 Objie.Width =100 '设置浏览器的高度 Objie.Height=400 '设置浏览器的X坐标 Objie.Left=0 '设置浏览器的Y坐标 Objie.Top=0 '如果要使IE全屏则下面的语句上面设置部分可以省略 'Objie.FullScreen=True '设置IE的地址栏是否可见True则可见false则不可见那就设置不可见吧 Objie.AddressBar=False '设置IE是否显示菜单栏TRUE为显示FALSE为不可见那就不可见吧 Objie.MenuBar=False '设置IE是否显示工具栏TRUE为显示FALSE为不显示 Objie.ToolBar=False '别忘了释放对象呵呵节省系统资源 Set Objie=Nothing 复制代码

发在我博客里的连接里的地址点击这里 直接访问

估计发个连接又该被某些人开骂了,"够日的lixiaodaaa.你他吗的到处替你博客做宣传啊!,

可是我想说的是,我的博客在这篇文章里也做了咱们批处理之家的连接,我做博客 从来

都是为了方便解答问题,方便交流才做的,"


[ 本帖最后由 lixiaodaoaaa 于 2009-5-18 14:18 编辑 ]

zhaolin10086

应该这样发展下去！怎么回帖也有限制？？？？

asnahu

啥子意思，怎么看不到内容的？

asnahu

博主好没创意，加载IE对象，然后循环……这样还不如做个计划任务，定时打开呢。

voil

好家伙，终于找到了。

seethesun

初学者，感谢

zhangop9

学习了楼主谢谢

wangxiulin

初学…感谢

garyng

学者VBS中。。。

volcanol

哈哈啊， 哥本；在这里又见面了

猜猜我是谁.............................


哈哈哈

乱码

IE对象的刷访问量什么的，不敢恭维、、
请大大放出POST的吧、

caish2007

真希望多碰到楼主发的这样的帖子