建议帮助示例中的 “打开这个脚本” 恢复以前版本的打开形式

131738

新版点击　“打开这个脚本”　后直接跳出运行结果

１。有些在　SciTE.exe　的《结果输出》显示的运行信息无法看到了。

２。如要利用、修改、研读某个例中脚本时，就要费些功夫了。

破帽遮颜

同感~~~~~~~~~~~~~

qq342252004

如果可以做到 点击　“打开这个脚本”　后直接跳出运行结果 关闭后再在SciTE.exe中显示例子的源码就好了。

fongshun

在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)

----
如果不行的话把代码的注释部分取消 再运行一次
----

131738

回复 4# fongshun

高！高！！实在是高也！！！！谢谢！！！！！

131738

在autoit安装目录下新建个脚本，然后运行：
fongshun 发表于 2009-12-21 15:20

谢谢你回帖的解决方法！但又出现新问题：AU3文件没有了右键“运行脚本”选项了，此项变为“编辑脚本”了！！！　

131738

估计修改注册表不是办法？！AU3内定的吧？！。。。

afan

回复 7# 131738


    是修改注册表~

131738

回复 8# afan

如果是，则4楼修改可能不对吧？。。。。。。。

afan

回复 9# 131738


    他修改的不完整。。。 一会我再看看

131738

鼠标停留头像的提示是否在线的信息老是不对。。。。。。

afan

回复 11# 131738


    是啊，没办法，貌似永久的BUG

afan

回复 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

回复 13# afan

谢谢！！！这才是AU3高手！！！特别佩服你是正则表达式专家！！！！

建议改改标题，移到资料区，以利更多新手！！！！辛苦你了，凌晨1点还在帮人解决问题，可叹提问的我却已经关机休息了！！！

afan

回复 14# 131738


    前辈为网友做的贡献还少吗？我所作的不值一提啊~ 呵呵 ：）