منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - معرفة الانتي فيروس المسطب على الوندز

السلام عليكم

اخواني كيف يمكني كشف نوع الانتي فيروس المسطب على الجهاز

و انا استخدمت هذا 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 ام ان هنالك طريقه اخرى لكشف الانتي فيروس المسطب ؟؟؟

وشكرااا لكم

سلام

جرب هذا الكود

كود :

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

موفقين

شكرااا لك اخي ...

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

YazanOtoum

الطالب

YazanOtoum