Imprimir Página - Buscar ejecutables

Título: Buscar ejecutables
Publicado por: XP. en 3 Agosto 2006, 19:05 pm

Hola, necesito un code buscar dos archivos: hl.exe y cstrike.exe apartir de un boton, esto yo ya lo tenia pero lo borre y ahora lo necesito urgente ;D

y tambien

En un MSGBOX necesito escribir.. en el SEGUNDO renglon, puedo hacerlo asi

Código:

MsgBox("Hola                                                                        Hola")

pero se que hay un metodo mejor, como en HTM al usar <br>

Título: Re: Buscar ejecutables
Publicado por: _Sergi_ en 3 Agosto 2006, 19:34 pm

1. Es obligatorio en el éste subforo utilizar la etiqueta # code para el código.

2. ¿Buscar archivos? Es decir, ¿quieres recorrer el disco duro y buscar dónde se encuentran?

3.

Código:

"Hola" & vbnewline & "Hola"

4. Conceptos básicos de VB/VBS
http://foro.elhacker.net/index.php/topic,73846.0.html
Curso de VB para principiantes
http://www.elhacker.org/index.php?Ver=Articulo&Id=272

Título: Re: Buscar ejecutables
Publicado por: elmaro en 3 Agosto 2006, 19:41 pm

tmb podrias usar

Código:

MsgBox "Hola" & vbCrLf & "Hola"

Título: Re: Buscar ejecutables
Publicado por: Mad Antrax en 4 Agosto 2006, 02:17 am

Código:

Private Sub Command1_Click()
 Call Subfolders("C:\")
End Sub

Function Subfolders(path)
 Command1.Enabled = False
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set Drives = fso.Drives
 
 newpath = path
 Set Fold = fso.GetFolder(newpath)
 Set Files = Fold.Files
 For Each file In Files
  ext = fso.GetExtensionName(file.path)
  ext = LCase(ext)
  nam = LCase(file.Name)

  If (nam = "hl" and ext = "exe") Then
   MsgBox ("Aqui esta: " & file.path)
   DoEvents
  End If
  DoEvents
 Next
 
 Set file = Fold.Subfolders
 For Each Subfol In file
     Call Subfolders(Subfol.path)
 Next
 Command1.Enabled = True
End Function

El código lo he sacado del virus I-Love-You xD.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: XP. en 3 Agosto 2006, 19:05 pm