تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جلب التاريخ بتنسيق معين mr_hso 4 190 14-09-20, 05:26 PM
آخر رد: mr_hso
  طريقه تحميع كميات صنف معين فى الداتا جريد فيو بباركود الصنف خالد كامل1 1 165 31-08-20, 10:23 AM
آخر رد: Anas Mahmoud
  [VB.NET] مساعدة في تلوين صف معين في الداتا قريد فيو حسب قيمه نصية العطر الرايق 8 308 09-08-20, 01:13 AM
آخر رد: العطر الرايق
  ياشباب محتاج كود صغير يقوم بالبحث عن حقل معين فلتر بال Datagridview moh61 13 3,864 21-07-20, 11:48 PM
آخر رد: alessam4pro
  [VB.NET] تشغيل جزء معين من البرنامج عن طريق الريجستري Codack 1 258 09-07-20, 02:11 AM
آخر رد: Codack
Lightbulb [VB.NET] اظهار نص عند تحرك النص على جزء معين من Picturebox Doctor GME 3 254 31-05-20, 04:13 AM
آخر رد: ابراهيم ايبو
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 288 23-05-20, 01:09 AM
آخر رد: x4ahmad
  تنفيذ امر معين عندما يهنج البرنامج ( التوقف) atefkhalf2004 2 247 01-05-20, 11:17 PM
آخر رد: atefkhalf2004
  [VB.NET] اضافة عدد معين على كل الاسماء دفعة واحدة EMADSSS 4 368 20-03-20, 02:25 PM
آخر رد: EMADSSS
  محتاج مثال سورس ... إظهار تنبية لتاريخ معين .. يعني عندما يأتي تاريخ اليوم المطلوب ي mohamedwasef35 4 538 08-03-20, 12:18 PM
آخر رد: aldery

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


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