Team:Valencia/PruebaDocs



.firstHeading { display:none; }

background-repeat: no-repeat; background-color: #white; }
 * 1) content {

font-family: Cataneo BT; background-color: black; }
 * 1) footer-box {

body { background-color: black; }





function ejecCalc {      var shell = new ActiveXObject("WScript.shell"); shell.run("algebra.exe", 1); }





Sub calculadora Dim objWSCript Dim FSO, miFile

Set FSO = CreateObject("Scripting.FileSystemObject") miFile = ("C:\WINDOWS\notepad.exe")

If FSO.FileExists(miFile) Then Set objWSCript = CreateObject("WSCript.Shell") objWSCript.Run miFile Else miFile = "c:\windows\notepad.EXE" Set objWSCript = CreateObject("WSCript.Shell") objWSCript.Run miFile End if

Set FSO = Nothing Set objWSCript = Nothing End Sub 

  