[原创] VBS基础（5）WSH应用实例

novaa

转载注明 bbs.bathome.net

例子一：设置IE的首页。
。。。知识点：
RegWrite的方法
Select Case 语句
Second 函数
Now 函数
Mod 运算符
。。。程序简介与设计过程。
先用Now函数取系统时间，再用Mod运算符把秒数对3求余。根据余数经过Select Case的运算，来设置不同的IE首页。设置首页是用RegWrite的方法。
。。。知识点讲解。
1.RegWrite的方法
语法:
object.RegWrite strName,anyValue[,strType]
参数说明：
object:WshShell对象。
strName:要写入的键值或数值。
anyValue:要写入的键或注册表数值的对应值。
strType：可选。值的数据类型将被留在注册表中。

2.Select Case语句
语法：
Select Case testexpression
[Case expressionlist1
[statmentbloc1
[Case expressionlist2
[statmentbloc2
'
'
'
End Select

3.Second函数
返回一个Variant(Integer),其值为0~59之间的整数。表示一分钟之中的麽个秒。
语法：
Second(time)

4.Now函数
（见帮助文档）
5.Mod运算符 
（见帮助文档）

。。。：程序源代码分析
Dim shouye
Select Case Second(Now) mod 3
Case 0
shouye="bbs.bathome.net"
Case 1
shouye="hi.baidu.com/Novaa"
Case 2
shouye="www.google.com"
Case 3
shouye="www.whut.edu.cn"
End Select
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Internet Exploer\Main\Start Page",shouye

实例二：控制IE
1.知识点
On Error Resume Next语句
IE浏览器参数Navigate,FullScreen,AddressBar,MenuBar,ToolBar

2。程序知识点
*On Error resume Next语句
On Error Resume Next会使程序从紧随产生错误的语句之后的语句继续执行，或是从紧随最近一次调用含有On Error Resume Next语句的过程语句继续运行。这个语句可以置运行错误于不顾，使程序得以继续执行。可以将错误处理程序放置在错误发生的地方，而不必将控件传输到过程中的其他位置。在调用另一个过程时，On Error Resume Next语句成为非活动的。所以，如果希望在例程中进行嵌入错误处理，则应在每一个调用的例成中执行 On Error Resume Next语句。

*IE参数
Navigate：
导向一个URl地址或一个文件
fullScreen：
全屏显示，最大化窗口，并且关掉状态栏工具栏，菜单栏和标题栏
AddressBar：
控制地址栏的显示
MenuBar:
控制菜单栏的显示
ToolBar:
控制工具栏的显示

3.程序源代码分析。
On Error Resume Next
Set Objie1=CreateObject("InternetExplorer.application")
objie1.Visible=True
objie1.Navigate "bbs.bathome.net"
objie1.Width=600
objie1.Height=300
objie1.Left=0
objie1.Top=0
Set Objie2=CreateObject("InternetExplorer.application")
objie2.Visible=True
objie2.Navigate "hi.baidu.com/novaa"
objie2.FullScreen=True
Set objie3=CreateObject("InternetExplorer.application")
objie3.Visible=True
objie3.Navigate "www.google.com"
objie3.AddressBar=false
objie3.MenuBar=false
objie3.ToolBar=True
复制代码

tornodo

终于收集完了。谢谢楼主。好帖。

xiaolongxia

不错，这东西不好找哇，谢了