Что нового
Автор:
Фильтры

"Заморозка" процесса

K

Kuzjanik

Новичок
Сообщения
2
Репутация
0
Доброго времени суток!

Возникла такая потребность - приостановить выполнение определенного(стороннего,никак не связанного с автоитом) процесса на время выполнения последовательности функций в самом скрипте.Если процесс не останавливать,то алгоритм не может завершиться и скрипт виснет.

Изрыл кучу форумов,мануалы,но к сожалению ответа так и не нашел.Решил обратиться на официальное сообщество.

Спасибо за потраченное время.
 
F

Fever

Скриптер
Сообщения
308
Репутация
112
плохо же Вы ищите, товарищ. Первая же страница гугла дала ответ, причем сразу на AutoIt

Код: 
#include <ButtonConstants.au3>                     
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $process="notepad.exe",$fSuspended
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("notepad.exe", 330, 165, 462, 344)
GUISetCursor (3)
GUISetBkColor(0xB9D1EA)
$Button1 = GUICtrlCreateButton("Заморозить\разморозить", 56, 32, 209, 97)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
          Case $GUI_EVENT_CLOSE
              Exit
          Case $Button1
_ProcSuspendResume($process)
      EndSwitch
WEnd
   Func _ProcSuspendResume($process)
      $processid = ProcessExists($process)
      If $processid Then
          If $fSuspended Then
              $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
              $i_sucess = DllCall("ntdll.dll","int","NtResumeProcess","int",$ai_Handle[0])
              DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
              If IsArray($i_sucess) Then
                  $fSuspended = 0
                  Return 1
              Else
                  SetError(1)
                  Return 0
              Endif
          Else
              $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $processid)
              $i_sucess = DllCall("ntdll.dll","int","NtSuspendProcess","int",$ai_Handle[0])
              DllCall('kernel32.dll', 'ptr', 'CloseHandle', 'ptr', $ai_Handle)
              If IsArray($i_sucess) Then
                  $fSuspended = 1
                  Return 1
              Else
                  SetError(1)
                  Return 0
              Endif
          EndIf
      Else
          SetError(2)
          Return 0
      Endif
EndFunc

Global $fSuspended = 0

OffTopic:
http://autoit-script.ru/index.php?topic=5653.0 - дежавю? :blink:
 
Автор
K

Kuzjanik

Новичок
Сообщения
2
Репутация
0
Хм...а если запущенны несколько процессов с одинаковым названием,то по идентификатору это можно сделать?

Как мне кажется это решается подстановкой переменно содержащей PID в строку " $processid = ProcessExists($process)"
 
V

VladUs

Скриптер
Сообщения
621
Репутация
182
Когда - то сам баловался
Вот может пригодится, программка по заморозке и отслеживанию запуска и завершения процессов

Код: 
#include <GUIConstantsEx.au3>
#Include <CoProc.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#Include <WinAPIex.au3>
#include <Constants.au3>
local $objAsyncContext, $objLatestEvent, $objWbemObject
Global $Path, $Pid

$objWMIService = ObjGet("winmgmts:" & "!\\" & @ComputerName & "\root\cimv2")
$strQuery = "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
$Sink = ObjCreate( "WbemScripting.SWbemSink")
ObjEvent($Sink , "SINK_")
$objContext = ObjCreate("WbemScripting.SWbemNamedValueSet")

If Not @error Then
	$objWMIService.ExecNotificationQueryAsync ($SINK, $strQuery, Default, Default, Default, $objContext)
	ConsoleWrite("Подключен к : " & @ComputerName &  @CRLF)
EndIf

$Gui = GUICreate("Gui",550,600,-1,-1)
$ListBox = GUICtrlCreateListView("Name|PiD|User|Status",10,10,500,500,-1)
$MenuList =  GUICtrlCreateContextMenu ( $ListBox)
$MenuKIllItem = GUICtrlCreateMenuItem("Завершить процесс", $MenuList)
$MenuSep = GUICtrlCreateMenuItem("", $MenuList)
$MenuSuspendItem = GUICtrlCreateMenuItem("Заморозить процесс", $MenuList)
$MenuResumeItem = GUICtrlCreateMenuItem("Разморозить процесс", $MenuList)

$ButtonRun = GUICtrlCreateButton("Run", 10,550,130,30)
$EditRun   = GUICtrlCreateInput("",150,550,150,30)

_GUICtrlListView_SetColumnWidth($ListBox , 0, 150)
_GUICtrlListView_SetColumnWidth($ListBox , 2, 150)
_GUICtrlListView_SetColumnWidth($ListBox , 3, 100)

