Her er de 2 filer (test.vbs og maintest.htm)
-VBS Start------
Dim str_read, str_write
Set WshShell = CreateObject("WScript.Shell")
path = WScript.ScriptFullName
path = Left(path, InstrRev(path, "\"))
' Building the Internet Explorer window.
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.left=50
IE.top = 50
IE.height = 620
IE.width = 700
IE.menubar = 0
IE.toolbar = 0
IE.statusbar = 0
IE.resizable = 0
IE.navigate path + "maintest.htm"
IE.visible = 1
' loop waiting for either OK from button or cancel from exiting the window!
Do While (IE.Document.All.OKClicked.Value = "")
If err <> 0 Then
Msgbox "Form was closed. Terminating program."
Set IE = Nothing
WScript.Quit
Else
WScript.Sleep 250
End If
Loop
str_read = IE.Document.All.read.Value
str_write = IE.Document.All.write.Value
IE.Quit
Set IE = Nothing
msgbox ("test " & str_read & str_write)
-VBS slut-------
-HTML start------
<html>
<head>
<title>title</title>
</head>
<script language="VBScript">
Sub OKButton_OnClick
OkClicked.Value = 1
End Sub
</script>
<script language="javascript">
function hidden()
{document.body.style.overflow='hidden';}
function unhidden()
{document.body.style.overflow='';}
</script>
<body onload="hidden()">
<input TYPE="checkbox" NAME="read" VALUE="R" unchecked>Read<br>
<input TYPE="checkbox" NAME="write" VALUE="W" unchecked>Write<br>
<p><input type="button" name="OKButton" value="Knap" style="border-style: solid; border-width: 1px"></p>
<input type="hidden" name="OKClicked" size="20">
</body>
</html>
