تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود معين
#1
عايز اعرف عملت مشروع بس هو مش هيشتغل غير لما يكون برنامج معين موجود على الجهاز

ممكن حد يقولى مثال على اى برنامج

انا عايز اضيف البرنامج مع المشروع عايز لما اى شخص يشغل البرنامج عندو لو ملقاش البرنامج الثانى موجود فى الجهاز يسطبو هو من المشروع بس

الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

هذا مثال عن التأكد من وجود برنامج Acrobat Reader من شركة Adobe
كود :
Dim company As Microsoft.Win32.RegistryKey
company = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Adobe")
If company IsNot Nothing Then
    ' قراءة جميع برامج الشركة
    Dim softwares() As String = company.GetSubKeyNames
    ' يجب تطابق حالة الأحرف الكبيرة والصغيرة
    If softwares.Contains("Acrobat Reader") Then
        MessageBox.Show("البرنامج موجود")
    Else
        MessageBox.Show("البرنامج غير موجود")
    End If
Else
    MessageBox.Show("اسم الشركة غير موجود")
End If
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#3
(24-01-17, 08:59 PM)مساعدة كتب : السلام عليكم

هذا مثال عن التأكد من وجود برنامج Acrobat Reader من شركة Adobe
كود :
Dim company As Microsoft.Win32.RegistryKey
company = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Adobe")
If company IsNot Nothing Then
   ' قراءة جميع برامج الشركة
   Dim softwares() As String = company.GetSubKeyNames
   ' يجب تطابق حالة الأحرف الكبيرة والصغيرة
   If softwares.Contains("Acrobat Reader") Then
       MessageBox.Show("البرنامج موجود")
   Else
       MessageBox.Show("البرنامج غير موجود")
   End If
Else
   MessageBox.Show("اسم الشركة غير موجود")
End If

طيب ماهو لو البرنامج مش موجود فى الجهاز انا عايز البرنامج بتاعى يسطب البرنامج عن طريق المشروع انا ضايف البرنامج فى مع ملفات المشروع
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
ممكن الحل من فضلك
الرد }}}
تم الشكر بواسطة:
#5
(25-01-17, 05:24 PM)MOSTAFA.KAMEL كتب : ممكن الحل من فضلك

اضف نسخه من البرنامج المراد تنصيبه ويفضل ان تكون نسخه تنصيب صامته وضع هذا الكود مع تعديل مسار البرنامج كما موضح 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim company As Microsoft.Win32.RegistryKey
        company = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE").OpenSubKey("Adobe")
        If company IsNot Nothing Then
            ' قراءة جميع برامج الشركة
            Dim softwares() As String = company.GetSubKeyNames
            ' يجب تطابق حالة الأحرف الكبيرة والصغيرة
            If softwares.Contains("Acrobat Reader") Then
                MessageBox.Show("البرنامج موجود")
            Else
                MessageBox.Show("البرنامج غير موجود")
                Process.Start("notepad.exe")
            End If
        Else
            MessageBox.Show("اسم الشركة غير موجود")
        End If

    End Sub
الرد }}}
تم الشكر بواسطة: سعود , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
Lightbulb [VB.NET] إطهار الصورة بمقاس معين في DataGridView أبو خالد الشكري 2 323 14-12-23, 03:01 PM
آخر رد: أبو خالد الشكري
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  إجبار المستخدم على إدخال عدد معين من الأرقام Ahmed.vb 6 656 20-10-23, 10:25 AM
آخر رد: atefkhalf2004
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 909 11-10-23, 10:35 PM
آخر رد: aljzazy
  حفظ المشروع بامتداد معين غير معروف مسبقا Abo Louay 0 262 29-09-23, 02:55 AM
آخر رد: Abo Louay
  عندما اقوم بالاستعلام عن تاريخ معين بواسطة SELECT لايقوم بتحديد نفس تاريخ اليوم moh61 1 403 13-08-23, 01:06 PM
آخر رد: تركي الحلواني
  اريد البحث عن ID داخل ListView من قاعدة بيانات لكل صنف معين moh61 6 696 26-07-23, 05:47 AM
آخر رد: Taha Okla
  إخفاء الصفر في عمود معين kebboud 0 299 01-07-23, 03:32 AM
آخر رد: kebboud

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


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