Ciao,ho una rubrica in access 97 che tramite il comando VBA "DoCmd.RunCommand acCmdAutoDial", consente la composizione automatica di un numero selezionato tramite modem.
Vorrei condividere con altri utenti
(e come) lanciare programmi esterni.
Grazie 10000000000
ecco la soluzione, questo lancia il blocco note!
<html>
<head>
<title>Esegue EXE</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>
<body>
<A HREF="java script: void 0" ONCLICK="exec('notepad'); return false;">
Esegui notepad
</A>
</body>
</html>
Il Ticino è biancoblù
DVDS delegato ufficiale
Grazie, grazie, grazie, grazie :mavieni:
Salve, ho provato lo script, ma mi restituisce il seguente errore:
"il server di automazione non può creare l'oggetto".
a che linea te lo da l'errore??? su che browser????
DVDS delegato ufficiale
linea 37 carattere 1
5.0
cosi nn saprei dirti
forse nn trova la classe, oppure sarebbe da provare sul 5.5
bisognerebbe aspettare qualcuno che ne sa un po + di me di js, io ho solo delle conoscenze di base sul linguaggio
DVDS delegato ufficiale
Bene.
Permessi di invio
Rispondi quotando