使用vbs腳本添加程序到自啟動項的代碼

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

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

首先來一段吧...

復制代碼代碼如下:

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

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

復制代碼代碼如下:

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

'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,"恭喜!" 

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

復制代碼代碼如下:

 
'========================================================================== 
' 
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.1 
' 
' NAME: add2run03.vbs 
' 
' AUTHOR: shile 
' DATE : 2008-12-13 
' 
' COMMENT: vbs實現(xiàn)添加程序到自啟動項 
' 
'========================================================================== 
On Error Resume Next '出錯繼續(xù)執(zhí)行下個命令 
dim ws 
Set ws=CreateObject("Wscript.Shell") 
Dim runKey,runPath 
runKey = InputBox("輸入自啟動項鍵值名稱","請輸入") 
runPath = InputBox("輸入相應的程序路徑","請輸入") 
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 

當然了，啟動項在注冊表有很多地方，就不一一說明了......

上一篇：vbs 多線程下載實現(xiàn)代碼

欄目：vb

下一篇：vb 中的MD5加密在asp.net中的實現(xiàn)

本文標題：使用vbs腳本添加程序到自啟動項的代碼

本文地址：http://mengdiqiu.com.cn/a1/vb/7339.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

使用vbs腳本添加程序到自啟動項的代碼

您可能感興趣的文章

閱讀排行

本欄相關

隨機閱讀