hi! i got a problem with my active desktop. My launch program was working when i have 3-4 links, but when i added about 7 more shortcuts my ad launch program stop working. i tried clicking on the .vbs files but thats stop working too. how can i fix this?
here the script. tell me it what im doing wrong.
<html>
<head>
<title>Active Desktop: Program Launch</TITLE>
<script>
function exec (command) {
if (document.layers && navigator.javaEnabled()) {
window._command = command;
window.oldOnError = window.onerror;
window.onerror = function (err) {
if (err.indexOf ("User didn't grant") != -1) {
alert('command execution of ' + window._command +
' disallowed by user.');
return true;
}
else return false;
}
netscape.security.PrivilegeManager.enablePrivilege
('UniversalExecAccess');
java.lang.Runtime.getRuntime().exec(command);
window.onerror = window.oldOnError;
}
else if (document.all) {
window.oldOnError = window.onerror;
window._command = command;
window.onerror = function (err) {
if (err.indexOf('utomation') != -1) {
alert('command execution of ' + window._command +
' disallowed by user.');
return true;
}
else return false;
};
var wsh = new ActiveXObject('WScript.Shell');
if (wsh)
wsh.Run(command);
window.onerror = window.oldOnError;
}
}
</script>
</head>
<STYLE>
a:link {
color: #FFFFFF;
font-weight : none;
text-decoration : none;}
a:active {
color: #FFFFFF;
font-weight : none;
text-decoration : none;}
a:visited {
color: #FFFFFF; /*replace with color of your choice*/
font-weight : none; /* this to make bold font*/
text-decoration : none;}/*this to get raid of the underline*/
a:hover {
color: #FFFFFF;
font-weight : bold;
text-decoration : none; }
</STYLE>
<body bgcolor="#000000">
<font face=snap size=-1>
<font color=#0099FF face=snap size=-1>INTERNET</font><br>
<a onClick="exec('emule.vbs'); return false;" href="java script:void(0)">-EMULE</a><br>
<a onClick="exec('aim.vbs'); return false;" href="java script:void(0)">-AIM</a><br>
<a onClick="exec('trillian.vbs'); return false;" href="java script:void(0)">-TRILLIAN</a><br>
<a onClick="exec('kazaa.vbs'); return false;" href="java script:void(0)">-KAZAA</a><br>
<font color=#0099FF face=snap size=-1>GAMES</font><br>
<a onClick="exec('armyops.vbs'); return false;" href="java script:void(0)">-AMERICA'S ARMY</a><br>
<a onClick="exec('steam.vbs'); return false;" href="java script:void(0)">-STEAM</a><br>
<a onClick="exec('frozenthrone.vbs'); return false;" href="java script:void(0)">-WARCRAFT FROZEN THRONE</a><br>
<font color=#0099FF face=snap size=-1>PROGRAMS</font><br>
<a onClick="exec('coreplayer.vbs'); return false;" href="java script:void(0)">-COREPLAYER</a><br>
<a onClick="exec('winamp.vbs'); return false;" href="java script:void(0)">-WINAMP</a><br>
<a onClick="exec('nero.vbs'); return false;" href="java script:void(0)">-NERO BURNING ROM</a><br>
<font color=#0099FF face=snap size=-1>UTILITIES</font><br>
<a onClick="exec('ad-aware.vbs'); return false;" href="java script:void(0)">-AD-AWARE</a><br>
<a onClick="exec('jv16powertools.vbs'); return false;" href="java script:void(0)">-JV16 POWERTOOLS</a><br>
<a onClick="exec('rc.vbs'); return false;" href="java script:void(0)">-REGISTRY COMPACTOR</a><br>
<a onClick="exec('reg1aid.vbs'); return false;" href="java script:void(0)">-REGISTRY FIRST AID</a><br>
</body>
</html>
example of a vbs file
Dim oShell
Set oShell = WScript.CreateObject ("WScript.shell")
oShell.run "aim"
Set oShell = Nothing
Change Path %SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;
D:\Program Files\Shortcuts
all my shortcuts and vbs files are in D:\Program Files\Shortcuts
