Что нового

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

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

Yashied

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

jimh

Новичок
Сообщения
18
Репутация
0
Ща добавлю
 
Автор
J

jimh

Новичок
Сообщения
18
Репутация
0
всё добавил
 

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 319
jimh
А что с Вашим первым постом?
Ответ, пожалуйста, мне в ПМ.
 
Статус
Закрыто для дальнейших ответов.
Верх