• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Extract Password protect Zip/Rar Archive File

Extract Password protect Zip/Rar Archive File

Extract Password protect Zip/Rar Archive File

API Declarations


Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long




Rate Extract Password protect Zip/Rar Archive File

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Spath = "C:\AKZPK.rar"
tpath = "C:\"
If Dir$("c:\program Files\winrar\winrar.exe") = "" Then
    MsgBox "Winrar Is Not installed", vbQuestion
    Exit Sub
End If
'Password - 08051976
processID = Shell("c:\progra~1\winrar\winrar e -inul -p08051976 " & Chr(34) & Spath & Chr(34) & " " & Chr(34) & tpath & Chr(34), vbHide)
        process_handle = OpenProcess(SYNCHRONIZE, 0, processID)
        If process_handle <> 0 Then
            WaitForSingleObject process_handle, INFINITE
            Call CloseHandle(process_handle)
        End If

End Sub