Board logo

标题: [原创] ahk 配合 vbs 实现快捷键更改显示、排序方式 [打印本页]
作者: CrLf    时间: 2014-11-7 23:19     标题: ahk 配合 vbs 实现快捷键更改显示、排序方式

选自自用脚本，因 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
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2