Что нового

Выполнение определённых действий в программе.

Статус
Закрыто для дальнейших ответов.

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,716
Еще бы ссылку на саму программу не помешало бы добавить...
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Код:
#include <GuiListView.au3>
_DrvRemove()
_DrvRemove()

Func _DrvRemove()
$sFind = "D:\PShelter\PShelter.sys" 

$hwnd  = WinGetHandle('Vba32 AntiRootkit',"")
WinMenuSelectItem($hwnd ,"","Поиск драйвера")
Sleep(1000)

$hwndkernel = WinActivate("Kernel Hooks" )
WinWaitActive($hwndkernel)

ControlFocus ( $hwndkernel, "", "SysListView321") 
$ifind1 = ControlListView($hwndkernel, "Restore", "SysListView321", "FindItem", $sFind,5)

If $ifind1 < 0 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


В строке
Код:
$sFind = "D:\PShelter\PShelter.sys"
замените на Ваш путь.
 
Автор
J

jimh

Новичок
Сообщения
18
Репутация
0
а можно без указывания пути ?
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Я просто не очень хорошо вижу Ваш путь на картинке. Кажется так:

Код:
#include <GuiListView.au3>
_DrvRemove()
_DrvRemove()

Func _DrvRemove()
$sFind = "D:\Games\Point Blank 1\Frost\frost.sys" 

$hwnd  = WinGetHandle('Vba32 AntiRootkit',"")
WinMenuSelectItem($hwnd ,"","Поиск драйвера")
Sleep(1000)

$hwndkernel = WinActivate("Kernel Hooks" )
WinWaitActive($hwndkernel)

ControlFocus ( $hwndkernel, "", "SysListView321") 
$ifind1 = ControlListView($hwndkernel, "Restore", "SysListView321", "FindItem", $sFind,5)

If $ifind1 < 0 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
 
Автор
J

jimh

Новичок
Сообщения
18
Репутация
0
а можно без указывания пути ?,а просто по названию frost.sys ?
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Код:
#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
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
jimh
А что с Вашим первым постом?
Ответ, пожалуйста, мне в ПМ.
 
Статус
Закрыто для дальнейших ответов.
Верх