programma far partire un programma ogni tot avvii del pc

#RequireAdmin
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$dir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
$Form1 = GUICreate("accensione pc manager", 601, 156, 192, 138)
$Label1 = GUICtrlCreateLabel("inserisci il percorso del programma che vuoi eseguire:", 24, 32, 254, 17)
$percorso = GUICtrlCreateInput("", 296, 32, 289, 21)
$Label2 = GUICtrlCreateLabel("inserisci ogne quante accensioni lo devo eseguire:", 24, 64, 242, 17)
$nacc = GUICtrlCreateInput("", 296, 64, 137, 21)
$agg = GUICtrlCreateButton("AGGIUNGI", 280, 112, 75, 25, $WS_GROUP)
$nm = FileRead("nm.txt")
GUISetState(@SW_SHOW)
While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $agg
                       $in = GUICtrlRead($nacc)
                       $in2 = GUICtrlRead($percorso)
                       DirCreate(@MyDocumentsDir & "\accensione pc\")
                       FileCopy($dir & "\accensione pc\" & "accensione pc.exe", @MyDocumentsDir & "\accensione pc\")
                       FileWrite(@MyDocumentsDir & "\accensione pc\" & $nm & "\settings.txt", $in & @CRLF & $in & @CRLF & $in2)
                       FileCreateShortcut(@MyDocumentsDir & "\accensione pc\" & $nm & "accensione pc.exe", "C:\Users\" & @UserName & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\accensione pc.lnk", @MyDocumentsDir & "\accensione pc\" & $nm)
                       MsgBox(0, "", "aggiunto")
       EndSwitch
WEnd

#RequireAdmin
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$1 = 0
$Form1 = GUICreate("installazione accensione pc", 259, 212, 192, 124)
$desk = GUICtrlCreateCheckbox("Crea un collegamento sul desktop", 20, 56, 260, 17)
$ist = GUICtrlCreateButton("installa", 80, 144, 55, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit
               Case $desk
                       $1 = 1
Case $ist
       $dir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
       DirCreate($dir & "\accensione pc" )
       DirCopy("dati" , $dir & "\accensione pc", 1)
       MsgBox(0,"","installato")
       if $1 = 1 Then
               FileCreateShortcut(  $dir & "\accensione pc\settatore.exe" , @DesktopDir & "\accensione pc manager.lnk" )
               EndIf
       EndSwitch
WEnd

$nvolte = FileReadLine("settings.txt" ,1 )
$nacc = FileReadLine("settings.txt" ,2 )
$nacc = $nacc - 1
$app = FileReadLine("settings.txt" , 3 )
If $nacc = 0 Then
       run ($app)
       $nacc = $nvolte
EndIf
FileDelete("settings.txt")
FileWrite("settings.txt" , $nvolte & @CRLF & $nacc  & @CRLF & $app)