Skip to content

Instantly share code, notes, and snippets.

@Eason0210

Eason0210/vbscript_test.hta

Created November 3, 2020 15:20
Show Gist options
  • Save Eason0210/7fd475a3d9df971c2eeb37f4944d669e to your computer and use it in GitHub Desktop.
Save Eason0210/7fd475a3d9df971c2eeb37f4944d669e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
vbscript_test.hta
<html>
<head>
<HTA:APPLICATION Icon="C:\test.ico"/>
<TITLE>Distance</TITLE>
</head>
<script language="VBScript">
Sub Window_Onload
On Error Resume Next
Set x = document.getElementById("div1")
Height = x.offsetHeight + 80
Width = x.offsetWidth + 65
strComputer = "."
intHorizontal = screen.width
intVertical = screen.height
intLeft = (Width / 2)
intTop = 100
window.resizeTo Width,Height
window.moveTo intLeft, intTop
On Error GoTo 0
' To manage the "X" button
strFileName = "C:\Results.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile3 = objFSO.CreateTextFile(strFileName , True)
objFile3.Close
Set objFile = objFSO.OpenTextFile(strFileName, 2)
objFile.WriteLine "Decision,Cancel,"
objFile.WriteLine "Comments,,"
TextboxValue.value = ""
End Sub
Sub RunScript
Field2 = "RadioValue"
Input2 = ""
For Each objButton in RadioValue
If objButton.Checked Then
Input2 = objButton.Value
End If
Next
Field3 = "TextboxValue"
Input3 = TextboxValue.Value
strFileName = "C:\Results.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile3 = objFSO.CreateTextFile(strFileName , True)
objFile3.Close
Set objFile = objFSO.OpenTextFile(strFileName, 2)
objFile.WriteLine "Decision," & Input2 & ","
objFile.WriteLine "Comments," & Input3 & ","
objFile.Close
'Close form
Self.Close()
End Sub
Sub CancelScript
strFileName = "C:\Results.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile3 = objFSO.CreateTextFile(strFileName , True)
objFile3.Close
Set objFile = objFSO.OpenTextFile(strFileName, 2)
objFile.WriteLine "Decision,Cancel"
objFile.Close
Self.Close()
End Sub
</script>
<basefont face="arial, verdana, sans-serif">
<body bgcolor="E0E0E0" scroll="auto">
<div id="div1" style="float: left;">
<table style="font-size:14px" border="0">
<tr><td colspan="2">Name:</td><td colspan="2">0141XLU</td></tr>
<tr><td colspan="2">Control:</td><td colspan="2">Tangent Distance</td></tr>
<tr><td colspan="2">Status:</td><td style="border-collapse:collapse;border:1px solid grey;background:rgb(153,204,255)">Undefined</td></tr>
<tr><td colspan="2">Notes:</td><td colspan="2"></td></tr>
<tr><td colspan="2">Comments:</td><td colspan="2"><input id="TextboxValue" type="text" /></td></tr>
<tr><td colspan="4"><hr></td></tr>
<tr><td colspan="4">Suggestions:</td></tr>
<tr><td />
<td colspan="3"><table style="background:EEEEEE;border-collapse:collapse;border:2px solid grey;font-size:14px" cellpadding="5" width="100%">
<tr><td /><td style="border-collapse:collapse;border:1px solid grey">Current</td>
<td style="border-collapse:collapse;border:1px solid grey">Suggest</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Nominal</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">0.000</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">0.692</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Ppk</td>
<td align="right" style="background:rgb(255,87,87);border-collapse:collapse;border:1px solid grey">1.340</td>
<td align="right" style="background:rgb(146,253,146);border-collapse:collapse;border:1px solid grey">1.400</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Cpk (Ref)</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.128</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.179</td>
<tr style="font-size:2px"><td colspan="4" style="border-collapse:collapse;border:1px solid grey">&nbsp;</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">LSL</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">0.000</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">0.371</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">USL</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.000</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.014</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Tol Width</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.000</td>
<td align="right" style="background:rgb(255,87,87);border-collapse:collapse;border:1px solid grey">0.643</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Pp</td>
<td align="right" style="background:rgb(255,87,87);border-collapse:collapse;border:1px solid grey">1.340</td>
<td align="right" style="background:rgb(146,253,146);border-collapse:collapse;border:1px solid grey">1.400</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey">Cp (Ref)</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.833</td>
<td align="right" style="border-collapse:collapse;border:1px solid grey">1.179</td>
</table>
<tr><td colspan="4"><hr></td></tr>
<tr><td colspan="4">Decisions:</td></tr>
<tr><td />
<td colspan="3"><table style="border-collapse:collapse;border:2px solid grey;font-size:14px" cellpadding="5" width="100%">
<tr><td style="border-collapse:collapse;border:1px solid grey;background:rgb(146,253,146)"><input type="radio" name="RadioValue" value="Approve_Nominal_Only" />&nbspApprove Nominal Only</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey;background:rgb(146,253,146)"><input type="radio" name="RadioValue" value="Approve_Nominal_Tolerances" />&nbspApprove Nominal & Tol</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey;background:rgb(255,87,87)"><input type="radio" name="RadioValue" value="Reject" />&nbspReject</td></tr>
<tr><td style="border-collapse:collapse;border:1px solid grey;background:rgb(255,255,153)"><input type="radio" name="RadioValue" value="Ignore" />&nbspIgnore</td></tr></table>
<tr><td colspan="4"><hr></td></tr>
</table>
<div align="center"><input id="runbutton" class="button" type="button" value=" Ok " name="ok_button" onclick="RunScript">
&nbsp;&nbsp;&nbsp;
<input id="runbutton" class="button" type="button" value="Cancel" name="cancel_button" onclick="CancelScript"></div>
</div>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment