/*
按热键Alt+A打开本AutoHotkey热键脚本语言文件
本脚本的最新版网址
本脚本由delphi不断更新中，本脚本的部分内容来自于互联网搜索引擎
可以借助Delphi等工具来实现更多的功能
本人可以在有空的时候免费无偿的回答一些有关ahk和delphi方面的问题
我的腾讯QQ聊天号码是 595076941 如果我不在线可能是隐身或没时间登录
在我离线时你仍然可以发送信息给我,等我有空时会回复信息的!
*/
/*
; 下面的例子移动一个文件夹内的所有文件和文件夹到一个不同的文件夹：
ErrorCount := MoveFilesAndFolders("D:\Personal\桌面\*.*", "D:\Personal\桌面备份\")
;If ErrorCount <> 0
; MsgBox %ErrorCount% 个文件/文件夹不能被移动。
;MoveFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
MoveFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
; 移动所有匹配 SourcePattern 的文件和文件夹到名为 DestinationFolder 的文件夹
; 并返回不能被移动的文件/文件夹的数量。此函数需要 v1.0.38+
; 因为它使用了 FileMoveDir 的模式 2 。
{
FileCreateDir , %DestinationFolder%
If DoOverwrite = 1
DoOverwrite = 2 ; 请看 FileMoveDir 关于模式 2 对模式 1 的描述。
; 首先移动所有文件(而不是文件夹):
FileMove, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
ErrorCount := ErrorLevel
; 现在移动所有的文件夹:
Loop, %SourcePattern%, 2 ; 2 表示 "仅获取文件夹" 。
{
FileMoveDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
ErrorCount += ErrorLevel
If ErrorLevel ; 报告每一个有问题的文件夹名称。
MsgBox 不能移动 %A_LoopFileFullPath% 到 %DestinationFolder% 。
}
return ErrorCount
}
FileCopy,D:\Personal\默认桌面\*.* , D:\Personal\桌面\
*/
/*
;---------- 按热键 ` 立即打开本地磁盘文件搜索软件 MasterSeeker 1.2 by DxCK MD5_0F7 ----------------------------------
`::
;最小化所有窗口
WinMinimizeAll
;如果没有文件夹那么提示出错
;如果没有文件那么提示出错
;如果程序没有运行那么运行程序
;Process，Exist，MasterSeeker.exe
;NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
;if NewPID = 0;当 %ErrorLevel% 等于 0 表示进程不存在
;由于可执行文件名有可能被用户修改所以
; 这里使用相对稳定的不大会更改的窗口标题是否存在来判断程序是否已经运行，防止重复运行
;If not WinExist("MasterSeeker 1.2 by DxCK")
; {
; Run , "MasterSeeker\MasterSeeker.exe",,max
; }
Process,Exist,MasterSeeker.exe
NewPID = %ErrorLevel% ; Save the value immediately since ErrorLevel is often changed.
if NewPID = 0 ;当 %ErrorLevel% 等于 0 表示进程不存在
{
Run , "MasterSeeker\MasterSeeker.exe",,max
}
;如果窗口没有激活那么激活窗口IfWinNotActive,"MasterSeeker 1.2 by DxCK"
while (Not WinActive("MasterSeeker 1.2 by DxCK"))
{
Sleep ,1
IfWinNotActive,"MasterSeeker 1.2 by DxCK"
{
WinActivate
WinMaximize
; WinActivateBottom,MasterSeeker 1.2 by DxCK
;#WinActivateForce
;WinWaitActive,"MasterSeeker\MasterSeeker.exe",,1
}
Sleep,200
}
;如果输入框没有获得焦点那么选中输入框
MouseClick, left,111,111
Send,{Tab}
Send,{Tab}
;操作完成，提示用户输入关键字
; MsgBox Please InputYour KeyWord to Search it
return ;千万不要忘记 return 结束热键执行代码块定义
;文件: D:\Personal\AutoHotkey\MasterSeeker\MasterSeeker_MD5_0F7.exe
;大小: 989184 字节
;文件版本: 1.2.0.1
;修改时间: 2011年9月30日, 22:26:12
;MD5: 0F75BA8717362BD078487E567A4D8C16
;SHA1: 6DB1F9ABDEA4A7E9CF5612C6458A0817B5482988
;CRC32: 220755B3
*/
;=== AutoHotkey热键脚本语言文件 autoHotkey.ini 到此行结束 === The End Line Of autoHotkey.ini AutoHotkey ScriptFile =================
/*
;== AutoHotkey热键脚本语言文件 AutoHotkey.ini === AutoHotkey.ahk ==
; --- 按热键 ` 打开本地磁盘文件搜索软件 MasterSeeker_1.2_by_DxCK ----
; --- 快捷键 ` 即 ~ 键，位于 Esc 退出键正下方，位于 Tab 制表键上方 ----
`::
; 第1步 , 判断可执行程序文件是否存在
IfNotExist,MasterSeeker\MasterSeeker.exe
{
MsgBox,文件 MasterSeeker\MasterSeeker.exe 不存在
return
}
; 第2步 , 如果程序未运行那么运行程序
IfWinNotExist, MasterSeeker 1.2 by DxCK
{
Run,MasterSeeker\MasterSeeker.exe,,max
}
; 第3步 , 激活窗口(把窗口放到前台,设置为顶层窗口)并最大化窗口
; 不知道是什么原因，窗口是否激活总是误判，这里只好啰嗦一点了
Loop,3
{
WinGetTitle, MyActiveWindowTitle, A
Sleep,50
while ("%MyActiveWindowTitle%" <> "MasterSeeker 1.2 by DxCK" )
{
Sleep,50
while ("%MyActiveWindowTitle%" <> "MasterSeeker 1.2 by DxCK" )
{
;调用激活窗口的子程序函数过程代码块
ToggleWinMinimize("MasterSeeker 1.2 by DxCK")
WinMaximize
WinGetTitle, MyActiveWindowTitle, A
Sleep,50
}
}
}