Windows 작업 스케줄 입력 명령어

    Private Sub GoManager_main_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        '-- 시작할때 스케줄 체크해서 실행하기 -- 실제로 설치했을때만 스케줄을 등록
        Dim UpdateAppName As String = "AutoUpdate" '-- 업데이트 파일명(영문파일이름)
        Dim ProgramFolder As String = "TOPKIS" '-- 설치폴더명

        Dim UpdatePath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.ProgramFiles)
        UpdatePath += "\" & ProgramFolder & "\" & UpdateAppName & ".exe" '-- 업데이트 위치

        If File.Exists(UpdatePath) = True Then
            Dim REG_PATH As String = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Schedule\TaskCache\Tree\SERVICETOP"
            Dim CHK_REG As RegistryKey = Registry.LocalMachine.OpenSubKey(REG_PATH)
            Dim RUN_CMD As New ProcessStartInfo()
            RUN_CMD.Verb = "runas"
            RUN_CMD.FileName = "cmd.exe"
            RUN_CMD.Arguments = "/c  SCHTASKS /Create /SC ONLOGON /TN SERVICETOP\"
            RUN_CMD.Arguments += ProgramFolder & " /TR " & Chr(34) & Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
            RUN_CMD.Arguments += "\" & ProgramFolder & "\" & UpdateAppName & ".exe" & Chr(34) & " /RL HIGHEST"
            RUN_CMD.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(RUN_CMD) '- 스케줄 등록
        End If
    End Sub