Para verificar conexão com a Internet, Tentei usar a função abaixo:
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
(ByRef lpdwFlags As Long, _
ByVal lpszConnectionName As String, _
ByVal dwNameLen As Integer, _
ByVal dwReserved As Long) _
As Long
Dim sConnType As String * 255
Sub TesteConexaoInternet()
Dim Ret As Long
Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
If Ret = 1 Then
MsgBox "Você está conectado a Internet via " & sConnType, vbInformation
Else
MsgBox "Você não está conectado a Internet", vbInformation
End If
End Sub
Mas uso Windows 7 - 64 bits. e dá erro pedindo atualização para 64 bits.
Alguem pode ajudar?
Grato,
Pedro
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/08/2012 5:20 pm