vbs怎样把自身添加到自启动啊
答案:2 悬赏:40 手机版
解决时间 2021-04-02 13:08
- 提问者网友:低吟詩仙的傷
- 2021-04-02 00:30
vbs怎样把自身添加到自启动啊
最佳答案
- 五星知识达人网友:逐風
- 2021-04-02 00:50
Option Explicit
Dim strKey, strName, objShell, objFso
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
Set objShell = CreateObject("Wscript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
strName = objFso.GetBaseName(WScript.ScriptFullName)
objShell.RegWrite strKey & strName, "Wscript.exe """ & WScript.ScriptFullName & """", "REG_SZ"
Set objFso = Nothing
Set objShell = Nothing
Dim strKey, strName, objShell, objFso
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
Set objShell = CreateObject("Wscript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
strName = objFso.GetBaseName(WScript.ScriptFullName)
objShell.RegWrite strKey & strName, "Wscript.exe """ & WScript.ScriptFullName & """", "REG_SZ"
Set objFso = Nothing
Set objShell = Nothing
全部回答
- 1楼网友:人類模型
- 2021-04-02 01:14
在模块中添加api声明
Public Declare Function SHSetValue Lib "shlwapi.dll" Alias "SHSetValueA" (ByVal hKey As Long, ByVal pszSubKey As String, ByVal pszValue As String, ByVal dwType As Long, pvData As Any, ByVal cbData As Long) As Long
Public Const REG_SZ = 1
Public Const HKEY_LOCAL_MACHINE = &H80000002
在窗体事件中(如Command1_Click())添加dim StrPath as String
StrPath =app.Path & "" & app.ExeName & ".exe"
SHSetValue HKEY_LOCAL_MACHINE,"SoftwareMicrosoftWindowsCurrentversionRun",app.ExeName,REG_SZ,Byval StrPath,lenB(StrPath)
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