Автозакрытие окна - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д