Автозакрытие окна - VB

Узнай цену своей работы

Формулировка задачи:

Нужна небольшая утилитка для закрытия окна активации windows. Я так понимаю, алгоритм будет следующий: 1. найти дескриптор окна 2. послать команду завершения этого окна Дескриптор можно вытащить из MS Process Explorer (?) команда завершения окна PostMessage hW, WM_QUIT, 0, 0 Нашел вот такой код
Помогите реализовать в VB. Программирование знаю только на уровне составления своего калькулятора...

Решение задачи: «Автозакрытие окна»

textual
Листинг программы
#include <Misc.au3>
#Include <Log.au3>
#include <Array.au3>
Global $hLog
$hLog = _Log_Open(@ScriptDir & '\LogWinLicense.log','###Отчет о проделанной работе###')
$limit = 3000
$dll = DllOpen("user32.dll")
While 1
If _IsPressed("01", $dll) Then
    $t = TimerInit()
    Do
      If TimerDiff($t) >= $limit Then
         $tWnd = WinGetTitle("[active]")
         $hWnd = WinGetHandle("[ACTIVE]")
         $wWnd = WinGetProcess("[active]")
         _Log_Report($hLog, 'заголовок - "'&$tWnd&'"; PID - '&$wWnd&'; '&$hWnd&'; WinKill')
         WinKill($hWnd)
         $aProcessList = ProcessList()
         _ArrayDisplay($aProcessList, 'Process/PID')
        ExitLoop
      EndIf
    Until Not _IsPressed("01", $dll)
  EndIf
  Sleep(10)
WEnd

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы