S.O.S con codigo VBS

intiweb · #1 (**permalink**) 06/11/2009, 15:59

hola la verdad soy muy novato con este tipo de codigos:

yo tengo un (programa) echo en html que funciona de forma local y que al hacer clik en un determinado boton tiene que abrir un programa que ya esta instalado en la computadora, (es el programa de stock del negocio)
obviamente sin que te haga la consulta de "desea guardar o abrir el archivo" porque no da que a la gente le aparesca este cartel. Consegui este codigo que lo que hacer es abrir el Microsoft Word, y funciona perfecto.
alguien sabe como hacer para que abra mi programa en ves del Word ????

la ruta de mi programa seria :
C:\Archivos de programa\agendagame\main.exe

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head> 
<title>ejecuta notepad</title>
<script language="VBScript"> 

Sub RunProgram 
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "winword.exe"
End Sub

</script> 
</head> 

<body> 
<button onclick="RunProgram">Run Program</button> <p>
</body> 
</html>
</body>
</html>

bebo · #2 (**permalink**) 06/11/2009, 21:49

Así:

Código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head> 
<title>ejecuta notepad</title>
<script language="VBScript"> 

Sub RunProgram 
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "C:\Archivos de programa\agendagame\main.exe"
End Sub

</script> 
</head> 

<body> 
<button onclick="RunProgram">Run Program</button> <p>
</body> 
</html>
</body>
</html>

intiweb · #3 (**permalink**) 07/11/2009, 11:31

gracias por la respuesta pero no funciona de esa manera.
abajo en la pagina me dise error o listo pero con errores, me funciona solo con el word alguines sabe pr que ??

bebo · #4 (**permalink**) 07/11/2009, 11:49

Cambia esta linea:
objShell.Run "C:\Archivos de programa\agendagame\main.exe"
por ésta:
objShell.Exec "C:\Archivos de programa\agendagame\main.exe"

intiweb · #5 (**permalink**) 07/11/2009, 14:21

ok gracias ahi funciono perfecto,

tengo un par de problemas cuando lo abro de esta forma pero creo que son cosas del programa porque me dice que no encuentra un archivo.

pero como para saber esto que significa exactamente:?

Código:

Set objShell = CreateObject("Wscript.Shell")

me gustaria entender mejor el codigo, la verda yo programo con php y esto se me haceun poco raro

y el sub ? parece como si fuera una etiqueta no ?

Código:

Sub RunProgram

son funciones predefinidas ??

bebo · #6 (**permalink**) 07/11/2009, 14:29

"sub" mas o menos equivale a "function"

intiweb · #7 (**permalink**) 09/11/2009, 08:21

ok y para molestarte un poquito mas jajaj que significa esto "Wscript.Shell" ??

bebo · #8 (**permalink**) 09/11/2009, 09:03

Es un objeto que sirve para abrir programas, crear accesos directos y muchas otras cosas mas relacionadas con las aplicaciones.