文章

[办公]用ahk写的一个桌面整理软件

有的人可能喜欢把临时文件放在桌面，这里制作了一个简陋的桌面整理工具。因为贴在桌面这个功能和桌面的类名有关联，非win10用户可能出现bug，导致脚本不能贴在桌面上，需要自己修改一下。

有的人可能喜欢把临时文件放在桌面，这里制作了一个简陋的桌面整理工具。因为贴在桌面这个功能和桌面的类名有关联，非win10用户可能出现bug，导致脚本不能贴在桌面上，需要自己修改一下。

一个简陋的桌面整理脚本，https://github.com/fuwt/sdesktop

非win10用户因为桌面的类名不一样，可能出现bug，导致脚本不能贴在桌面上，需要自己修改一下。[办公]用ahk写的一个桌面整理软件

  1. SetWorkingDir %A_Desktop%
  2.  #SingleInstance, Force
  3.  SetWinDelay, -1
  4.  SetControlDelay, -1
  5.  
  6. ; 创建GUI
  7.  x0 := A_ScreenWidth - 435
  8.  WinGet, hDesktop, ID, ahk_class Progman
  9.  ControlGet, hDesktopIcon, Hwnd,, SysListView321, ahk_id %hDesktop%
  10.  Control, Hide, ,,ahk_id %hDesktopIcon%
  11.  BoxW := A_ScreenWidth / 4.5
  12.  BoxH := A_ScreenHeight / 4.5
  13.  Gui, +ToolWindow +LastFound -Caption -DPIScale +Parent%hDesktop%
  14.  Gui, Color, ffeeee
  15.  Gui, Margin, 0, 0
  16.  Gui, Add, Picture, w%BoxW% h%BoxH%, %A_ScriptDir%\img\Background.png
  17.  ; Gui, Add, GroupBox, x0 y+20 w384 r10 cFFFFFF, 常用
  18. Gui, Font, s12
  19.  Gui, Add, ListView, w%BoxW% y+10 vMyListView1 gMySubroutine, 名称|修改时间|路径|EXT
  20.  Gui, Add, ListView, w%BoxW% y+10 vMyListView2 gMySubroutine, 名称|修改时间|路径|EXT
  21.  Gui, Add, ListView, w%BoxW% y+10 vMyListView3 gMySubroutine, 名称|修改时间|路径|EXT
  22.  Gui, Add, ListView, w%BoxW% y+10 vMyListView99 gMySubroutine, 名称|修改时间|路径|EXT
  23.  Gui, Font, s57
  24.  Gui, Add, Text, x10 y50 w364 Center cFFFFFF BackgroundTrans +HwndTimeStr, Time
  25.  Gui, Font, s20
  26.  Gui, Add, Text, x10 y150 w364 Center cFFBBBB BackgroundTrans +HwndDateStr, Time
  27.  WinSet, TransColor, FFEEEE
  28.  WinGetPos,,,,h,ahk_class Shell_TrayWnd
  29.  h := A_ScreenHeight-h
  30.  ; Gui, Show, x0 y0 w%A_ScreenWidth% h%h% NA
  31.  Gui, Show, x%x0% y10
  32.  shell := ComObjCreate("shell.application")
  33.  shell.toggledesktop()
  34.  Menu, Tray, Add, 隐藏桌面图标, hideDeskIcon
  35.  Menu, MyContextMenu, Add, 删除, DeleteFile
  36.  Menu, MyContextMenu, Add, 复制, CopyFile
  37.  Menu, MyContextMenu, Add, 移动, MoveFile
  38.  loop
  39.  {
  40.  IniRead, OutputVar, %A_ScriptDir%\config.ini, common, %A_Index%, 0
  41.  if (OutputVar = 0)
  42.  break
  43.  if (SubStr(OutputVar,0) != "\")
  44.  OutputVar .= "\"
  45.  Name := StrSplit(OutputVar, "|")[1]
  46.  Menu, CopyFile2, Add, %Name%, CopyFile2Common
  47.  Menu, MoveFile2, Add, %Name%, MoveFile2Common
  48.  }
  49.  Menu, MyContextMenu, Add, 复制到常用文件夹, :CopyFile2
  50.  Menu, MyContextMenu, Add, 移动到常用文件夹, :MoveFile2
  51.  
  52.  
  53.  
  54. ; 生成图标列表
  55. arr := [.xls,.xlsx,.doc,.docx,.ppt,.pptx,.txt,.ahk,.jpg,.png,.pdf,.psd]
  56.  Icons := {}
  57.  ImageListID := IL_Create(50)
  58.  for item in arr
  59.  {
  60.  ext := arr[item]
  61.  RegRead, OutputVar, HKEY_CLASSES_ROOT, %ext%
  62.  RegRead, OutputVar, HKEY_CLASSES_ROOT\%OutputVar%\DefaultIcon
  63.  Icons[SubStr(ext,2)] := A_Index
  64.  img := StrSplit(OutputVar, "`,")
  65.  if !OutputVar
  66.  IL_Add(ImageListID, "shell32.dll", 1)
  67.  else
  68.  IL_Add(ImageListID, img[1], img[2])
  69.  }
  70.  count := 0
  71.  for k,v in Icons
  72.  count++
  73.  Icons["AADIR"] := count + 1
  74.  IL_Add(ImageListID, "shell32.dll", 4)
  75.  
  76. ; 开始
  77. GoSub, hideDeskIcon
  78.  GoSub, SetDate
  79.  GoSub, SetTime
  80.  GoSub, FillGrid
  81.  SetTimer, SetTime, 1000
  82.  SetTimer, SetDate, 1000000
  83.  SetTimer, ReFlush, 1000
  84.  Return
  85.  
  86. ; 标签
  87. SetTime:
  88.  FormatTime, OutputVar, %A_Now%, HH:mm:ss
  89.  GuiControl, Text, %TimeStr%, %OutputVar%
  90.  Return
  91.  SetDate:
  92.  FormatTime, OutputVar, %A_Now%, yyyy/MM/dd ddd
  93.  GuiControl, Text, %DateStr%, %OutputVar%
  94.  Return
  95.  ReFlush:
  96.  if !BacT
  97.  BacT := ModifyT
  98.  FileGetTime, ModifyT, %A_Desktop%
  99.  if ModifyT != %BacT%
  100.  GoSub FillGrid
  101.  BacT := ModifyT
  102.  Return
  103.  
  104. FillGrid:
  105.  loop 3
  106.  {
  107.  LsN := A_Index
  108.  Gui, ListView, MyListView%LsN%
  109.  GuiControl, -Redraw, MyListView%LsN%
  110.  LV_Delete()
  111.  IniRead, path, %A_ScriptDir%\config.ini, grid%A_Index%, path
  112.  IniRead, exts, %A_ScriptDir%\config.ini, grid%A_Index%, exts
  113.  LV_SetImageList(ImageListID)
  114.  Loop, Files, *.*, DF
  115.  {
  116.  ext := A_LoopFileExt
  117.  if A_LoopFileAttrib contains H,R,S
  118.  continue
  119.  if A_LoopFileAttrib = D
  120.  ext := "AADIR"
  121.  if ext not in %exts%
  122.  continue
  123.  collected .= A_LoopFileName . "`,"
  124.  FormatTime, OutputVar, %A_LoopFileTimeModified%, ShortDate
  125.  LV_Add("icon" . Icons[ext],A_LoopFileName, OutputVar,A_LoopFileLongPath,ext)
  126.  LV_ModifyCol(1,BoxW-120)
  127.  LV_ModifyCol(2)
  128.  LV_ModifyCol(3,0)
  129.  LV_ModifyCol(4,0)
  130.  }
  131.  GuiControl, +Redraw, MyListView%LsN%
  132.  }
  133.  Gui, ListView, MyListView99
  134.  GuiControl, -Redraw, MyListView99
  135.  LV_Delete()
  136.  LV_SetImageList(ImageListID)
  137.  Loop, Files, *.*, DF
  138.  {
  139.  if A_LoopFileAttrib contains H,R,S
  140.  continue
  141.  if A_LoopFileName in %collected%
  142.  continue
  143.  if A_LoopFileAttrib = D
  144.  ext := "AADIR"
  145.  else
  146.  ext := A_LoopFileExt
  147.  FormatTime, OutputVar, %A_LoopFileTimeModified%, ShortDate
  148.  LV_Add("icon" . Icons[ext],A_LoopFileName, OutputVar,A_LoopFileLongPath,ext)
  149.  LV_ModifyCol(1,BoxW-120)
  150.  LV_ModifyCol(2)
  151.  LV_ModifyCol(3,0)
  152.  LV_ModifyCol(4,"0 sort")
  153.  }
  154.  GuiControl, +Redraw, MyListView99
  155.  Return
  156.  MySubroutine:
  157.  if A_GuiEvent = DoubleClick
  158.  {
  159.  Gui, ListView, %A_GuiControl%
  160.  LV_GetText(OutputVar, A_EventInfo, 3)
  161.  run % OutputVar
  162.  }
  163.  Return
  164.  GuiContextMenu:
  165.  ; ToolTip % A_GuiControl . A_EventInfo
  166.  if A_GuiControl contains MyListView
  167.  {
  168.  RClickControl := A_GuiControl
  169.  Menu, MyContextMenu, Show
  170.  }
  171.  return
  172.  showDeskIcon:
  173.  Control, Show, ,,ahk_id %hDesktopIcon%
  174.  Menu, Tray, Add, 隐藏桌面图标, hideDeskIcon
  175.  Menu, Tray, Delete, 显示桌面图标
  176. Return
  177.  hideDeskIcon:
  178.  Control, Hide, ,,ahk_id %hDesktopIcon%
  179.  Menu, Tray, Add, 显示桌面图标, showDeskIcon
  180.  Menu, Tray, Delete, 隐藏桌面图标
  181. Return
  182.  DeleteFile:
  183.  Gui, ListView, %RClickControl%
  184.  guicontrol, -redraw, %RClickControl%
  185.  n := lv_getcount("s")
  186.  loop % n
  187.  {
  188.  RowNumber := lv_getnext()
  189.  LV_GetText(FullPath, RowNumber,3)
  190.  LV_Delete(RowNumber)
  191.  FileRecycle, %FullPath%
  192.  }
  193.  guicontrol, +redraw, %RClickControl%
  194.  Return
  195.  MoveFile:
  196.  Gui, ListView, %RClickControl%
  197.  FileSelectFolder, OutputVar
  198.  guicontrol, -redraw, %RClickControl%
  199.  n := lv_getcount("s")
  200.  loop % n
  201.  {
  202.  RowNumber := lv_getnext()
  203.  LV_GetText(FullPath, RowNumber,3)
  204.  CopyFilesAndFolders(FullPath, OutputVar)
  205.  FileDelete, %FullPath%
  206.  LV_Delete(RowNumber)
  207.  }
  208.  guicontrol, +redraw, %RClickControl%
  209.  Return
  210.  CopyFile:
  211.  Gui, ListView, %RClickControl%
  212.  FileSelectFolder, OutputVar
  213.  guicontrol, -redraw, %RClickControl%
  214.  n := lv_getcount("s")
  215.  loop % n
  216.  {
  217.  RowNumber := lv_getnext(RowNumber)
  218.  LV_GetText(FullPath, RowNumber,3)
  219.  CopyFilesAndFolders(FullPath, OutputVar)
  220.  }
  221.  guicontrol, +redraw, %RClickControl%
  222.  Return
  223.  CopyFile2Common:
  224.  Gui, ListView, %RClickControl%
  225.  guicontrol, -redraw, %RClickControl%
  226.  n := lv_getcount("s")
  227.  DestPattern := StrSplit(A_ThisMenuItem, "|")[2]
  228.  loop % n
  229.  {
  230.  RowNumber := lv_getnext(RowNumber)
  231.  LV_GetText(FullPath, RowNumber,3)
  232.  CopyFilesAndFolders(FullPath, DestPattern)
  233.  MsgBox % FullPath
  234.  }
  235.  guicontrol, +redraw, %RClickControl%
  236.  Return
  237.  MoveFile2Common:
  238.  Gui, ListView, %RClickControl%
  239.  guicontrol, -redraw, %RClickControl%
  240.  n := lv_getcount("s")
  241.  DestPattern := StrSplit(A_ThisMenuItem, "|")[2]
  242.  loop % n
  243.  {
  244.  RowNumber := lv_getnext(RowNumber)
  245.  LV_GetText(FullPath, RowNumber,3)
  246.  CopyFilesAndFolders(FullPath, DestPattern)
  247.  FileDelete, %FullPath%
  248.  LV_Delete(RowNumber)
  249.  }
  250.  guicontrol, +redraw, %RClickControl%
  251.  Return
  252.  CopyFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
  253.  {
  254.  ; 首先复制所有文件 (不是文件夹):
  255. FileCopy, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
  256.  ErrorCount := ErrorLevel
  257.  ; 现在复制所有文件夹:
  258. Loop, %SourcePattern%, 2 ; 2 表示 "只获取文件夹".
  259.  {
  260. FileCopyDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
  261.  ErrorCount += ErrorLevel
  262.  if ErrorLevel ; 报告每个出现问题的文件夹名称.
  263. MsgBox Could not copy %A_LoopFileFullPath% into %DestinationFolder%.
  264.  }
  265.  return ErrorCount
  266.  }

 

 

声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
ahk分享办公
其他教程

[教程][文件]AutoHotKey系列教程中级教程第四节第一课文件操作简介

2017-8-3 20:41:06

其他案例

[办公]简单工作记录

2017-8-7 16:38:59

0 条回复 A文章作者 M管理员
欢迎您，新朋友，感谢参与互动！
    暂无讨论，说说你的看法吧

请输入验证码

请输入图片中的验证码
点击发送按钮获取验证码

取消
×
×
￥undefined
请打开手机使用微信扫码支付
「」
×

....支付确认中....

「」
×
支付金额

￥

undefined
×
积分支付
您当前的积分为0

检测到您未绑定微信账户，请先绑定微信

立刻绑定
确定
×

举报

请选择举报类型*

政治有害
不友善
垃圾广告
违法违规
色情低俗
涉嫌侵权
网络暴力
涉未成年
自杀自残
不实信息
引人不适
抄袭
扰乱社区秩序
请输入举报内容 *

举报提交后，我们会以邮件的形式向您反馈处理结果。

×

打开微信扫一扫

扫码并「关注我们的公众号」安全快捷登录

×

下载海报：

解锁会员权限

开通会员

解锁海量优质VIP资源

立刻开通

个人中心
购物车
优惠劵
私信列表
搜索
客服

  • 扫码打开当前页

返回顶部