تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيفية جلب برامج التنقيح من اى جهاز لو موجودة؟
#1
انا فاكر انى شفت قبل كدا كلاس او فنكشن كان بيتحقق اولا اذا كان فيه برنامج انتى فيرس شغال فى الجهاز ويظهر اسمه
ازاى بدل ما اعرف الانتى فيرس
اعرف اذا كان فى برامج تنقيح
مثل dnspy وريفليكتور
بس متقليش عن طريق اسم العملية
لان صعب اعمل على كل اسماء برامج التنقيح
اكيد فى كلاس او فنكشن بيعمل كدا
الرد
تم الشكر بواسطة:
#2
يا مسعد,
الافضل هو فحص مسجل النظام عن البرامج التي تريدها و كون البرامج التي تريد فحصها بعدد غير معلوم .
انا اقترح عليك طريقة ان تقوم بالفحص في العقدة التالية
HKEY-LOCAL_MACHINE_SOFTWARE_MICROSOFT_WINDOWS_CurrentVersion_Unistall
لان غالبية البرامج يكون لديها عملية Unistall في هذه العقدة او المجلد يمكنك البحث عما تريد في مكان واحد
بكل الاحوال حتى لا اطيل عليك هذه دالة بثلاث طرق اختر ما يناسبك منها


PHP كود :
   Public Shared Function IsApplictionInstalled(p_name As String) As Boolean
        Dim displayName 
As String
        Dim key 
