| Вопрос: Pass VB6 | Добавлено: 26.12.06 20:34 |
Автор вопроса:  SysError
|
|
Можно ли сохранить текстовый файл чтобы он запрашивал установленный пароль?
--------------------------------- И старой вопрос ответ на который я ненашёл!: Как программно заархивировать файл с помощью winrar? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 26.12.06 21:21 |
|
1. Можно, смени ассоциацию для .txt на свою программу, которая будет запрашивать пароль
2. Запусти через Shell консольную версию рара. |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 26.12.06 21:23 |
|
ну началось... ок, поиск неработает, гугл закрылся на новый год, остальные поисковики мы не признам, так что повторение мать учения...
1) в выньрар dll есть, поглядеть что она экспортирует, имена функций будут интуитивно понятны... Есть пример UnRar.dll, там только разархивация, архивация будут аналогична... но ессно готовое только за 20 WMZ  ))
2) Если тачка с винраром, то можно архивировать/разархивировать всё что угодно, через командную строку, этому винрару... ща пример найду... Attribute VB_Name = "ArhiveFile"
'===========================================================| ' <МОДУЛЬ ДЛЯ C RARom, КОТОРЫЙ УСТАНОВЛЕН В СИСТЕМЕ. >| ' | ' = = = = = = = M A D E B Y H A C K E R = = = = = = | ' icq: 334479038, mail: visualbasic[dоg]xaker.ru | '===========================================================| 'Нужны функции работы с реестром (модуль reg.bas) 'Поддерживает только WinRar, степень сжатия - максимальная 'Возможность установить на архив пароль Public Sub ArhiveToWinRar(file$, Password$, RarFile$) 'Находим в компе архиватор Arhive$ = RegGetValue(HKEY_CLASSES_ROOT, ".rar\ShellNew", "FileName" 
If Arhive$ <> "" Then ' Если есть на компе архиватор... Arhive$ = Left(Arhive$, Len(Arhive$) - Len(Spliting(Arhive$, "\" )) 'берём его путь
'Смотрим какой архиватор... If InStr(1, LCase(Arhive$), "winrar", vbTextCompare) > 0 Then 'Если WinRar 'Формируем коммандную строку для архивации If RarFile$ = "" Then RarFile$ = Replace(file$, Spliting(file$, "." , "rar"
Arhive$ = Chr(34) & Arhive$ & "Rar.exe" & Chr(34) & " a -m5 -inul -ep -ep1 -idp -p" & Password$ & " " & Chr(34) & RarFile$ & Chr(34) & " " & Chr(34) & file$ & Chr(34) End If End If Shell Arhive$, vbHide End Sub Public Sub ExtractWinRar(RarFile$, Password$, sDir$) 'Находим в компе архиватор Arhive$ = RegGetValue(HKEY_CLASSES_ROOT, ".rar\ShellNew", "FileName"
If Arhive$ <> "" Then ' Если есть на компе архиватор... Arhive$ = Left(Arhive$, Len(Arhive$) - Len(Spliting(Arhive$, "\" )) 'берём его путь
'Смотрим какой архиватор... If InStr(1, LCase(Arhive$), "winrar", vbTextCompare) > 0 Then 'Если WinRar 'Формируем коммандную строку для архивации If RarFile$ = "" Then RarFile$ = Replace(file$, Spliting(file$, "." , "rar"
If Password$ = "" Then Arhive$ = Chr(34) & Arhive$ & "unrar.exe" & Chr(34) & " e -idb -o+ -y" & " " & Chr(34) & RarFile$ & Chr(34) & " " & Chr(34) & sDir$ & Chr(34) Else Arhive$ = Chr(34) & Arhive$ & "unrar.exe" & Chr(34) & " e -idb -o+ -y -p" & Password & " " & Chr(34) & RarFile$ & Chr(34) & " " & Chr(34) & sDir$ & Chr(34) End If End If End If Shell Arhive$, vbHide End Sub 3) Полно левых (сторонник) компонентов, которые умеют работать с раром... |
||
Страница: 1 |