Verificar conexão

[Matheus-vb6]

Bom pessoal, a maioria dos programas que faço usa a internet para o envio dos e-mails, gostaria de algum código que verificasse se o computador está conectado a internet, caso n esteja abrisse uma msgbox...

Vlws desde já

[kuroi]

nesse link tem um codigo q faz isso:

http://www.go4expert.com/forums/showthread.php?t=2557

[Matheus-vb6]

Public Function IsWebConnected(Optional ByRef ConnType As String) As Boolean
      Dim dwflags As Long
      Dim WebTest As Boolean
      ConnType = ""
      WebTest = InternetGetConnectedState(dwflags, 0&)
      Select Case WebTest
          Case dwflags And CONNECT_LAN: ConnType = "LAN"
          Case dwflags And CONNECT_MODEM: ConnType = "Modem"
          Case dwflags And CONNECT_PROXY: ConnType = "Proxy"
          Case dwflags And CONNECT_OFFLINE: ConnType = "Offline"
          Case dwflags And CONNECT_CONFIGURED: ConnType = "Configured"
          Case dwflags And CONNECT_RAS: ConnType = "Remote"
      End Select
      IsWebConnected = WebTest
  End Function
  Private Sub Command1_Click()
      Dim msg As String
      If IsWebConnected(msg) Then
          msg = "You are connected to the Internet via: " & msg
      Else
          msg = "You are not connected to the Internet."
      End If
      
      MsgBox msg, vbOKOnly, "Internet Connection Status"
End sub

é só esse codigo q eu tenho que usar?? porque tem mais 2 la em cima mas n sei onde encaixar

Editado Julho 13, 2010 por Matheus-vb6

[kuroi]

aqueles la são as declaroes. você poe la em cima no generals do seu formulario, ou poe num module (se for por no module, a funcao IsWebConnected() tem q ir junto no module).

[Matheus-vb6]

não queria usar module n, só formulario mesmo, teria como?

[kuroi]

sim, é so colar esse codigo q faltou la em cima no generals.

[Matheus-vb6]

oks, vo testa