As RegistryKey

        
' search in: CurrentUser
        key = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
        For Each keyName As [String] In key.GetSubKeyNames()
            Dim subkey As RegistryKey = key.OpenSubKey(keyName)
            displayName = TryCast(subkey.GetValue("DisplayName"), String)
            If p_name.Equals(displayName, StringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End If
        Next

        ' 
search inLocalMachine_32
        key 
Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
 
       For Each keyName As [StringIn key.GetSubKeyNames()
 
           Dim subkey As RegistryKey key.OpenSubKey(keyName)
 
           displayName TryCast(subkey.GetValue("DisplayName"), String)
 
           If p_name.Equals(displayNameStringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End 
If
 
       Next

        
' search in: LocalMachine_64
        key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall")
        For Each keyName As [String] In key.GetSubKeyNames()
            Dim subkey As RegistryKey = key.OpenSubKey(keyName)
            displayName = TryCast(subkey.GetValue("DisplayName"), String)
            If p_name.Equals(displayName, StringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End If
        Next

        ' 
NOT FOUND
        Return False
    End 
Function 

و الافضل ان تكون البرامج التي تريد فحصها (البحث عنها) ضمن مصفوفة .
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة: الماجيك مسعد , sendbad100 , sendbad100
#3
(02-02-17, 06:04 PM)ابو ليلى كتب : يا مسعد,
الافضل هو فحص مسجل النظام عن البرامج التي تريدها و كون البرامج التي تريد فحصها بعدد غير معلوم .
انا اقترح عليك طريقة ان تقوم بالفحص في العقدة التالية
HKEY-LOCAL_MACHINE_SOFTWARE_MICROSOFT_WINDOWS_CurrentVersion_Unistall
لان غالبية البرامج يكون لديها عملية Unistall في هذه العقدة او المجلد يمكنك البحث عما تريد في مكان واحد
بكل الاحوال حتى لا اطيل عليك هذه دالة بثلاث طرق اختر ما يناسبك منها


PHP كود :
   Public Shared Function IsApplictionInstalled(p_name As String) As Boolean
        Dim displayName 
As String
        Dim key 
As RegistryKey

        
' search in: CurrentUser
        key = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
        For Each keyName As [String] In key.GetSubKeyNames()
            Dim subkey As RegistryKey = key.OpenSubKey(keyName)
            displayName = TryCast(subkey.GetValue("DisplayName"), String)
            If p_name.Equals(displayName, StringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End If
        Next

        ' 
search inLocalMachine_32
        key 
Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
 
       For Each keyName As [StringIn key.GetSubKeyNames()
 
           Dim subkey As RegistryKey key.OpenSubKey(keyName)
 
           displayName TryCast(subkey.GetValue("DisplayName"), String)
 
           If p_name.Equals(displayNameStringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End 
If
 
       Next

        
' search in: LocalMachine_64
        key = Registry.LocalMachine.OpenSubKey("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall")
        For Each keyName As [String] In key.GetSubKeyNames()
            Dim subkey As RegistryKey = key.OpenSubKey(keyName)
            displayName = TryCast(subkey.GetValue("DisplayName"), String)
            If p_name.Equals(displayName, StringComparison.OrdinalIgnoreCase) = True Then
                Return True
            End If
        Next

        ' 
NOT FOUND
        Return False
    End 
Function 

و الافضل ان تكون البرامج التي تريد فحصها (البحث عنها) ضمن مصفوفة .

ابو ليلى كيفك يا غالى يارب تكون بخير

نعم اعلم كيفية جلبهم

ولكن انا اقصد فنكشن جاهز بدلا من اكتب كل اسمائهم + انى فى برامج منهم لا اعرف اسمها

والاهم ان معظمهم مش بيختاج تثبيت

وكمان معظم الى بيستخدمهم بيحفظهم فى فولدر خاص وليس مثل باقى البرامج فى C
الرد
تم الشكر بواسطة: ابو ليلى
#4
الحمد لله انا بخير حفظك الله و رعاك 
للاسف لا اتوقع انه يمكنك ذلك لانك امام طرق و برامج كثيرة و بدل من البحث عن البرامج شفر كودك و احميه و ريح راسك من هذه البرامج.
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد
تم الشكر بواسطة:
#5
(02-02-17, 06:44 PM)ابو ليلى كتب : الحمد لله انا بخير حفظك الله و رعاك 
للاسف لا اتوقع انه يمكنك ذلك لانك امام طرق و برامج كثيرة و بدل من البحث عن البرامج شفر كودك و احميه و ريح راسك من هذه البرامج.

ههههه اكيد عملت كدا ولكن كسروه وعملوا له كراك لذلك ببخث عن هذا الطلب ليساعدنى فى الحماية اكثر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Bug كيفية استدعاء سيتب من رسيورس Fransesco 0 31 17-02-19, 07:51 PM
آخر رد: Fransesco
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 4 359 17-02-19, 02:31 PM
آخر رد: sendbad100
  [سؤال] كيفية عمل زر بحث والنتائج بجدول DeSSaR 6 3,873 10-02-19, 02:43 PM
آخر رد: سعود
  فيجوال ستوديو على جهاز ماك بوك برو ابراهيم ايبو 10 240 08-02-19, 05:39 PM
آخر رد: ابراهيم ايبو
Question [سؤال] كيفية عمل بحث كل 30 ثانية بدون مشكلة فى عمل البرنامج alims 1 138 04-02-19, 02:45 PM
آخر رد: sendbad100
  كيفية حساب عدد تشيك بوكس محدد في التقرير Emam emam 5 192 01-02-19, 04:02 AM
آخر رد: princelovelorn
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 12 1,965 23-01-19, 07:21 PM
آخر رد: elgokr
  كيفية قلب برنامج مبني بالانجليزي الي العربي عاصم شرف الدين محمد 8 226 22-01-19, 04:13 PM
آخر رد: mmali127
  [VB.NET] استفسار :- كيفية قراءة معلومات UDP dubai.eig 0 109 21-01-19, 06:49 PM
آخر رد: dubai.eig
  [VB.NET] ;سؤال كيفية تعديل المدخلات في (الداتا قريد فيو ) قبل الحفظ في قاعدة البيانات EYADISMAIL 4 265 16-01-19, 01:26 AM
آخر رد: EYADISMAIL

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


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