Board logo

标题: [原创] VBS基础(5)WSH应用实例 [打印本页]

作者: novaa    时间: 2007-12-10 12:32     标题: VBS基础(5)WSH应用实例

转载注明 bbs.bathome.net
  1. 例子一:设置IE的首页。
  2. 。。。知识点:
  3. RegWrite的方法
  4. Select Case 语句
  5. Second 函数
  6. Now 函数
  7. Mod 运算符
  8. 。。。程序简介与设计过程。
  9. 先用Now函数取系统时间,再用Mod运算符把秒数对3求余。根据余数经过Select Case的运算,来设置不同的IE首页。设置首页是用RegWrite的方法。
  10. 。。。知识点讲解。
  11. 1.RegWrite的方法
  12. 语法:
  13. object.RegWrite strName,anyValue[,strType]
  14. 参数说明:
  15. object:WshShell对象。
  16. strName:要写入的键值或数值。
  17. anyValue:要写入的键或注册表数值的对应值。
  18. strType:可选。值的数据类型将被留在注册表中。
  19. 2.Select Case语句
  20. 语法:
  21. Select Case testexpression
  22. [Case expressionlist1
  23. [statmentbloc1
  24. [Case expressionlist2
  25. [statmentbloc2
  26. '
  27. '
  28. '
  29. End Select
  30. 3.Second函数
  31. 返回一个Variant(Integer),其值为0~59之间的整数。表示一分钟之中的麽个秒。
  32. 语法:
  33. Second(time)
  34. 4.Now函数
  35. (见帮助文档)
  36. 5.Mod运算符
  37. (见帮助文档)
  38. 。。。:程序源代码分析
  39. Dim shouye
  40. Select Case Second(Now) mod 3
  41. Case 0
  42. shouye="bbs.bathome.net"
  43. Case 1
  44. shouye="hi.baidu.com/Novaa"
  45. Case 2
  46. shouye="www.google.com"
  47. Case 3
  48. shouye="www.whut.edu.cn"
  49. End Select
  50. Set WshShell=WScript.CreateObject("WScript.Shell")
  51. WshShell.RegWrite "HKCU\Software\Microsoft\Internet Exploer\Main\Start Page",shouye
  52. 实例二:控制IE
  53. 1.知识点
  54. On Error Resume Next语句
  55. IE浏览器参数Navigate,FullScreen,AddressBar,MenuBar,ToolBar
  56. 2。程序知识点
  57. *On Error resume Next语句
  58. On Error Resume Next会使程序从紧随产生错误的语句之后的语句继续执行,或是从紧随最近一次调用含有On Error Resume Next语句的过程语句继续运行。这个语句可以置运行错误于不顾,使程序得以继续执行。可以将错误处理程序放置在错误发生的地方,而不必将控件传输到过程中的其他位置。在调用另一个过程时,On Error Resume Next语句成为非活动的。所以,如果希望在例程中进行嵌入错误处理,则应在每一个调用的例成中执行 On Error Resume Next语句。
  59. *IE参数
  60. Navigate:
  61. 导向一个URl地址或一个文件
  62. fullScreen:
  63. 全屏显示,最大化窗口,并且关掉状态栏工具栏,菜单栏和标题栏
  64. AddressBar:
  65. 控制地址栏的显示
  66. MenuBar:
  67. 控制菜单栏的显示
  68. ToolBar:
  69. 控制工具栏的显示
  70. 3.程序源代码分析。
  71. On Error Resume Next
  72. Set Objie1=CreateObject("InternetExplorer.application")
  73. objie1.Visible=True
  74. objie1.Navigate "bbs.bathome.net"
  75. objie1.Width=600
  76. objie1.Height=300
  77. objie1.Left=0
  78. objie1.Top=0
  79. Set Objie2=CreateObject("InternetExplorer.application")
  80. objie2.Visible=True
  81. objie2.Navigate "hi.baidu.com/novaa"
  82. objie2.FullScreen=True
  83. Set objie3=CreateObject("InternetExplorer.application")
  84. objie3.Visible=True
  85. objie3.Navigate "www.google.com"
  86. objie3.AddressBar=false
  87. objie3.MenuBar=false
  88. objie3.ToolBar=True
复制代码

作者: tornodo    时间: 2008-3-15 21:16

终于收集完了。谢谢楼主。好帖。
作者: xiaolongxia    时间: 2009-11-24 19:10

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




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2