自動化ツールuwsc使いよ集まれ2

自動化ツールuwsc使いよ集まれ2 at SOFTWARE

456:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示