elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  los bytes de datos enviados y recibidos de la red mediante VB.NET no cuadran.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: los bytes de datos enviados y recibidos de la red mediante VB.NET no cuadran.  (Leído 789 veces)
Lekim

Desconectado Desconectado

Mensajes: 268



Ver Perfil
los bytes de datos enviados y recibidos de la red mediante VB.NET no cuadran.
« en: 4 Noviembre 2015, 12:40 »

Hola

Mediante este código obtengo los bytes enviados y recibidos por la red.

Código
  1.  Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) _
  2.    Handles Timer1.Tick
  3.        Dim nics As System.Net.NetworkInformation.NetworkInterface()
  4.        nics = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
  5.  
  6.        For Each nic As NetworkInterface In nics
  7.            Dim S As Integer = nic.NetworkInterfaceType
  8.  
  9.            If nic.OperationalStatus = 1 Then
  10.                If S = NetworkInterfaceType.Wireless80211 Or S = NetworkInterfaceType.Ethernet Then
  11.                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
  12.                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces.First.GetIPv4Statistics
  13.                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
  14.                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
  15.  
  16.                End If
  17.                If S = NetworkInterfaceType.Ppp Then
  18.                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
  19.                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(1).GetIPv4Statistics
  20.                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
  21.                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
  22.                End If
  23.            End If
  24.        Next
  25.    End Sub



 Pero no cuadra con los mostrados por Windows a través del cuadro "Estado de Conexión de red inalámbrica":





Gracias



« Última modificación: 4 Noviembre 2015, 16:57 por Lekim » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines