help with buttons and list in html vbscript?

D

Daniel

New member
well i am trying to use a local website to run applications kind of like a gui i made a web browser using c++ that will run that page only with no security options so all programs launch from the drop down fine but my problem is i want 10 drop down menus and about 15 buttons and i can only get 1 of each to work at separate times no matter what i try you can email me @ [email protected] ------------------------------------------------------------------------------------------------------------------------------------------------

<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>


</select>
<html>
<body>
<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>
 
Back
Top