میم مثل مهدی نوشته است:من برا باز کردن فایل های زیپ که پسورد دارن یه نرم افزار free میخواستم میشه کمکم کنین؟
میم مثل مهدی نوشته است:برا استفاده از نرم افزارoffice هیچ راهی به جز خریدن سی دیش نیس؟ من فقط با ورد و اکسل کار دارم اگه نرم افزار رایگانی میشناسین لطفا معرفی کنین
on run {input, parameters}
set dialogResults to display dialog "Name for zipped file (no extension)" default answer "Archive" buttons {"OK", "Cancel"} default button "OK"
if button returned of dialogResults is "OK" then
set passwd to "x"
set passwd_2 to "y"
repeat while passwd ≠ passwd_2
tell application "System Events"
activate
set passwd to text returned of (display dialog "password for zipped file" default answer "" buttons {"OK", "Cancel"} default button "OK" with hidden answer)
set passwd_2 to text returned of (display dialog "Please reenter your password" default answer "" buttons {"OK", "Cancel"} default button "OK" with hidden answer)
end tell
end repeat
set archiveName to text returned of dialogResults
tell application "Finder"
set archiveFileName to archiveName & ".zip"
-- Append on a number if file exists.
set suffix to 1
set theFileExists to true
repeat while theFileExists
try
set archiveFile to ((container of (item 1 of input) as Unicode text) & archiveFileName)
if exists file archiveFile then
set archiveFileName to archiveName & suffix & ".zip"
set suffix to suffix + 1
else
set theFileExists to false
end if
end try
end repeat
end tell
set itemStr to ""
repeat with thisItem in input
set itemPath to quoted form of (POSIX path of thisItem)
tell application "Finder"
set parentFolder to POSIX path of (container of thisItem as alias)
set itemName to name of thisItem
set itemStr to itemStr & quoted form of itemName & " "
end tell
end repeat
if (the last character of itemStr is " ") then set itemStr to characters 1 thru ((length of itemStr) - 1) of itemStr as string
set zipFile to quoted form of POSIX path of (parentFolder & archiveFileName)
set cmd to "cd " & quoted form of parentFolder & " ; zip -P " & passwd & " -r " & zipFile & " " & itemStr & " -x *.DS_Store"
do shell script cmd
end if
return
end run
کاربران حاضر در این انجمن: بدون کاربران آنلاین و 57 مهمان