午夜国产狂喷潮在线观看|国产AⅤ精品一区二区久久|中文字幕AV中文字幕|国产看片高清在线

    使用vbs腳本添加程序到自啟動項的代碼
    來源:易賢網(wǎng) 閱讀:2338 次 日期:2016-06-30 11:04:01
    溫馨提示:易賢網(wǎng)小編為您整理了“使用vbs腳本添加程序到自啟動項的代碼”,方便廣大網(wǎng)友查閱!

    因編輯器過濾了一些字符,比如&,所以下面的腳本可能會運行錯誤。??垂偬砑?amp;&這個字符就可以了。

    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

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

    更多信息請查看腳本欄目
    易賢網(wǎng)手機網(wǎng)站地址:使用vbs腳本添加程序到自啟動項的代碼

    2025國考·省考課程試聽報名

    • 報班類型
    • 姓名
    • 手機號
    • 驗證碼
    關于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機站點 | 投訴建議
    工業(yè)和信息化部備案號:滇ICP備2023014141號-1 云南省教育廳備案號:云教ICP備0901021 滇公網(wǎng)安備53010202001879號 人力資源服務許可證:(云)人服證字(2023)第0102001523號
    聯(lián)系電話:0871-65099533/13759567129 獲取招聘考試信息及咨詢關注公眾號:hfpxwx
    咨詢QQ:1093837350(9:00—18:00)版權所有:易賢網(wǎng)