| |
すみません。僕のマクロのrunexの呼び出し方のミスでした。
runexの場合は%を%%に変換しないといけないと、ヘルプに書いててありました。
マクロ内容以下のように修正お願いします。
----------------------------------------------------------------------------
-----------
//暗号化Zipの自動解凍 PasswordZipExtract.mac
// 2019.02.12
// 2019.03.07 Version 1.1 パスワードの形式追加。
// 2019.03.12 Version 1.2 パスワードの形式さらに追加。
// 2021.04.26 Version 1.3
// 7-Zipの代わりにunzip.exeでも解凍できるようにした。
// パスワードの形式にもっといろいろ追加。＆、複数候補あった場合は
メニュー表示するようにした。
// 2021.05.10 Version 1.4 さらに形式追加。11〜12
// unzip.exeまたは7zip.exeの終了コードを見て、成功してる場合は結
果表示しないようにした。
// 2021.05.11 Version 1.5 PasswordZipTempフォルダにサブフォルダのゴミが残る
バグ修正。
// 2021.05.13 Version 1.6 メール本文にユニコード文字（Shift-JIS範囲外の文
字）があるとパスワードがおかしくなるバグ修正。
// 2021.05.18 Versio 1.7 パスワードの中に「%」があると失敗するバグ修正。
//
// by 秀まるお
// hidesoft.8:04704| 暗号化zip自動解凍マクロ
//
//
//説明：
// このマクロはパスワード付きzipの添付ファイルを簡単に解凍する用のマクロです。
// パスワード付きzipの添付ファイル入りメールは、そのメールとは別便でパスワード
// を通知してきます。このマクロはその別便メールの中からパスワードを取り出して、
// 自動で解凍します。
//
// マクロを実行する前に、zip添付ファイル付きのメールとパスワード通知メールの
// ２通を選択して実行する必要があります。
//解凍したファイルは「ドキュメント」フォルダ配下のPasswordZipTempフォルダに
// 作成されます。古いファイルが残ってる場合はマクロ実行のタイミングで削除され
// てから解凍されます。
//
// unzip.exeのダウンロード場所： http://gnuwin32.sourceforge.net/packages/unzip.htm
// 7-Zipのダウンロード場所： https://sevenzip.osdn.jp/
loaddll "tkinfo.dll";
// 秀丸メールの検索パック復元予約
#n = dllfunc("AutoRestoreFindPack");
// 秀丸エディタの検索条件復元予約
setcompatiblemode 0x00020000;
#n = dllfunc("SetJapaneseCodePageMode", 1);
#n = dllfunc("SelectedMailCount");
if( #n != 2 ) {
message "このマクロは暗号化zip付きメールと、その解凍用パスワード通知
メールの２通を選択した状態で実行してください。";
endmacro;
}
//対象のzipとパスワードを取り出す。
$zipfile = "";
$password = "";
#n = dllfunc("LockSelection");
while(1) {
#n = dllfunc("EnumSelection", 1);
if( #n == 0 ) {
break;
}
#foundzip = 0;
if( $zipfile == "" ) {
#count = dllfunc("CountCurrentHeader", "X-Attach");
if( #count != 0 ) {
#i = 0;
while( #i < #count ) {
$attach = dllfuncstr("CurrentHeader2", "X-Attach", #i);
$ext = dllfuncstr("ToLower", rightstr( $attach, 4 ) );
if( $ext == ".zip" ) {
$zipfile = dllfuncstr("HomeDir") + dllfuncstr("Curre
ntAccount") + "\\" + $attach;
#foundzip = 1;
break;
}
#i = #i + 1;
}
}
}
if( $password == "" && #foundzip == 0 ) {
$text = gettext( 0, 0, 999, linecount ); //メール本文全部
loaddll "HmJre.dll";
#n = dllfunc("SetUnicodeIndexAutoConvert", 1); //V1.6 バグ修正
$text = dllfuncstr("ReplaceRegularNoCaseSense", "[\\r\\n]+", $te
xt, 0, " ", 2);
//改行を空白に変換しておく。
$text = dllfuncstr("ReplaceRegularNoCaseSense", " +", $text, 0,
" ", 2);
//全角空白を半角空白に変換しておく。
$text = $text + " "; //末端に空白を付けておく。
$pattern[0] = " 【パスワード】 *[:：]? *([^ \x81\x40-\xFC\xFF]
+?) ";
$pattern[1] = " 解凍パスワード *[:：]? *([^ \x81\x40-\xFC\xFF]
+?) ";
$pattern[2] = " Password *: *([^ \x81\x40-\xFC\xFF]+?) ";
$pattern[3] = " \\[パスワード/Password\\] *([^ \x81\x40-\xFC\xF
F]+?) ";
$pattern[4] = " 【暗号化パスワード\\(password\\)】 *([^ \x81\x40
-\xFC\xFF]+?) ";
$pattern[5] = " パスワードは「([^ \x81\x40-\xFC\xFF]+?)」";
$pattern[6] = " 解凍パスワード +([^ \x81\x40-\xFC\xFF]+?) ";
$pattern[7] = " パスワード *[:：] *([^ \x81\x40-\xFC\xFF]+?) ";
$pattern[8] = " 添付ファイルパスワード *[:：]? *([^ \x81\x40-\xF
C\xFF]+?) ";
$pattern[9] = " \\[(?:パスワード|Password)\\] *([^ \x81\x40-\xFC
\xFF]+?) ";
$pattern[10] = " パスワード *\\(Password\\) *[:：]? *([^ \x81\x4
0-\xFC\xFF]+?) ";
$pattern[11] = " \\[password information\\] *([^ \x81\x40-\xFC\x
FF]+?) ";
$pattern[12] = " パスワード[ ]*（[0-9]+桁） *[:：]? *([^ \x81\
x40-\xFC\xFF]+?) ";
$pattern[13] = " パスワード[ ]*\\([0-9]+桁\\) *[:：]? *([^ \x8
1\x40-\xFC\xFF]+?) ";
#iPattern = 0;
#cPassword = 0;
while(1) {
$pattern = $pattern[#iPattern];
if( $pattern == "" ) {
break;
}
//2021.04.28 新しい方式
#x = 0;
while(1) {
#x = dllfunc("FindRegularNoCaseSense", $pattern, $text,
#x );
if( #x >= 0 ) {
$hit = midstr( $text, #x, dllfunc("GetLastMatchLengt
h") );
#tag1 = dllfunc("GetLastMatchTagPosition", 1);
#tag1len = dllfunc("GetLastMatchTagLength", 1);
$pass = midstr( $text, #tag1, #tag1len );
//message $hit + "\n" + $pass;
if( strlen($pass) >= 4 ) { //4文字以上でないと
ダメ。
//同じパスワードがあれば追加しない。
#iFindPass = 0;
while( #iFindPass < #cPassword ) {
if( $password[#iFindPass+1] == $pass ) {
//スキップ
goto Label_SkipAddPass;
}
#iFindPass = #iFindPass + 1;
}
$password[#cPassword+1] = $pass; //注意:
+1した所にセットする。
$whole[#cPassword+1] = $hit + "\t" + $pass;
//注意: +1した所にセットする。
#cPassword = #cPassword + 1;
Label_SkipAddPass:
}
#x = #x + 1;
} else {
break;
}
}
#iPattern = #iPattern + 1;
}
loaddll "tkinfo.dll"; //元に戻す。
}
}
#n = dllfunc("UnlockSelection", 1);
if( $zipfile == "" ) {
message "zip形式ファイルが見つかりませんでした。";
endmacro;
}
if( #cPassword == 0 ) {
message "パスワードが見つかりませんでした。";
endmacro;
}
if( #cPassword > 1 ) {
$whole[0] = "パスワードの候補が複数見つかりました。どれを使うか選択
してください。";
menuarray $whole, #cPassword + 1;
if( result <= 1 ) {
endmacro;
}
$password = $password[result-1]; //result == 1の時に$password
[1]を選択する。
} else {
$password = $password[1];
}
if( strstr( $password, "\"" ) >= 0 ) {
message "パスワードの中にダブルクォーテーションの文字が含まれてます。
このマクロではダブルクォーテーション入りのパスワードで解凍することは出来ませ
ん。手作業で解凍お願いします。";
endmacro;
}
//2021.04.26 unzip.exeがあればそっちを使う。
// http://gnuwin32.sourceforge.net/packages/unzip.htm
//
$unzip = "C:\\Program Files\\GnuWin32\\bin\\unzip.exe";
if( ! existfile( $unzip ) ) {
$unzip = "C:\\Program Files (x86)\\GnuWin32\\bin\\unzip.exe";
if( ! existfile( $unzip ) ) {
$unzip = "";
}
}
if( $unzip == "" ) {
$7zip = "C:\\Program files\\7-Zip\\7z.exe";
if( ! existfile( $7zip ) ) {
$7zip = "C:\\Program files (x86)\\7-Zip\\7z.exe";
if( ! existfile( $7zip ) ) {
message "7-Zipのプログラム用ファイルが見つかりません。7-Zip
をインストールしてください。\n\n" +
"7-Zipは、C:\\Program files\\7-Zip またはC:\\Program
files (x86)\\7-Zip にインストールされてる必要があります。";
endmacro;
}
}
}
openreg "CURRENTUSER","Software\\Microsoft\\Windows\\CurrentVersion\\Exp
lorer\\Shell Folders";
$outfolder = getregstr("Personal");
closereg;
$outfolder = $outfolder + "\\PasswordZipTemp";
#fsobj = createobject("Scripting.FileSystemObject");
#folderobj = callmethod_returnobj(#fsobj, "GetFolder", $outfolder + "\\");
if( #folderobj != 0 ) {
#subfolderobj = getpropobj(#folderobj, "SubFolders");
if( #subfolderobj != 0 ) {
#onefolder = getcollection(#subfolderobj, 2);
while(1) {
#onefolder = getcollection(#subfolderobj);
if( #onefolder == 0 ) {
break;
}
$subfolder = member(#onefolder, "Name");
$path = $outfolder + "\\" + $subfolder;
//テストmessage $path;
runsync2 "cmd.exe /c rmdir /s /q \"" + $path + "\"";
}
}
}
#n = dllfunc("Bypass_CreateDirectory", $outfolder);
if( existfile( $outfolder + "\\*.*" ) ) {
runsync2 "cmd.exe /c del /f /s /q \"" + $outfolder + "\\*.*\"";
//古いファイルのゴミを削除
}
#n = dllfunc("Bypass_CreateDirectory", $outfolder);
//2021.05.18 パスワードの中の「%」を「%%」に変換しないといけない。
//
#i = 0;
while(1) {
$one = midstr($password, #i, 1);
if( $one == "" ) {
break;
}
if( $one == "%" ) {
$password = leftstr($password, #i) + "%" + midstr($password, #i);
#i = #i + 2;
} else {
#i = #i + 1;
}
}
if( $unzip != "" ) {
$command = "\"" + $unzip + "\"" + " -P\"" + $password + "\"" + " -d\
"" + $outfolder + "\" \"" + $zipfile + "\"";
} else {
$command = "\"" + $7zip + "\" x -p\"" + $password + "\"" + " -o\"" +
$outfolder + "\" \"" + $zipfile + "\"";
}
#homehidemaru = hidemaruhandle(0);
#n = dllfunc("NewMail");
#n = dllfunc("SwitchHeaderView", 0); //ヘッダ表示なし
gofiletop;
beginsel;
gofileend;
insert $command + "\n\n";
gofileend;
runex $command
, 1 //同期
, 0 //標準入力なし
, ""
, 5 //標準出力をカーソル位置へ挿入
, ""
, 5 //標準エラー出力もカーソル位置へ挿入
, ""
, 0 //作業フォルダ指定なし
, ""
, 1 //表示あり
, 0 //描画あり
, 0 //ANSIで受け取り
, 0 //拡張フラグ指定なし
;
if( !result ) {
message "unzip.exeまたは7zipの実行に失敗しました。プログラムからの出
力内容を確認してください。";
endmacro;
}
#exitcode = getresultex(9);
gofileend;
clearupdated;
if( #exitcode == 0 || #exitcode == 1 ) {
//終了コード 参照:
// 7zip ... https://sevenzip.osdn.jp/chm/cmdline/exit_codes.htm
// unzip.exe ... https://community.progress.com/s/article/What-does-Error-Code-mean-on-a-un-Zip-Advanced-Script-1307565966255
openbyshell $outfolder;
quit;
}
message "unzip.exeまたは7zipからエラーが返っていると思われます。出力結果
を確認してください。";
|
|