1、 5-1.VBS.2 5-2.VBS.4 5-3.VBS.6 5-4.VBS.8 5-5.VBS.11 5-6.VBS.13 5-7.VBS.15 5-8.VBS.18 5-9.VBS.21 5-10.VBS.24 5-11.VBS.27 5-12.VBS.30 5-13.VBS.37 5-1.VBS-the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: internete
2、xplorer.applicationCheckCOM-end of COM-object checking code-set ie = CreateObject(“InternetExplorer.Application“)MsgBox “Object Type: “ & TypeName(ie)ie.visible = trueMsgBox “Internet Explorer is visible now!“ie.visible = falseMsgBox “Now its hidden!“ie.Quit - the following code had been automatical
3、ly added to ensure all required COM objects are installed.function COMExists(name) checks whether a specific COM object is installed on your local machineset cwsh = CreateObject(“WScript.Shell“)on error resume nextdummy = cwsh.RegRead(“HKCR“ & name & “)if err.number0 thenCOMExists = falseelseCOMExis
4、ts = trueend ifend functionsub CheckCOMif not COMExists(“internetexplorer.application“) thenmsg=“COM-Object “internetexplorer.application“ is required. This object is currently not installed on your system.“ & vbCrmsg = msg & “Install the Internet Explorer Version 4.0 or above.“ & vbCrMsgBox msg, vb
5、Exclamationend ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved. 5-3.VBS-the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: internetexplorer.application scripting.filesy
6、stemobjectCheckCOM-end of COM-object checking code-set ie = CreateObject(“InternetExplorer.Application“)title = “My Output Window“page = “JavaScript:“ & title _& “ie.navigate page wait for the page to be fully initialized:doloop while ie.ReadyState0 thenCOMExists = falseelseCOMExists = trueend ifend
7、 functionsub CheckCOMif not COMExists(“internetexplorer.application“) thenmsg=“COM-Object “internetexplorer.application“ is required. This object is currently not installed on your system.“ & vbCrmsg = msg & “Install the Internet Explorer Version 4.0 or above.“ & vbCrMsgBox msg, vbExclamationend ifi
8、f not COMExists(“scripting.filesystemobject“) thenmsg=“COM-Object “scripting.filesystemobject“ is required. This object is currently not installed on your system.“ & vbCrmsg = msg & “Reinstall the Windows Scripting Host!“ & vbCrMsgBox msg, vbExclamationend ifend sub- end of COM object checking code
9、(C) 2000 by Dr. T. Weltner - all rights reserved. 5-4.VBS-the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: internetexplorer.application scripting.filesystemobjectCheckCOM-end of COM-object checking code- this s
10、tatement invokes the event sink feature:set ie = WScript.CreateObject(“InternetExplorer.Application“, _“event_“)title = “My Output Window“page = “JavaScript:“ & title _& “ie.navigate page wait for the page to be fully initialized:doloop while ie.ReadyState0 thenCOMExists = falseelseCOMExists = truee
11、nd ifend functionsub CheckCOMif not COMExists(“internetexplorer.application“) thenmsg=“COM-Object “internetexplorer.application“ is required. This object is currently not installed on your system.“ & vbCrmsg = msg & “Install the Internet Explorer Version 4.0 or above.“ & vbCrMsgBox msg, vbExclamatio
12、nend ifif not COMExists(“scripting.filesystemobject“) thenmsg=“COM-Object “scripting.filesystemobject“ is required. This object is currently not installed on your system.“ & vbCrmsg = msg & “Reinstall the Windows Scripting Host!“ & vbCrMsgBox msg, vbExclamationend ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved.
