!百度搜索

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

#SingleInstance, force
SplitPath, A_AhkPath, ,Dir,
Menu TRAY, Icon, %Dir%ScriptsResourceBaidu.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}
Baidu := clipboard
Menu, Tray_History, Add, %Baidu%, Run_Url
Run, http://www.baidu.com/s?bs=%CA%B2%C3%B4&f=8&wd=%Baidu%
Return
Tray_Show:
Menu, Tray, Show
Return
Tray_Reload:
Reload
Return
Tray_Url:
Run, http://www.Baidu.com
Tray_Exit:
ExitApp
Return
Run_Url:
Run, http://www.baidu.com/s?bs=%CA%B2%C3%B4&f=8&wd=%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, Baidu, 百度搜索,,,, 100
if ErrorLevel=0
{
Menu, Tray_History, Add, %Baidu%, Run_Url
Run, http://www.baidu.com/s?bs=%CA%B2%C3%B4&f=8&wd=%Baidu%
}
Return