Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > аналог Sendkeys

Автор: _hunter 9.1.2008, 17:17

Добрый день.

Есть ли в перле аналог функции Sendkeys? Мне, по сути, нужно сделать тоже самое что и тут:
http://www.msfn.org/board/lofiversion/index.php/t85351.html
но на перле.

С уважением...

Автор: KSURi 9.1.2008, 20:11

Если я все правильно понял из указанного вами линка, то вам поможет http://search.cpan.org/~rgiersig/Expect-1.21/Expect.pod

Автор: _hunter 10.1.2008, 13:13

похоже на то, но есть несколько проблем: мне это нужно под windows и я юзаю ActivePerl...

Автор: _hunter 10.1.2008, 14:50

пробовал так:

Код


open(hConsole, "|runas /user:$username1 notepad")
    or die("CreateProjectDb failed");
print(hConsole  "$userpassword1\n");
close(hConsole);

делать, но не получается -- пароль, похоже, вводится. но я всегда получаю ошибку "1326: Logon failure: unknown user name or bad password." а если я ввожу его руками -- все нормально.

Автор: tishaishii 11.1.2008, 13:50

Код

new Win32::OLE 'WScript.Shell'

Автор: KSURi 12.1.2008, 20:09

http://search.cpan.org/~garrow/IO-React-1.03/React.pm