Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Integer, ByVal dwReserved As Integer) As Integer
Public Const ProxyConnection As Integer = &H4S
Public Const ModemConnectionIsBusy As Integer = &H8S
Public Const InternetIsOffline As Integer = &H20S
Public Const InternetConnectionIsConfigured As Integer = &H40S
Public Const ModemConnection As Integer = &H1S
Public Const RasInstalled As Integer = &H10S
Public Const LanConnection As Integer = &H2S
Public Function IsLanConnection() As Boolean
Dim dwflags As Integer
Call InternetGetConnectedState(dwflags, 0)
IsLanConnection = dwflags And LanConnection
End Function
Public Function IsModemConnection() As Boolean
Dim dwflags As Integer
Call InternetGetConnectedState(dwflags, 0)
IsModemConnection = dwflags And ModemConnection
End Function
Public Function IsProxyConnection() As Boolean
Dim dwflags As Integer
Call InternetGetConnectedState(dwflags, 0)
IsProxyConnection = dwflags And ProxyConnection
End Function
Public Function IsConnected() As Boolean
IsConnected = InternetGetConnectedState(0, 0)
End Function
Public Function IsRasInstalled() As Boolean
Dim dwflags As Integer
Call InternetGetConnectedState(dwflags, 0)
IsRasInstalled = dwflags And RasInstalled
End Function
Public Function ConnectionTypeMsg() As String
Dim dwflags As Integer
Dim msg As String
'Return Internet connection msg.
If InternetGetConnectedState(dwflags, 0) Then
If dwflags And InternetConnectionIsConfigured Then
msg = msg & "Internet connection is configured." & vbCrLf
End If
If dwflags And LanConnection Then
msg = msg & "Internet connection via a LAN"
End If
If dwflags And ProxyConnection Then
msg = msg & ", and connection is through a proxy server."
Else
msg = msg & "."
End If
If dwflags And ModemConnection Then
msg = msg & "Internet connection via a Modem"
End If
If dwflags And InternetIsOffline Then
msg = msg & "Internet connection is currently offline."
End If
If dwflags And ModemConnectionIsBusy Then
msg = msg & "Modem is busy with a non-Internet connection."
End If
If dwflags And RasInstalled Then
msg = msg & "Remote Access Services are installed on local system."
End If
Else
msg = "You are currently not connected to the internet."
serverdan çıkan interneti 10 kişi kullanıyor aramızda paylaştırdık interneti fakat server makine bende hangi kullanıcının ne kadar up ne kadar down yaptığını anlık değişmelerle görebileceğim bir program varmı elinizde? bu konuda yardımcı olabilirseniz sevinirim teşekkürler
Netmon diye birşey arattır bulursun ben bulursam burada sunarım ok bununla bütün ağdaki makinaların nekadar upload ne kadar download yaptığını görebilirsin