Как эмулировать активность сессии терминала? #125245

пробовал обработкой ожидания типа:    WSHShell = СоздатьОбъект("WScript.Shell");    WSHShell.SendKeys("%"); не получается...

Всмысле эмулировать активность?

если не дрыгать мышкой или клавой, то в Диспетчере служб терминалов есть такое поянтие как время простоя, есть ещё настройки ограничения активности сеанса. Так вот, как без участия пользователя (ушёл на 4 часа) эмулировать активность???

10 строк на asm и мышка будет сама двигаться

если не затруднит... для WInNt плиз... :-)

Ааааа... Дергай мышкой так.. Запиши это в ворд или ехель и запускай, хоть из 1Сэ... Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MOVE = &H1 Const MOUSEEVENTF_ABSOLUTE = &H8000 Public Sub MouseSim Randomize    Do        x = Int(10000 * Rnd)        y = Int(10000 * Rnd)      mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, x, y, 0, dwEI        'mouse_event MOUSEEVENTF_MOVE, 2, 3, cButt, dwEI        'mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI        Sleep 200        DoEvents    Loop End Sub _______________________ "тупо копипастит..." (с)

а попроще чего нибудь??

и что делать, если Word или Excel не установлены (и не планируется!) Какие либо внешние библиотеки может есть???

Может ещё кто подскажет...???

А ты к мышке моторчик приделай. Нехай она по кругу ездит пока юзера нет :))

а завершение неактивного сеанса-никогда что мешает выставить?

не подходит... зачем все пытаются решить проблему другим способом? Мне нужен только сабж

дело говорит . Как говорится в каждой шутке... можно под датчик оптической мышки что-нибудь вращающееся подложить. Например часы :) Я попробовал - работает!

Ага! Закупить специальных мышек... штук 50...

Мне нужна программная эмуляция!

не уверен, что программная эмуляция сработает... Это зависит от того, на каком уровне осуществляется перехват осуществяемых пользователем движений...

Ну вот самое простое, будет жмакать правую кнопку мыши доапупения, остановишь тока с другой машины, ну или сам придумывай как... Set WshShell = CreateObject("WScript.Shell") Do set oExec=WshShell.exec("rundll32.exe user32,mouse_event") wscript.Sleep 1000 oExec.Terminate Loop ___________________________ Я конечно далек от мысли...(с)

да честно говоря, а такого же мнения...

Ну а попробовал? :)

А ты не думай, ты попробуй , есле не в курсе, то сохрание ето в файл с расширением vbs и запусти

Дык если это и работает, то будет пользователю мешать, не правда ли??? Нужна какая-либо штатная процедура запроса состояния коннекта/регенерации или что-то подобное...

А теперь для тупых и алкоголиков, попонятнее... Как она пользователю помешает когда его нету на месте, а уж как ее вырубить когда усер пришел сам думай...

Да всё я понимаю, господин начальник... не то всё это, не то...

Про тупых и алкоголиков это про меня, я разьяснения жду по всяческим "коннекта/регенерации  или что-то подобное..." я ничего непонял...

Ну вот есть какая-либо процедура, которая в клиентской сессии вернула бы время подключения этой сессии?

Есть...

Имя можно?