批处理之家's Archiver

lixiaodaoaaa 发表于 2009-5-18 14:12

分析下xiaoming的刷百度空间的VBS

[table][tr][td][size=4][color=#0000ff][i][b]=========================================================[/b][/i][/color][/size]
[b][size=4][color=#0000ff][code]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 [/code][/color][/size][/b]
[size=4][color=#0000ff][i][b]=======================================================[/b][/i][/color][/size]
[size=3][b]适当解析下:[/b][/size]
[size=3][code]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
'继续反回去循环下去[/code][/size]
[size=4][color=#0000ff][b]******************************************************************************[/b]**[/color][/size]
[color=#0000ff][/color]
[size=4][b][size=5][color=#ff00ff]我们可以关于此问可以做若干扩充和学习 关于vbs 控制ie[/color][/size][/b] [/size]
[size=4][/size]
[size=4][/size]
[size=4][code]看个例子:
'用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 [/code][/size]

[/td][/tr][/table]
[size=4][color=red][url=http://hi.baidu.com/lixiaodaoaaa/blog/item/c57d4db49b9b907b8bd4b2ec.html][size=4][color=red]发在我博客里的连接里的地址点击这里 直接访问[/color][/size][/url][/color][/size]
[size=4][color=#ff0000][/color][/size]
[size=2][color=black][b]估计发个连接又该被某些人开骂了,"够日的lixiaodaaa.你他吗的到处替你博客做宣传啊!,[/b][/color][/size]
[size=2][color=black][/color][/size]
[size=2][color=black][b]可是我想说的是,我的博客在这篇文章里也做了咱们批处理之家的连接,我做博客 从来[/b][/color][/size]
[size=2][color=black][/color][/size]
[size=2][color=black][b]都是为了方便解答问题,方便交流才做的,"[/b][/color][/size]
[size=4][color=#ff0000][/color][/size]

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

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

又见故人泪狂奔.............

[i=s] 本帖最后由 volcanol 于 2012-4-14 12:01 编辑 [/i]

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

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


哈哈哈

乱码 发表于 2012-7-14 11:14

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

caish2007 发表于 2014-2-28 17:05

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

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.