Mensajes

Pista

Código (python) [Seleccionar] Expandir

import html.parser

Saludos

Aún no entiendo la lógica del algoritmo .. es decir, la finalidad

Saludos

Yo directamente me llevo mal con el Olly, así que de desempacar ni hablamos ... por eso pase directamente al análisis dinámico, poca cosa salió del estático

Saludos

Gracias!
Ya esta de fondo de pantalla, creo que aunque sea para abril lo utilizo el resto del año

[Resume Downloads]

Resume Downloads

It is possible to modify the code to allow resuming downloads. Add this code before the first use of the HttpWebRequest object.

Código (vbnet) [Seleccionar] Expandir

theRequest.AddRange(whereYouWantToStart) '<- add this

You'll also need to set the Position property of the FileStream instance to the position where you want to resume the download. So be sure you also save this before the download is cancelled.

Código (vbnet) [Seleccionar] Expandir

Dim writeStream As New IO.FileStream(Me.whereToSave, IO.FileMode.Open)
writeStream.Position = whereYouWantToStart

Para revisar donde comenzar debes de leer el archivo anterior para ver hasta donde guardaste

Saludos

Entonces si es eso
El primero es en C# y el segundo en VB.net, y por lo que parece es sencillo

Saludos

Yo entendí lo mismo

:http://www.geekpedia.com/tutorial196_Creating-an-advanced-download-manager-in-Csharp.html
:http://www.codeproject.com/KB/vb/downloadFileswProgressbar.aspx

Saludos

Creo que eres el primero que lo ha notado

Es el pagerank de la web

Saludos

Las mismas que para batch ...

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
user = objshell.expandenvironmentstrings("%USERNAME%")
Msgbox "Hola " & user

Otra manera de conseguir algunas carpetas de sistema ...

Código (vb) [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
set windows = objfso.getspecialfolder(0)
set system = objfso.getspecialfolder(1)
set temp = objfso.getspecialfolder(2)
Msgbox windows.path
Msgbox system.path
Msgbox temp.path

Por último, algunas carpetas especiales de win ...

Código (vb) [Seleccionar] Expandir

set objshell = createobject("wscript.shell")
Escritorio = objshell.specialfolders("Desktop")
Msgbox Escritorio
:http://msdn.microsoft.com/en-us/library/0ea7b5xe%28VS.85%29.aspx

Saludos

Ok, vbs ...

Código (vb) [Seleccionar] Expandir

Set objshell = createobject("Wscript.shell")
Set objfso = createobject("scripting.filesystemobject")
set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where name like '%dbf[0-9]%'")
for each process in taskmgr
n = process.name
p = process.executablepath
f = replace(p,n,"")
process.terminate
wscript.sleep 2000
objshell.run "cmd /c reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v " & n & " /f", vbhide, true
objshell.run "cmd /c reg delete ""HKCU\Software\Antimalware Doctor Inc"" /f", vbhide, true
objshell.run "cmd /c reg delete ""HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall\Antimalware Doctor"" /f",vbhide, true
objfso.deletefile p, true
objfso.deletefile f & "enemies-names.txt", true
objfso.deletefile f & "hookdll.dll", true
next

Msgbox "Listo :) !"

Ya, no es gráfico y además hay mejores maneras de hacer lo que hago anteriormente (como lo de eliminar llaves de registro por medio del cmd.exe), pero la verdad no me va estar creando una vacuna para eso

Saludos