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

456 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/12/17(日) 00:25:01 ID: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

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef