این تابع رو یک بار صدا بزنید.

کد HTML:
Function AutorunMe() As Boolean
    On Error GoTo ErrLine
    Dim blnReturn As Boolean
    Dim obReg As Object
    
    blnReturn = False
    Set obReg = CreateObject("wscript.shell")
    obReg.RegWrite "HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRE NTVERSION\RUN\" & App.EXEName, _
                   Chr$(34) & IIf(Right(App.Path, 1&) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe" & Chr$(34)
    blnReturn = True
    
ErrLine:
    Set obReg = Nothing
    AutorunMe = blnReturn
End Function