Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: **Aincrad** en 7 Julio 2017, 04:59 am



Título: ayuda en VBS.
Publicado por: **Aincrad** en 7 Julio 2017, 04:59 am
***********hola a todos me preguntaba si en html VBS hay algún comando
                   que tenga la misma función que tiene la palabra set de batch...

ayuda plis.  :huh: :huh: :huh:  :( :( :(


Título: Re: ayuda en html.
Publicado por: engel lex en 7 Julio 2017, 05:04 am
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/ (http://www.javascriptya.com.ar/)


Título: Re: ayuda en html.
Publicado por: **Aincrad** en 7 Julio 2017, 05:33 am
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.

Código
  1. set objShell = CreateObject("WScript.Shell")
  2. strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :")
  3.   Msgbox strAnswer
  4. Set objfso = createobject("scripting.filesystemobject")
  5. Set archivotexto = objfso.createtextfile("pl.bat",true)
  6. archivotexto.writeline "@echo off"
  7. archivotexto.writeline "start chrome.exe mmo.mp4"
  8. archivotexto.writeline "strAnswer"
  9. archivotexto.close

el error esta el la penultima linea. **********archivotexto.writeline "strAnswer"


Título: Re: ayuda en html.
Publicado por: engel lex en 7 Julio 2017, 05:40 am
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 (http://kio4.com/vbs/index.htm)


Título: Re: ayuda en html.
Publicado por: Eleкtro en 7 Julio 2017, 06:55 am
Código
  1. 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:

Código
  1. archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"

PD: Por curiosidad, ¿cómo te dió por concluir que eso era Html?.

Saludos!



Título: Re: ayuda en html.
Publicado por: **Aincrad** en 7 Julio 2017, 13:39 pm
 ********** primero que todo gracias ELEKTRO me ayudaste una vez mas++++

:laugh:

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 .

Código
  1. <html>
  2. <head>
  3. <title>R4MP VIDEO PLEYER BY S4L de el ( I.P.C. )</title>
  4. <img src="app\bin\ipc.png" alt="W3Schools.com" width="50" height="50">
  5. Try it Yourself »
  6. <script language="VBScript">
  7. self.ResizeTo 480, 320
  8. </script>
  9. <html>
  10. <body>
  11. <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>
  12. <button type="button" onclick="alert('Hecho Por Salvador F. Krilewski!')">INFO!</button>
  13. <<video poster="URL">
  14. </body>
  15. </html>
  16. <script type="text/vbscript">
  17. Sub pcontrol()
  18. set objShell = CreateObject("WScript.Shell")
  19.   strAnswer = InputBox("introduzca el nombre del video con extensión (.mp4) :")
  20.   Msgbox strAnswer
  21. Set objfso = createobject("scripting.filesystemobject")
  22. Set archivotexto = objfso.createtextfile("app\bin\pl.bat",true)
  23. archivotexto.writeline "@echo off"
  24. archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"
  25. archivotexto.writeline "exit"
  26. archivotexto.close
  27. End Sub
  28.  
  29. </script>
  30.  
  31. <style>
  32. body {background-color:black;}
  33. </style>
  34.  
  35. </head>
  36. <body>
  37. <div align="center">
  38. <br><br>
  39. <input type="button" value="Reproducir video" onclick="strAnswer">
  40. <input type="button" value="Reproducir video" onclick="pcontrol()">
  41. <br><br><br>
  42. <input type="button" value="CERRAR" onClick="self.close()">
  43.  
  44. </body>
  45. </html>
  46.  

 ***************** PD: el codigo esta en desarrollo apenas lo empece.     ;)


Título: Re: ayuda en VBS.
Publicado por: engel lex en 7 Julio 2017, 16:15 pm
hoy dia esto funciona?

Código
  1. <script type="text/vbscript">

crei que eso estaba descontinuado desde principios de los 2000


Título: Re: ayuda en VBS.
Publicado por: 79137913 en 7 Julio 2017, 17:01 pm
HOLA!!!

Si funciona, hay que cambiar la configuracion de seguridad de internet explorer.

GRACIAS POR LEER!!!