Запуск удаленного соединения (не формы отправки письма!!)

@vladeD · Регистрация: 26.06.2007

Студворк — интернет-сервис помощи студентам

Вот все можно запускать: ехе-файлы, вызывать окно Интернет, отправку почты. А как вначале запустить програмно 'Удаленное соединение'
Ярлык на дескопе конечно есть - но это для не для ленивых!
Спасибо

@sharig · 09.02.2008, 08:38

а я делаю так (подобие автоматизации)

Private Sub mnuCallMTU_Click()
Dim ret
'вместо mtu должно стоять имя твоего соединения.
ret = Shell('rundll32.exe rnaui.dll,RnaDial ' & 'mtu', 1)
Delay (2)
SendKeys ('пароль')
Delay (1)
SendKeys '{ENTER}'
End Sub

Public Function Delay(Pause As Single)
Dim Start As Single
Start = Timer
Do While Timer < Start + Pause
DoEvents
Loop
End Function

@vladeD · 10.02.2008, 07:34 **[ТС]**

Огромное СПАСИБО!!
Ну прлучилось еще проще:

Dim ret
'вместо mtu должно стоять имя твоего соединения.
ret = Shell('rundll32.exe rnaui.dll,RnaDial ' & 'mtu', 1)

Этого было достаточно...
Но с остальным пока не пошло, и если будет запуск без вывода формы Удаленного сообщения, то было бы еще прекраснее....
Но дело в том, что у меня два направления .. и я остановился пока на первой части Вашего кода
В общем еще раз спасибо
Удачи Вам

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59

	Запуск удаленного соединения (не формы отправки письма!!) 08.02.2008, 22:46. Показов 770. Ответов 2 Метки нет (Все метки) Вот все можно запускать: ехе-файлы, вызывать окно Интернет, отправку почты. А как вначале запустить програмно 'Удаленное соединение' Ярлык на дескопе конечно есть - но это для не для ленивых! Спасибо 0

@sharig 2 / 2 / 1 Регистрация: 30.07.2007 Сообщений: 206
	09.02.2008, 08:38
	а я делаю так (подобие автоматизации) Private Sub mnuCallMTU_Click() Dim ret 'вместо mtu должно стоять имя твоего соединения. ret = Shell('rundll32.exe rnaui.dll,RnaDial ' & 'mtu', 1) Delay (2) SendKeys ('пароль') Delay (1) SendKeys '{ENTER}' End Sub Public Function Delay(Pause As Single) Dim Start As Single Start = Timer Do While Timer < Start + Pause DoEvents Loop End Function 0

@vladeD 0 / 0 / 0 Регистрация: 26.06.2007 Сообщений: 59
	10.02.2008, 07:34 [ТС]
	Огромное СПАСИБО!! Ну прлучилось еще проще: Dim ret 'вместо mtu должно стоять имя твоего соединения. ret = Shell('rundll32.exe rnaui.dll,RnaDial ' & 'mtu', 1) Этого было достаточно... Но с остальным пока не пошло, и если будет запуск без вывода формы Удаленного сообщения, то было бы еще прекраснее.... Но дело в том, что у меня два направления .. и я остановился пока на первой части Вашего кода В общем еще раз спасибо Удачи Вам 0