91超碰碰碰碰久久久久久综合_超碰av人澡人澡人澡人澡人掠_国产黄大片在线观看画质优化_txt小说免费全本

溫馨提示×

溫馨提示×

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

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

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

剑川县| 宁强县| 资阳市| 阿荣旗| 登封市| 开远市| 彭山县| 海南省| 泰宁县| 鹿泉市| 永川市| 扎赉特旗| 嘉兴市| 怀仁县| 蕲春县| 文山县| 旌德县| 株洲市| 琼中| 敖汉旗| 宜丰县| 大足县| 盐亭县| 旬邑县| 银川市| 读书| 桃园县| 黄骅市| 沧州市| 壶关县| 玉田县| 泸西县| 涡阳县| 保定市| 电白县| 上饶县| 裕民县| 宁波市| 清苑县| 临朐县| 大余县|