Mensajes

[sin]

el code funciona perfectamente sin el punto-y-coma.

Saludos

A ver, yo no le he puesto esto, es que dice que se espera ; xD

Es decir que esta mal puesto, ademas el code no funciona bien xD



Wihi! Lo arregle:

Código [Seleccionar] Expandir


<script type="text/javascript">
 function openURL()
 {
     var shell = new ActiveXObject("WScript.Shell");
     shell.run("http://www.google.com");
 }
 </script>


<input type="button" value="Abrir" onlick="openURL()">

LOL  



Ya hice algo de mi parte, podrias tu hacerme el codigo de editar textos por lineas?

Gracias.

[Resuelto:]

text-decoration para una imagen ? WTF

Deja algo de código...

Saludos

Resuelto: a img {border:0}
xD  

Sorry

[este HECHO]

No me ha quedado claro lo que quieres hacer, que es eso de "este HECHO"?


http://www.w3schools.com/tags/tag_a.asp

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

Código (vb) [Seleccionar] Expandir

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 

[EDITO]

Que hago?
Un saludo.

EDITO Es en imagen.

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 

[LA VARIABLE NO ESTÁ DEFINIDA]

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] Expandir

   Function get_inputtext()
       strLine = document.getElementById("username").value
       test(strLine)
   End Function


Y ahora sí:

Código [Seleccionar] Expandir

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 

Código [Seleccionar] Expandir

Function test(strLine)
...
Entendiste mal mi explicación.

Código (vb) [Seleccionar] Expandir


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

Código [Seleccionar] Expandir

onClick="test(strLine)"


Saludos

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



Despues de poner esto:

Código (vb) [Seleccionar] Expandir


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. 

Error: No está definida StrLine  Mira que te lo dije:

Code: http://pastebin.com/1Ge2ZY7C

[*****]

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.

[Seazoux]

Seazoux, lo tienes todo hecho, solo hace falta este pequeño ajuste:

Código (vb) [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

<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