智能跳转---TC资源管理器

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;作者：天甜；QQ：
;一花一世界，一叶一枯荣，心无挂碍,无挂碍故,无有恐怖,远离颠倒梦想,究竟涅盘。
;更新于：----
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  

Process, Priority,,high         ;脚本高优先级
#NoTrayIcon                         ;隐藏托盘图标
#NoEnv                              ;不检查空变量是否为环境变量
#Persistent                     ;让脚本持久运行(关闭或ExitApp)
#SingleInstance Force               ;跳过对话框并自动替换旧实例
#WinActivateForce                   ;强制激活窗口
#MaxHotkeysPerInterval       ;时间内按热键最大次数
SetBatchLines -                    ;脚本全速执行
SetControlDelay                    ;控件修改命令自动延时
CoordMode Menu Window               ;坐标相对活动窗口
SendMode Input                      ;更速度和可靠方式发送键盘点击
SetTitleMatchMode              ;窗口标题模糊匹配
;SetTitleMatchMode,RegEx
DetectHiddenWindows On              ;显示隐藏窗口
SetWorkingDir %A_ScriptDir%     ;当前脚本所在目录的绝对路径.不包含最后的反斜线（根目录同样如此）;A_ScriptDir指的是D:\zxh\QuickZ\Apps  

;另存为|保存|复制|新建|打开|图形另存为|文件打开|保存副本|上传|选择文件 ahk_class #
GroupAdd,Window32770,另存为 ahk_class #
GroupAdd,Window32770,保存 ahk_class #
GroupAdd,Window32770,复制 ahk_class #
GroupAdd,Window32770,新建 ahk_class #
GroupAdd,Window32770,打开 ahk_class #
GroupAdd,Window32770,图形另存为 ahk_class #
GroupAdd,Window32770,文件打开 ahk_class #
GroupAdd,Window32770,打开文件 ahk_class #
GroupAdd,Window32770,保存副本 ahk_class #
GroupAdd,Window32770,上传 ahk_class #
GroupAdd,Window32770,选择文件 ahk_class #
GroupAdd,Window32770,插入图片 ahk_class #
GroupAdd,Window32770,导入 ahk_class #  

global this_title=
global zParam
;~ OnMessage(0x5555, "MsgMonitor")  

;在某些程序中自动切换中文，某些英文          注册个窗口钩子然后监听系统消息
Gui +LastFound +hwndhwndshellwindow
DllCall( "RegisterShellHookWindow", "UInt",hwndshellwindow )
OnMessage( DllCall( "RegisterWindowMessage", "Str", "SHELLHOOK" ), "SwitchMessage" )
return
;~ MsgMonitor(wParam, lParam, msg)
;~ {
    ;~ zParam = %wParam%
;~ }
^+!::zParam :=
^+!::zParam :=   

SwitchMessage( wParam,lParam )  ;{
{
    If ( wParam !=  )      ;新开窗口
    {
    If WinActive("ahk_class TTOTAL_CMD")
        {
        WinWaitNotActive ahk_class TTOTAL_CMD
        SendMessage , , , , ahk_class TTOTAL_CMD
        ControlGetText, varPathInTC, , ahk_id %ErrorLevel%
        StringReplace, this_title, varPathInTC, >, \
        IfWinExist ahk_group Window32770
            {
            WinWaitActive ahk_group Window32770, ,
            if !ErrorLevel
            ;IfWinActive ahk_group Window32770
                {
                ControlClick, Edit1, A
                Sleep,
                ControlSetText, Edit1, %this_title%, A
                Sleep,
                ControlSend, Edit1, {Enter}, A
                }
            else
                return
            }
        else
            return
        return
        }
    If WinActive("ahk_class CabinetWClass")
        {
        WinWaitNotActive ahk_class CabinetWClass
        WinGetTitle, this_title, ahk_class CabinetWClass    ;“文件夹选项”，“查看”，“在标题栏显示完整路径”，“确定”,显示完整路径
        if this_title=桌面
            this_title=%A_Desktop%
        ;if this_title=库\文档
            ;this_title=%A_MyDocuments%
        IfWinExist ahk_group Window32770
            {
            WinWaitActive ahk_group Window32770, ,
            if !ErrorLevel
            ;IfWinActive ahk_group Window32770
                {
                ControlClick, Edit1, A
                Sleep,
                ControlSetText, Edit1, %this_title%, A
                Sleep,
                ControlSend, Edit1, {Enter}, A
                }
            else
                return
            }
        else
            return
        return
        }
    If WinActive("ahk_class SciTEWindow")
        {
        if zParam =
            {
            OCR_IBEAM           =
            hbeam := DllCall("LoadCursorFromFile","Str","D:\zxh\QuickZ\User\Icons\zzx.cur")
            DllCall( "SetSystemCursor", Uint,hbeam, Int,OCR_IBEAM )
            }
        if zParam =
            {
            SPI_SETCURSORS := 0x57
            DllCall("SystemParametersInfo", "UInt", SPI_SETCURSORS, "UInt", , "UInt", , "UInt", )
            }
        WinWaitNotActive ahk_class SciTEWindow
            {
            SPI_SETCURSORS := 0x57
            DllCall("SystemParametersInfo", "UInt", SPI_SETCURSORS, "UInt", , "UInt", , "UInt", )
            }
        return
        }
    }
}           ;}  

