Detecting Internet Connection

[Adam Parkin]

Hello all, I need to be able to detect if there is an active available
Internet connection in my VB6 program. In my program I'm using the Internet
Transfer Control to transfer some files by HTTP, but as it stands now,
there's no code to detect if there is in fact a network connection available
before I try sending.

Is there some easy way to do this?

Thanks,

Adam

[mayayana]

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

--
--
Adam Parkin <sk****@dfaslk.com> wrote in message
news:qm8mc.25304$U75.24635@edtnps89...

Hello all, I need to be able to detect if there is an active available
Internet connection in my VB6 program. In my program I'm using the Internet Transfer Control to transfer some files by HTTP, but as it stands now,
there's no code to detect if there is in fact a network connection available before I try sending.

Is there some easy way to do this?

Thanks,

Adam

[Adam Parkin]

Thanks, that works perfectly....

Adam

"mayayana" <ma************@mindZZspring.com> wrote in message
news:yZ*****************@newsread3.news.atl.earthl ink.net...

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

--
--
Adam Parkin <sk****@dfaslk.com> wrote in message
news:qm8mc.25304$U75.24635@edtnps89...

Hello all, I need to be able to detect if there is an active available
Internet connection in my VB6 program. In my program I'm using the

Internet

Transfer Control to transfer some files by HTTP, but as it stands now,
there's no code to detect if there is in fact a network connection

available

before I try sending.

Is there some easy way to do this?

Thanks,

Adam

[S.W. Rasmussen]

