Como puedo hacer un launcher asi, con VBS o con HTML, decidme

Iniciado por z3nth10n, 8 Diciembre 2012, 14:52 PM

0 Miembros y 2 Visitantes están viendo este tema.

z3nth10n

Cita de: EleKtro H@cker en 13 Diciembre 2012, 16:03 PM
Seazoux, lo tienes todo hecho, solo hace falta este pequeño ajuste:

Código (vb) [Seleccionar]
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  :xD

Interesados hablad por Discord.

Eleкtro

Cita de: Seazoux en 13 Diciembre 2012, 16:15 PMY tu decias que de HTML no eras bueno... xD y VBS? xD Dudo  :xD

Es que eso son cosas muy fáciles, es muy básico, solo hay que entender la sintaxis.

Saludos!








z3nth10n

Cita de: EleKtro H@cker en 13 Diciembre 2012, 16:20 PM
Es que eso son cosas muy fáciles, es muy básico, solo hay que entender la sintaxis.

Saludos!

Pues entonces yo no entiendo ni una ***** caca.

Interesados hablad por Discord.

z3nth10n


Interesados hablad por Discord.

Eleкtro

Cita de: Seazoux en 14 Diciembre 2012, 07:43 AMError: No está definida StrLine  :-X Mira que te lo dije:
Function test(strLine)
...

Entendiste mal mi explicación.


Código (vb) [Seleccionar]

' 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:
onClick="test(strLine)"


Saludos








z3nth10n

#45
Cita de: EleKtro H@cker en 14 Diciembre 2012, 07:57 AM
Function test(strLine)
...

Entendiste mal mi explicación.


Código (vb) [Seleccionar]

' 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:
onClick="test(strLine)"


Saludos

Pero argumento lo dejamos o lo quitamos, pero si lo puse, en todos los lados  :laugh:




Despues de poner esto:

Código (vb) [Seleccionar]

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.

:P Ale a codear hasta 2014.
Gagaga xDDD




Error: strLine no está definido.

Venga Nov a hacer turnos xDDDD
:P




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

Interesados hablad por Discord.

Eleкtro

#46
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)":
Código (vb) [Seleccionar]
   Function get_inputtext()
       strLine = document.getElementById("username").value
       test(strLine)
   End Function


Y ahora sí:
onClick="get_inputtext()"




O más fácil:

Reemplaza la función test por esta
Código (vb) [Seleccionar]
    Function test()
        strLine = document.getElementById("username").value
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objTextFile = objFSO.OpenTextFile("User.txt", 2, True) 
        objTextFile.WriteLine(strLine)
        objTextFile.Close
    End Function


y
onClick="test()"

Saludos!








z3nth10n

Cita de: EleKtro H@cker en 14 Diciembre 2012, 16:44 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)":
Código (vb) [Seleccionar]
   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  :P

Interesados hablad por Discord.

Eleкtro

Cita de: Seazoux en 14 Diciembre 2012, 16:47 PM
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  :P

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








z3nth10n

#49
Cita de: EleKtro H@cker en 14 Diciembre 2012, 16:49 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>?  :xD

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




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  :P :P

Interesados hablad por Discord.