elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  ayuda en VBS.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: ayuda en VBS.  (Leído 2,825 veces)
**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
ayuda en VBS.
« en: 7 Julio 2017, 04:59 »

***********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:  :( :( :(


« Última modificación: 7 Julio 2017, 07:03 por Eleкtro » En línea


engel lex
CoAdmin
***
Desconectado Desconectado

Mensajes: 15.347



Ver Perfil
Re: ayuda en html.
« Respuesta #1 en: 7 Julio 2017, 05:04 »

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**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: ayuda en html.
« Respuesta #2 en: 7 Julio 2017, 05:33 »

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"
En línea


engel lex
CoAdmin
***
Desconectado Desconectado

Mensajes: 15.347



Ver Perfil
Re: ayuda en html.
« Respuesta #3 en: 7 Julio 2017, 05:40 »

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 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 Desconectado

Mensajes: 9.709



Ver Perfil
Re: ayuda en html.
« Respuesta #4 en: 7 Julio 2017, 06:55 »

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!

« Última modificación: 7 Julio 2017, 06:59 por Eleкtro » En línea


**Aincrad**


Desconectado Desconectado

Mensajes: 506



Ver Perfil
Re: ayuda en html.
« Respuesta #5 en: 7 Julio 2017, 13:39 »

 ********** 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.     ;)
En línea


engel lex
CoAdmin
***
Desconectado Desconectado

Mensajes: 15.347



Ver Perfil
Re: ayuda en VBS.
« Respuesta #6 en: 7 Julio 2017, 16:15 »

hoy dia esto funciona?

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

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 Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: ayuda en VBS.
« Respuesta #7 en: 7 Julio 2017, 17:01 »

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*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines