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

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的功能很强大强大倒你鼠标和键盘可以完成的动作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 
复制代码