Foro de elhacker.net

 
Private Sub opendir_Click()
   Dim FName As String
FName = BrowseFolder(Caption:="Selecciona una carpeta")
If FName = vbNullString Then
    Debug.Print "No Folder Selected"
Else
    Debug.Print "Selected Folder: " & FName
End If
End Sub
 
Private Sub Check6_Click()
If Check6.Value = 1 Then
    Text6.Enabled = True
ElseIf Check6.Value = 0 Then
    Text6.Enabled = False
End If
End Sub
 
 
Private Sub english_Click()
Check6.Caption = "Reset PC after install updates."
Frame1.Caption = "Additional options"
opendir.Caption = "Open directory..."
virus.Caption = "File"
salir.Caption = "Exit"
Sobre.Caption = "About..."
Idioma.Caption = "Language"
español.Caption = "Spanish"
english.Caption = "English"
End Sub
 
Private Sub español_Click()
Check6.Caption = "Reiniciar PC después de instalar actualizaciones."
Frame1.Caption = "Opciones adicionales"
opendir.Caption = "Abrir directorio..."
virus.Caption = "Archivo"
salir.Caption = "Salir"
Sobre.Caption = "Sobre..."
Idioma.Caption = "Idioma"
español.Caption = "Español"
english.Caption = "Inglés"
End Sub
 
Private Sub salir_Click()
Unload Me
End Sub
 
Private Sub Sobre_Click()
MsgBox ("WinUpdates Installer 1.0" & vbNewLine & "" & vbNewLine & "By PiToLoKo" & vbNewLine & vbNewLine & "www.foro.elhacker.net")
End Sub
 

If Dir("c:\*.msu") = vbNullString Then
    MsgBox "error no se encuentra archivo msu"
    'esto yo lo haria con un If de una linea pero para empezar dejalo asi
End If
 

Dim CT As Integer
Dim archivo As String
    archivo = Dir("c:\*.msu")
    While archivo <> ""
        'para buscar el siguiente archivo se usa dir solo
        archivo = Dir
        CT = CT + 1
    Wend
    lblTotal.Caption = Str(CT)
    'CT es la cantidad de archivos
 

Dim archivo As String
    archivo = Dir("c:\*.msu")
    While archivo <> ""
        'shell ejecuta
        Shell archivo
        'Esperar a que cierre un proceso es mas complicado, busca en el foro.
        'ESTO EJECUTARA TODOS LOS MSU
        'para buscar el siguiente archivo se usa dir solo
        archivo = Dir
    Wend
 

Dim archivo As String
    archivo = Dir("c:\*.msu")
    While archivo <> ""
        'shell ejecuta msu
        Shell archivo
        'Suponemos que esperar al cierre del proceso es "EsperaCierre"
        While esperacierre(archivo) = False
            DoEvents
            'doevents libera el procesador y lo deja ejecutar otras operaciones
        Wend
        'para buscar el siguiente archivo se usa dir solo
        LblTerminados.Caption = Str(Val(LblTerminados.Caption +1))
        archivo = Dir
    Wend
 

If Dir(FName & "\*.msu") = vbNullString Then
    MsgBox "error no se encuentra archivo msu" & FName
End If

C:\Users\Administrador\Desktop\Windows6.1-KB2492386-x64.msu

Private Sub Command1_Click()
Dim archivo As String
    archivo = Dir("C:\Users\Administrador\Desktop\*.msu")
    While archivo <> ""
        Shell archivo
        archivo = Dir
    Wend
End Sub
 

Private Sub Command1_Click()
Const stPath As String = "C:\Users\Administrador\Desktop\"
'---
Dim archivo As String
    archivo = Dir(stPath & "*.msu")
    While archivo <> ""
        Call Shell(stPath & archivo)
        archivo = Dir
    Wend
End Sub
 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 

        ShellExecute Me.hwnd, "open", stPath & archivo, vbNullString, "c:\", False
        'Nota el path de ejecucion es este ^
 

Procedimiento sub o funcion no definido.

Private Sub Command1_Click()
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const stPath As String = "C:\Users\Administrador\Desktop\"
Dim archivo As String
    archivo = Dir(stPath & "*.msu")
    While archivo <> ""
    MsgBox (FName & archivo)
         ShellExecute Me.hwnd, "open", stPath & archivo, vbNullString, "C:\Users\Administrador\Desktop\", False
        archivo = Dir
    Wend
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
' Espacio en blanco, u otros procedimentos
 
Private Sub Command1_Click()
Const stPath As String = "C:\Users\Administrador\Desktop\"
Dim archivo As String
    archivo = Dir(stPath & "*.msu")
    While archivo <> ""
    MsgBox (FName & archivo)
         ShellExecute Me.hwnd, "open", stPath & archivo, vbNullString, "C:\Users\Administrador\Desktop\", False
        archivo = Dir
    Wend
End