MikeWarner
Programmer
I need to launch an HTA, have the user input data of some kind, return the data to the calling script, and close the opened HTA window.
I can get the HTA to launch, but from there I am having the difficulties. Below is my calling script and a copy of somebody else's (not sure whos) HTA that I am using just to test out how I will be doing this.
Calling Script
-------------------
HTA
----------------------------
Any help will be greatly appreciated.
I can get the HTA to launch, but from there I am having the difficulties. Below is my calling script and a copy of somebody else's (not sure whos) HTA that I am using just to test out how I will be doing this.
Calling Script
-------------------
Code:
Set oShell = CreateObject("WScript.Shell")
MsgBox "Lets see what is happening."
oShell.exec "mshta c:\testout.hta"
----------------------------
Code:
<HTML>
<HEAD>
<HTA:APPLICATION ID="oFinder"
APPLICATIONNAME="Finder"
BORDER="thin"
BORDERSTYLE="normal"
CAPTION="yes"
ICON=""
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="no"
SYSMENU="yes"
VERSION="1.00"
WINDOWSTATE="maximize"/>
<TITLE></TITLE>
<script language=vbscript>
Dim strReply
strReply = "Nothing"
Sub btnReply_onclick
'i believe here is where I want to return the data and exit the hta
End Sub
Sub rdoOne_onclick
rdoOne.status = True
rdoTwo.status = False
rdoThree.status = False
strReply = "ONE"
End Sub
Sub rdoTwo_onclick
rdoOne.status = False
rdoTwo.status = True
rdoThree.status = False
strReply = "TWO"
End Sub
Sub rdoThree_onclick
rdoOne.status = False
rdoTwo.status = False
rdoThree.status = True
strReply = "THREE"
End Sub
</script>
</HEAD>
<BODY>
<p>
<input
id=rdoOne type=radio> One</p>
<p>
<input id=rdoTwo type=radio> Two</p>
<p>
<input id=rdoThree type=radio> Three</p>
<p>
<input id=btnReply type=button value=Reply></p>
</BODY>
</HTML>
Any help will be greatly appreciated.