[mudz]

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(ProductName, Application.ExecutablePath & " hide")
    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

                Exit For
            End If
        Next
    End Sub

[ابراهيم عمر ابراهيم]

شباب سلام بتمني إنو إلواحد لما يكتب الكود يوضح مكان تنزيله

[محمد ايمن]

شباب سلام بتمني إنو إلواحد لما يكتب الكود يوضح مكان تنزيله

Form1_Load

[paveldida]

ممكن كود الغاء الاقلاع التلقائي

[عبد العزيز البسكري]

قم باضافة اداة تشم بكس للكود أعلاه واعمل شرط

اذا true ..اقلاع تلقاىي

[HALIM ELEULMA]

في Visual Basic .NET يمكنك إضافة البرنامج إلى مفاتيح التسجيل في Windows لتشغيله تلقائياً عند بدء التشغيل. هذا يتطلب تعديل سجل النظام باستخدام مكتبة

كود :

Microsoft.Win32

. إليك كيفية القيام بذلك:

PHP كود :

Imports Microsoft.Win32

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)

        If regKey.GetValue("MyApplicationName") Is Nothing Then
            regKey.SetValue("MyApplicationName", Application.ExecutablePath)
        End If
        regKey.Close()
    End Sub
End Class 


في هذا المثال، يتم فتح المسار

كود :

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

في سجل النظام. ثم يتم التحقق مما إذا كان مفتاح تشغيل البرنامج "MyApplicationName" موجود بالفعل أم لا. إذا كان غير موجود، يتم إنشاؤه وتعيين مسار التطبيق

كود :

Application.ExecutablePath

كقيمة لهذا المفتاح.

يجب أن تحلّل اسم التطبيق "MyApplicationName" وفقًا لاسم التطبيق الخاص بك. كما يجب التأكد من الحصول على الصلاحيات الكافية لتعديل مفاتيح التسجيل على النظام.

[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

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