시작 폴더의 바로 가기가 Visual Basic 응용 프로그램에 대한 올바른 설정을로드하지 않습니다.

Question

최근에는 Microsoft Visual Basic 2010 Express로 시작했으며 URL을 브라우저 구성 요소로로드하는 응용 프로그램을 만들고 있습니다.

사용자가 구성 할 수있는 설정 중 하나는 'Windows가 시작될 때 앱 시작'입니다. 이 확인란을 선택하고 사용자가 자신의 환경 설정을 저장하면 Microsoft 시작 폴더에 바로 가기가 만들어 지므로 Windows가 시작될 때 응용 프로그램이 실행됩니다.

내가 그렇게 다음 코드를 사용하여 수행합니다

My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath) 
Dim startup As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup) 
IO.File.Copy(Application.ExecutablePath, startup & "\ApplicationName.exe") 

문제는 내가 Visual Basic의 바탕 화면에있는 설치 또는 메뉴 programfolder 시작을하게하는 바로 가기를 사용할 때보다,이다, 그것은 설정을로드 사용자가 정의한 그러나 시작 폴더의 바로 가기가 실행되면 기본적으로 모든 설정이 포함 된 완전히 새로운 응용 프로그램 정렬이로드됩니다.

내가 뭘 잘못하고 있는지 알고있는 사람은 누구입니까? 나는 인터넷을 많이 검색했고 또한 StackOverflow 주제를 copying app shortcut to startup folder VB과 같이 보았다. (어느 것이 나를 위해 작동하지 않았다.)

어떤 도움을 주시면 감사하겠습니다. 더 많은 정보가 필요하시면 부탁하십시오. 최대한 빨리 살펴 보겠습니다.

Answer 1

바로 가기를 만들지 않으므로 실행 파일을 시작 폴더에 복사하고 있습니다 !! 이 복사 된 실행 파일은 설정 파일을 찾지 못해 새로운 파일을 생성합니다! 이 디폴트 값을 보여줍니다 이유는 ... 바로 가기가 추가> 프로젝트 -> refrences-에서 "COM"탭에서 "Windows 스크립트 호스트 개체 모델"을 가져올 수 있도록 .. 빠른 회신

Dim oShell As IWshRuntimeLibrary.WshShell 
Dim oShortCut As IWshRuntimeLibrary.WshShortcut 

oShell = New IWshRuntimeLibrary.WshShell 
oShortCut = oShell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Startup) & _ 
                "\" & GetFileName(Application.ExecutablePath) & ".lnk") 
Dim s = Environment.GetFolderPath(Environment.SpecialFolder.Startup) 
With oShortCut 
    .TargetPath = Application.ExecutablePath 
    .Arguments = "" 
    .WorkingDirectory = GetDirectoryName(Application.ExecutablePath) 
End With 
oShortCut.Save() 
oShortCut = Nothing : oShell = Nothing