Passing variables from within innerHTML
Hi,
Is me again, and stuck again. Finalizing a script that uses the Set objExplorer = WScript.CreateObject("InternetExplorer.Application ")
statement for loading a specific HTML page. Use innerHTML on this page to display. Basically, I have a vbs that consists of 2 parts. First one is a message that currently is displayed for 30 seconds [Wscript.Sleep 30000] and then gets refreshed with new info in the innerHTML displaying the second page. So basically, the data gets refreshed after 30 seconds, but actually I want to add a BUTTON that the person reading the info can click on before it refreshes the information to the 2nd part.
So 1st part shows some requirements before installing the applications.
2nd part shows information on the installation of the components.
###
Set objExplorer = WScript.CreateObject("InternetExplorer.Application ")
objExplorer.Navigate "C:\TEMP\MSA.htm"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Resizable = 0
objExplorer.Width = 485
objExplorer.Height = 590
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = "<P>FIRST PAGE</P><INPUT TYPE='BUTTON' VALUE='Continue' onclick='XXXXXX'>"
Wscript.Sleep 5000
objExplorer.Width=485
objExplorer.Height = 590
IEProgStart = "<P>SECOND PAGE</P>"
Do While (objExplorer.Busy)
Wscript.Sleep 2000
Loop
ProgressMessage = IEProgStart
objExplorer.Visible = 1
objExplorer.Document.Body.InnerHTML = ProgressMessage
###
k, so in the first page I want to imput a BUTTON that sets a variable to a certain value. Once the value is set to 1 for instance, the script will continue. With this now, the page gets generated and then the script goes to sleep for 5 seconds and then the 2nd part comes up. It is like I'm unable to pass a variable to the actual script.
I'm not really into all of this coding and I'm not really in favour of memorizing the DOM object and whatever is out there. It is the last change I will make to the script and it is finished, now it is just frustration again.
Can anyone help me please, I promise I will no longer spam your forum after this one.
Thanks,
Sebastiaan.
|