[tyrty_a]

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

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

[leprecon]

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

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

[leprecon]

Выкладываю немного адаптированый под 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 тоже не срабатывала.

[amel27]

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

оказалось, на оффсайте есть готовое решение (вопросы можно сюда) :
Netstat in AutoIt - GetTcpTable (iphlpapi.dll), Sometimes crashes and sometimes works, why?

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

на оффсайте достаточно инфы и примеров: http://www.google.com/search?as_q=se...s=&safe=images

[amel27]

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

ТУТ есть интересная DLL-ка (с исходниками и демкой), которая кроме прочего имеет ф-цию включения/отключения <Ctrl+Alt+Del> пример:

Код:

$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")

[Maza Faka]

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

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

[Creat0R]

amel27,

кроме прочего имеет ф-цию включения/отключения <Ctrl+Alt+Del> »

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

[Maza Faka]

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

Так сойдёт?

Код:

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

[Creat0R]

Maza Faka,

Так сойдёт? »

Ещё как сойдёт! (мне в принципе нужна только часть в цикле).
Я давно хотел узнать как отслеживать это сочетание, мне это нужно для моей утилитки KeyBoard and Mouse Cleaner, до сих пор приходилось проверять различия в позициях курсора мышки (до, и после BlockInput()), если есть различия, значит юзер нажал «Ctrl + Alt + Del», т.к по другому выйти с режима блокировки вроде нельзя .

Спасибо.

[amel27]

Creat0R, Maza Faka

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