06/12/17 00:25:01 2fiNqHEX0
// URLdecoder.uws
URLdecoder = "?:\?????\URLdecoder\urldecoder.exe" //■urldecoder.exe のパス
//--------------------------------------------------------------------
str = PARAM_STR[0]
select str
// case "/s"; str = GetPnirText() // Sleipnir から取得 >>421を利用
// case "/c"; // クリップボードを使う（コマンドラインが不可の場合）
// SLEEP(0.2)
// id = GETID(GET_FROMPOINT_WIN) // タイトル, クラス名 を指定した方が安定
// SCKEY(id,VK_CTRL,C); SLEEP(0.1); str = GETSTR(0)
case ""; str = GETSTR(0) // パラメータが無ければクリップボードから取得
default; str = ""
for i=0 to RESIZE(PARAM_STR)-1 // スペースで分離した文字列を結合
str = str + PARAM_STR[i]; if PARAM_STR[i+1]<>"" then str = str + " "
next
selend
ifb POS("%u",str) then // Unicodeタイプならデコードする
sc = CreateOLEObj("ScriptControl"); sc.language = "JScript"
sc.AddCode("function decodeUni(s){return unescape(s)}")
str = sc.Run("decodeUni",str) // %u30E6%u30CB%u30B3%u30FC%u30C9 - テスト用
endif // %E8%87%AA%E5%8B%95%E5%8C%96%E3%83%84%E3%83%BC%E3%83%AB - テスト用
id = GETID("URLdecoder","TMainForm",0.1)
if id<0 then id = EXEC(URLdecoder)
ifb id>0 then
CTRLWIN(id,ACTIVATE)
ifb str<>"" then
SENDSTR(id,TRIM(str),1,True)
SCKEY(id,VK_CTRL,VK_RETURN)
endif
endif