منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود تشغيل البرنامج مع بدء التشغيل

كود :
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

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

(13-02-20, 01:42 PM)ابراهيم عمر ابراهيم كتب : [ -> ]شباب سلام بتمني إنو إلواحد لما يكتب الكود يوضح مكان تنزيله

Form1_Load

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

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

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

في 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" وفقًا لاسم التطبيق الخاص بك. كما يجب التأكد من الحصول على الصلاحيات الكافية لتعديل مفاتيح التسجيل على النظام.

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mudz

ابراهيم عمر ابراهيم

محمد ايمن

paveldida

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

HALIM ELEULMA

Kamil