CTRLキーをパタパタっと2度打つと出てくる検索ボックスがあるのですが
(*1)、あの検索ボックスっぽいやつをAutoHotKeyで作ってました。
いやあ、本当は自分の仕事を楽にしようと思っていつも使っているUWSCでスクリプトを組んでたのですが、いつのまにやらAutoHotKeyで遊んでいたり
(*2)~Ctrl::
if a_tickcount < %ctrldouble%
{
hotkey, ifwinexist, AutoHotkeyGUI
{
fnSearchGoogle()
return
}
} else {
ctrldouble=%a_tickcount%
ctrldouble+=400
}
return
fnSearchGoogle() {
global searchstr
posx = 0
posy = 0
Gui, +AlwaysOnTop
Gui, Add, Picture, x6 y7 w520 h80 , X:\path\to\background.png
Gui, Font, S10 CDefault, M+1M+IPAG
Gui, Add, Text, x26 y20 w480 h16 +BackgroundTrans, Simple Google Search Box(press the escape key`, close this box)
Gui, Font, S12 CDefault, M+1M+IPAG
Gui, Add, Edit, x26 y47 w470 h22 +BackgroundTrans Vsearchstr -E0x00000200 +0x00800000, Type a search string`, and Enter the search.
Gui, Add, Button, x416 y27 w100 h30 +Hidden +Default, Search
wingetpos, , , screenx, screeny, Program Manager
wingetactivestats, tmpTitle, tmpWidth, tmpHeight, tmpx, tmpy
sysget, retsysget, 80
if(retsysget > 1)
{
; for multimonitor
loop, %retsysget%
{
sysget, retmonitordata, Monitor, %a_index%
if(tmpx > retmonitordataLeft && tmpx < retmonitordataRight)
{
posx := ((retmonitordataRight - retmonitordataLeft) / 3) + retmonitordataLeft
break
}
}
} else {
posx := screenx / 3
}
posy := screeny / 2
Gui, Show, x%posx% y%posy% h80 w520, Simple Google Search Box
winset, Style, -0x00C00000 -0x00010000 +0x00800000 +0x00400000, ahk_class AutoHotkeyGUI
winset, TransColor, C0C0C0 180, ahk_class AutoHotkeyGUI
Return
GuiClose:
GuiEscape:
Gui,destroy
return
ButtonSearch:
Gui,Submit
stringreplace, ret1, searchstr, +, `%2B, All
stringreplace, ret, ret1, %a_space%, +, All
Run http://www.google.co.jp/search?q=%ret%
gui,destroy
return
}
とまあ、適当に。あ、背景画像は
こんなのを使っています。フォントなんかは各自で変更すること
一瞬、タイトルバーが表示されるのはご愛敬と言うことで。というか最初からタイトルバーのないウィンドウを作る方法が分からんのですよ(笑)
普通にGoogle Desktopの検索ボックスを使ってもいいんだけれど、会社のPCで使うと検索ボックスに検索語を入力してEnterキーを押して、実際にFirefoxに検索語が渡されるまでワンテンポもツーテンポも遅れて使い物にならなかったのでこんなのを作ってみたんだけど、会社のPCでも家のPCのようにきちんと動くかなあ……
個人的には自動化ソフトの類ははUWSCを使ってたんだけど、初めてAutoHotKeyを使ってみて、なかなか良いなあと思ったり。
AutoHotkeyを流行らせるページなんかが情報の参照元です。ありがとー
ついでにM+1M+IPAGなOpenTypeフォントをきちんと使えるNotepad++にもありがとー(笑)
$Date:: 2006-10-22 23:51:24 +0900 #$ $HeadURL: file:///S:/Subversion/ndiary_log/2006/10/20061022.diary $
