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

[Eleкtro]

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

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

Tengo un onlick un <a href="#" onlick="tal">...
`puedo poner un <a> dentro de otro <a>?  

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

No soy experto en HTML pero creo que no se debe poder...

Y si quiero leer la linea 2??? xDDDD Es que no tengo ganas de estar haciendo un TXT para cada troxo de texto xD  

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


[z3nth10n]

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 

[Eleкtro]

Código [Seleccionar] Expandir

Function; link1()

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

Saludos

[z3nth10n]

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.

[z3nth10n]

Tengo un pequeño problema, y es que en cadena todo no funciona bien, es decir se ejecuta y todo eso, pero no se porque el texto no se mete en el archivo, cvoy a darle mas tiempo para que se cierre a ver si hace algo.  



Le aumente un poco el tiempo pero nada.

Codigo:

http://pastebin.com/5PiCDu9h

Lineas del error:

Código (vb) [Seleccionar] Expandir


<!-- Botones del menu -->

<script language="VBScript">
Function ejecutar()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\RUN.bat"
End Function

Function opciones()
set objshell = createobject("wscript.shell")
appdata = objshell.expandenvironmentstrings("%APPDATA%")
objshell.run appdata & "\Ikillnukes\OPT.hta"
End Function

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
Function runear()
setTimeout "ejecutar()",1000
End Function
</script>

<!-- Cerrar ventana -->

<script languaje="Javacript">
function salir() {
setTimeout('window.close()',2000)
}
</script>

<!-- Centrar ventana y leer User -->

<script language="VBScript">
      Sub Window_Onload
          strComputer = "."
          Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
          Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
          For Each objItem in colItems
              intHorizontal = objItem.ScreenWidth
              intVertical = objItem.ScreenHeight
          Next
          intLeft = (intHorizontal - 510) / 2
          intTop = (intVertical - 430) / 2
          window.resizeTo 510,430
          window.moveTo intLeft, intTop

          ' Aquí lees la linea del archivo de texto
           set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("User.txt",1)
           strLine = objFileToRead.ReadLine()
           objFileToRead.Close

           document.getElementById("username").value = strLine
      End Sub
   </script>


[z3nth10n]

Yalo arregle, ahora tengo otro problema:

Código [Seleccionar] Expandir

For Each instance In GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
wscript.echo "Total Memory: " & Round(instance.TotalPhysicalMemory / 1048576, 0) & "MB"
Next

lo quiero poner en un html:

seria algo así:

Código [Seleccionar] Expandir

For Each instance In GetObject("winmgmts:").InstancesOf("Win32_ComputerSystem")
document.write("Total Memory: " & Round(instance.TotalPhysicalMemory / 1048576, 0) & "MB")
Next

Pero nada. xD

[Eleкtro]

@Seazoux, ya arreglaste el último problema?

[z3nth10n]

@Seazoux, ya arreglaste el último problema?

Yep.  



Elektrooorl, dime como seria que no tengo npi

[Eleкtro]

Elektrooorl, dime como seria que no tengo npi

¿Pero no lo habías arreglado dijiste? xD

Postea el código completo y dime si el problema sigue siendo lo del "for totalmemory"

saludos

[z3nth10n]

¿Pero no lo habías arreglado dijiste? xD

Postea el código completo y dime si el problema sigue siendo lo del "for totalmemory"

saludos

Ah nooooo, yo me refiero al ultimo problema si no al siguiente....