Como determinar o estado da conexão do seu sistema local e como iniciar ou finalizar uma conexão com a Internet usando o Visual Basic .NET ou Visual Basic 2005

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 821770
Sumário
Este artigo passo a passo descreve como determinar o estado do sistema local conectado usando a função InternetGetConnectedState que o Microsoft Windows Internet (WinINet) API fornece. Este artigo também descreve como iniciar uma conexão com a Internet e como encerrar uma conexão com a Internet usando a função de API WinINet InternetDial e usando a função de API WinINet InternetHangUp .

A API do WinINet é um conjunto de funções que permite que aplicativos interagem com gopher, com FTP (File Transfer Protocol) e com (HTTP) para acessar vários recursos na Internet. A função InternetGetConnectedState retorna True ou False dependendo se existe uma conexão. Após uma chamada para a função InternetGetConnectedState , o parâmetro lpdwFlags contém um valor predefinido que fornece mais informações sobre a conexão. Por exemplo, o valor que contém IpdwFlags pode indicar que a conexão é uma rede local (LAN) conexão, uma conexão de modem ou outro tipo de conexão. Você pode inferir se conexão existe do valor de retorno da função InternetGetConnectedState .

Quando a chamada de função InternetGetconnectionState retorna True , existe uma conexão de rede. No entanto, isso não garante que você tem acesso a dados ou que você tem acesso a sites da Web através da rede.

A função InternetDial inicia uma conexão à Internet usando um modem. O parâmetro lpszConnectoid Especifica o nome da conexão dial-up que usa a função InternetDial . Você pode usar a função de API WinINet InternetHangUp para instruir o modem para encerrar a conexão que especifica o parâmetro dwConnection .

back to the top

Exemplo passo a passo

  1. Inicie Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005.
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Em Project types , clique em Projetos do Visual Basic .

    Observação No Visual Studio 2005, clique em Visual Basic em Project Types .
  4. Em modelos , clique em Windows Application .

    Por padrão, é criado o Form1.
  5. Clique com o botão direito do mouse no Form1 e, em seguida, clique em View Code .
  6. Adicionar as seguintes instruções de declaração à classe Form1 :
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, _ByVal dwReserved As Int32) As BooleanPrivate Declare Function InternetDial Lib "Wininet.dll" (ByVal hwndParent As IntPtr, _ByVal lpszConnectoid As String, ByVal dwFlags As Int32, ByRef lpdwConnection As Int32, _ByVal dwReserved As Int32) As Int32Private Declare Function InternetHangUp Lib "Wininet.dll" _(ByVal lpdwConnection As Int32, ByVal dwReserved As Int32) As Int32Private Enum Flags As Integer   'Local system uses a LAN to connect to the Internet.   INTERNET_CONNECTION_LAN = &H2   'Local system uses a modem to connect to the Internet.   INTERNET_CONNECTION_MODEM = &H1   'Local system uses a proxy server to connect to the Internet.   INTERNET_CONNECTION_PROXY = &H4   'Local system has RAS installed.   INTERNET_RAS_INSTALLED = &H10End Enum'Declaration Used For InternetDialUp.Private Enum DialUpOptions As Integer   INTERNET_DIAL_UNATTENDED = &H8000   INTERNET_DIAL_SHOW_OFFLINE = &H4000   INTERNET_DIAL_FORCE_PROMPT = &H2000End EnumPrivate Const ERROR_SUCCESS = &H0Private Const ERROR_INVALID_PARAMETER = &H87Private mlConnection As Int32
  7. No menu Exibir , clique em Designer .
  8. Adicione um controle de botão ao Form1.
  9. Clique com o botão direito do mouse em Button1 e, em seguida, clique em Propriedades .
  10. Na janela Propriedades, modifique o texto de propriedade do controle Button1 para Detectar conexões .
  11. Clique duas vezes Detectar conexão e, em seguida, adicione o código a seguir no manipulador de eventos Button1_Click :
    Dim lngFlags As LongIf InternetGetConnectedState(lngFlags, 0) Then    'connected.    If lngFlags And Flags.INTERNET_CONNECTION_LAN Then        'LAN connection.         MsgBox("LAN connection.")    ElseIf lngFlags And Flags.INTERNET_CONNECTION_MODEM Then        'Modem connection.         MsgBox("Modem connection.")    ElseIf lngFlags And Flags.INTERNET_CONNECTION_PROXY Then        'Proxy connection.         MsgBox("Proxy connection.")    End IfElse    'not connected.     MsgBox("Not connected.")End If
  12. Adicione outro controle de botão ao Form1.
  13. Clique com o botão direito do mouse Button2 e, em seguida, clique em Propriedades .
  14. Na janela Properties, altere o texto de propriedade do controle Button2 para Dial Up .
  15. Clique duas vezes Dial Up e, em seguida, adicione o código a seguir no manipulador de eventos Button2_Click :
    Dim DResult As Int32   DResult = InternetDial(Me.Handle, "My Connection", DialUpOptions.INTERNET_DIAL_FORCE_PROMPT, mlConnection, 0)If (DResult = ERROR_SUCCESS) Then       MessageBox.Show("Dial Up Successful", "Dial-Up Connection")    Else       MessageBox.Show("UnSuccessFull Error Code" & DResult, "Dial-Up Connection")End If
    Observação substituir My Connection com o nome do dial - up conexão em seu computador.
  16. Adicione outro controle de botão ao Form1.
  17. Clique com o botão direito do mouse Button3 e, em seguida, clique em Propriedades .
  18. Na janela Propriedades, modifique o texto de propriedade do controle Button3 para Desligar .
  19. Clique duas vezes Desligar e, em seguida, adicione o código a seguir no manipulador de eventos Button3_Click :
    Dim Result As Int32If Not (mlConnection = 0) Then     Result = InternetHangUp(mlConnection, 0&)     If Result = 0 Then         MessageBox.Show("Hang up successful", "Hang Up Connection")     Else         MessageBox.Show("Hang up NOT successful", "Hang Up Connection")     End IfElse     MessageBox.Show("You must dial a connection first!", "Hang Up Connection")End If
  20. No menu arquivo , clique em Salvar tudo para salvar o projeto.
  21. No menu Debug , clique em Iniciar para executar o aplicativo.
back to the top

Verificar se ele funciona

  1. Execute o aplicativo que você criou na seção "Exemplo passo a passo" deste artigo.

    Form1 é exibida.
  2. Clique em Detectar conexão e, em seguida, observe o estado conectado atual do computador local.
  3. Clique em dial up .

    Dial-up a caixa de diálogo de conexão é exibida.
  4. Clique em bloqueio backup .

    A Internet conexão estabelecido na etapa 3 extremidades.
back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 821770 - Última Revisão: 11/26/2007 07:02:04 - Revisão: 2.8

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbmt kbvs2005swept kbvs2005applies kbcodesnippet kbnetwork kbmodem kbdialup kbhowtomaster KB821770 KbMtpt
Comentários