سؤال: برنامج مضاد للفيروسات

Import AntiVirus
Dim _VD as New VirusDetector
Select Case AntiVirusMonitor.Status
Case VirusComing
_VD.StopInfiction
MsgBox ("Virus Caught!",Information)
Case VirusCame
_VD.Delete()
MsgBox ("Virus Deleted!",Information)
End Select

or

Import AntiVirus
Dim WithEvents _AVM as New AntiVirusMonitor
Private Sub _AVM_VirusCaught(ByVal sender As System.Object, ByVal e As AntiVirus.VirusDetectionEventArgs) Handles _AVM.VirusCaught
MsgBox (_AVM.DamageLevel,Information)
End Sub

من اين مكتبة

imports antivirus

المكتبة غير موجودة عندي

ما في حل

ما في حل

ما في موقع يساعد في هذا الموضوع