#include <GuiListView.au3>
#include <file.au3>
Global $sFind, $ifind1
_DrvRemove()
_DrvRemove()
Func _DrvRemove()
$hwnd = WinGetHandle('Vba32 AntiRootkit',"")
WinMenuSelectItem($hwnd ,"","Поиск драйвера")
Sleep(1000)
$hwndkernel = WinActivate("Kernel Hooks" )
WinWaitActive($hwndkernel)
ControlFocus ( $hwndkernel, "", "SysListView321")
$iItem = ControlListView($hwndkernel, "Restore", "SysListView321", "GetItemCount")
For $i = 0 To $iItem
Dim $szDrive, $szDir, $szFName, $szExt
$sText = ControlListView($hwndkernel, "Restore", "SysListView321", "GetText",$i ,5)
$TestPath = _PathSplit($sText, $szDrive, $szDir, $szFName, $szExt)
$sPath = $TestPath[3] & $TestPath[4]
If $sPath = "frost.sys" Then
$sFind = $TestPath[0]
EndIf
$ifind1 = ControlListView($hwndkernel, "Restore", "SysListView321", "FindItem", $sFind,5)
Next
If $sFind = "" Then
MsgBox(48,"Инф", "Драйвер не найден")
Exit
EndIf
$hList = ControlGetHandle ( $hwndkernel, "", "SysListView321" )
_GUICtrlListView_ClickItem($hList,$ifind1)
Sleep(300)
Send("{space}")
ControlClick($hwndkernel,"","Button2")
$hwndVba = WinWaitActive("Vba32")
ControlClick($hwndVba,"","Button1")
EndFunc