طلب كود معين - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 RE: طلب كود معين - MOSTAFA.KAMEL - 24-01-17 (24-01-17, 08:59 PM)مساعدة كتب : السلام عليكم طيب ماهو لو البرنامج مش موجود فى الجهاز انا عايز البرنامج بتاعى يسطب البرنامج عن طريق المشروع انا ضايف البرنامج فى مع ملفات المشروع 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 |