fa1con
|
 Posted: Sun Mar 01, 2009 16:02 Post subject: |
 |
|
kadvlad
Лучше как-то так:
| Code: | ' =====================================================================
' File: unrarp.vbs
' Description: Распаковка запароленного rar-архива, использую в
' качестве пароля текст из clipboard
' winrar x -p<текст из БО> %P%N %T
' Installation: Создайте кнопку на панели TC
' Команда: "диск:\путь\к\файлу\unrarp.vbs"
' Параметры: %P%N %T
' =====================================================================
Dim RarPath, Params
RarPath = "c:\Program Files\WinRAR\Rar.exe" 'Путь к (win)rar-у
Set objArgs = WScript.Arguments
Set WS = CreateObject("WScript.Shell")
if objArgs.Count = 2 then
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Params = "x -p" & strURL & " " & chr(34) & objArgs(0) & chr(34) & " " & chr(34) & objArgs(1) &chr(34)
WS.run chr(34) & RarPath & chr(34) & " " & Params
End if |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
