How to check Internet connection

[Tufail Ahmad]

In vb6.0, how can i check Internet connection. that is. Is net connected or not. Send source code please

[Lost User]

Tufail Ahmad wrote:

Send source code please

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
(ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function IsOnline() As Boolean
Dim LFlags As Long
IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function

:)

I are Troll :suss:

[Tufail Ahmad]

IsOnline = InternetGetConnectedState(LFlags, 0&) In the above line, LFlags returns some values, what does it mean. Note: I am connected to Internet through LAN

[The Man from U N C L E]

Google is a wonderful thing. Check out InternetGetConnectedState Function on MSDN[^]. The LFlags result you are looking for is 2.

If you have knowledge, let others light their candles at it. Margaret Fuller (1810 - 1850) [My Articles]  [My Website]

[i i i]

Private Const FLAG_ICC_FORCE_CONNECTION = &H1 Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long Function Check_Internet_Connection() As Boolean If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then Check_Internet_Connection = False Else Check_Internet_Connection = True End If End Function

Best Regards, SOFTDEV If you have knowledge, let others light their candles at it

[Paul Conrad]

Tufail Ahmad wrote:

Send source code please

Sorry, it is not how this site works. People will offer help and hints as to what to do, but to just throw out code, no.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer "Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon "Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham