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

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

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

450:名無しさん＠お腹いっぱい。
 06/12/16 08:05:00 bV4BfKKU0
>>445 
>  ツール自体は白って明言されてるだろ。 
だったら有罪はおかしいだろ。お前もこじつけで逮捕されやがってみやがっれ

451:名無しさん＠お腹いっぱい。
 06/12/16 14:01:25 3qaG3LqX0
>>447 
日本語でおk 
 
>>450 
だから判決文くらい読んでレスしろと。

452:名無しさん＠お腹いっぱい。
 06/12/16 17:35:17 Qs/JjjiN0
さて、自作スクリプトを晒していきますよ。最近このツールに嵌ったからな

453:名無しさん＠お腹いっぱい。
 06/12/16 17:38:45 44Kiz7S30
>>452 
そういう需要はないのでお引取りください。

454:名無しさん＠お腹いっぱい。
 06/12/16 18:01:52 Qs/JjjiN0
あーあ萎えたわ

455:名無しさん＠お腹いっぱい。
 06/12/16 19:05:47 3qaG3LqX0
>>454 
これは素晴らしいスクリプトですね。 
目から鱗です。

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

次ページ