Test/test.hta at main · ghosts621/Test · GitHub

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
<HTML>
<HEAD>
<HTA:APPLICATION
ID="CalcLauncher"
APPLICATIONNAME="Calculator Launcher"
BORDER="thin"
BORDERSTYLE="normal"
CAPTION="yes"
ICON="shell32.dll#2"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="normal">
</HEAD>
<BODY style="font-family: Arial; font-size: 10pt;">

<script language="VBScript">
' This script will run when the HTA is launched.
' It uses the Shell.Application object to execute calc.exe

Sub Window_OnLoad
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "cmd.exe"
    ' Optionally, you can close the HTA window after launching calc
    ' self.close
End Sub

</script>

<p>Launching Calculator...</p>
<p>If Calculator does not appear, it may already be running or there was an issue launching it.</p>

</BODY>
</HTML>