|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Internet)
|
|
 |
Título da Dica: Acionar uma conexão Dial-Up pelo VB
|
 |
|
|
|
Postada em 14/8/2000 por Webmaster
webmaster@vbweb.com.br
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:\Windows\rundll32.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.
|
|
|
|
|
