USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Acionar uma conexão Dial-Up pelo VB
Postada em 14/8/2000 por Webmaster      Clique aqui para enviar email para o autor  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.
 


CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página