中文字幕av专区_日韩电影在线播放_精品国产精品久久一区免费式_av在线免费观看网站

溫馨提示×

溫馨提示×

您好,登錄后才能下訂單哦!

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務條款》

vbs如何屏蔽鍵盤按鍵

發布時間:2021-10-12 11:22:42 來源:億速云 閱讀:179 作者:小新 欄目:開發技術

這篇文章將為大家詳細講解有關vbs如何屏蔽鍵盤按鍵,小編覺得挺實用的,因此分享給大家做個參考,希望大家閱讀完這篇文章后可以有所收獲。

代碼如下:

'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

關于“vbs如何屏蔽鍵盤按鍵”這篇文章就分享到這里了,希望以上內容可以對大家有一定的幫助,使各位可以學到更多知識,如果覺得文章不錯,請把它分享出去讓更多的人看到。

向AI問一下細節

免責聲明:本站發布的內容(圖片、視頻和文字)以原創、轉載和分享為主,文章觀點不代表本網站立場,如果涉及侵權請聯系站長郵箱:is@yisu.com進行舉報,并提供相關證據,一經查實,將立刻刪除涉嫌侵權內容。

vbs
AI

绍兴市| 九台市| 新余市| 正蓝旗| 广丰县| 霞浦县| 历史| 博客| 灌阳县| 枣庄市| 米泉市| 德昌县| 沛县| 忻城县| 赣州市| 鸡泽县| 乳山市| 贺州市| 南华县| 连城县| 台江县| 琼结县| 涿州市| 赤峰市| 偃师市| 长葛市| 大悟县| 三门峡市| 沙洋县| 中宁县| 绥江县| 若羌县| 台南市| 南投县| 卓尼县| 阿拉善右旗| 横峰县| 娱乐| 湾仔区| 北票市| 民乐县|