تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود تشغيل البرنامج مع بدء التشغيل
#1
كود :
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
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

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

Form1_Load
الرد }}}
تم الشكر بواسطة:
#4
ممكن كود الغاء الاقلاع التلقائي
الرد }}}
تم الشكر بواسطة:
#5
قم باضافة اداة تشم بكس للكود أعلاه واعمل شرط
اذا true ..اقلاع تلقاىي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: أبووسم
#6
في 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" وفقًا لاسم التطبيق الخاص بك. كما يجب التأكد من الحصول على الصلاحيات الكافية لتعديل مفاتيح التسجيل على النظام.
الرد }}}
تم الشكر بواسطة:
#7
الكود الذي قدمته لديه بعض المشكلات. فيما يلي الكود المصحح


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 0 876 03-09-22, 12:51 AM
آخر رد: سعود
  كيفية عمل شاشة تحميل البرنامج بطريقة اجمل من ال Progress bar Saly nor 0 1,875 12-04-22, 04:20 AM
آخر رد: Saly nor
  منع تشغيل اكثر من نسخة للتطبيق (السهل اللذي كنت اظنه صعبا) سعود 2 2,189 02-02-21, 05:22 AM
آخر رد: سعود
  حل مشكلة دقة الشاشة مع البرنامج و التقارير Vb.net Reports RDLC Scaling Problem محمود بكرى 5 3,621 20-03-20, 12:40 AM
آخر رد: Alhootti1
Star [كود] كود مع مثال لجعل البرنامج يعمل بالتاريخ الهجري او الميلادي بغض النظر عن تاريخ الجهاز sendbad100 36 23,508 29-02-20, 08:38 AM
آخر رد: دمعة المقهور
  [VB.NET] تشغيل قاعدة البيانات التي على السيرفر من اي جهاز على الشبكة ahmed saleh 4 6,126 10-03-19, 09:49 AM
آخر رد: معتز حسن
Exclamation [سؤال] اريد كود او الطريقة التي تشغل البرنامج اوتوماتيك عند تشغيل الجهاز YousefOkasha 3 3,775 24-04-18, 05:30 PM
آخر رد: moniam
Smile كود حصري لجعل البرنامج لا يعمل أكثر من مرة للمستخدم YousefOkasha 2 3,856 01-02-18, 11:50 AM
آخر رد: طالب برمجة
  [كود] تصدير واستيراد إعدادات البرنامج @@أبورائد@@ 10 9,581 04-07-17, 07:32 PM
آخر رد: Mina Botros
  اريد تحزيم البرنامج بعيدا عن مشاكل الفريمورك بحيث يشتغل في اي جهاز ماهي الطريقة samirzaima 3 3,961 09-05-17, 09:30 PM
آخر رد: Ratchinko

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم