• Новое на форуме
  • Лучшее на форуме
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Заморозка процесса/Открытие/Убивание
Web-Net Понедельник, 09.01.2012, 17:56 | Сообщение # 1
Offline
Сообщений: 14
Награды: 0

Пример с Блокнотом.
Code
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 482, 65, 192, 124)
$Button1 = GUICtrlCreateButton("Старт Блокнота", 8, 16, 129, 33)
$Button2 = GUICtrlCreateButton("Морозим Блокнот", 144, 16, 129, 33)
$Button3 = GUICtrlCreateButton("Убиваем все процессы Блокнотов", 280, 16, 193, 33)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
     $nMsg = GUIGetMsg()
     Switch $nMsg
     Case $GUI_EVENT_CLOSE
             KillProc()
             Exit         
         Case $Button1
             Run("notepad.exe") ;запустим Блкнот
         Case $Button2
             If WinExists ("[Class:Notepad]") Then ;проверяем - ЕСЛИ наличие окна Блокнот по имени класса окна (класс этого окна узнали из программы AutoIt Window Info - это Notepad) есть, ТОГДА
                 $hWND = WinGetHandle ("[Class:Notepad]") ;получили в переменную $hWND специальное уникальное значение (хэндл) Блокнота          
                 WinSetState ($hWND, "", @SW_DISABLE) ;установили нашему окну (Блокноту) с ЭТИМ хендлом состояние - ОТКЛЮЧИТЬ (типа заблокировать)         
                 WinSetState ($hWND, "", @SW_RESTORE) ; и еще ставим Блокнот в положение ОТКРЫТОГО
             EndIf
         Case $Button3
             KillProc()            
     EndSwitch
WEnd

Func KillProc()
If ProcessExists("notepad.exe") Then
     Run("taskkill /f /im notepad.exe", "", @SW_HIDE)
EndIf
EndFunc

Исходник:
http://rghost.ru/35817377
AnVIRUS Вторник, 10.01.2012, 13:24 | Сообщение # 2
Offline
Сообщений: 2
Награды: 0
Спсибо +, по этому принципу же можно будет сделать такое для PointBlank'а?
Web-Net Вторник, 10.01.2012, 19:54 | Сообщение # 3
Offline
Сообщений: 14
Награды: 0
Ну как бЭ да)
  • Страница 1 из 1
  • 1
Поиск: