page348.vbs

来自「Apress - Managing Enterprise Systems Wit」· VBS 代码 · 共 14 行

'create an instance of the IE browser
Set objIE = CreateObject("InternetExplorer.Application")

'build a page containing a text field prompting for a date
objIE.Navigate "about:Date: <input type=""text"" name=""txtDate"" size=""10"""

'wait to load page
While objIE.Busy : Wend
objIE.Visible = True  'display page

Set objDoc = objIE.Document.All
'set the value for the field txtDate to today's date
objDoc("txtDate").Value = Date