safebox/web-installer
7
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 30 Wiki Activity

resize
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
root
2024-08-07 10:54:44 +02:00
parent d69545d36f
commit 2933853cee
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
windows-installer.hta
View File

@@ -31,8 +31,8 @@ Set objShell = CreateObject("WScript.Shell")
Sub Window_OnLoad Sub Window_OnLoad
Dim X, Y, strComputer, objWMIService, colItems, objItem, intHorizontal, strYear, wcRegPath Dim X, Y, strComputer, objWMIService, colItems, objItem, intHorizontal, strYear, wcRegPath
X=500 X=1024
Y=420 Y=768
window.resizeTo X,Y window.resizeTo X,Y
' resize the HTA ' resize the HTA
strComputer = "." strComputer = "."
@@ -70,7 +70,7 @@ Sub btnConfigure_OnClick
Exit Sub Exit Sub
End If End If
If txtPort.value="" Then If txtPort.value="" Then
MsgBox "Please enter port number",16,"ERROR" MsgBox "Please enter webserver port number",16,"ERROR"
txtPort.focus txtPort.focus
Exit Sub Exit Sub
End If End If
@@ -229,16 +229,17 @@ End Sub
<body> <body>
<table> <table>
<tr> <tr>
<td>host</td> <td>Hostname:</td>
<td><input type="text" name="txtHost" value="localhost"/></td> <td><input type="text" name="txtHost" value="localhost" disabled="disabled"/></td>
</tr> </tr>
<tr> <tr>
<td>port</td> <td>Webserver port:</td>
<td><input type="text" name="txtPort" value="80" maxlength="5" size="6" /></td> <td><input type="text" name="txtPort" value="8080" maxlength="5" size="6" /></td>
</tr> </tr>
<tr><td>&nbsp;</td><td>&nbsp;</td></tr> <tr><td>&nbsp;</td><td>&nbsp;</td></tr>
<tr><td>&nbsp;</td><td><input type="button" value="START" id=btnConfigure /></td></tr> <tr><td>&nbsp;</td><td><input type="button" value="START INSTALL" id=btnConfigure /></td></tr>
</table> </table>
<br><br>
<div id="output"></div> <div id="output"></div>
</body> </body>
</html> </html>