建议帮助示例中的 “打开这个脚本” 恢复以前版本的打开形式
新版点击 “打开这个脚本” 后直接跳出运行结果1。有些在 SciTE.exe 的《结果输出》显示的运行信息无法看到了。
2。如要利用、修改、研读某个例中脚本时,就要费些功夫了。 同感~~~~~~~~~~~~~ 如果可以做到 点击 “打开这个脚本” 后直接跳出运行结果 关闭后再在SciTE.exe中显示例子的源码就好了。 本帖最后由 fongshun 于 2009-12-21 15:27 编辑
在autoit安装目录下新建个脚本,然后运行:
If Not FileExists(@ScriptDir & "\AU3TOOL.exe") Then
MsgBox(0, "", "脚本文件请放于安装目录下")
Exit
EndIf
#cs
Run(@ScriptDir &"\AU3TOOL.exe -s",@ScriptDir)
WinWait("文件模版","完整的文件")
WinWaitClose("文件模版","完整的文件")
#ce
RegWrite("HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\open","","REG_SZ","编辑脚本")
RegWrite("HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\open\Command","","REG_SZ",'"'&@ScriptDir &'\SciTE\SciTE.exe" "%1"')
MsgBox(0,"","收工",6)
----
如果不行的话把代码的注释部分取消 再运行一次
----
回复 4# fongshun
高!高!!实在是高也!!!!谢谢!!!!! 在autoit安装目录下新建个脚本,然后运行:
fongshun 发表于 2009-12-21 15:20 http://www.autoitx.com/images/common/back.gif
谢谢你回帖的解决方法!但又出现新问题:AU3文件没有了右键“运行脚本”选项了,此项变为“编辑脚本”了!!! 估计修改注册表不是办法?!AU3内定的吧?!。。。 回复 7# 131738
是修改注册表~ 回复 8# afan
如果是,则4楼修改可能不对吧?。。。。。。。 回复 9# 131738
他修改的不完整。。。 一会我再看看 鼠标停留头像的提示是否在线的信息老是不对。。。。。。 回复 11# 131738
是啊,没办法,貌似永久的BUG 本帖最后由 afan 于 2009-12-22 01:33 编辑
回复 9# 131738
试下~ 脚本可在任意处运行~Local $AP = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir')
Local $reg = 'HKLM\SOFTWARE\Classes\AutoIt3Script\Shell', $fg = '新版'
If RegRead($reg & '\CGUICompile', '') = '' Then $fg = '旧版'
Local $msg = MsgBox(3 + 48, '当前使用的风格为:' & $fg & ',请选择更改', '是否使用旧版风格?点击“是”使用旧版风格;点击“否”使用新版风格 ' & @CRLF & @CRLF & '点击“取消”放弃更改。 ')
If $msg = 6 Then
RegDelete($reg & '\CGUICompile')
RegWrite($reg, '', 'REG_SZ', 'run')
RegWrite($reg & '\GUICompile', '', 'REG_SZ', '编译脚本(带选项)')
RegWrite($reg & '\GUICompile\Command', '', 'REG_SZ', '"' & $AP & '\SciTE\ACNWrapper\ACNWrapper_GUI.exe" /in "%l"')
RegWrite($reg & '\Open', '', 'REG_SZ', '编辑脚本(SCITE)')
RegWrite($reg & '\Open\Command', '', 'REG_SZ', '"' & $AP & '\SciTE\SciTE.exe" "%1"')
RegWrite($reg & '\Edit', '', 'REG_SZ', '编辑脚本(记事本)')
RegWrite($reg & '\Edit\Command', '', 'REG_SZ', '"' & @SystemDir & '\notepad.exe" "%1"')
RegWrite($reg & '\Run', '', 'REG_SZ', '运行脚本')
RegWrite($reg & '\Run\Command', '', 'REG_SZ', $AP & '\AutoIt3.exe "%1" %*')
MsgBox(64, '完成', '已使用旧版风格~!')
ElseIf $msg = 7 Then
RegDelete($reg & '\GUICompile')
RegDelete($reg & '\Open')
RegDelete($reg & '\Run')
RegWrite($reg & '', '', 'REG_SZ', 'open')
RegWrite($reg & '\CGUICompile', '', 'REG_SZ', '编译脚本(带选项)')
RegWrite($reg & '\CGUICompile\Command', '', 'REG_SZ', '"' & $AP & '\SciTE\ACNWrapper\ACNWrapper_GUI.exe" /in "%l"')
RegWrite($reg & '\Edit', '', 'REG_SZ', '编辑脚本(SCITE)')
RegWrite($reg & '\Edit\Command', '', 'REG_SZ', '"' & $AP & '\SciTE\SciTE.exe" "%1"')
RegWrite($reg & '\open', '', 'REG_SZ', '运行脚本')
RegWrite($reg & '\open\Command', '', 'REG_SZ', $AP & '\AutoIt3.exe "%1" %*')
MsgBox(64, '完成', '已使用新版风格~!')
EndIf 本帖最后由 131738 于 2009-12-22 11:21 编辑
回复 13# afan
谢谢!!!这才是AU3高手!!!特别佩服你是正则表达式专家!!!!
建议改改标题,移到资料区,以利更多新手!!!!辛苦你了,凌晨1点还在帮人解决问题,可叹提问的我却已经关机休息了!!! 回复 14# 131738
前辈为网友做的贡献还少吗?我所作的不值一提啊~ 呵呵 :)
页:
[1]
2