+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طلب كود معين (/showthread.php?tid=18943)
طلب كود معين - MOSTAFA.KAMEL - 24-01-17
عايز اعرف عملت مشروع بس هو مش هيشتغل غير لما يكون برنامج معين موجود على الجهاز
ممكن حد يقولى مثال على اى برنامج
انا عايز اضيف البرنامج مع المشروع عايز لما اى شخص يشغل البرنامج عندو لو ملقاش البرنامج الثانى موجود فى الجهاز يسطبو هو من المشروع بس
ممكن حد يقولى مثال على اى برنامج
انا عايز اضيف البرنامج مع المشروع عايز لما اى شخص يشغل البرنامج عندو لو ملقاش البرنامج الثانى موجود فى الجهاز يسطبو هو من المشروع بس
RE: طلب كود معين - مساعدة - 24-01-17
السلام عليكم
هذا مثال عن التأكد من وجود برنامج 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 IfRE: طلب كود معين - MOSTAFA.KAMEL - 24-01-17
(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
طيب ماهو لو البرنامج مش موجود فى الجهاز انا عايز البرنامج بتاعى يسطب البرنامج عن طريق المشروع انا ضايف البرنامج فى مع ملفات المشروع
RE: طلب كود معين - MOSTAFA.KAMEL - 25-01-17
ممكن الحل من فضلك
RE: طلب كود معين - bakriano30@yahoo.com - 19-07-19
(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