!谷歌搜索

/*
Name:谷歌搜索
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#SingleInstance, force
SplitPath, A_AhkPath, ,Dir,
Menu TRAY, Icon, %Dir%ScriptsResourceGoogle.ico,,1
Menu, Tray_History, Add,清空历史(&C), CleanHistory
Menu, Tray_History, Default,清空历史(&C)
Menu, Tray_History, Add
Menu, Tray, Click, 1
Menu, Tray, Tip, 谷歌搜索
Menu, Tray, Add, 谷歌搜索, Tray_Show
Menu, Tray, ToggleEnable, 谷歌搜索
Menu, Tray, Default, 谷歌搜索
Menu, Tray, Add
Menu, Tray, Add, 主页(&Z), Tray_Url
Menu, Tray, Add
Menu, Tray, Add, 搜索(&S), Tray_Find
Menu, Tray, Add, 历史(&H), :Tray_History
Menu, Tray, Add
Menu, Tray, Add, 帮助(&B), Tray_Help
Menu, Tray, Add, 重启(&R), Tray_Reload
Menu, Tray, Add, 退出(&X), Tray_Exit
Menu, Tray, NoStandard
Return
$!+S::Gosub,Tray_Find
$!S::
Send, {CTRLDOWN}c{CTRLUP}
Google := clipboard
Menu, Tray_History, Add, %Google%, Run_Url
Run, http://www.google.com/search?hl=zh-CN&newwindow=1&safe=strict&q=%Google%
Return
Tray_Show:
Menu, Tray, Show
Return
Tray_Reload:
Reload
Return
Tray_Url:
Run, http://www.Google.com
Tray_Exit:
ExitApp
Return
Run_Url:
Run, http://www.google.com/search?hl=zh-CN&newwindow=1&safe=strict&q=%A_thismenuitem%
Return
CleanHistory:
Menu, Tray_History, DeleteAll
Menu, Tray_History, Add,清空历史(&C), CleanHistory
Menu, Tray_History, Default,清空历史(&C)
Menu, Tray_History, Add
Return
Tray_Help:
Msgbox, 0, Help, 选中搜索文字`nAlt+S搜索`nAlt+Shift+S打开搜索框
Return
Tray_Find:
InputBox, Google, 谷歌搜索,,,, 100
if ErrorLevel=0
{
Menu, Tray_History, Add, %Google%, Run_Url
Run, http://www.google.com/search?hl=zh-CN&newwindow=1&safe=strict&q=%Google%
}
Return