VBNet - Форум - Диалог

Вопрос: Диалог Добавлено: 26.01.04 15:38

Автор вопроса: Maxik

Как вызвать стандартный диалог подключения к инет?

Ответить

Ответы Всего ответов: 8

Номер ответа: 1
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #1

Добавлено: 26.01.04 15:55

Мастер подключения к Инету или диалог подключения, вызываемый при запуске соединения?

Ответить

Номер ответа: 2 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #2	Добавлено: 26.01.04 16:05
	Причем здесь мастер подключения. --Мастер подключения к Инету или диалог подключения-- Написано же диалог подключения. Ответить

Номер ответа: 3
Автор ответа:

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #3

Добавлено: 26.01.04 16:46

тебя по-иоему внятно спрсили тебе что нужно:

-диалог с вводом пароля и кнопкой коннект?

-или мастер создания новых подключений?

?!?!??!!??

Ответить

Номер ответа: 4 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #4	Добавлено: 26.01.04 17:05
	Ну если так легче понять, то окошко с кнопкой Коннект. Ответить

Номер ответа: 5
Автор ответа:

Sharp

Лидер форума

ICQ: 216865379

Вопросов: 106
Ответов: 9979

Web-сайт: sharpc.livejournal.com
Профиль | | #5

Добавлено: 26.01.04 18:00

Можно было, конечно, и повежливее отвечать человеку, который чтобы ответить тебе потратил около часа и получил несколько GPF, что привело к холодной перезагрузке, если не хочешь, чтобы на все твои вопросы все отвечали "хз" или "STFW", но я не сторонник разжигания конфликтов. Держи:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'Окно Установить подключение

Private Sub Command1_Click()

Dim szConn As String

szConn = "VPN"

Shell "rundll32.exe rnaui.dll,RnaDial " & szConn, vbNormalFocus

End Sub

'Окно Создать новое подключение

Private Sub Command2_Click()

Shell "rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus

End Sub

'Окно Создать новое подключение без окна приветствия

Private Sub Command3_Click()

Shell "rundll32.exe rnaui.dll,RnaWizard /1", vbNormalFocus

End Sub

Ответить

Номер ответа: 6 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #6	Добавлено: 26.01.04 18:19
	Не стоило так стараться. Спасибо. Ответить

Номер ответа: 7 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #7	Добавлено: 26.01.04 18:21
	Не стоило так стараться. Спасибо. Настроение просто хреновое. Обижать ни кого не хотел. Ответить

Номер ответа: 8 Автор ответа: Maxik Вопросов: 58 Ответов: 201	Профиль \| \| #8	Добавлено: 27.01.04 21:25
	Не найден указанный модуль rnaui.DLL. Этот код, наверное, работает только под 98/МЕ... Надо для ХР/2000... Ответить

Страница: 1 |