我只知道是f8.。。
sanmoking 发表于 2009-12-14 11:13
下面的这段代码貌似可以搞定该设置:WinMinimizeAll()
#Include <File.Au3>
Global $AutoIT3_Dir = ""
#Region Commandline lexing
; retrieve commandline parameters
;-------------------------------------------------------------------------------------------
For $x = 1 To $CMDLINE[0]
$T_Var = StringLower($CMDLINE[$x])
Select
Case $T_Var = "/Autoit3Dir"
$x = $x + 1
If FileExists($CMDLINE[$x]) Then $AutoIT3_Dir = $CMDLINE[$x]
EndSelect
Next
#EndRegion Commandline lexing
;
; determine the SciTE and AutoIt3 Directories
;----------------------------------------------------------------------------------------
If $AutoIT3_Dir = "" or Not FileExists($AutoIT3_Dir) then
; 保存当前目录
$S_CurDir = @WorkingDir
; 设置目录为 obfuscator 目录
FileChangeDir(@ScriptDir)
If FileExists(@ScriptDir & "\Autoit3.exe") then
$AutoIT3_Dir = @ScriptDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
FileChangeDir("..")
If FileExists("Autoit3.exe") then
$AutoIT3_Dir = @WorkingDir
Else
$AutoIT3_Dir = RegRead("HKLM\Software\AutoIt v3\Autoit", 'InstallDir')
EndIf
EndIf
EndIf
; 恢复且保存当前目录
FileChangeDir($S_CurDir)
EndIf
;
;
; 查找 SciTE 目录
;----------------------------------------------------------------------------------------
Global $SciTE_Dir = ""
If FileExists(@ScriptDir & "\SciTE.exe") Then
$SciTE_Dir = @ScriptDir
Else
; 保存当前目录
$S_CurDir = @WorkingDir
FileChangeDir(@ScriptDir & "\..")
If FileExists("SciTE.exe") then
$SciTE_Dir = @WorkingDir
Else
$SciTE_Dir = RegRead('Hklm\Software\Microsoft\Windows\CurrentVersion\App Paths\SciTE.exe', '')
$SciTE_Dir = StringLeft($SciTE_Dir, StringInStr($SciTE_Dir, "", '', -1) - 1)
EndIf
; 恢复且保存当前目录
FileChangeDir($S_CurDir)
EndIf
;
If Not FileExists($SciTE_Dir) Then
MsgBox(48 + 262144, " 对不起, 出错了...", "没有找到 SciTE.exe 文件! 或许把我放到 SciTE.exe 目录可以解决问题...")
Exit
EndIf
;----------------------------------------------------------------------------------------
;检查目标文件是否存在
$SciTE=$SciTE_Dir&'\SciTE.exe'
$File=$SciTE_Dir&'\全局设置.Properties'
;MsgBox(262144,'测试',$File)
If Not FileExists($File) THen
MsgBox(48 + 262144, " 对不起, 出错了...", "没有找到 “全局设置.Properties” 文件! 貌似您没有完整安装 AutoIt3 喔...")
Exit
EndIf
$W=@DesktopWidth
$H=@DesktopHeight
$X=$W/2
$Y=$H/2
$RePlaceLine='ext.lua.startup.script=$(SciteDefaultHome)/Lua/SciTEStartup.lua'
ToolTip('正在努力地搜寻 全局设置.Properties 中的指定关键词...',$X,$Y,' 正在执行所请求的操作, 请稍候...',1,6)
For $i=1 To 1000
If StringInStr(FileReadLine($File,$i),'AcnLua') Then
ToolTip('')
MsgBox(262144,'找到 “AcnLua” 关键词:','在 “'&$File&'” 文件的第 '&$i&' 行!',5)
_FileWriteToLine($File,$i,$RePlaceLine,1)
_RunFile()
ExitLoop
ElseIf FileReadLine($File,$i)=$RePlaceLine Then
_RunFile()
ExitLoop
EndIf
Next
Func _RunFile()
Run($SciTE)
ProcessWait('SciTE.exe')
ToolTip('')
MsgBox(64 + 262144, " OK, SciTE 输出栏已搞定...", "恭喜"& _
"您啦, SciTE 输出栏已被我轻松搞定了...",5)
ProcessWaitClose('SciTE.exe')
WinMinimizeAllUndo()
EndFunc
|