キーカスタマイズソフト

キーカスタマイズソフトat SOFTWARE

キーカスタマイズソフト - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:名無しさん＠お腹いっぱい。
 05/12/29 17:04:06 kxLXknwE0
私の推理が正しければそういうことになるだろう。

401:名無しさん＠お腹いっぱい。
 06/01/02 08:52:57 Z6CX6CNa0
>>395 
391をよく読んだ。反省した。 
それなら、 
key c-a-del = &Toggle(lock0, off) 
追加でどうよ？ 
まあ、もう今更だが。

402:名無しさん＠お腹いっぱい。
 06/01/07 23:09:37 encZjWXw0
mayuで「選択文字列をクリップボードにコピーしてGoogle検索」をやろうとしたんだが 
&ShellExecute("open", "rundll32.exe", "url.dll,FileProtocolHandler http://www.google.co.jp/search?q=$Clipboard",, ShowNormal) 
ここまでやって、文字列内で$Clipboardが展開されないことに気づいた orz 
&ShellExecute("open", "rundll32.exe", "url.dll,FileProtocolHandler http://www.google.co.jp/search?q=" + $Clipboard,, ShowNormal) 
みたいに文字列の連結もできないし… 
 
外部スクリプトを噛まさなきゃ無理か？

403:名無しさん＠お腹いっぱい。
 06/01/08 00:02:39 zN7Dvjuy0
>>402 
できた（・∀・） 
key W-C = C-C &Wait(100) &ShellExecute("open", "google.vbs", $Clipboard,, ShowNormal) 
 
' google.vbs 
Dim wshshell, cmd 
Set wshshell = WScript.CreateObject("WScript.Shell") 
cmd = "rundll32.exe url.dll,FileProtocolHandler http://www.google.co.jp/search?q=" & getarguments 
wshshell.Run cmd, 1, False 
Function getarguments() 
Dim a, s 
For Each a In WScript.Arguments 
s = s & Replace(a, vbCrLf, " ") & " " 
Next 
getarguments = s 
End Function

次ページ