ahk 配合 vbs 实现快捷键更改显示、排序方式

CrLf

选自自用脚本，因 ahk 里的函数有时会卡其他线程，所以部分功能用 vbs 来配合实现：

vbs 部分：

1. On Error Resume Next
   
2. Dim Shell,SortKey
   
3. Set Shell = WScript.CreateObject("Shell.Application")
   
4. 
   
5. hwnd = WScript.Arguments(0)
   
6. 
   
7. If WScript.Arguments.Count>1 Then
   
8.         SortKey = WScript.Arguments(1)
   
9. Else
   
10.         SortKey = "System.ItemNameDisplay;"
    
11. End If
    
12. 
    
13. Set windows = Shell.Windows()
    
14. 
    
15. For Each win In Shell.Windows()
    
16.         If CStr(win.hwnd) = hwnd Then
    
17.                 If win.Document.SortColumns = "prop:"&SortKey Then SortKey="-"&SortKey
    
18.                 win.Document.SortColumns = "prop:"&SortKey
    
19.         End If
    
20. Next

复制代码

ahk 部分：

1. #IfWinActive ahk_group WinGroup
   
2. 
   
3. ;Alt+12345 对应 5 种显示方式
   
4. !1::send !vx
   
5. !2::send !vs
   
6. !3::send !vn
   
7. !4::send !vl
   
8. !5::send !vd
   
9. 
   
10. ;Ctrl+1234 对应 4 种排序方式
    
11. ^1::
    
12. hwnd := getActiveWindowHWND()
    
13. traytip,, %hwnd%`,System.ItemNameDisplay;
    
14. run, "D:\Include\文件夹排序.vbs" %hwnd% System.ItemNameDisplay;
    
15. return
    
16. 
    
17. ^2::
    
18. hwnd := getActiveWindowHWND()
    
19. traytip,, %hwnd%`,System.DateModified;
    
20. run, "D:\Include\文件夹排序.vbs" %hwnd% System.DateModified;
    
21. return
    
22. 
    
23. ^3::
    
24. hwnd := getActiveWindowHWND()
    
25. traytip,, %hwnd%`,System.ItemTypeText;System.ItemNameDisplay;
    
26. run, "D:\Include\文件夹排序.vbs" %hwnd% System.ItemTypeText;System.ItemNameDisplay;
    
27. return
    
28. 
    
29. ^4::
    
30. hwnd := getActiveWindowHWND()
    
31. traytip,, %hwnd%`,System.Size;
    
32. run, "D:\Include\文件夹排序.vbs" %hwnd% System.Size;
    
33. return

复制代码