Springen naar inhoud


- - - - -
Solved

Netwerkverbinding Controleren

vba Internet Connection

  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 todejo

todejo

    Starting Developer

  • Leden
  • 2 berichten
    Laatst bezocht 10 sep 2014 07:44

Geplaatst op 28 augustus 2014 - 14:16

Wij gebruiken hier een laptop voor het uitvoeren van keuringen.
Dat doen we m.b.v. excel2010 en vba. Nu heb ik voor bepaalde functies een wifi verbinding nodig, die er niet altijd is.
Kan ik binnen vba dit controleren? Is hier een code voor?

#2 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3590 berichten
    Laatst bezocht 16 aug 2018 11:34
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 28 augustus 2014 - 15:29

Probeer onderstaande eens (sorry heb niet dadelijk zelf de tijd om te testen.

greetzz
Mario.


Visual Basic Code:

Public Declare Function InternetGetConnectedState _
						 Lib "wininet.dll" (lpdwFlags As Long, _
											ByVal dwReserved As Long) As Boolean

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" ( _
ByRef lpdwFlags As Long, _
ByVal lpszConnectionName As String, _
ByVal dwNameLen As Long, _
ByVal dwReserved As Long) As Long


'Local system uses a modem to connect to the Internet.
Private Const INTERNET_CONNECTION_MODEM As Long = &H1

'Local system uses a LAN to connect to the Internet.
Private Const INTERNET_CONNECTION_LAN As Long = &H2

'Local system uses a proxy server to connect to the Internet.
Private Const INTERNET_CONNECTION_PROXY As Long = &H4


Function IsConnected() As Boolean
	
	Dim Stat As Long
	
	IsConnected = (InternetGetConnectedState(Stat, 0&) <> 0)
	
	If IsConnected And INTERNET_CONNECTION_LAN Then
		MsgBox "Lan Connection"
	ElseIf IsConnected And INTERNET_CONNECTION_MODEM Then
		MsgBox "Modem Connection"
	ElseIf IsConnected And INTERNET_CONNECTION_PROXY Then
		MsgBox "Proxy"
	End If
End Function



Bron

#3 todejo

todejo

    Starting Developer

  • Leden
  • 2 berichten
    Laatst bezocht 10 sep 2014 07:44

Geplaatst op 29 augustus 2014 - 07:25

super! bedankt





Ook met taq Solved, vba, Internet, Connection voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)