Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Salut,
Un exemple tout fait est donné dans MSDN :
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExampleDeterminingIfComputerIsConnectedToInternet.htm
:)
"Bull" a écrit dans le message de news:Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Salut,
Un exemple tout fait est donné dans MSDN :
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExampleDeterminingIfComputerIsConnectedToInternet.htm
:)
"Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
uYFEpUTkEHA.644@tk2msftngp13.phx.gbl...
Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Salut,
Un exemple tout fait est donné dans MSDN :
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExampleDeterminingIfComputerIsConnectedToInternet.htm
:)
"Bull" a écrit dans le message de news:Bonjour,
J'avais posté un message il y a un moment pour savoir comment tester si
une machine était connectée à Internet sans passer par un ping de google
par ex.
On m'avait donné le script suivant qui fonctionne très bien :
Public Class NetworkManagement
<DllImport("wininet", SetLastError:=True)> _
Private Shared Function InternetGetConnectedState _
( _
ByRef dwFlags As Int32, _
ByVal dwReserved As Int32 _
) As Boolean
'
End Function
Public Shared Function IsOnline() As Boolean
Return InternetGetConnectedState(0, 0)
End Function
Public Shared Function GetConnectionMode() As InternetConnectionMode
Dim iFlag As Int32
Dim sEnumNames() As String
Dim arEnumValues As Array
Dim t As Type
Dim i As Int32
If (InternetGetConnectedState(iFlag, 0)) Then
t = InternetConnectionMode.Modem.GetType()
sEnumNames = [Enum].GetNames(t)
arEnumValues = [Enum].GetValues(t)
For i = 0 To sEnumNames.Length - 1
If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
' on a trouvé une connection
Return [Enum].Parse(t, sEnumNames(i))
End If
Next i
End If
' aucune connection ...
Return InternetConnectionMode.None
End Function
End Class
'***
'***
' EInternetConnectionMode.vb
Public Enum InternetConnectionMode As Integer
None = &H0
Modem = &H1 ' INTERNET_CONNECTION_MODEM
Lan = &H2 ' INTERNET_CONNECTION_LAN
Proxy = &H3 ' INTERNET_CONNECTION_PROXY
End Enum
Private Sub ping()
If NetworkManagement.IsOnline() Then
connected = True
Else
StatusBarPanel.Text = langueINI.ReadString("StatusBar",
"ConnectionFailure")
connected = False
End If
End Sub
Mon problème maintenant est que lorsque l'ordi dont il faut tester la
connexion Internet passe par un proxy, ce code donne tjs connected =
False.
J'aimerais donc savoir s'il existe un moyen similaire de tester si le pc
est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
site...).
Merci d'avance,
Bull
Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
>
> :)
>
> "Bull" a écrit dans le message de news:
>
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester si
>> une machine était connectée à Internet sans passer par un ping de
>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected > >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)alexandre.claverie@latelec.com#NOSPAM)> a écrit dans le
message de news: O7RN4uYkEHA.3536@TK2MSFTNGP12.phx.gbl...
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
>
> :)
>
> "Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
> uYFEpUTkEHA.644@tk2msftngp13.phx.gbl...
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester si
>> une machine était connectée à Internet sans passer par un ping de
>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected > >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
>
> :)
>
> "Bull" a écrit dans le message de news:
>
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester si
>> une machine était connectée à Internet sans passer par un ping de
>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected > >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
ben tu essayes d'afficher la page d'un site web si il y a une erreur tu es
connecté sinon ben non ;)
"Bull" a écrit dans le message de
news:Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExamp
leDeterminingIfComputerIsConnectedToInternet.htm>
> :)
>
> "Bull" a écrit dans le message de news:
>
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester
>> si
>> une machine était connectée à Internet sans passer par un ping de>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected >> >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
pc>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
ben tu essayes d'afficher la page d'un site web si il y a une erreur tu es
connecté sinon ben non ;)
"Bull" <bull219@wanadoo.fr> a écrit dans le message de
news:uhBjcOekEHA.324@TK2MSFTNGP11.phx.gbl...
Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)alexandre.claverie@latelec.com#NOSPAM)> a écrit dans le
message de news: O7RN4uYkEHA.3536@TK2MSFTNGP12.phx.gbl...
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExamp
leDeterminingIfComputerIsConnectedToInternet.htm
>
> :)
>
> "Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
> uYFEpUTkEHA.644@tk2msftngp13.phx.gbl...
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester
>> si
>> une machine était connectée à Internet sans passer par un ping de
>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected >> >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
pc
>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
ben tu essayes d'afficher la page d'un site web si il y a une erreur tu es
connecté sinon ben non ;)
"Bull" a écrit dans le message de
news:Oui mais ce script fait justement un ping d'un site pour tester, or je
voudrais essayer d'éviter cela si possible. Une idée ? :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> Salut,
>
> Un exemple tout fait est donné dans MSDN :
>
>
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1036/dv_vbcode/html/vbtskCodeExamp
leDeterminingIfComputerIsConnectedToInternet.htm>
> :)
>
> "Bull" a écrit dans le message de news:
>
>> Bonjour,
>>
>> J'avais posté un message il y a un moment pour savoir comment tester
>> si
>> une machine était connectée à Internet sans passer par un ping de>> par ex.
>>
>> On m'avait donné le script suivant qui fonctionne très bien :
>> Public Class NetworkManagement
>>
>> <DllImport("wininet", SetLastError:=True)> _
>>
>> Private Shared Function InternetGetConnectedState _
>>
>> ( _
>>
>> ByRef dwFlags As Int32, _
>>
>> ByVal dwReserved As Int32 _
>>
>> ) As Boolean
>>
>> '
>>
>> End Function
>>
>> Public Shared Function IsOnline() As Boolean
>>
>> Return InternetGetConnectedState(0, 0)
>>
>> End Function
>>
>> Public Shared Function GetConnectionMode() As InternetConnectionMode
>>
>> Dim iFlag As Int32
>>
>> Dim sEnumNames() As String
>>
>> Dim arEnumValues As Array
>>
>> Dim t As Type
>>
>> Dim i As Int32
>>
>> If (InternetGetConnectedState(iFlag, 0)) Then
>>
>> t = InternetConnectionMode.Modem.GetType()
>>
>> sEnumNames = [Enum].GetNames(t)
>>
>> arEnumValues = [Enum].GetValues(t)
>>
>> For i = 0 To sEnumNames.Length - 1
>>
>> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>>
>> ' on a trouvé une connection
>>
>> Return [Enum].Parse(t, sEnumNames(i))
>>
>> End If
>>
>> Next i
>>
>> End If
>>
>> ' aucune connection ...
>>
>> Return InternetConnectionMode.None
>>
>> End Function
>>
>> End Class
>>
>> '***
>>
>> '***
>>
>> ' EInternetConnectionMode.vb
>>
>> Public Enum InternetConnectionMode As Integer
>>
>> None = &H0
>>
>> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>>
>> Lan = &H2 ' INTERNET_CONNECTION_LAN
>>
>> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>>
>> End Enum
>>
>> Private Sub ping()
>>
>> If NetworkManagement.IsOnline() Then
>>
>> connected = True
>>
>> Else
>>
>> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> "ConnectionFailure")
>>
>> connected = False
>>
>> End If
>>
>> End Sub
>>
>>
>>
>> Mon problème maintenant est que lorsque l'ordi dont il faut tester la
>> connexion Internet passe par un proxy, ce code donne tjs connected >> >> False.
>>
>> J'aimerais donc savoir s'il existe un moyen similaire de tester si le
pc>> est connecté à internet via un proxy (sans avoir bien sûr à pinguer un
>> site...).
>>
>> Merci d'avance,
>> Bull
>>
>
>
Bah ça revient un peu au même que de faire un ping ça surcharge un serveur
web pour rien ;-)
Bon pas grave, vais me débrouiller
merci :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> ben tu essayes d'afficher la page d'un site web si il y a une erreur tu
> connecté sinon ben non ;)
>
> "Bull" a écrit dans le message de
> news:
>> Oui mais ce script fait justement un ping d'un site pour tester, or je
>> voudrais essayer d'éviter cela si possible. Une idée ? :)
>>
>> "AlexC" <#NOSPAM)#NOSPAM)> a écrit dans
>> message de news:
>> > Salut,
>> >
>> > Un exemple tout fait est donné dans MSDN :
>> >
>> >
>
> leDeterminingIfComputerIsConnectedToInternet.htm
>> >
>> > :)
>> >
>> > "Bull" a écrit dans le message de news:
>> >
>> >> Bonjour,
>> >>
>> >> J'avais posté un message il y a un moment pour savoir comment tester
>> >> si
>> >> une machine était connectée à Internet sans passer par un ping de
>> >> par ex.
>> >>
>> >> On m'avait donné le script suivant qui fonctionne très bien :
>> >> Public Class NetworkManagement
>> >>
>> >> <DllImport("wininet", SetLastError:=True)> _
>> >>
>> >> Private Shared Function InternetGetConnectedState _
>> >>
>> >> ( _
>> >>
>> >> ByRef dwFlags As Int32, _
>> >>
>> >> ByVal dwReserved As Int32 _
>> >>
>> >> ) As Boolean
>> >>
>> >> '
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function IsOnline() As Boolean
>> >>
>> >> Return InternetGetConnectedState(0, 0)
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function GetConnectionMode() As InternetConnectionMode
>> >>
>> >> Dim iFlag As Int32
>> >>
>> >> Dim sEnumNames() As String
>> >>
>> >> Dim arEnumValues As Array
>> >>
>> >> Dim t As Type
>> >>
>> >> Dim i As Int32
>> >>
>> >> If (InternetGetConnectedState(iFlag, 0)) Then
>> >>
>> >> t = InternetConnectionMode.Modem.GetType()
>> >>
>> >> sEnumNames = [Enum].GetNames(t)
>> >>
>> >> arEnumValues = [Enum].GetValues(t)
>> >>
>> >> For i = 0 To sEnumNames.Length - 1
>> >>
>> >> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>> >>
>> >> ' on a trouvé une connection
>> >>
>> >> Return [Enum].Parse(t, sEnumNames(i))
>> >>
>> >> End If
>> >>
>> >> Next i
>> >>
>> >> End If
>> >>
>> >> ' aucune connection ...
>> >>
>> >> Return InternetConnectionMode.None
>> >>
>> >> End Function
>> >>
>> >> End Class
>> >>
>> >> '***
>> >>
>> >> '***
>> >>
>> >> ' EInternetConnectionMode.vb
>> >>
>> >> Public Enum InternetConnectionMode As Integer
>> >>
>> >> None = &H0
>> >>
>> >> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>> >>
>> >> Lan = &H2 ' INTERNET_CONNECTION_LAN
>> >>
>> >> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>> >>
>> >> End Enum
>> >>
>> >> Private Sub ping()
>> >>
>> >> If NetworkManagement.IsOnline() Then
>> >>
>> >> connected = True
>> >>
>> >> Else
>> >>
>> >> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> >> "ConnectionFailure")
>> >>
>> >> connected = False
>> >>
>> >> End If
>> >>
>> >> End Sub
>> >>
>> >>
>> >>
>> >> Mon problème maintenant est que lorsque l'ordi dont il faut tester
>> >> connexion Internet passe par un proxy, ce code donne tjs connected > >> >> False.
>> >>
>> >> J'aimerais donc savoir s'il existe un moyen similaire de tester si
> pc
>> >> est connecté à internet via un proxy (sans avoir bien sûr à pinguer
>> >> site...).
>> >>
>> >> Merci d'avance,
>> >> Bull
>> >>
>> >
>> >
>>
>>
>
>
Bah ça revient un peu au même que de faire un ping ça surcharge un serveur
web pour rien ;-)
Bon pas grave, vais me débrouiller
merci :)
"AlexC" <#NOSPAM)alexandre.claverie@latelec.com#NOSPAM)> a écrit dans le
message de news: OSvhUWekEHA.3712@TK2MSFTNGP15.phx.gbl...
> ben tu essayes d'afficher la page d'un site web si il y a une erreur tu
> connecté sinon ben non ;)
>
> "Bull" <bull219@wanadoo.fr> a écrit dans le message de
> news:uhBjcOekEHA.324@TK2MSFTNGP11.phx.gbl...
>> Oui mais ce script fait justement un ping d'un site pour tester, or je
>> voudrais essayer d'éviter cela si possible. Une idée ? :)
>>
>> "AlexC" <#NOSPAM)alexandre.claverie@latelec.com#NOSPAM)> a écrit dans
>> message de news: O7RN4uYkEHA.3536@TK2MSFTNGP12.phx.gbl...
>> > Salut,
>> >
>> > Un exemple tout fait est donné dans MSDN :
>> >
>> >
>
> leDeterminingIfComputerIsConnectedToInternet.htm
>> >
>> > :)
>> >
>> > "Bull" <bull219@wanadoo.fr> a écrit dans le message de news:
>> > uYFEpUTkEHA.644@tk2msftngp13.phx.gbl...
>> >> Bonjour,
>> >>
>> >> J'avais posté un message il y a un moment pour savoir comment tester
>> >> si
>> >> une machine était connectée à Internet sans passer par un ping de
>> >> par ex.
>> >>
>> >> On m'avait donné le script suivant qui fonctionne très bien :
>> >> Public Class NetworkManagement
>> >>
>> >> <DllImport("wininet", SetLastError:=True)> _
>> >>
>> >> Private Shared Function InternetGetConnectedState _
>> >>
>> >> ( _
>> >>
>> >> ByRef dwFlags As Int32, _
>> >>
>> >> ByVal dwReserved As Int32 _
>> >>
>> >> ) As Boolean
>> >>
>> >> '
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function IsOnline() As Boolean
>> >>
>> >> Return InternetGetConnectedState(0, 0)
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function GetConnectionMode() As InternetConnectionMode
>> >>
>> >> Dim iFlag As Int32
>> >>
>> >> Dim sEnumNames() As String
>> >>
>> >> Dim arEnumValues As Array
>> >>
>> >> Dim t As Type
>> >>
>> >> Dim i As Int32
>> >>
>> >> If (InternetGetConnectedState(iFlag, 0)) Then
>> >>
>> >> t = InternetConnectionMode.Modem.GetType()
>> >>
>> >> sEnumNames = [Enum].GetNames(t)
>> >>
>> >> arEnumValues = [Enum].GetValues(t)
>> >>
>> >> For i = 0 To sEnumNames.Length - 1
>> >>
>> >> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>> >>
>> >> ' on a trouvé une connection
>> >>
>> >> Return [Enum].Parse(t, sEnumNames(i))
>> >>
>> >> End If
>> >>
>> >> Next i
>> >>
>> >> End If
>> >>
>> >> ' aucune connection ...
>> >>
>> >> Return InternetConnectionMode.None
>> >>
>> >> End Function
>> >>
>> >> End Class
>> >>
>> >> '***
>> >>
>> >> '***
>> >>
>> >> ' EInternetConnectionMode.vb
>> >>
>> >> Public Enum InternetConnectionMode As Integer
>> >>
>> >> None = &H0
>> >>
>> >> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>> >>
>> >> Lan = &H2 ' INTERNET_CONNECTION_LAN
>> >>
>> >> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>> >>
>> >> End Enum
>> >>
>> >> Private Sub ping()
>> >>
>> >> If NetworkManagement.IsOnline() Then
>> >>
>> >> connected = True
>> >>
>> >> Else
>> >>
>> >> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> >> "ConnectionFailure")
>> >>
>> >> connected = False
>> >>
>> >> End If
>> >>
>> >> End Sub
>> >>
>> >>
>> >>
>> >> Mon problème maintenant est que lorsque l'ordi dont il faut tester
>> >> connexion Internet passe par un proxy, ce code donne tjs connected > >> >> False.
>> >>
>> >> J'aimerais donc savoir s'il existe un moyen similaire de tester si
> pc
>> >> est connecté à internet via un proxy (sans avoir bien sûr à pinguer
>> >> site...).
>> >>
>> >> Merci d'avance,
>> >> Bull
>> >>
>> >
>> >
>>
>>
>
>
Bah ça revient un peu au même que de faire un ping ça surcharge un serveur
web pour rien ;-)
Bon pas grave, vais me débrouiller
merci :)
"AlexC" <#NOSPAM)#NOSPAM)> a écrit dans le
message de news:
> ben tu essayes d'afficher la page d'un site web si il y a une erreur tu
> connecté sinon ben non ;)
>
> "Bull" a écrit dans le message de
> news:
>> Oui mais ce script fait justement un ping d'un site pour tester, or je
>> voudrais essayer d'éviter cela si possible. Une idée ? :)
>>
>> "AlexC" <#NOSPAM)#NOSPAM)> a écrit dans
>> message de news:
>> > Salut,
>> >
>> > Un exemple tout fait est donné dans MSDN :
>> >
>> >
>
> leDeterminingIfComputerIsConnectedToInternet.htm
>> >
>> > :)
>> >
>> > "Bull" a écrit dans le message de news:
>> >
>> >> Bonjour,
>> >>
>> >> J'avais posté un message il y a un moment pour savoir comment tester
>> >> si
>> >> une machine était connectée à Internet sans passer par un ping de
>> >> par ex.
>> >>
>> >> On m'avait donné le script suivant qui fonctionne très bien :
>> >> Public Class NetworkManagement
>> >>
>> >> <DllImport("wininet", SetLastError:=True)> _
>> >>
>> >> Private Shared Function InternetGetConnectedState _
>> >>
>> >> ( _
>> >>
>> >> ByRef dwFlags As Int32, _
>> >>
>> >> ByVal dwReserved As Int32 _
>> >>
>> >> ) As Boolean
>> >>
>> >> '
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function IsOnline() As Boolean
>> >>
>> >> Return InternetGetConnectedState(0, 0)
>> >>
>> >> End Function
>> >>
>> >> Public Shared Function GetConnectionMode() As InternetConnectionMode
>> >>
>> >> Dim iFlag As Int32
>> >>
>> >> Dim sEnumNames() As String
>> >>
>> >> Dim arEnumValues As Array
>> >>
>> >> Dim t As Type
>> >>
>> >> Dim i As Int32
>> >>
>> >> If (InternetGetConnectedState(iFlag, 0)) Then
>> >>
>> >> t = InternetConnectionMode.Modem.GetType()
>> >>
>> >> sEnumNames = [Enum].GetNames(t)
>> >>
>> >> arEnumValues = [Enum].GetValues(t)
>> >>
>> >> For i = 0 To sEnumNames.Length - 1
>> >>
>> >> If (iFlag And CType(arEnumValues.GetValue(i), String)) Then
>> >>
>> >> ' on a trouvé une connection
>> >>
>> >> Return [Enum].Parse(t, sEnumNames(i))
>> >>
>> >> End If
>> >>
>> >> Next i
>> >>
>> >> End If
>> >>
>> >> ' aucune connection ...
>> >>
>> >> Return InternetConnectionMode.None
>> >>
>> >> End Function
>> >>
>> >> End Class
>> >>
>> >> '***
>> >>
>> >> '***
>> >>
>> >> ' EInternetConnectionMode.vb
>> >>
>> >> Public Enum InternetConnectionMode As Integer
>> >>
>> >> None = &H0
>> >>
>> >> Modem = &H1 ' INTERNET_CONNECTION_MODEM
>> >>
>> >> Lan = &H2 ' INTERNET_CONNECTION_LAN
>> >>
>> >> Proxy = &H3 ' INTERNET_CONNECTION_PROXY
>> >>
>> >> End Enum
>> >>
>> >> Private Sub ping()
>> >>
>> >> If NetworkManagement.IsOnline() Then
>> >>
>> >> connected = True
>> >>
>> >> Else
>> >>
>> >> StatusBarPanel.Text = langueINI.ReadString("StatusBar",
>> >> "ConnectionFailure")
>> >>
>> >> connected = False
>> >>
>> >> End If
>> >>
>> >> End Sub
>> >>
>> >>
>> >>
>> >> Mon problème maintenant est que lorsque l'ordi dont il faut tester
>> >> connexion Internet passe par un proxy, ce code donne tjs connected > >> >> False.
>> >>
>> >> J'aimerais donc savoir s'il existe un moyen similaire de tester si
> pc
>> >> est connecté à internet via un proxy (sans avoir bien sûr à pinguer
>> >> site...).
>> >>
>> >> Merci d'avance,
>> >> Bull
>> >>
>> >
>> >
>>
>>
>
>
Return InternetGetConnectedState(0, 0)
Return InternetGetConnectedState(0, 0)
Return InternetGetConnectedState(0, 0)