分析下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]]
回复主题
应该这样发展下去!怎么回帖也有限制???? 啥子意思,怎么看不到内容的? 博主好没创意,加载IE对象,然后循环……这样还不如做个计划任务,定时打开呢。 好家伙,终于找到了。 初学者,感谢 学习了楼主谢谢 初学…感谢 学者VBS中。。。又见故人泪狂奔.............
[i=s] 本帖最后由 volcanol 于 2012-4-14 12:01 编辑 [/i]哈哈啊, 哥本;在这里又见面了
猜猜我是谁.............................
哈哈哈 IE对象的刷访问量什么的,不敢恭维、、
请大大放出POST的吧、 真希望多碰到楼主发的这样的帖子
页:
[1]