无忧启动论坛

标题: 绿化版的AutoIT3201带教程 [打印本页]

作者: UID 时间: 2007-3-30 11:23
标题: 绿化版的AutoIT3201带教程
下载地址:http://www.xdowns.com/soft/38/121/2006/Soft_34310.html

'右键关联.VBS
'版权所有:福州子夜狂风
Function GetPath
'' Retrieve path to the script file
Dim path
path = WScript.ScriptFullName '' Script file name
GetPath = Left(path, InstrRev(path, "\")-1)
End Function

Dim WSHShell
WScript.echo "将要设置AutoIT 3的目录为："&GetPath()
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.RegWrite "HKCR\.AU3\","AutoIT3"
WSHShell.RegWrite "HKCR\AutoIT3\","AutoIT3程序文件"
WSHShell.RegWrite "HKCR\AutoIT3\Shell\Open\Command\",Chr(34)&GetPath()&"\AutoIt3.EXE"&Chr(34)&SPACE(1)&Chr(34)&"%1"&Chr(34),"REG_SZ"
WSHShell.RegWrite "HKCR\AutoIT3\Shell\Edit\","用SciTE编辑","REG_SZ"
WSHShell.RegWrite "HKCR\AutoIT3\Shell\Edit\command\",Chr(34)&GetPath()&"\SciTE\SciTE.EXE"&Chr(34)&SPACE(1)&Chr(34)&"%1"&Chr(34),"REG_SZ"
'因为目录中很可能有空格,会被解释为多个参数,所以要用CHR(34)给路径强行加上双引号;
'因为参数也可能是包含路径的文件名,所以也要做相同处理;
'程序与参数间要用SPACE(1)来加空格,直接在路径中加空格是行不通的,注册表里解释时会出错
MsgBOX "已经OK!"
WScript.Quit '' Terminate script.

[ 本帖最后由 UID 于 2007-3-30 11:30 AM 编辑 ]

作者: newton 时间: 2007-3-30 15:43
写脚本的哦~~不错不错

作者: longteeth 时间: 2007-3-30 15:48
看了,试一下先

作者: wanghh 时间: 2007-3-31 07:12
不明白。:hug:

作者: UID 时间: 2007-3-31 12:47

原帖由 wanghh 于 2007-3-31 07:12 AM 发表
不明白。:hug:

绿化版没有关联右键，大家写出来的.AU3文件要执行就要关联一下，我的脚本你可以抄下来生成个.VBS的文件，放在软件解压后的目录里执行，脚本会自动把.AU3文件关联到当前目录下的程序(执行与编辑)，你把AUTOIT搬地方后只要再执行下脚本，就可以修正关联

欢迎光临无忧启动论坛 (http://bbs.wuyou.net/)