Untitled

<html>
<HEAD>
<TITLE>t e s t</TITLE>
<HTA:APPLICATION ID="oMyApp"
APPLICATIONNAME="test"
ICON="blankicon.ico"
SYSMENU="yes"
MAXIMIZEBUTTON="yes"
MINIMIZEBUTTON="yes"
WINDOWSTATE="normal"
NAVIGABLE="yes"
SCROLLFLAT="yes"/>


<script type="text/javascript">

fso = new ActiveXObject("Scripting.FileSystemObject");

function RunProgram(Program_Path) {
Default_Value = Program_Path.match(new RegExp("Default", "i"))
if (Default_Value) {
} else {
new ActiveXObject("WScript.Shell").Run(Program_Path,3,false)
}}
</script>
</head>
<body>

<body background="C:\kav\kav.jpg">
<select onchange="RunProgram(this.value)">
<option value="Default" selected>Launch Program</option>
<option value="C:\kav\kav">kav</option>
<option value="C:\kav\pwd">pwd</option>
<option value="C:\kav\st">st</option>
<option value="C:\kav\File\CCleaner\CCleaner.exe">ccleaner</option>
<option value="C:\kav\File\JkDefrag\JkDefragGUI.exe">jkdefrag</option>
<option value="C:\kav\File\DriveImage XML\dixml.exe">new</option>
<option value="C:\kav\File\Explore2fs.exe">explore2fs</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>
<option value="C:\kav\">new</option>

</select>
<head>
<script language="VBScript">

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell"
        objShell.Run "pwd.exe"
    End Sub

</script>
</head>

<body>
<button onclick="RunProgram">Run Program</button> <p>

<script language="VBScript">

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell"
        objShell.Run "kav.bat"
    End Sub

</script>
</head>

<body>
<button onclick="RunProgram">Run Program</button> <p>


<script language="VBScript">

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell"
        objShell.Run "regedit.exe"
    End Sub

</script>
</head>

<body>
<button onclick="RunProgram">Run Program</button> <p>


<script language="VBScript">

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell"
        objShell.Run "notepad.exe"
    End Sub

</script>
</head>

<body>
<button onclick="RunProgram">Run Program</button> <p>


<script language="VBScript">

    Sub RunProgram
        Set objShell = CreateObject("Wscript.Shell"
        objShell.Run "pwd.exe"
    End Sub

</script>
</head>

<body>
<button onclick="RunProgram">Run Program</button> <p>


</script>
</html>