!腾讯搜搜

/*
Name:腾讯搜搜
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#SingleInstance, force
SplitPath, A_AhkPath, ,Dir,
Menu TRAY, Icon, %Dir%ScriptsResourcesoso.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}
SOSO := clipboard
Menu, Tray_History, Add, %SOSO%, Run_Url
Run, http://www.soso.com/q?sc=web&bs=soso&ch=w.uf&num=10&w=%SOSO%
Return
Tray_Show:
Menu, Tray, Show
Return
Tray_Reload:
Reload
Return
Tray_Url:
Run, http://www.soso.com
Tray_Exit:
ExitApp
Return
Run_Url:
Run, http://www.soso.com/q?sc=web&bs=soso&ch=w.uf&num=10&w=%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, SOSO, 腾讯搜搜,,,, 100
if ErrorLevel=0
{
Menu, Tray_History, Add, %SOSO%, Run_Url
Run, http://www.soso.com/q?sc=web&bs=soso&ch=w.uf&num=10&w=%SOSO%
}
Return