_ProcessList()

 GUISetState()
_GUICtrlListView_RegisterSortCallBack($ListBox)

While 1
 $msg = GUIGetMsg()
 If $msg = $GUI_EVENT_CLOSE Then Exit
Switch $msg 
	Case $MenuKIllItem
		$cell = ControlListView ( $Gui, "", $ListBox, "GetSelected" )
		$procName = ControlListView ( $Gui, "", $ListBox, "GetText", $cell, 1 )
		GUICtrlSendMsg ( $ListBox, $LVM_DELETEITEM, $cell -0, 0)
		ProcessClose( $procName )
		ConsoleWrite($procName & @CRLF)
   Case  $MenuSuspendItem
		$cell = ControlListView ( $Gui, "", $ListBox, "GetSelected" )
		$procName = ControlListView ( $Gui, "", $ListBox, "GetText", $cell, 1 )
       _ProcSuspend($procName ) 
		 _GUICtrlListView_AddSubItem($ListBox,$cell, "Suspend",3)
	Case $MenuResumeItem
		$cell = ControlListView ( $Gui, "", $ListBox, "GetSelected" )
		$procName = ControlListView ( $Gui, "", $ListBox, "GetText", $cell, 1 )
		_ProcResume($procName ) 
		_GUICtrlListView_AddSubItem($ListBox,$cell, "",3)
	Case $ListBox
		 _GUICtrlListView_SortItems($ListBox, GUICtrlGetState($ListBox))
	 Case $ButtonRun
		 _WinAPI_ShellExecute (GUICtrlRead($EditRun))
	Case $MenuList = 0
EndSwitch
 
WEnd

_GUICtrlListView_UnRegisterSortCallBack($ListBox)
GUIDelete()

Func _ProcessList()
	$list = ProcessList()
	For $i = 1 to $list[0][0]
		_GUICtrlListView_AddItem($ListBox, $list[$i][0], $i,_GUICtrlListView_GetItemCount($ListBox) + 9999)
		_GUICtrlListView_AddSubItem($ListBox,$i-1, $list[$i][1],1)
		$user =  _ProcessGetOwner($list[$i][1])
		_GUICtrlListView_AddSubItem($ListBox,$i-1,  $user,2)
	next
EndFunc

Func SINK_OnObjectReady($objLatestEvent, $objAsyncContext)
	$Name=$objLatestEvent.TargetInstance.Name
	$Pid = $objLatestEvent.TargetInstance.Handle
	$WorkingSetSize = $objLatestEvent.TargetInstance.WorkingSetSize
	$ParentProcess = $objLatestEvent.TargetInstance.ParentProcessId
	;$PatchParentProcess =_ProcessGetName ( $ParentProcess )
	Select
		Case 	$objLatestEvent.Path_.Class()="__InstanceCreationEvent"
			$ind =  _GUICtrlListView_AddItem($ListBox, $Name, 1)
			$user =  _ProcessGetOwner($Pid)
			_GUICtrlListView_AddSubItem($ListBox,$ind, $Pid,1)
			_GUICtrlListView_AddSubItem($ListBox,$ind,  $user,2)
			_GUICtrlListView_Scroll($ListBox, 0,9999)
			_GUICtrlListView_SetItemSelected($ListBox, $ind,  True, False)

		Case $objLatestEvent.Path_.Class()="__InstanceDeletionEvent"
			$index =  _GUICtrlListView_FindInText($ListBox, $Pid)
			GUICtrlSendMsg ( $ListBox, $LVM_DELETEITEM, $index -0, 0)
	EndSelect
EndFunc   

Func _ProcessGetOwner($PID)
	$strComputer = "." 
	$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
	$objShare = $objWMIService.Get("Win32_Process.Handle="& $PID)
	$objOutParams = $objWMIService.ExecMethod("Win32_Process.Handle=" & $PID, "GetOwner")
	$Domain = $objOutParams.Domain
	$User = $objOutParams.User
	Return $User
EndFunc
Команды доступны через контекстное меню

Ссылка на библиотеку CoProc.au3
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
R Заморозка процесса Общие вопросы по AutoIt 2
S Заморозка процесса на врема сна Общие вопросы по AutoIt 6
А "Заморозка" процесса Общие вопросы по AutoIt 1
T [Процессы] "Заморозка" процесса и обьект IE в самом процессе Общение 0
B Заморозка процесса Общие вопросы по AutoIt 19
Похожие темы
Заморозка процесса
Заморозка процесса на врема сна
"Заморозка" процесса
[Процессы] "Заморозка" процесса и обьект IE в самом процессе
Заморозка процесса
Верх