수다닷컴

Private Sub Form_Load()
Option Explicit
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Private Declare Function RegSetValueEx Lib advapi32 Alias RegSetValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCreateKey Lib advapi32.dll Alias RegCreateKeyA (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib advapi32.dll (ByVal hKey As Long) As Long
Private Sub SaveRegValue(ByVal RootKeyName As Long, ByVal SubKeyName As String, ByVal ValueName As String, ByRef KeyValue As String)
Dim iLen As Integer
Dim KeyHand As Long
iLen = LenB(StrConv(KeyValue, vbFromUnicode))
Call RegCreateKey(RootKeyName, SubKeyName, KeyHand) Call RegSetValueEx(KeyHand, ValueName, 0, REG_SZ, ByVal KeyValue, iLen)
Call RegCloseKey(KeyHand)
End Sub

Private Sub Command1_Click()
SaveRegValue HKEY_LOCAL_MACHINE, SOFTWARE\Microsoft\Windows\CurrentVersion\Run, a, a
End Sub
이렇게적엇는데그래요....

신청하기