[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

[Котяра]

Цитата amel27:



думаю, можно узнать список установленных TCP-соединений (а-ля NETSTAT),

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Расскажи по-подробнее пожалуйста, как это можно сделать?

[Creat0R]

Цитата amel27:



вплоть до управления скриптом по сети...

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

А я почему то думал, что на Autoit нельзя создать что-то типа клиент-сервер

[NikLok]

Выкладываю немного адаптированый под 3-ю версию радмина скрипт от Amel27(из-за кривых рук не смог нормально заставить работать Au3toPost , поэтому выкладываю нераскрашеный код):


Цитата КОД:



$objWMI = ObjGet("winmgmts:{(Security)}\\.\root\cimv2")

; Создаем фильтр событий, фиксируемых скриптом

$colEvents = $objWMI.ExecNotificationQuery("SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _

"TargetInstance ISA 'Win32_NTLogEvent' " & _ ; источник событий - журнал событий

"AND TargetInstance.Logfile='Application' " & _ ; только журнал приложений

"AND TargetInstance.SourceName='RServer3'") ; только Remote Administrator

While 1

$objEvent = $colEvents.NextEvent ; Ожидание события

$sText = ""

For $s in $objEvent.TargetInstance.InsertionStrings

$sText &= $s ; Текст события

Next

Switch $objEvent.TargetInstance.EventIdentifier

Case 1001 ; Код обработки события отключения

Consolewrite( "Text: " & $sText & @CR )

BlockInput( 1 )

Case 2000 ; Код обработки события подключения

Consolewrite( "Text: " & $sText & @CR )

BlockInput(0)

EndSwitch

Wend



Но у этого скрипта есть недостаток, для меня не сильно принципиальный но все же недостаток: Не работает клавиатура, ни удаленная, ни локальная, хотя мышь (локальная) работает нормально.

Так же на удаленной клавиатуре можно разблокировать клавиатуру нажатием CTRL-ALT-DEL . Да, я знаю, что это опция Windows API. Но все же я видел программу(тоже связаную с удаленным администратированием), которая блокировала клавиатуру полностью и CTRL-ALT-DEL тоже не срабатывала.

[Creat0R]

Цитата tyrty_a:



Расскажи по-подробнее пожалуйста, как это можно сделать?

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

оказалось, на оффсайте есть готовое решение (вопросы можно сюда) :

Netstat in AutoIt - GetTcpTable (iphlpapi.dll), Sometimes crashes and sometimes works, why?

Цитата leprecon:



А я почему то думал, что на Autoit нельзя создать что-то типа клиент-сервер

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

на оффсайте достаточно инфы и примеров:

http://www.google.com/search?as_q=se...s=&safe=images

[NikLok]

Цитата leprecon:



все же я видел программу(тоже связаную с удаленным администратированием), которая блокировала клавиатуру полностью и CTRL-ALT-DEL тоже не срабатывала

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

ТУТ

есть интересная DLL-ка (с исходниками и демкой), которая кроме прочего имеет ф-цию включения/отключения пример:

Код:

Код: Выделить всё

$hDll = DllOpen("WinLockDll.dll")
$aRet = DllCall ($hDll, "int", "CtrlAltDel_Enable_Disable", "int", "0")
MsgBox(48,"Message","Ctrl+Alt+Del Disabled," &@CRLF& "Press any key for enable")
$aRet = DllCall ($hDll, "int", "CtrlAltDel_Enable_Disable", "int", "1")

[DENoszone]

Цитата amel27:



интересная DLL-ка (с исходниками и демкой)

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Вот спасибо! Отличная dll-ка

[Maza Faka]

amel27,


Цитата amel27:



кроме прочего имеет ф-цию включения/отключения

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

А вот можно таже отслеживать нажатия этих клавиш? т.е нужен метод определяющий были ли вызваны сочетания клавиш «Ctrl+Alt+Del».

[DENoszone]

Цитата Creat0R:



А вот можно таже отслеживать нажатия этих клавиш?

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Так сойдёт?



Код:

Код: Выделить всё

Global Const $VK_CTRL = 0x11
Global Const $VK_ALT  = 0x12
Global Const $VK_DEL  = 0x2E
HotKeySet("{ESC}", "_Exit")
$hDll = DllOpen(@ScriptDir & "\WinLockDll.dll")
$aRet = DllCall ($hDll, "int", "CtrlAltDel_Enable_Disable", "int", "0")
While 1
    $aCtrlRet = DllCall("user32", "ushort", "GetKeyState", "int", $VK_CTRL)
    $aCtrlAlt = DllCall("user32", "ushort", "GetKeyState", "int", $VK_ALT)
    $aCtrlDel = DllCall("user32", "ushort", "GetKeyState", "int", $VK_DEL)
    If ($aCtrlRet[0] > 1) And ($aCtrlAlt[0] > 1) And ($aCtrlDel[0] > 1) Then MsgBox(262144, "Catch", "Ctrl - Alt - Del is pressed")
    Sleep(1)
WEnd
Func _Exit()
    Local $aRet = DllCall ($hDll, "int", "CtrlAltDel_Enable_Disable", "int", "1")
    DllClose($hDll)
    Exit
EndFunc

[DENoszone]

Maza Faka,
Цитата Maza Faka:



Так сойдёт?

[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Ещё как сойдёт! (мне в принципе нужна только часть в цикле).

Я давно хотел узнать как отслеживать это сочетание, мне это нужно для моей утилитки

KeyBoard and Mouse Cleaner

, до сих пор приходилось проверять различия в позициях курсора мышки (до, и после BlockInput()), если есть различия, значит юзер нажал «Ctrl + Alt + Del», т.к по другому выйти с режима блокировки вроде нельзя .



Спасибо.

[Creat0R]

Creat0R, Maza Faka



все это хорошо, я даже почти поверил что это можно осуществить только средствами AutoIT (хотя и не просто), но не дает покоя один момент - если параметр передавать в функцию без кавычек, то блокировка не снимается... почему?.. все равно AutoIT перед передачей преобразует тип к "int", прямо мистика какая-то...