ayuda en VBS.

**Aincrad** · 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.

engel lex · 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/

**Aincrad** · 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 (actionscript) [Seleccionar]


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"

engel lex · 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

Eleкtro · 7 Julio 2017, 06:55 AM

Cita de: fisica 638 en 7 Julio 2017, 05:33 AM
Código (vbscript) [Seleccionar] Expandir
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 (vb) [Seleccionar]

archivotexto.writeline "Start /B """" ""chrome.exe"" " & """" & strAnswer & """"

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

Saludos!

**Aincrad** · 7 Julio 2017, 13:39 PM

********** primero que todo gracias ELEKTRO me ayudaste una vez mas++++

Cita de: Eleкtro en 7 Julio 2017, 06:55 AM

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 (actionscript) [Seleccionar]


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

engel lex · 7 Julio 2017, 16:15 PM

hoy dia esto funciona?

Código (html4strict) [Seleccionar]

<script type="text/vbscript">

crei que eso estaba descontinuado desde principios de los 2000

79137913 · 7 Julio 2017, 17:01 PM

HOLA!!!

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

GRACIAS POR LEER!!!