復制代碼 代碼如下:
'code BY 傷腦筋 www.ntbak.cn www.jb51.net
'copy to filename.vbs
dim num,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)
Set fso = CreateObject("Scripting.FileSystemObject")
set Wsh = WScript.CreateObject("WScript.Shell")
pathname = Wsh.SpecialFolders("AllUsersStartMenu")+"\程序\附件\輔助工具\"
for i = 0 to UBound(var)
set Link = Wsh.CreateShortcut(pathname+var(i)+".lnk")
Link.TargetPath = "conime.exe"
Link.Hotkey = var(i)
Link.Save
Set File = fso.GetFile(pathname+var(i)+".lnk")
file.Attributes = 2 + 4
next
您可能感興趣的文章:- javascript屏蔽右鍵代碼
- jquery禁用右鍵單擊功能屏蔽F5刷新
- 屏蔽網頁右鍵復制和ctrl+c復制的js代碼
- 屏蔽Flash右鍵信息的js代碼
- 網頁屏蔽(左右鍵,代碼等)的非JS方法
- 屏蔽端口的vbs腳本
- vbs之使用Internet Explorer 屏蔽密碼
- VB使用XMLHTTP實現Post與Get的方法
- VB讀取線程、句柄及寫入內存的API代碼實例
- VB實現的倒計時類代碼詳解
- VB調用Word拼寫檢查功能實例
- VB實現屏蔽文本框右鍵菜單的復制、粘貼等功能的方法
