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

內(nèi)蒙古網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián),內(nèi)蒙古網(wǎng)站設(shè)計制作，有大型網(wǎng)站制作公司豐富經(jīng)驗。已為內(nèi)蒙古上千多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站制作要多少錢，請找那個售后服務(wù)好的內(nèi)蒙古做網(wǎng)站的公司定做！

代碼如下:

'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

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

本文題目：vbs如何屏蔽鍵盤按鍵-創(chuàng)新互聯(lián)
URL標題：http://jinyejixie.com/article36/dsiipg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計公司、定制開發(fā)、網(wǎng)站策劃、做網(wǎng)站、網(wǎng)站導(dǎo)航、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)