[VB]修改注册表让程序开机自动运行

Private Sub WriteRegedit()

    Dim w As Object
    Set w = CreateObject("wscript.shell")
    w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & _
                App.EXEName, _
                App.Path & "\" & App.EXEName & ".exe"
End Sub