ROSTAM2
شنبه 08 مهر 1402, 19:22 عصر
در این ویدئوی آموزشی دو متود یکی برای اضافه کردن و یکی برای حرف کردن برنامه از رجیستری بخش Startup ویندوز ایجاد می شود و در تنظیمات برنامه با تغییر مقدار یک CheckBox و پس از ثبت، تغییرات در رجیستری اعمال می شود...
https://aparat.com/v/bzjWM (https://aparat.com/v/bzjWM)
متود ها:
''' <summary>
''' SOFTWARE\Microsoft\Windows\CurrentVersion\Run
''' </summary>
Protected Friend Sub AddToStartup()
With Microsoft.Win32.Registry.CurrentUser
With .OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
.SetValue(Application.Info.Title, String.Format("{2}{0}\{1}.exe{2}", Application.Info.DirectoryPath, Application.Info.AssemblyName, Chr(34)))
End With
End With
End Sub
''' <summary>
''' SOFTWARE\Microsoft\Windows\CurrentVersion\Run
''' </summary>
Protected Friend Sub RemoveFromStartup()
With Microsoft.Win32.Registry.CurrentUser
With .OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
.DeleteValue(Application.Info.Title)
End With
End With
End Sub
دستور اعمال تغییرات:
'Statement: Add or Remove software from Windows Startup
If AddToStartup = True Then
My.Application.AddToStartup()
Else
My.Application.RemoveFromStartup()
End If
https://aparat.com/v/bzjWM (https://aparat.com/v/bzjWM)
متود ها:
''' <summary>
''' SOFTWARE\Microsoft\Windows\CurrentVersion\Run
''' </summary>
Protected Friend Sub AddToStartup()
With Microsoft.Win32.Registry.CurrentUser
With .OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
.SetValue(Application.Info.Title, String.Format("{2}{0}\{1}.exe{2}", Application.Info.DirectoryPath, Application.Info.AssemblyName, Chr(34)))
End With
End With
End Sub
''' <summary>
''' SOFTWARE\Microsoft\Windows\CurrentVersion\Run
''' </summary>
Protected Friend Sub RemoveFromStartup()
With Microsoft.Win32.Registry.CurrentUser
With .OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
.DeleteValue(Application.Info.Title)
End With
End With
End Sub
دستور اعمال تغییرات:
'Statement: Add or Remove software from Windows Startup
If AddToStartup = True Then
My.Application.AddToStartup()
Else
My.Application.RemoveFromStartup()
End If