转载注明 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
复制代码
|