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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : كود تشغيل البرنامج مع بدء التشغيل (/showthread.php?tid=10936)



كود تشغيل البرنامج مع بدء التشغيل - mudz - 17-12-14

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



RE: كود تشغيل البرنامج مع بدء التشغيل - ابراهيم عمر ابراهيم - 13-02-20

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


RE: كود تشغيل البرنامج مع بدء التشغيل - محمد ايمن - 01-03-20

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

Form1_Load


RE: كود تشغيل البرنامج مع بدء التشغيل - paveldida - 14-12-20

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


RE: كود تشغيل البرنامج مع بدء التشغيل - عبد العزيز البسكري - 15-12-20

قم باضافة اداة تشم بكس للكود أعلاه واعمل شرط
اذا true ..اقلاع تلقاىي



RE: كود تشغيل البرنامج مع بدء التشغيل - HALIM ELEULMA - 06-01-24

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

PHP كود :
Imports Microsoft.Win32

Public Class Form1
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles 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" وفقًا لاسم التطبيق الخاص بك. كما يجب التأكد من الحصول على الصلاحيات الكافية لتعديل مفاتيح التسجيل على النظام.


RE: كود تشغيل البرنامج مع بدء التشغيل - Kamil - 06-01-24

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


PHP كود :
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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(keyNameTrue)

 
   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
(حسب تعليقك في الكود). يتم فحص إذا ما كان المفتاح قد تم إنشاؤه بالفعل، وإذا لم يكن كذلك، يتم إنشاء المفتاح.