[Kamil]

الكود الذي قدمته لديه بعض المشكلات. فيما يلي الكود المصحح

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' الطريقة الأولى: باستخدام My.Application.Info.AssemblyName
    Dim keyName As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    Dim valueName As String = My.Application.Info.AssemblyName

    ' الطريقة الثانية: باستخدام ProductName
    ' Dim keyName As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
    ' Dim valueName As String = ProductName

    Dim registryKey As Microsoft.Win32.RegistryKey = _
        Microsoft.Win32.Registry.LocalMachine.OpenSubKey(keyName, True)

    If registryKey Is Nothing Then
        registryKey = Microsoft.Win32.Registry.LocalMachine.CreateSubKey(keyName)
    End If

    ' تعيين قيمة التسجيل لتشغيل البرنامج عند بدء التشغيل
    registryKey.SetValue(valueName, Application.ExecutablePath & " hide")
    registryKey.Close()
End Sub

Private Sub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
    For Each s As String In My.Application.CommandLineArgs
        If s.ToLower.StartsWith("hide") Then
            ' قم بإخفاء النافذة إذا كانت السطر الأول يبدأ بـ "hide"
            Me.Hide()
            Exit For
        End If
    Next
End Sub 


في هذا الكود، يتم تعيين القيمة في التسجيل باستخدام اسم التطبيق (

كود :

My.Application.Info.AssemblyName

) أو باستخدام

كود :

ProductName

(حسب تعليقك في الكود). يتم فحص إذا ما كان المفتاح قد تم إنشاؤه بالفعل، وإذا لم يكن كذلك، يتم إنشاء المفتاح.