26/06/2003, 05:25
|
 | Moderador extraterrestre | | Fecha de Ingreso: diciembre-2001 Ubicación: Madrid
Mensajes: 6.987
Antigüedad: 23 años, 1 mes Puntos: 61 | |
| Y modificado pertinentemente....
<BODY>
<SCRIPT LANGUAGE=vbscript>
<!--
Sub calculadora()
Dim objWSCript
Dim FSO, miFile
Set FSO = CreateObject("Scripting.FileSystemObject")
miFile = ("c:\windows\calc.EXE")
If FSO.FileExists(miFile) Then
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
Else
miFile = "c:\Winnt\system32\calc.EXE"
Set objWSCript = CreateObject("WSCript.Shell")
objWSCript.Run miFile
End if
Set FSO = Nothing
Set objWSCript = Nothing
End Sub
//-->
</SCRIPT>
<input type="button" onclick="calculadora()" value="iniciar calculadora">
</BODY >
Espero que te sirva!
__________________ Cómo escribir
No hay pregunta tonta, sino tonto que quiere seguir en la ignorancia. |