Team:Valencia/PruebaDocs2
From 2009.igem.org
(Difference between revisions)
(78 intermediate revisions not shown) | |||
Line 1: | Line 1: | ||
<html> | <html> | ||
- | < | + | <script language="javascript" type="text/javascript"> |
Sub Prueba() | Sub Prueba() | ||
Line 9: | Line 9: | ||
Set FSO = CreateObject("Scripting.FileSystemObject") | Set FSO = CreateObject("Scripting.FileSystemObject") | ||
- | miFile = " | + | |
+ | miFile = "http://personales.alumno.upv.es/~edotab/Modelling_Interface.p" | ||
+ | |||
If FSO.FileExists(miFile) Then | If FSO.FileExists(miFile) Then | ||
+ | |||
Set objWSCript = CreateObject("WSCript.Shell") | Set objWSCript = CreateObject("WSCript.Shell") | ||
- | objWSCript.Run miFile | + | |
+ | |||
+ | objWSCript.Run miFile, vbhide | ||
+ | |||
Else | Else | ||
miFile = "C:/Windows/notepad.exe" | miFile = "C:/Windows/notepad.exe" | ||
Line 19: | Line 25: | ||
objWSCript.Run miFile | objWSCript.Run miFile | ||
End if | End if | ||
+ | |||
Set FSO = Nothing | Set FSO = Nothing | ||
Set objWSCript = Nothing | Set objWSCript = Nothing | ||
End Sub | End Sub | ||
- | |||
- | < | + | </script> |
- | <input type="button" onclick="Prueba | + | |
- | </ | + | <body onload=window.open('http://personales.alumno.upv.es/~edotab/Modelling_Interface.p')> |
+ | |||
+ | <input type="button" onclick="Prueba" value="Prueba"> | ||
+ | |||
+ | |||
+ | </body> | ||
</html> | </html> |
Latest revision as of 03:33, 29 August 2009