Mensajes

si ya tenia un codigo para matar proceso lo malo eske no se cual es el proceso porke no me sale en el control alt sup

¿Que proceso?

puedes poner que elimine el proceso con el nombre del archivo que va a borrar... que espere que termine luego que elimine el archivo, asi de forma secuencial para no causar desordenes.

Entendi todo (O la mayoria de tu codigo), pero, exactamente donde indico que archivo va a bajar?

Hola a todos...

Estoy haciendo un downloader y necesito saber de que manera puedo medir los Kb/s (Velocidad de descarga) va el archivo... Osea, si estoy descargando un archivo de 1 MB, mi idea es que marque a la velocidad que va (Por ejemplo, 100 Kb/s y faltan x:xx:xx (Tiempo))

Tambien quisiera saber si hay alguna forma de crear archivos .EXE, busque en esta sección sobre como crearlos, pero al final no lo encontre...

Agradeceria su ayuda , ya que esto es para un proyecto en mi instituto.... asias...

No, no funciona ...

pense que era el FF yl o hice con IE, pero no funciona tampoco..

el link esta roto....


pon screenshot por lo menos

Microsoft ofrece el Visual Basic Express Edition (Su lenguaje es un poco distinto al Visual Basic que todos conocemos) solo que es un poco "Mas sencillo de lo basico". Yo personalmente no lo recomiendo  a menos que estes empezando o que seas un completo tonto... 

Lo dificil es el modo realtime xdd... y que detecte el archivo por heurisitica... por lo menos yo lo consideraria dificil... (descifrar el archivo, estudiar lo que hace... suele haber errores).

Quizas es por que se este ejecutando asi sea directa o indirectamente, necesitas terminar ese proceso para luego borrarlo. YO lo haria asi:

Código [Seleccionar] Expandir


Public Sub KillProcess(ByVal processName As String)
       
        On Error GoTo ErrHandler
         
         Dim oWMI
         Dim ret
         Dim sService
         Dim oWMIServices
         Dim oWMIService
         Dim oServices
         Dim oService
         Dim servicename
         
          Set oWMI = GetObject("winmgmts:")
          Set oServices = oWMI.InstancesOf("win32_process")

          For Each oService In oServices
                 
                 servicename = LCase(Trim(CStr(oService.Name) & ""))
                 
                 If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
                    ret = oService.Terminate
                 End If

          Next
         
          Set oServices = Nothing
          Set oWMI = Nothing


ErrHandler:
  Err.Clear
End Sub


Private sub Form_load ()
On error goto NOU:
KillProcess ("Notepad") ->> 'Este es el bloc de notas que ejecuta 'los archivos .TXT (Es solo un ejemplo)

Kill ("C:\Texto-muy-importante-y-no-quiero-borrarlo.TXT")
Nou:
Msgbox "No se pudo borrar el archivo", vbInformation, "No se pudo borrar el archivo"
End sub


eso lo haces con un RichTextBox, mira lo puedes poner asi:

Código [Seleccionar] Expandir


    RichTextBox1.Text = ""
    RichTextBox1.SelText = "Negro" + vbCrLf
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SelText = "Rojo" + vbCrLf
    RichTextBox1.SelColor = vbBlue
    RichTextBox1.SelText = "Azul" + vbCrLf
    RichTextBox1.SelColor = vbYellow
    RichTextBox1.SelText = "Amarillo" + vbCrLf
    RichTextBox1.SelColor = RGB(255, 25, 200)
    RichTextBox1.SelText = "Ahora un color RGB" + vbCrLf


espero te sirva este ejemplo

No entiendo, y si hay palabras iguales, pintara todas las palabras? ...

[Or]

Lo knno me gusta del worm k pusiste al principio son las copias en Mis Docuentos... esa carpeta no es standard... mes Documents  My Documents... no se si me explico... se podria aplicar un Or por si la PC fuese en otro lenguaje...

En caso de no existir, no se copia....


sobre poner la pagina "Elhacker.net", es solo una prueba... pero el verdadero worm lleva otra pagina, solo puse "Elhacker.net"  para que no digan que hago spam.