Программная регистрация в сети Novell
Модератор: Naeel Maqsudov
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
ActiveX это COM-объект. Естественно надо регистрировать. И естественно надо будет распространять вместе с приложением.
Пробовал я кейсенд=)
Все отлично, но не придумал как программно клацнуть в трее по значку правой кнопкой и выбрать пункт меню регистрация в сети)
Все отлично, но не придумал как программно клацнуть в трее по значку правой кнопкой и выбрать пункт меню регистрация в сети)
Вот рабочее хоть и кривое решение задачи
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
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