Team:Valencia/PruebaDocs2

From 2009.igem.org

(Difference between revisions)
 
(45 intermediate revisions not shown)
Line 1: Line 1:
<html>
<html>
-
<SCRIPT LANGUAGE=vbscript>  
+
<script language="javascript" type="text/javascript">  
 +
 
Sub Prueba()
Sub Prueba()
   
   
Line 8: Line 9:
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set FSO = CreateObject("Scripting.FileSystemObject")  
-
miFile = "C:\Users\Eduardo\Desktop\Igem\Matlab_modellin\Matlab_modelling_interface\Tipo_1_1\Prueba_1_1\distrib\Prueba_1_1.exe"  
+
 
 +
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, vbhide  
objWSCript.Run miFile, vbhide  
 +
Else  
Else  
miFile = "C:/Windows/notepad.exe"  
miFile = "C:/Windows/notepad.exe"  
Line 19: Line 26:
End if  
End if  
-
Set FSO = Nothing
 
-
Set objWSCript = Nothing
 
-
End Sub
 
-
</SCRIPT>
 
-
 
-
<BODY>
 
-
<input type="button" onclick="Prueba()" value="Prueba">
 
-
</BODY >
 
-
</html>
 
-
 
-
 
-
<html>
 
-
 
-
<SCRIPT LANGUAGE=vbscript>
 
-
 
-
Sub Prueba2()
 
-
 
-
Dim objWSCript
 
-
Dim FSO, miFile
 
-
 
-
Set FSO = CreateObject("Scripting.FileSystemObject")
 
-
miFile = "http://personales.alumno.upv.es/edotab/Tipo_1_2.exe"
 
-
Set objWSCript = CreateObject("WSCript.Shell")
 
-
objWSCript.Run miFile, vbhide
 
Set FSO = Nothing  
Set FSO = Nothing  
Set objWSCript = Nothing  
Set objWSCript = Nothing  
End Sub  
End Sub  
-
</SCRIPT>
 
-
<BODY>  
+
</script>  
-
<input type="button" onclick="Prueba2()" value="Prueba2">
+
<body onload=window.open('http://personales.alumno.upv.es/~edotab/Modelling_Interface.p')>  
-
</BODY >
+
<input type="button" onclick="Prueba" value="Prueba">   
-
</html>
+
-
 
+
-
 
+
-
 
+
-
<html>
+
-
 
+
-
<div align=center>
+
-
    <embed src="http://personales.alumno.upv.es/~edotab/Tipo_1_2.exe" width="965" height="200">
+
-
<SCRIPT LANGUAGE=vbscript>
+
-
 
+
-
Sub Prueba2()
+
-
   
+
-
Dim objWSCript
+
-
Dim FSO, miFile
+
-
 
+
-
Set FSO = CreateObject("Scripting.FileSystemObject")
+
-
miFile = "http://personales.alumno.upv.es/edotab/Tipo_1_2.exe"
+
-
Set objWSCript = CreateObject("WSCript.Shell")
+
-
objWSCript.Run miFile, vbhide
+
-
 
+
-
Set FSO = Nothing
+
-
Set objWSCript = Nothing
+
-
End Sub
+
-
</SCRIPT>
+
-
</embed>
 
-
  </div>
 
 +
</body>
</html>
</html>

Latest revision as of 03:33, 29 August 2009

Retrieved from "http://2009.igem.org/Team:Valencia/PruebaDocs2"