-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathInventer
54 lines (44 loc) · 1.18 KB
/
Inventer
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<!-- :: Batch section
@echo off
setlocal
echo Opening up Application:
for /F "delims=" %%a in ('mshta.exe "%~F0"') do set "HTAreply=%%a"
echo End of HTA window, reply: "%HTAreply%"
goto :EOF
-->
<HTML>
<HEAD>
<HTA:APPLICATION
APPLICATIONNAME="ABB Ultra: Data Examiner Ver:1"
ID="objTest"
SCROLL="yes"
SYSMENU="yes"
WindowState="normal"
SINGLEINSTANCE="yes"
MinimizeButton="yes"
MaximizeButton="yes"
>
</HEAD>
<TITLE>ABB Ultra: Data Examiner Ver:1</TITLE>
<SCRIPT language="VBScript">
window.resizeTo(374,200);
function Data(reply){
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.GetStandardStream(1).WriteLine(reply);
window.close();
}
Sub TestSub
For Each objButton in RadioOption
If objButton.Checked Then
Msgbox "You selected Option " & objButton.Value & "."
End If
Next
End Sub
</SCRIPT>
<BODY>
<input type="radio" name="RadioOption" value="1">Option 1<BR>
<input type="radio" name="RadioOption" value="2">Option 2<BR>
<input type="radio" name="RadioOption" value="3">Option 3<P>
<input id=runbutton class="button" type="button" value="Run" name="run_button" onClick="RadioOption">
</BODY>
</HTML>