본문으로 바로가기
반응형

저는 제가 원하는 프로그램을 윈도우 서비스 , 작업 스케줄러에 등록을 해보았지만 오류가 뜨거나 정상적으로 자동으로 실행 되지 않아서 시작프로그램 등록 프로그램을 만들기 로 했습니다.

위의 디자인 처럼 폼을 만들어 줍니다.(버튼 3개, 텍스트박스 2개)

└ Textbox2.Text 는 프로그램 이름을 정하는것인데 사용 해보니 의미가 없더군요

프로그램 찾기 버튼에서는 우리는 프로그램 등록을위한 위치와 파일명을 OpenFileDialog를 사용하여 가져올 예정입니다.

 

프로그램 찾기 버튼
Dim ofd As New OpenFileDialog()

ofd.FileName = ""
ofd.InitialDirectory = "C:\"
ofd.Filter = ""
ofd.FilterIndex = 2
ofd.Title = "프로그램을 선택하세요."
ofd.RestoreDirectory = True
ofd.CheckFileExists = True
ofd.CheckPathExists = True

If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
      TextBox1.Text = ofd.FileName
End If

 

시작 프로그램 등록 버튼
Dim Path As String
Path = TextBox1.Text
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\windows\CurrentVersion\Run", TextBox2.Text, Path)
MsgBox("이것은 잘 등록됬읍니다.", MsgBoxStyle.Information, "시작프로그램 등록")

 

시작 프로그램 삭제 버튼
Dim Path As String
Path = TextBox1.Text ''실행파일 경로와 실행파일 이름을 저장
My.Computer.Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\windows\CurrentVersion\Run").DeleteValue(TextBox2.Text)
MsgBox("이것은 잘 지워졌읍니다.", MsgBoxStyle.Information, "시작프로그램 해제")

시작 프로그램 등록 및 삭제가 잘 되었는지 안되었는지 확인 하는 방법은 작업관리자 > 시작프로그램 에서 확인 가능합니다.

참고할 수 있도록 아래에 만든 프로그램 첨부 해드립니다!

WindowsApp1.zip
0.47MB

 

반응형