|
2202
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 14 Diciembre 2012, 19:54 pm
|
No me ha quedado claro lo que quieres hacer, que es eso de " este HECHO"? http://www.w3schools.com/tags/tag_a.aspNo soy experto en HTML pero creo que no se debe poder...
Almacena cada línea en un array y usa la línea que quieras. Linea(0) Linea(1) etc... Dim objFSO, Archivo, Linea, Array_Lineas Archivo = "user.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Linea = objFSO.OpenTextFile(Archivo,1).ReadAll Array_Lineas = Split(Linea,vbCrLf) ' Para mostrar la línea 1 wscript.echo Array_Lineas(0) ' Para mostrar la línea 2 wscript.echo Array_Lineas(1) ' Para mostrar la línea 3 wscript.echo Array_Lineas(2) 'etc...
Muy bonito y para escribir? LOL no entiendo porque dices que no entiendes de VBS y no sabes programar si si sabes xd
Hola Nov xD Llevamos 51 mensajes ya xDDDD
Editando por mi propia cuenta, como no quiero hacer un archivo bat para abrir una pagina web encontre esto: <script languaje="VBScript"> Function; link1()Set wshShell = WScript.CreateObject ("WSCript.shell") wshShell.Run " http://foro.elhacker.net/"End Function </script> Que basicamente sirve para abrir con el navegador predeterminado un link Ahora el error es este: Hay puse donde deberia ir el ; ese.
Editando editando, ahora me sale que: link1 no está definido
|
|
|
2204
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 14 Diciembre 2012, 18:59 pm
|
si lo del strline es que me he colado, he llamado a la función con un argumento cuando no era necesario, estaba editando mi comentario pero te me has adelantado, prueba como está ahora, funciona.
Y para que se reemplaze el archivo de texto usa el "2", como te dije
Vale, ahora, tengo un problema, tengo que guardar el este (HECHO), actualizar el body "UNA VEZ", ejecutar la funcion que tiene, y cerrar el launcher. xD xD Tengo un onlick un <a href="#" onlick="tal">... `puedo poner un <a> dentro de otro <a>? A probar se dijo
CRACK, CRACK, Y CRACK! Eres tio... Y yo un mini-pro xD por adivino... Pues ale, tu y Nov para los creditos que vais.
Tengo otra duda Y si quiero leer la linea 2??? xDDDD Es que no tengo ganas de estar haciendo un TXT para cada troxo de texto xD
|
|
|
2205
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 14 Diciembre 2012, 16:47 pm
|
El error está muy claro, LA VARIABLE NO ESTÁ DEFINIDA (ESTÁ VACÍA), En el sub " Window_Onload" defines la variable, pero al salir del sub la variable se vuelve vacía, además, en el último code que pusiste en pastebin seteas la variable "strLine" como "Contenido del archivo de texto", y lo que tienes que pasarle a la función test es el contenido del "textbox", no el del jodid* archivo de texto xD. Añade esto justo arriba de la función "test(argumento)": Function get_inputtext() strLine = document.getElementById("username").value test(strLine) End Function
Y ahora sí: onClick="get_inputtext(strLine)" Saludos! doble problema uno: me da error de strLine dos: se pone bien, es decir funciona pero, no reemplaza el texto si no que lo pone debajo xD
|
|
|
2206
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 14 Diciembre 2012, 14:49 pm
|
Function test(strLine) ... Entendiste mal mi explicación. ' Hacemos que la función pueda recibir UN argumento, a la variable del argumento le doy el nombre "ARGUMENTO" como podría darle cualquier otro nombre. Function test(ARGUMENTO) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("User.txt", 8, True) ' Escribimos en el archivo de texto la variable "ARGUMENTO" que contiene el argumento que le has pasado a la función, es decir, El contenido de "ARGUMENTO" será lo mismo que el contenido de "strLine". objTextFile.WriteLine(ARGUMENTO) objTextFile.Close End Function
Le enviamos la variable "strLine" como argumento a la función: Saludos Pero argumento lo dejamos o lo quitamos, pero si lo puse, en todos los lados
Despues de poner esto: Function test(argumento) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("User.txt", 8, True) objTextFile.WriteLine(argumento) objTextFile.Close End Function
Error: Se sobrepasó el final del archivo. Ale a codear hasta 2014. Gagaga xDDD
Error: strLine no está definido. Venga Nov a hacer turnos xDDDD
Me estoy reventando la cabeza, he puesto un onchange="strLine = this.value" en el input text y nada. He probado un onload= en el Input, nada En fin, alguna solucion alternativa, estuve buscando como sacar el value de un input text y meterlo en una variable con vbscript y con javascript, y nada Lo estuve probando todo TODO Un saludo.
|
|
|
2209
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 13 Diciembre 2012, 16:15 pm
|
Seazoux, lo tienes todo hecho, solo hace falta este pequeño ajuste: Function test(argumento) Set objFSO = CreateObject("Scripting.FileSystemObject") ' el "8" hace un "appending", en el ejemplo de arriba lo usas pero no creo que séa lo que quieras, este es para reemplazar el contenido del archivo: ' Set objTextFile = objFSO.OpenTextFile("User.txt", 2, True) Set objTextFile = objFSO.OpenTextFile("User.txt", 8, True) objTextFile.WriteLine(argumento) objTextFile.Close End Function
<input value="Test" onClick="test(argumento)" style="position:relative; top:30px;" type="button" /> * donde onClick="test(argumento)" argumento debe ser el nombre de la variable que contiene el texto del texbox, si no recuerdo mal era "strline". Saludos. Y tu decias que de HTML no eras bueno... xD y VBS? xD Dudo
|
|
|
2210
|
Programación / Scripting / Re: Como puedo hacer un launcher asi, con VBS o con HTML, decidme
|
en: 13 Diciembre 2012, 14:55 pm
|
Ha pasado un dia casi. Tecnicamente puedo volver a postear sin hacer doble post. Ay! otra vez me ha entrado el panico... Como lo podria hacer? Ideas, pistas, algo... Gracias.
A ver, si tengo el input... podria hacer un getElementById().value = srtrLine? O no es igual que la multiplicacion, el orden de los factores no altera el producto? Es que no se como obtener el vale de un txt para meterlo en una variable
Porque solo me sale asp, ademas lo quiero ya encontrar hecho a ver si lo encuentro...
Ostis: http://ezinearticles.com/?VBScript---FileSystemObject&id=294348To enable the use of friendly names for these modes add the following constants to your script: Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8
Es decir, a ver...
Ehm vale.... objTextFile.WriteLine( "Hallo world") Problema, como le meto el input del text? Un saludo.
Nov no te quejabas de que no probaba: set Linea = document.getElementById("username").value Set objTextFile = objFSO.OpenTextFile("User.txt", ForWriting, True) objTextFile.WriteLine(Linea) objTextFile.Close Problema: Un saludo.
Probando probando hice esto: <script> Function test() Const ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile _ ("User.txt", ForAppending, True) objTextFile.WriteLine("test") objTextFile.Close End Function
</script>
y <input value="Test" onClick="test()" style="position:relative; top:30px;" type="button" /> Y si funciona, pero no se como poner en "Test" La variable del input y que se actualice automaticamente. Un saludo.
|
|
|
|
|
|
|