أعتقد أن السؤال واضح جدا و ياريت المساعدة يا شباب و لكن بكود بسيط و واضح لأن العديد من الأمثلة تكون معقدة جدا أو تستخدم عدد كبير من ال Modules و ال Classes فياريت Module بسيطة لهذه الوظيفة و تقوم بوضع النتائج فى Listbox
بأنتظار المساعدة :rolleyes:
كيف يمكن الحصول على قائمة البرامج بالجهاز و وضعها فى ListBox ؟
مغلق
يا أخي السؤال مكرر كثيراً !!!
استخدم الأمثلة التي حصلت عليها و غيرها الى ما تريد ...
نفس الطلب يتكرر كل فترة وفي نفس القسم ...
أقترح بتسمية هذا القسم قسم المكررات بدلاً من قسم الفيجوال بيسك ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
cipher كتب:يا أخي السؤال مكرر كثيراً !!!استخدم الأمثلة التي حصلت عليها و غيرها الى ما تريد ...
نفس الطلب يتكرر كل فترة وفي نفس القسم ...
أقترح بتسمية هذا القسم قسم المكررات بدلاً من قسم الفيجوال بيسك ...
يا أخى انا لم أجد أى نتائج لهذا الموضوع فى منتدانا و كان هناك موضوع على الرابط :
و كما يتضح لك أن الموضوع مكرر و لكن منذ ثلاث سنوات و لا يوجد أى رد
أما المثال الذى وجدته فهو مركب و هو ضمن برنامج أكبر و لم أتمكن من الأستفادة منه و لذلك فأمل أن تساعدونى فى أن نعد Module جديدة لتؤدى هذه الوظيفة
عذراً ! فهمت سؤالك بطريقة خطأ فظننت أنه مكرر :D
حقك علي
اقتباسأما المثال الذى وجدته فهو مركب و هو ضمن برنامج أكبر و لم أتمكن من الأستفادة منه و لذلك فأمل أن تساعدونى فى أن نعد Module جديدة لتؤدى هذه الوظيفة
أرفق المثال هنا إن أمكن ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
ألف شكر أخى على تعاونك
قد أرفقت المثال مع المرفقات و المطلوب هو أن يتحول المثال إلى صورة بسيطة مثلا:
Public Function GetInstalledPrograms(RetListBox as ListBox)
و ذلك فى Module واحدة فقط بحيث يسهل أستخدامه بعد ذلك فى العديد من البرامج الأخرى بسهولة
و بالرغم من أن المثال يبدوا بسيطا و لكن لم أتمكن من حصره فى Module بسيطة و جمع الوظائف المختلفة فى ذات ال Module
تم تعديل هذه المشاركة بواسطة xhacker في 18 يونيو 2006 في 21:45
كنت على وشك كتابة رد بأن ما تريد موجود في الرجيستري
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall
ومن إطلاع سريع على الكود للمثال الذي أرفقته وجدت هذا
EnumRegKeys(returnName, returnSubs, "HKEY_LOCAL_MACHINE", "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
ما تريده بالضبط هو :
'--- Retreive installed apps If GetApps Then DisplayPrograms 'display list of apps End If
عليك بتجميع كل ما له علاقة بـ GetApps و DisplayPrograms ...
إن شاء الله إن وجدت وقت سأقوم بتبسيط الكود :D
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
ياريت ياريت يا أخى لأننى حاولت و لم أستطيع أن أدمج الوظائف المختلفة بالإضافة إلى بعض الوظائف الموجودة بالModules الأخرى فى Module و Fuction واحدة
و انا بالأنتظار
راجع المرفق .
الدالة بالشكل
Public Function GetInstalledPrograms(RetListBox As ListBox, HotFix As Boolean) As Boolean
بامكانك إضافة تعديلات للكود حسب ما يتطلبه برنامجك
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
cipher كتب:راجع المرفق .الدالة بالشكل
Public Function GetInstalledPrograms(RetListBox As ListBox, HotFix As Boolean) As Booleanبامكانك إضافة تعديلات للكود حسب ما يتطلبه برنامجك
لم أصدق عندما قرأت الرد :rolleyes:
ألف ألف ألف شكر يا أخى على المساعدة (h)
هذا الموضوع مغلق.