Windows脚本编程核心技术精解-随书示例脚本-第五章.doc

5-1.VBS2 5-2.VBS4 5-3.VBS6 5-4.VBS8 5-5.VBS11 5-6.VBS13 5-7.VBS15 5-8.VBS18 5-9.VBS21 5-10.VBS24 5-11.VBS27 5-12.VBS30 5-13.VBS37 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: internetexplorer.application CheckCOM-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 automatically 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 = falseelseCOMExists = trueend ifend function sub 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 ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved. 5-2.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 CheckCOM-end of COM-object checking code- set ie = CreateObject(InternetExplorer.Application)scriptname = WScript.ScriptFullNamepath = left(scriptname, InstrRev(scriptname, )filename = path & showme.htmMsgBox Now loading & filenameie.navigate filenameie.visible = trueMsgBox Internet Explorer is visible now!, vbSystemModalMsgBox Type of document: & TypeName(ie.document)ie.Quit - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub 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 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.filesystemobject CheckCOM-end of COM-object checking code- set ie = CreateObject(InternetExplorer.Application)title = My Output Windowpage = JavaScript: & title _ & ie.navigate page wait for the page to be fully initialized:doloop while ie.ReadyState4 show page:ie.visible = true now you can dynamically change content:content = InputBox(Please enter some text!)ie.document.body.innerHTML = & content & MsgBox I will now list all files on drive C:! list all filesset fs = CreateObject(Scripting.FileSystemObject)set folder = fs.GetFolder(C:)for each file in folder.files ie.document.body.insertAdjacentHTML beforeEnd, _ & next - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub 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 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. 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.filesystemobject CheckCOM-end of COM-object checking code- this statement invokes the event sink feature:set ie = WScript.CreateObject(InternetExplorer.Application, _ event_)title = My Output Windowpage = JavaScript: & title _ & ie.navigate page wait for the page to be fully initialized:doloop while ie.ReadyState4 show page:ie.visible = true now you can dynamically change content:content = InputBox(Please enter some text!)ie.document.body.innerHTML = & content & MsgBox I will now list all files on drive C:! list all filesset fs = CreateObject(Scripting.FileSystemObject)set folder = fs.GetFolder(C:)for each file in folder.files ie.document.body.insertAdjacentHTML beforeEnd, _ & next this procedure executes once the IE Quit event is fired:sub event_onQuit MsgBox Hey! You closed my output window!, vbExclamation WScript.Quitend sub - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub 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 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. 5-5.VBS -the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: typelib.decoder scripting.dictionary CheckCOM-end of COM-object checking code- set typelib = CreateObject(typelib.decoder) use a dictionary to keep track of duplicate entries:set dict = CreateObject(scripting.dictionary) check interfaces defined in this file:typelibfile = shdocvw.dll enumerate available interfaces:set interfaces = typelib.GetInterfaces(typelibfile)list = Interfaces in & typelibfile & : & vbCr & vbCr read all interfaces and put into list:for each interface in interfaces check whether entry is a duplicate entry: if not dict.Exists(interface) then add to list only if new entry dict.Add interface, 0 list = list & interface & vbCr end ifnextMsgBox list - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub CheckCOMif not COMExists(typelib.decoder) thenmsg=COM-Object typelib.decoder is required. This object is currently not installed on your system. & vbCrmsg = msg & Install the TYPELIB component from CD & vbCrMsgBox msg, vbExclamationend ifif not COMExists(scripting.dictionary) thenmsg=COM-Object scripting.dictionary 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. 5-6.VBS -the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: typelib.decoder wscript.shell CheckCOM-end of COM-object checking code- set typelib = CreateObject(typelib.decoder)set wshshell = CreateObject(WScript.Shell) This is the Type Library responsible for IE:module = shdocvw.dll This is the module we are interested in:interface = DWebBrowserEvents2 list content:set result = typelib.EnumInterface(module, interface)for each entry in result entry = Split(entry, vbTab) list = list & entry(0) & vbCr & & entry(1) & & vbCrnextwshshell.Popup list - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub CheckCOMif not COMExists(typelib.decoder) thenmsg=COM-Object typelib.decoder is required. This object is currently not installed on your system. & vbCrmsg = msg & Install the TYPELIB component from CD & vbCrMsgBox msg, vbExclamationend ifif not COMExists(wscript.shell) thenmsg=COM-Object wscript.shell 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. 5-7.VBS -the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: scripting.filesystemobject internetexplorer.application CheckCOM-end of COM-object checking code- Open IE Window without scroll barset window = OpenWindow(My Output Window, false) use window:content = InputBox(Please enter some text!)PrintNew window, & content & MsgBox I will now list all files on drive C:! list all filesset fs = CreateObject(Scripting.FileSystemObject)set folder = fs.GetFolder(C:)for each file in folder.files Print window, & nextsub event_onQuit MsgBox Hey! You closed my output window!, vbExclamation WScript.Quitend subfunction OpenWindow(title, scrolling)set ie = WScript.CreateObject(InternetExplorer.Application, _event_) add attribute to body-tag to hide scroll bar if appropriate: if scrolling then scroller = scroll = no end ifpage = JavaScript: & title _ & ie.navigate page turn off toolbars ie.Toolbar = false turn off status bar ie.Statusbar = falsedoloop while ie.ReadyState4ie.visible = true return reference to IE object: Set OpenWindow = ieend functionsub PrintNew(obj, text) obj.document.body.innerHTML = textend subsub Print(obj, text) obj.document.body.insertAdjacentHTML beforeEnd, textend sub - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub CheckCOMif 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 ifif 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 ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved. 5-8.VBS -the following lines have been added to ensure all required COM objects are available on your system. script uses the following components: scripting.filesystemobject internetexplorer.application CheckCOM-end of COM-object checking code- set window = OpenWindow(My Output Window, 400, 200)content = InputBox(Please enter some text!)PrintNew window, & content & MsgBox I will now list all files on drive C:! list all filesset fs = CreateObject(Scripting.FileSystemObject)set folder = fs.GetFolder(C:)for each file in folder.files Print window, & nextsub event_onQuit MsgBox Hey! You closed my output window!, vbExclamation WScript.Quitend subfunction OpenWindow(title, width, height)set ie = WScript.CreateObject(InternetExplorer.Application, _event_)page = JavaScript: & title _ & ie.navigate page ie.Toolbar = false ie.Statusbar = falsedoloop while ie.ReadyState4 screenWidth = ie.document.parentWindow.screen.availWidth screenHeight = ie.document.parentWindow.screen.availHeight limit size to max avail space if widthscreenWidth then width=screenWidth if heightscreenHeight then height=screenHeight ie.Width = width ie.Height = height ie.left = Fix(screenWidth - width)/2) ie.top = Fix(screenHeight - height)/2)ie.visible = true return reference to IE object: Set OpenWindow = ieend functionsub PrintNew(obj, text) obj.document.body.innerHTML = textend subsub Print(obj, text) obj.document.body.insertAdjacentHTML beforeEnd, textend sub - the following code had been automatically 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 = falseelseCOMExists = trueend ifend function sub CheckCOMif 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 ifif 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 ifend sub- end of COM object checking code (C) 2000 by Dr. T. Weltner - all rights reserved. 5-9.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 CheckCOM-end of COM-object checking code- global variable will report entered text:enteredText = open window:set window = OpenWindow(dialog.htm, 400, 300) hook up event handler:window.document.all.myButton.onClick = GetRef(buttonclick) display MsgBox to halt the script and wait for inputWScript.Sleep 2000MsgBox Press OK to read dialog box., vbSystemModal see what the user has typed in:MsgBox This is what you entered: & enteredText event procedure responds to button click:sub buttonclick someone clicked the button! read entered text enteredText = window.document.all.myInput.value close window window.Quitend subfunction OpenWindow(filename, width, height)set ie = CreateObject(InternetExplorer.Application)scriptname = WScript.ScriptFullNamepath = left(scriptname, InstrRev(scriptname, )filepath = path & filenameie.navigate filepath ie.Toolbar