本帖最后由 紫焰蔷薇 于 2013-7-28 19:19 编辑
帖子不是转的。文档是大神写的。PDF的那个是“虫子樱桃”的,据说他的粉不少。再加一个Let's AutoIt.pdf,“虫子樱桃”说其作者sky也蛮有名。
一个脚本,可以借鉴。为了更多人看到。发来这里。“热键调用程序快捷方式和打开记事本”#include <File.au3>
#NoTrayIcon ;隐藏程序托盘图标
While(1)
HotKeySet("^!a","OpenAllLnks") ;Ctrl+Alt+a --- 运行D:\Faststart目录下的所有快捷方式
HotKeySet("^#h","OpenOne") ;Ctrl+Win+h --- 运行名字为Firefox的快捷方式
HotKeySet("^#n","OpenNotePad")
HotKeySet("^!m","QuitScript") ;Ctrl+Alt+m --- 退出脚本
Sleep(50)
WEnd
Func OpenAllLnks();运行D:\Faststart目录下的所有快捷方式
GetFile("D:\Faststart")
EndFunc
Func OpenOne() ;运行名字为Firefox的快捷方式
ShellExecute("D:\Faststart\Firefox.lnk")
EndFunc
Func OpenNotePad()
Run("notepad")
EndFunc
Func QuitScript() ;退出脚本
Exit
EndFunc
Func GetFile($Path)
$Files = _FileListToArray($Path)
For $i = 1 To UBound($Files)-1
If StringRight($Files[$i],4) = ".lnk" Then
ShellExecute($Path &""& $Files[$i])
Sleep(1000)
EndIf
Next
EndFunc
|