Autor
|
Tema: ayuda en VBS. (Leído 5,139 veces)
|
|
engel lex
|
en html no, html no es un lenguaje de programación, es un lenguaje de maquetado... sin embargo en jscript si... el "set" es una declaración de variable, es lo más basico para cualquier lenguaje de uso común... aquí un tuto de js www.javascriptya.com.ar/
|
|
|
En línea
|
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
|
|
|
**Aincrad**
|
angel lex la verdad es que nesecito que funcione este code en la variable set strAnswer va bien hasta el msgbox, pero a la hora de crear el batch no lo hace ayuda. set objShell = CreateObject("WScript.Shell") strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :") Msgbox strAnswer Set objfso = createobject("scripting.filesystemobject") Set archivotexto = objfso.createtextfile("pl.bat",true) archivotexto.writeline "@echo off" archivotexto.writeline "start chrome.exe mmo.mp4" archivotexto.writeline "strAnswer" archivotexto.close
el error esta el la penultima linea. **********archivotexto.writeline "strAnswer"
|
|
|
En línea
|
|
|
|
engel lex
|
nada de andar dando tumbos de ciego... esto no es html, es vbs, cosa muy diferente... segundo, no sabes manejar ni si quiera variables aquí un tuto... aprende eso y luego retoma http://kio4.com/vbs/index.htm
|
|
« Última modificación: 7 Julio 2017, 05:44 am por engel lex »
|
En línea
|
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
|
|
|
Eleкtro
Ex-Staff
Desconectado
Mensajes: 9.813
|
archivotexto.writeline "strAnswer"
el error esta el la penultima linea. **********archivotexto.writeline "strAnswer" Por favor, define "error". En esa linea no hay un error, lo que pasa es que al encerrar el nombre de la variable entre comillas dobles estás tratando una variable como si fuese una cadena de texto. Para expandir el valor de la variable, simplemente no utilices las comillas dobles, escribe el nombre de la variable y ya está. De todas formas viendo el código... yo creo que en realidad lo que querrás hacer será esto: archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"
PD: Por curiosidad, ¿cómo te dió por concluir que eso era Html?. Saludos!
|
|
« Última modificación: 7 Julio 2017, 06:59 am por Eleкtro »
|
En línea
|
|
|
|
**Aincrad**
|
********** primero que todo gracias ELEKTRO me ayudaste una vez mas++++ PD: Por curiosidad, ¿cómo te dió por concluir que eso era Html?.
Saludos!
-------- Yo se que eso no es html eso es vbs. (visual basic script) es que yo no publique el codigo completo solo publique la parte que me deba error. MIRA AQUI EL CODE COMPLETO LO GUARDAS EN extensión .HTA . <html> <head> <title>R4MP VIDEO PLEYER BY S4L de el ( I.P.C. )</title> <img src="app\bin\ipc.png" alt="W3Schools.com" width="50" height="50"> Try it Yourself » <script language="VBScript"> self.ResizeTo 480, 320 </script> <html> <body> <a href="https://www.google.co.ve/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=0ahUKEwiHiILAiPbUAhVBCpoKHYivDn0QFgglMAA&url=https%3A%2F%2Fwww.youtube.com%2Fchannel%2FUC5nv9joqfuV7VGWkKuEmMPQ&usg=AFQjCNE2u8BDHJXgq4OYIMXcGP90q3O2-Q">Visita mi canal de youtube!<br /></a> <button type="button" onclick="alert('Hecho Por Salvador F. Krilewski!')">INFO!</button> <<video poster="URL"> </body> </html> <script type="text/vbscript"> Sub pcontrol() set objShell = CreateObject("WScript.Shell") strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :") Msgbox strAnswer Set objfso = createobject("scripting.filesystemobject") Set archivotexto = objfso.createtextfile("app\bin\pl.bat",true) archivotexto.writeline "@echo off" archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """" archivotexto.writeline "exit" archivotexto.close End Sub </script> <style> body {background-color:black;} </style> </head> <body> <div align="center"> <br><br> <input type="button" value="Reproducir video" onclick="strAnswer"> <input type="button" value="Reproducir video" onclick="pcontrol()"> <br><br><br> <input type="button" value="CERRAR" onClick="self.close()"> </body> </html>
***************** PD: el codigo esta en desarrollo apenas lo empece.
|
|
|
En línea
|
|
|
|
engel lex
|
hoy dia esto funciona?
crei que eso estaba descontinuado desde principios de los 2000
|
|
|
En línea
|
El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Si funciona, hay que cambiar la configuracion de seguridad de internet explorer.
GRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
[Ayuda] Necesito ayuda para crear un buen video uso AF y Flash.
Diseño Gráfico
|
XXXXXX
|
1
|
5,483
|
11 Noviembre 2009, 00:17 am
por Sub_Cero
|
|
|
Ayuda por davor ayuda os ruego ayuda XD (SOLUCIONADO)
Hardware
|
XxRekcahlExX
|
6
|
10,544
|
24 Mayo 2010, 00:56 am
por Aprendiz-Oscuro
|
|
|
AYUDA -.- ahora no entro más en 4chan (tengo una duda, ayuda por favor)
Foro Libre
|
Draklit
|
6
|
8,728
|
15 Octubre 2010, 03:14 am
por Draklit
|
|
|
[PYTHON][AYUDA][ERROR] Necesito ayuda para instalar PyGTK 2 en windows 7
Scripting
|
Noxware
|
2
|
7,583
|
20 Septiembre 2014, 00:05 am
por Noxware
|
|
|
[AYUDA] Ayuda para poner en modo monitor mi tarjeta de red! Kali LInux
GNU/Linux
|
Santi__
|
1
|
8,948
|
12 Noviembre 2016, 18:25 pm
por Will21
|
|