autohotkey lab

转自http://blog.csdn.net/zxremail/archive/2011/01/13/6135731.aspx

 

;******************************** 我的最新试验田 ************************************
;******************************** 我的外部头文件 ************************************
;#include CurrentPrograminstallPath.ahk
#include _SendRaw.ahk
#include GetMyPath.ahk
#include Ime.ahk
#include UrlEncode.ahk
#include CMDret_RunReturn.ahk

;******************************** 我的常用快捷键 ************************************

    ;作者：朱兴瑞   草成于 2009-11-01

;******************************************************************************************
;******************************************************************************************
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

FileRead, Contents, MyAutoHotkeyPath.txt
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    

;前面加上 $ 符号有效地防止了 send 进行重复热键(例如 NumPad1 )！!!!!!!!!!!!!!!!!!!!
;或者使用键盘钩子也可以
#UseHook
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
path_firefox:=GetMyPath("ahk_firefox_Path")
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;----------------临时热字符串（用后删除）------------------------------------------------------------------    
;------------------------(可能会对很多后续快捷键产生影响！！)------------------------------------------------    
;字符串替换系列
;:*://::
        ;_sendraw("I2C")
;return

;:*:..::
        ;_sendraw("SO380000")
;return

;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;把英文（忘记切换输入法状态了）翻译为中文
RAlt Up::
    inputNum := DllCall("GetKeyboardLayout","UINT",DllCall("GetWindowThreadProcessId","UINT",WinActive("A"),"UINTP",0),UInt)
    ;msgbox %inputNum%
    if inputNum = 3760261124
    {
        ;send {space}{space}
        Send, {LShift Down}{LShift Up}{Space}
        SwitchIME("中文 (简体) - 美式键盘")
        return
    }

    Clipboard := 
    Send {left}{Right}^{Left}^+{Right}
    send ^c
    AutoTrim, On
    Clipboard=%Clipboard%
    SwitchIME("中文 (简体) - 美式键盘")
    SwitchIME("谷歌拼音输入法 2")

    StringLen, length, Clipboard
    if length > 60
    {
        return
    }
    
    send %clipboard%
return

;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
1::
    IfWinNotActive  ahk_class EVERYTHING
    {
        Clipboard := 

        IfWinActive  ahk_class CabinetWClass
        {
        }
        else IfWinActive  ahk_class Vim
        {
        }
        else IfWinActive  ahk_class ExploreWClass
        {
        }
        else
        {
            send ^c
        }

        send ^+#!s
            sleep 200
        SwitchIME("中文 (简体) - 美式键盘")
        if Clipboard
        {
            send ^v
        }

    }
    else
    {
        Send,{LAlt down}{Tab}
        Send,{LAlt up}
        Winhide , ahk_class EVERYTHING
;        send !{F4}
    }
return
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
Esc::
    path:=path_firefox
    ;RunWait %path% -new-window http://www.google.com/
    RunWait %path% -new-window http://www.google.com.hk/
return
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;显示或者隐藏 OutLook
9::
    SetTitleMatchMode,2
    IfWinActive  - Microsoft Outlook
    {
;        WinMinimize,A
        Send,{LAlt down}{Tab}
        Send,{LAlt up}
        Winhide ,  - Microsoft Outlook
    }
    else
    {
        winshow ,  - Microsoft Outlook
            ;sleep 100
        WinActivate, - Microsoft Outlook
    }
return

;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    


^Numpad1::
    send ^1
return

^Numpad2::
    send ^2
return

^Numpad3::
    send ^3
return

^Numpad4::
    send ^4
return

^Numpad5::
    send ^5
return

^Numpad6::
    send ^6
return

^Numpad7::
    send ^7
return

^Numpad8::
    send ^8
return

^Numpad9::
    send ^9
return


;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    

~LWin & LButton::
        send {LButton}
return

~RWin & LButton::
        send {LButton}
return
;----------------------------------------------------------------------------------        
;----------------------------------------------------------------------------------        
;----------------------------------------------------------------------------------        
;----------------------------------------------------------------------------------        
;看似无用，但是必须加上，否则“单键切换”与那些组合键冲突了！
~LAlt & Space::
    send !{space}
return

;单键切换
~LAlt Up::
    state := GetKeyState("Capslock", "T")
    if state
    {
        SetCapsLockState , Off
    }
    Send,{LAlt down}{Tab}
    Send,{LAlt up}
return

;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;一键打开快捷键编辑页面（本来早该实现的，还是被惯性所囿）
~RWin Up::
    IfWinExist kuaijiejian.ahk
    {
        WinActivate, kuaijiejian.ahk
        return
    }
    path:=GetMyPath("ahk_gvim_Path")
    ahkpath:=GetMyPath("ahk_kuaijiejian_Path")
    Run, %path%  %ahkpath% ,,max
return

;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
; 双击右键抓取桌面
~RButton Up::
    If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 300)
    {
        send {ralt}
        sleep 200
        send ^+!{PrintScreen}
    }
return
;----------------------------------------------------------------------------------    
;----------------------------------------------------------------------------------    
;双击LCtrl打开 百度
;加波浪号防止热键自循环
~LCtrl Up::
    If (A_PriorHotKey = A_ThisHotKey and A_TimeSincePriorHotkey < 300)
    {

        Clipboard := 

        IfWinActive  ahk_class si_Frame
        {
            Send {Right}^{Left}^+{Right}
        }

        IfWinActive  ahk_class CabinetWClass
        {
            Clipboard := 
        }
        else
        {
            send ^c
;        send ^c
;下面这一句拖慢了速度
;        ClipWait,4
            sleep 400
        }
        
            IfWinNotExist  ahk_class MozillaUIWindowClass
            {
                return
            }
    
        AutoTrim, On
;        path:=GetMyPath("ahk_firefox_Path")
        path:=path_firefox

        if not Clipboard
        {
            RunWait %path% -new-window http://www.baidu.com/
                
            sleep 2000
            WinMaximize,A

            return
        }

        Clipboard=%Clipboard%
    
        ClipboardO := Clipboard
        StringReplace, Clipboard, Clipboard, %A_SPACE%, +, All
        
        StringLen, length, Clipboard
        if length > 200
        {
            return
        }
        
        clipboardwiki := Clipboard

        ;百度的汉字不可以，不知道为什么(历经千辛万苦，终于解决了)
        OutputVar:=UrlEncode(Clipboard)
        StringReplace, clipboard, OutputVar, `%2B, "%A_SPACE%", All
    
    
        ;采用百度搜索
        RunWait %path% -new-window http://www.baidu.com/s?wd=%clipboard%

        sleep 3000

        ;采用百度百科搜索
        RunWait %path% -new-tab http://baike.baidu.com/searchword/?word=%clipboard%&pic=1&sug=1&rsp=1

        ;采用维基中文百科搜索
;        RunWait %path% -new-tab http://zh.wikipedia.org/zh-cn/%clipboardwiki%

        sleep 1000
        click
;        WinMaximize,A
         send {F11}
        
        Clipboard := ClipboardOfont-family: verdana, sans-serif;