DJ Dan
|
PRAIA GRANDE
SP - BRASIL
|
|
Postada em 19/07/2004 15:21 hs
Olá, Gostaria de saber como posso fazer para através do meu programa, quando o usuário clicar num botão, chamar a conexão dialup definida como padrão. |
|
|
|
|
|
|
|
Postada em 19/07/2004 15:32 hs
Use o código a seguir para chamar uma conexão DialUp previamente criada no seu computador.
Primeiro crie a rotina ChamarDialUp e depois coloque num evento de sua preferência a chamada a esta rotina.
Private Sub ChamarDialUp(ByVal sConect As String)
Dim X As Long
X = Shell("C:Windowsundll32.exe rnaui.dll,RnaDial " & _
sConect, 1)
AppActivate X
SendKeys "{enter}"
DoEvents
End Sub
'No evento que você desejar:
Call ChamarDialUp("Minha Conexão")
Substitua "Minha Conexão" pelo nome da conexão que você deseja ativar.
Detalhe: Esta conexão deve existir em seu computador.
|
|
|
|
|