>!o::
    Send, ^o
    WinWaitActive ahk_class #
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %this_title%, A
    Sleep,
    ControlSend, Edit1, {Enter}, A
    return
>!l::
    Send, ^+s
    WinWaitActive ahk_class #
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %this_title%, A
    Sleep,
    ControlSend, Edit1, {Enter}, A
    return
>!n::
    Send, ^n
    WinWaitActive ahk_class #
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %this_title%, A
    Sleep,
    ControlSend, Edit1, {Enter}, A
    return
;~ ^+s::
    ;~ Send ^+s
    ;~ WinWaitActive ahk_class #
    ;~ ControlFocus, Edit1, A
    ;~ send,{Backspace}
    ;~ sleep
    ;~ ControlSetText, Edit1, %this_title%, A
    ;~ Sleep,
    ;~ ControlSend, Edit1, {Enter}, A
    ;~ return  

#IfWinActive, ahk_class #
^g::        ;发送最后 TC or 资管 路径到32770
    ControlClick, Edit1, A
    Sleep,
    ControlSetText, Edit1, %this_title%, A
    Sleep,
    ControlSend, Edit1, {Enter}, A
return  

^e:: GoSub,Sub_SendCurDiagPath2Exp      ;在系统资管中打开对话框的路径
^t:: GoSub,Sub_SendCurDiagPath2Tc       ;在TC中打开对话框的路径
;~ Space & t:: GoSub,Sub_SendCurDiagPath2Tc
#If  

;将Explorer中路径发送到对话框
Sub_SendExpCurPath2Diag:
{
    WinActivate ahk_class CabinetWClass
    WinGetTitle, Title, ahk_class CabinetWClass ;打开“文件夹选项”，切换到“查看”选项卡，在高级设置列表框中勾选“在标题栏显示完整路径”，单击“确定”按钮使设置生效，现在访问文件夹路径时就会在左上角的标题栏显示完整路径
    if Title=桌面
        Title=%A_Desktop%
    Send !{Tab}
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %Title%,A
    send,{enter}
return
}
;将tc中路径发送到对话框
Sub_SendTcCurPath2Diag:
{
    clipraw:=Clipboard
    Clipboard =
    PostMessage, , ,,, ahk_class TTOTAL_CMD
    ClipWait,
    srcDIR := Clipboard
    Clipboard:=clipraw  

    ;再发送剪贴板路径到控件
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %srcDIR%,A
    send,{enter}
return
}
;将tc中路径发送到对话框-备份
Sub_SendTcCurPath2Diag2:
{
    ;将剪贴板中内容作为文件名
    B_Clip2Name := false
    B_ChangeDiagSize := true  

    ;先获取TC中当前路径
    clip:=Clipboard
    Clipboard =
    ;TC_Msg := ,cm_CopySrcPathToClip
    PostMessage, , ,,, ahk_class TTOTAL_CMD
    ClipWait,
    srcDIR := Clipboard
    Clipboard:=clip  

    ;再发送剪贴板路径到控件
    ControlFocus, Edit1, A
    send,{Backspace}
    sleep
    ControlSetText, Edit1, %srcDIR%,A
    send,{enter}
    ;msgbox %clip%
    if(B_Clip2Name){
        Sleep
        ControlSetText, Edit1, %clip%,A
    }
    ;ControlSetText, Edit1, %text%,A
    if(B_ChangeDiagSize){
        ;WinGetPos, xTB, yTB,lengthTB,hightTB, ahk_class Shell_TrayWnd
        ;改变对话框大小，省事就直接移动到100,100的位置，然后85%屏幕大小，否则就要详细结算任务栏在上下左右的位置
        WinMove, A,,,, A_ScreenWidth * 0.85, A_ScreenHeight * 0.85
    }
return
}
;在TC中打开对话框的路径
Sub_SendCurDiagPath2Tc:
{
    WinGetText, CurWinAllText
    Loop, parse, CurWinAllText, `n, `r
    {
        If RegExMatch(A_LoopField, "^地址: "){
            curDiagPath := SubStr(A_LoopField,)
            break
        }
    }
    {
    DiagPath := % curDiagPath
    WinActivate ahk_class TTOTAL_CMD
    PostMessage , , , , AHK_CLASS TTOTAL_CMD
    ControlSetText, Edit1, cd %DiagPath%, ahk_class TTOTAL_CMD
    Sleep
    ControlSend, Edit1, {Enter}, ahk_class TTOTAL_CMD
    }
return
}
;在系统资管中打开对话框的路径
Sub_SendCurDiagPath2Exp:
{
    WinGetText, CurWinAllText
    Loop, parse, CurWinAllText, `n, `r
    {
        If RegExMatch(A_LoopField, "^地址: "){
            curDiagPath := SubStr(A_LoopField,)
            break
        }
    }
    {
    DiagPath := % curDiagPath
    run explorer.exe %DiagPath%
    }
return
}  

^F12::Reload
^F11::ExitApp