要一個最短的寫入註冊表VB代碼

Question

目的: 寫入software\microsoft\windows\currentversion\run
          來運行C:\1.exe
我的vb code有很多行, 所以我希望大家能給一個最短的寫入註冊表VB代碼

Answer 1

API和常数声明自己找call writeKeyValue(HKEY_CURRENT_USER, "software\microsoft\windows\currentversion\run", "1.exe", "1.exe", REG_SZ)Public Function writeKeyValue(lPredefinedKey As Long, sKeyName As String, sValueName As String, vValueSetting As Variant, lValueType As Long)
       Dim lRetVal As Long
       Dim hKey As Long       lRetVal = RegOpenKeyEx(lPredefinedKey, sKeyName, 0, KEY_ALL_ACCESS, hKey)
       Select Case lType
           Case REG_SZ
               lRetVal = RegSetValueExString(hKey, sValueName, 0&, lValueType, vValueSetting, Len(vValueSetting))
           Case REG_DWORD
               lRetVal = RegSetValueExLong(hKey, sValueName, 0&, lValueType, vValueSetting, 4)
       End Select
       RegCloseKey (hKey)
End Function

Answer 2

做一个 reg 文件放在程序目录下shell "regedit.exe /s """ & app.path & "\1.reg"""

Answer 3

添加这个模块到工程:http://www.m5home.com/bbs/dispbbs.asp?boardID=10&ID=422&page=1然后这样:SetStringValue "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "1.exe", "C:\1.exe"这个应该简单了吧