• Новое на форуме
  • Лучшее на форуме
Главная » 2012 » Январь » 9 » Заморозка процесса/Открытие/Убивание
Автор: Гость | Комментариев 0 | Просмотров: 787
Пример с Блокнотом.

Пример с Блокнотом.
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

Исходник:
http://rghost.ru/35817377
Всего комментариев: 0
Имя *:
Email *:
Код *: