Sadra viba
سه شنبه 08 مرداد 1392, 14:27 عصر
این کد این کار رو انجام می ده.
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
'ایجاد یک شی برای کار با رجیستری
Dim newkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\microsoft.windows\currentversion\run")
'آدرس فایل اصلی برنامه خود را در این جا قرار دهید که قرار است زمان بوت اجرا شود
Dim exeAdress As String = "C:\Users\Mostafa\Documents\Visual Studio 2010\Projects\exam\exam\bin\Debug\exam.exe"
'ایجاد یک کلید جدید و قرار دادن مقدار جدید در آن
newkey.SetValue("my project", exeAdress, RegistryValueKind.String)
'اعمال تغییرات و خروج
newkey.Flush()
newkey.Close()
End Sub
End Class
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click
'ایجاد یک شی برای کار با رجیستری
Dim newkey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\microsoft.windows\currentversion\run")
'آدرس فایل اصلی برنامه خود را در این جا قرار دهید که قرار است زمان بوت اجرا شود
Dim exeAdress As String = "C:\Users\Mostafa\Documents\Visual Studio 2010\Projects\exam\exam\bin\Debug\exam.exe"
'ایجاد یک کلید جدید و قرار دادن مقدار جدید در آن
newkey.SetValue("my project", exeAdress, RegistryValueKind.String)
'اعمال تغییرات و خروج
newkey.Flush()
newkey.Close()
End Sub
End Class