not always in my experience: on winXP connected to the IN by modem,
InternetGetConnectedState returns True also when the modem is disconnected.
InternetCheckConnection on the other hand returns the correct connection
state (with lpszUrl = http://www.google.com for example) but is much slower
as an connection attempt is involved. On win2K InternetGetConnectedState
always returns the correct connected state.

Cheers
Soeren

"Adam Parkin" <sk****@dfaslk.com> wrote in message
news:NYimc.26144$U75.4774@edtnps89...

Thanks, that works perfectly....

Adam

"mayayana" <ma************@mindZZspring.com> wrote in message
news:yZ*****************@newsread3.news.atl.earthl ink.net...

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

--
--
Adam Parkin <sk****@dfaslk.com> wrote in message
news:qm8mc.25304$U75.24635@edtnps89...

Hello all, I need to be able to detect if there is an active available
Internet connection in my VB6 program. In my program I'm using the

Internet

Transfer Control to transfer some files by HTTP, but as it stands now,
there's no code to detect if there is in fact a network connection

available

before I try sending.

Is there some easy way to do this?

Thanks,

Adam

[S.W. Rasmussen]

addendum: see http://www.freevbcode.com/ShowCode.Asp?ID=632 for details.

Soeren

"S.W. Rasmussen" <sw*@seqtools.dk> wrote in message
news:40*********************@dread14.news.tele.dk. ..

not always in my experience: on winXP connected to the IN by modem,
InternetGetConnectedState returns True also when the modem is disconnected. InternetCheckConnection on the other hand returns the correct connection
state (with lpszUrl = http://www.google.com for example) but is much slower as an connection attempt is involved. On win2K InternetGetConnectedState
always returns the correct connected state.

Cheers
Soeren

"Adam Parkin" <sk****@dfaslk.com> wrote in message
news:NYimc.26144$U75.4774@edtnps89...

Thanks, that works perfectly....

Adam

"mayayana" <ma************@mindZZspring.com> wrote in message
news:yZ*****************@newsread3.news.atl.earthl ink.net...

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

--
--
Adam Parkin <sk****@dfaslk.com> wrote in message
news:qm8mc.25304$U75.24635@edtnps89...
> Hello all, I need to be able to detect if there is an active available > Internet connection in my VB6 program. In my program I'm using the
Internet
> Transfer Control to transfer some files by HTTP, but as it stands now, > there's no code to detect if there is in fact a network connection
available
> before I try sending.
>
> Is there some easy way to do this?
>
> Thanks,
>
> Adam
>
>

[mayayana]

--

not always in my experience: on winXP connected to the IN by modem,
InternetGetConnectedState returns True also when the modem is disconnected. InternetCheckConnection on the other hand returns the correct connection
state (with lpszUrl = http://www.google.com for example) but is much slower as an connection attempt is involved. On win2K InternetGetConnectedState
always returns the correct connected state.

That's good to know. If that's a consistent bug in XP then I guess
it would require using InternetGetConnectedState and a Registry read
in conjunction in order to be sure.

[J French]

On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
<ma************@mindZZspring.com> wrote:

--

not always in my experience: on winXP connected to the IN by modem,
InternetGetConnectedState returns True also when the modem is

disconnected.

InternetCheckConnection on the other hand returns the correct connection
state (with lpszUrl = http://www.google.com for example) but is much

slower

as an connection attempt is involved. On win2K InternetGetConnectedState
always returns the correct connected state.

That's good to know. If that's a consistent bug in XP then I guess
it would require using InternetGetConnectedState and a Registry read
in conjunction in order to be sure.

I'm no expert on this, but from what I've picked up, the only real
test is to make a connection.

[S.W. Rasmussen]

yes, according to the link previously posted this is correct although it
appears a bit unprofessional as it introduces a delay outside vb control
while pinging the probe url.

"J French" <er*****@nowhere.com> wrote in message
news:40***************@news.btclick.com...

On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
<ma************@mindZZspring.com> wrote:

--

not always in my experience: on winXP connected to the IN by modem,
InternetGetConnectedState returns True also when the modem is

disconnected.

InternetCheckConnection on the other hand returns the correct connection state (with lpszUrl = http://www.google.com for example) but is much

slower

as an connection attempt is involved. On win2K InternetGetConnectedState always returns the correct connected state.

That's good to know. If that's a consistent bug in XP then I guess
it would require using InternetGetConnectedState and a Registry read
in conjunction in order to be sure.

I'm no expert on this, but from what I've picked up, the only real
test is to make a connection.

[mayayana]

I guess you're right. If the API returns True and the
Registry setting for the modem returns False there's
still uncertainty over whether it's a disconnected
modem or an active connection of another type.
I'm amazed that such a major bug hasn't been fixed.

yes, according to the link previously posted this is correct although it
appears a bit unprofessional as it introduces a delay outside vb control
while pinging the probe url.

"J French" <er*****@nowhere.com> wrote in message
news:40***************@news.btclick.com...

On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
<ma************@mindZZspring.com> wrote:

--
> not always in my experience: on winXP connected to the IN by modem,
> InternetGetConnectedState returns True also when the modem is
disconnected.
> InternetCheckConnection on the other hand returns the correct connection> state (with lpszUrl = http://www.google.com for example) but is much
slower
> as an connection attempt is involved. On win2K InternetGetConnectedState> always returns the correct connected state.
>

That's good to know. If that's a consistent bug in XP then I guess
it would require using InternetGetConnectedState and a Registry read
in conjunction in order to be sure.

I'm no expert on this, but from what I've picked up, the only real
test is to make a connection.

[S.W. Rasmussen]

Having identified the internet connection status bug in XP the next question
then is: how to get information on the current OS system (to differentiate
the IN connection status check). With API GetVersion() I get major version =
5 and minor = 2 for both win2000 and XP. Is there a way of finding out
whether the user runs XP or 2000?

Soeren

"mayayana" <ma************@mindZZspring.com> wrote in message
news:a_*****************@newsread2.news.atl.earthl ink.net...

I guess you're right. If the API returns True and the
Registry setting for the modem returns False there's
still uncertainty over whether it's a disconnected
modem or an active connection of another type.
I'm amazed that such a major bug hasn't been fixed.

yes, according to the link previously posted this is correct although it
appears a bit unprofessional as it introduces a delay outside vb control
while pinging the probe url.

"J French" <er*****@nowhere.com> wrote in message
news:40***************@news.btclick.com...

On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
<ma************@mindZZspring.com> wrote:

>
>
>--
>> not always in my experience: on winXP connected to the IN by modem,
>> InternetGetConnectedState returns True also when the modem is
>disconnected.
>> InternetCheckConnection on the other hand returns the correct

connection

>> state (with lpszUrl = http://www.google.com for example) but is much >slower
>> as an connection attempt is involved. On win2K

InternetGetConnectedState

>> always returns the correct connected state.
>>
>
> That's good to know. If that's a consistent bug in XP then I guess >it would require using InternetGetConnectedState and a Registry read
>in conjunction in order to be sure.

I'm no expert on this, but from what I've picked up, the only real
test is to make a connection.

[mayayana]

You can use GetVersionEx.

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As Long

dwPlatformId returns 1 for 9x and 2 for NT
dwMajorVersion returns 5 for 2000/XP
dwMinorVersion returns 0 for 2000, 1 for XP.
I've also seen a v. 5.2 in my weblogs, which I guess
may be the version of 2003 server.

Having identified the internet connection status bug in XP the next question then is: how to get information on the current OS system (to differentiate
the IN connection status check). With API GetVersion() I get major version = 5 and minor = 2 for both win2000 and XP. Is there a way of finding out
whether the user runs XP or 2000?

Soeren

"mayayana" <ma************@mindZZspring.com> wrote in message
news:a_*****************@newsread2.news.atl.earthl ink.net...

I guess you're right. If the API returns True and the
Registry setting for the modem returns False there's
still uncertainty over whether it's a disconnected
modem or an active connection of another type.
I'm amazed that such a major bug hasn't been fixed.

yes, according to the link previously posted this is correct although it appears a bit unprofessional as it introduces a delay outside vb control while pinging the probe url.

"J French" <er*****@nowhere.com> wrote in message
news:40***************@news.btclick.com...
> On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
> <ma************@mindZZspring.com> wrote:
>
> >
> >
> >--
> >> not always in my experience: on winXP connected to the IN by modem, > >> InternetGetConnectedState returns True also when the modem is
> >disconnected.
> >> InternetCheckConnection on the other hand returns the correct
connection
> >> state (with lpszUrl = http://www.google.com for example) but is much > >slower
> >> as an connection attempt is involved. On win2K
InternetGetConnectedState
> >> always returns the correct connected state.
> >>
> >
> > That's good to know. If that's a consistent bug in XP then I guess > >it would require using InternetGetConnectedState and a Registry read > >in conjunction in order to be sure.
>
> I'm no expert on this, but from what I've picked up, the only real
> test is to make a connection.

[S.W. Rasmussen]

thanks...

Soeren

"mayayana" <ma************@mindZZspring.com> wrote in message
news:yi**************@newsread2.news.atl.earthlink .net...

You can use GetVersionEx.

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA"
(lpVersionInformation As OSVERSIONINFO) As Long

dwPlatformId returns 1 for 9x and 2 for NT
dwMajorVersion returns 5 for 2000/XP
dwMinorVersion returns 0 for 2000, 1 for XP.
I've also seen a v. 5.2 in my weblogs, which I guess
may be the version of 2003 server.

Having identified the internet connection status bug in XP the next question

then is: how to get information on the current OS system (to differentiate

the IN connection status check). With API GetVersion() I get major

version =

5 and minor = 2 for both win2000 and XP. Is there a way of finding out
whether the user runs XP or 2000?

Soeren

"mayayana" <ma************@mindZZspring.com> wrote in message
news:a_*****************@newsread2.news.atl.earthl ink.net...

I guess you're right. If the API returns True and the
Registry setting for the modem returns False there's
still uncertainty over whether it's a disconnected
modem or an active connection of another type.
I'm amazed that such a major bug hasn't been fixed.

> yes, according to the link previously posted this is correct

although it > appears a bit unprofessional as it introduces a delay outside vb control > while pinging the probe url.
>
> "J French" <er*****@nowhere.com> wrote in message
> news:40***************@news.btclick.com...
> > On Sat, 08 May 2004 13:30:03 GMT, "mayayana"
> > <ma************@mindZZspring.com> wrote:
> >
> > >
> > >
> > >--
> > >> not always in my experience: on winXP connected to the IN by modem, > > >> InternetGetConnectedState returns True also when the modem is
> > >disconnected.
> > >> InternetCheckConnection on the other hand returns the correct
> connection
> > >> state (with lpszUrl = http://www.google.com for example) but is

much

> > >slower
> > >> as an connection attempt is involved. On win2K
> InternetGetConnectedState
> > >> always returns the correct connected state.
> > >>
> > >
> > > That's good to know. If that's a consistent bug in XP then I

guess

> > >it would require using InternetGetConnectedState and a Registry read > > >in conjunction in order to be sure.
> >
> > I'm no expert on this, but from what I've picked up, the only real
> > test is to make a connection.
>
>