تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة الانتي فيروس المسطب على الوندز
#1
السلام عليكم

اخواني كيف يمكني كشف نوع الانتي فيروس المسطب على الجهاز 
و انا استخدمت هذا function ولكن استغربت انه لم ينفع مع مضاد فيروسات AVG :


كود :
 Function GetAntiVirus(ByVal strsystem As String) As String
        Dim strcomputer As String = String.Empty
        Dim wmins As String = String.Empty
        Dim wmiquery As String = String.Empty
        Dim objwmiservice As Object
        Dim colitem As Object
        Dim objitem As Object
        Dim strb As New StringBuilder

        Try
            If strsystem = System.Environment.MachineName Then
                strcomputer = "*.*"
            Else
                strcomputer = strsystem

            End If
            wmins = "\root\securityCenter2"
            wmiquery = "Select * AntiVirusProduct"
            objwmiservice = GetObject("winmgmts:\\" & strcomputer & wmins)
            colitem = objwmiservice.Exequery(wmiquery)
            For Each objitem In colitem
                Try
                    strb.AppendLine(objitem.displayname.ToString)
                Catch ex As Exception

                End Try
            Next
        Catch ex As Exception
            strb.AppendLine("??")

        End Try
        Return strb.ToString

    End Function


هل هناك خطأ في function ام ان هنالك طريقه اخرى لكشف الانتي فيروس المسطب ؟؟؟

وشكرااا لكم
الرد }}}}
تم الشكر بواسطة:
#2
سلام

جرب هذا الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox("Antivirus: " & AntivirusInstalled)
    MsgBox("Firewall: " & FirewallInstalled)
End Sub

Private Function AntivirusInstalled() As String
    On Error Resume Next
    Dim s As New System.Text.StringBuilder
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter").ExecQuery("Select displayName From AntiVirusProduct")
        s.AppendLine(item.displayName)
    Next
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter2").ExecQuery("Select displayName From AntiVirusProduct")
        s.AppendLine(item.displayName)
    Next
    Return s.ToString
End Function

Private Function FirewallInstalled() As String
    On Error Resume Next
    Dim s As New System.Text.StringBuilder
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter").ExecQuery("Select displayName From FirewallProduct")
        s.AppendLine(item.displayName)
    Next
    For Each item In GetObject("winmgmts:\\.\root\SecurityCenter2").ExecQuery("Select displayName From FirewallProduct")
        s.AppendLine(item.displayName)
    Next
    Return s.ToString
End Function

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة: ILI
#3
شكرااا لك اخي ...
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 105 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  معرفة الاشخاص المتصلين بقاعدة البيانات في الشبكة المحلية ببساطة مثل مقاهي الانترنت thevirus 2 123 29-10-16, 06:25 PM
آخر رد: thevirus
Lightbulb المساعدة في معرفة طريقة كتابة الأكواد بشكل صحيح ... Arabia 0 70 26-10-16, 03:18 PM
آخر رد: Arabia
  معرفة عدد صفوف الداتا جريد فيو %Eman% 2 111 15-09-16, 05:23 PM
آخر رد: %Eman%
Question [VB.NET] هل يحتاج برنامجي الى ملف NET Framework4 على الاصدرات الحديثه من الوندز ؟؟ Microformt 2 110 24-08-16, 02:49 AM
آخر رد: محمد كريّم
  [سؤال] معرفة نوع البيانات محمد بن عطية 2 104 15-08-16, 12:05 PM
آخر رد: محمد بن عطية
  [VB.NET] معرفة اسم الكاميرا المتصله بالحاسوب (Cam Device)(تم الحل ) ILI 1 100 04-08-16, 06:54 PM
آخر رد: ILI
  [سؤال] كيفية معرفة ترتيب اليوم فى السنة نور الدين وليد 11 319 20-06-16, 07:54 PM
آخر رد: aliday03
  [vb6.0] اريد <شرح بسيط> بداية لتصميم انتي فيروس djatv 1 273 29-05-16, 10:35 PM
آخر رد: CLARO
  [سؤال] طلب كود معرفة كام شخص فاتح البرنامج mostfa1995 4 283 14-04-16, 03:25 AM
آخر رد: mostfa1995

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


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