Программная регистрация в сети Novell

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

ActiveX это COM-объект. Естественно надо регистрировать. И естественно надо будет распространять вместе с приложением.
Аватара пользователя
Aent
Сообщения: 1129
Зарегистрирован: 01 окт 2006, 14:52
Откуда: Saratov,Russia
Контактная информация:

Есть ещё мобильный вариант через скрипты.
Запускаете клиента
находите его окно
и в этом окне посылкой кодов клавиш набираете логин и пароль ...
Андрей Энтелис,
aentelis.livejournal.com
heisnod
Сообщения: 70
Зарегистрирован: 24 ноя 2008, 16:53

Пробовал я кейсенд=)
Все отлично, но не придумал как программно клацнуть в трее по значку правой кнопкой и выбрать пункт меню регистрация в сети)
heisnod
Сообщения: 70
Зарегистрирован: 24 ноя 2008, 16:53

Вот рабочее хоть и кривое решение задачи

Sub novell()
idnovell = Shell("loginw32.exe", 1)
Application.Wait (Now + TimeValue("0:00:01"))
AppActivate "Регистрация Novell"
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys ("{TAB}{TAB}{TAB}{TAB}{TAB}login{TAB}password{Enter}")
Application.Wait (Now + TimeValue("0:00:03"))
AppActivate "Результаты"
Application.Wait (Now + TimeValue("0:00:03"))
SendKeys ("{Enter}")
End Sub
Ответить