這篇文章給大家分享的是有關(guān)怎么使用vbs腳本添加程序到自啟動(dòng)項(xiàng)的內(nèi)容。小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，一起跟隨小編過(guò)來(lái)看看吧。

網(wǎng)站建設(shè)哪家好，找創(chuàng)新互聯(lián)！專注于網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)站建設(shè)、微信開(kāi)發(fā)、小程序設(shè)計(jì)、集團(tuán)企業(yè)網(wǎng)站建設(shè)等服務(wù)項(xiàng)目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了葉縣免費(fèi)建站歡迎大家使用！

因編輯器過(guò)濾了一些字符，比如&，所以下面的腳本可能會(huì)運(yùn)行錯(cuò)誤。?？垂偬砑?amp;&這個(gè)字符就可以了。
vbs腳本的功能呢是很多的，不過(guò)有時(shí)候我們只需要其中的某些功能，今天我突然想研究下怎么用vbs腳本實(shí)現(xiàn)添加程序到自啟動(dòng)項(xiàng)......

首先來(lái)一段吧...

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME: add2run01.vbs
'
' AUTHOR: shile
' DATE : 2008-12-13
'
' COMMENT: vbs實(shí)現(xiàn)添加程序到自啟動(dòng)項(xiàng)
'
'==========================================================================
On Error Resume Next '出錯(cuò)繼續(xù)執(zhí)行下個(gè)命令
dim ws
Set ws=CreateObject("Wscript.Shell")
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"

竟然被360安全衛(wèi)士攔截了，不過(guò)點(diǎn)擊同意就可以了。在autoruns里面刷新后還是不能顯示這個(gè)啟動(dòng)項(xiàng)，看來(lái)這軟件不太完美.
功能太弱了，我想增強(qiáng)一下....
首先，彈個(gè)窗口詢問(wèn)詢問(wèn)添加什么程序到啟動(dòng)項(xiàng)，并且詢問(wèn)下啟動(dòng)項(xiàng)的鍵值。

復(fù)制代碼 代碼如下:

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME: add2run02.vbs
'
' AUTHOR: shile
' DATE : 2008-12-13
'
' COMMENT: vbs實(shí)現(xiàn)添加程序到自啟動(dòng)項(xiàng)
'
'==========================================================================
On Error Resume Next '出錯(cuò)繼續(xù)執(zhí)行下個(gè)命令
Dim ws
Set ws=CreateObject("Wscript.Shell")
Dim runKey,runPath
runKey = InputBox("輸入自啟動(dòng)項(xiàng)鍵值名稱","請(qǐng)輸入")
runPath = InputBox("輸入相應(yīng)的程序路徑","請(qǐng)輸入")

'ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\cmd","cmd.exe"
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"&runKey,runPath
'提示下
MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!"

本來(lái)要用vbOK的，但是發(fā)現(xiàn)還是兩個(gè)按鈕，還是vbYes好！
功能還是不太強(qiáng)的，如果能判斷是否存在已經(jīng)有的項(xiàng)，是否替換確認(rèn)，那么就比較完善了！
繼續(xù)下去...

復(fù)制代碼 代碼如下:

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1
'
' NAME: add2run03.vbs
'
' AUTHOR: shile
' DATE : 2008-12-13
'
' COMMENT: vbs實(shí)現(xiàn)添加程序到自啟動(dòng)項(xiàng)
'
'==========================================================================
On Error Resume Next '出錯(cuò)繼續(xù)執(zhí)行下個(gè)命令
dim ws
Set ws=CreateObject("Wscript.Shell")
Dim runKey,runPath
runKey = InputBox("輸入自啟動(dòng)項(xiàng)鍵值名稱","請(qǐng)輸入")
runPath = InputBox("輸入相應(yīng)的程序路徑","請(qǐng)輸入")
Dim temp,ret
temp = ws.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"&runKey)
'MsgBox temp
If temp <> Empty Then
ret = MsgBox( "鍵值"&runKey"已經(jīng)存在,其值為"&temp",是否替換為新的值"&runPath, vbOKCancel, "提示!")
If ret = vbOK Then
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"&runKey,runPath
MsgBox "修改"&runKey"值為"&runPath"成功",vbYes,"恭喜!"
End If
Else
ws.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"&runKey,runPath
MsgBox "添加"&runKey"<"&runPath">成功",vbYes,"恭喜!"
End If

當(dāng)然了，啟動(dòng)項(xiàng)在注冊(cè)表有很多地方，就不一一說(shuō)明了......

感謝各位的閱讀！關(guān)于“怎么使用vbs腳本添加程序到自啟動(dòng)項(xiàng)”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，讓大家可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到吧！

網(wǎng)站欄目：怎么使用vbs腳本添加程序到自啟動(dòng)項(xiàng)-創(chuàng)新互聯(lián)
網(wǎng)站地址：http://jinyejixie.com/article2/deheic.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、搜索引擎優(yōu)化、外貿(mào)網(wǎng)站建設(shè)、做網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)

廣告

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