Board logo

标题: [原创] 分析下xiaoming的刷百度空间的VBS [打印本页]

作者: lixiaodaoaaa    时间: 2009-5-18 14:12     标题: 分析下xiaoming的刷百度空间的VBS

=========================================================
  1. on error resume next
  2. do
  3. set ie=CreateObject("InternetExplorer.Application")
  4. ie.Visible=flase
  5. ie.Navigate "http://hi.baidu.com/loveee"
  6. do until ie.Readystate=4
  7. wscript.sleep 200
  8. loop
  9. wscript.sleep 1000
  10. ie.Quit
  11. wscript.sleep 1000*60*5
  12. loop
复制代码

=======================================================
适当解析下:
  1. on error resume next
  2. '忽略错误,就是有错误 ,仍然继续 next ,error就是错误的意思,
  3. 'netxt仍然接着往下走,不报错
  4. do
  5. 'do loop 是vbscript的循环固定格式,用它就是为了循环。
  6. set ie=CreateObject("InternetExplorer.Application")
  7. '创建一个ie对象。以此为中心对ie进行操作。
  8. ie.Visible=true
  9. '使ie的界面为可见
  10. ie.Navigate "http://hi.baidu.com/loveee"
  11. '定义ie的的打开的网站为http://hi.baidu.com/loveee
  12. do until ie.Readystate=4
  13. wscript.sleep 200
  14. loop
  15. '这句很重要,如果ie.readystate的状态为4,才停止循环
  16. '如果状态不为4,就一直wscript.sleep 200就一直循环的延时。
  17. '那么ie.readystate 4是什么意思呢? 这里是ie.readystate 有
  18. ' 1 2 3 4 四种状态,我们分别的进行分析
  19. '0 - (未初始化)还没有调用send()方法
  20. '1 - (载入)已调用send()方法,正在发送请求
  21. '2 - (载入完成)send()方法执行完成,已经接收到全部响应内容
  22. '3 - (交互)正在解析响应内容
  23. '4 - (完成)响应内容解析完成,可以在客户端调用了
  24. wscript.sleep 1000
  25. '继续延时1妙
  26. ie.Quit
  27. 'ie退出
  28. wscript.sleep 1000*60*5
  29. '这里 延时为 乘机的形式出现,自己可以做做实验,*相当于X 乘
  30. loop
  31. '继续反回去循环下去
复制代码

********************************************************************************

我们可以关于此问可以做若干扩充和学习 关于vbs 控制ie


  1. 看个例子:
  2. '用VBS控制IE(随便研究研究呵呵只供学习)
  3. '我个人感觉VBS的功能很强大强大倒你鼠标和键盘可以完成的动作VBS都能做倒
  4. ''=======================================================
  5. '首先建立IE对象
  6. Set Objie=CreateObject("InternetExplorer.application")
  7. '设置Objie为可视
  8. Objie.Visible=True
  9. '打开我们最熟悉的网站http://hi.baidu.com/lixiaodaoaaa
  10. Objie.Navigate "http://hi.baidu.com/lixiaodaoaaa"
  11. '设置浏览器的宽度
  12. Objie.Width =100
  13. '设置浏览器的高度
  14. Objie.Height=400
  15. '设置浏览器的X坐标
  16. Objie.Left=0
  17. '设置浏览器的Y坐标
  18. Objie.Top=0
  19. '如果要使IE全屏则下面的语句上面设置部分可以省略
  20. 'Objie.FullScreen=True
  21. '设置IE的地址栏是否可见True则可见false则不可见那就设置不可见吧
  22. Objie.AddressBar=False
  23. '设置IE是否显示菜单栏TRUE为显示FALSE为不可见那就不可见吧
  24. Objie.MenuBar=False
  25. '设置IE是否显示工具栏TRUE为显示FALSE为不显示
  26. Objie.ToolBar=False
  27. '别忘了释放对象呵呵节省系统资源
  28. Set Objie=Nothing
复制代码



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

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

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

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


[ 本帖最后由 lixiaodaoaaa 于 2009-5-18 14:18 编辑 ]
作者: zhaolin10086    时间: 2009-7-5 15:22     标题: 回复主题

应该这样发展下去!怎么回帖也有限制????
作者: asnahu    时间: 2009-9-25 21:26

啥子意思,怎么看不到内容的?
作者: asnahu    时间: 2009-9-25 21:31

博主好没创意,加载IE对象,然后循环……这样还不如做个计划任务,定时打开呢。
作者: voil    时间: 2010-10-3 12:20

好家伙,终于找到了。
作者: seethesun    时间: 2011-6-19 22:58

初学者,感谢
作者: zhangop9    时间: 2011-10-20 15:22

学习了楼主谢谢
作者: wangxiulin    时间: 2011-10-26 05:42

初学…感谢
作者: garyng    时间: 2011-11-11 23:52

学者VBS中。。。
作者: volcanol    时间: 2012-4-14 11:53     标题: 又见故人泪狂奔.............

本帖最后由 volcanol 于 2012-4-14 12:01 编辑

哈哈啊, 哥本;在这里又见面了

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


哈哈哈
作者: 乱码    时间: 2012-7-14 11:14

IE对象的刷访问量什么的,不敢恭维、、
请大大放出POST的吧、
作者: caish2007    时间: 2014-2-28 17:05

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2