Obtener subida y bajada de Internet en Megabytes

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP) (Moderador: kub0x)

Obtener subida y bajada de Internet en Megabytes

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Obtener subida y bajada de Internet en Megabytes (Leído 2,731 veces)

okik

Desconectado

Mensajes: 462

Obtener subida y bajada de Internet en Megabytes

« en: 19 Junio 2015, 17:39 pm »

Hola

Me gustaría saber como puedo, con VB.NET, obtener los megabytes de datos de bajada y subida a través de mi conexión de Internet.

Gracias

He encontrado este código en la ayuda de vb.net. Si se mete en un timer al entrar en una nueva web los valores aumentan, porque me da unos números que representan paquetes recibidos creo. Pero no se es esto lo que busco, ni qué representan estos valores.

Código

    Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
        Dim ipstat As IPGlobalStatistics = properties.GetIPv4GlobalStatistics()
        Label1.text= "Inbound Packet Data: "  & ipstat.ReceivedPackets
        Label2.text= "Forwarded: " & ipstat.ReceivedPacketsForwarded
        Label3.text= "Delivered: " &  ipstat.ReceivedPacketsDelivered
        Label4.text= "Discarded: " &  ipstat.ReceivedPacketsDiscarded

https://msdn.microsoft.com/en-us/library/system.net.networkinformation.ipglobalstatistics.receivedpackets%28v=vs.110%29.aspx

Finalmente parece que encontré la respueta:

Código

     Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
        ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(0).GetIPv4Statistics
        Label6.Text = ipv4Stats.BytesReceived.ToString
        Label7.Text = ipv4Stats.BytesSent.ToString

fuente:
http://www.sevenforums.com/network-sharing/193986-question-about-packets-bytes-sent-received-n-work-connection.html

Se obtiene la misma información que aquí:

Sl2


« Última modificación: 19 Junio 2015, 19:21 pm por okik »	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.885

Re: Obtener subida y bajada de Internet en Megabytes

« Respuesta #1 en: 19 Junio 2015, 23:03 pm »

Solo por comentarlo, ten en cuenta que lo que estás haciendo aquí no es una metodología segura que puedas aplicar a otros PC's:

Citar

Código

ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(0).GetIPv4Statistics

Estás accediendo a un índice específico sin haber identificado previamente si ese índice "0" hace referencia a la interfáz de red que esté activa y transfiriendo datos.

Esas classes que estás utilizando exponen miembros para identificar el adaptador en concreto que realmente quieras, mediante la MAC, el nombre de la interfáz, las DNS, la Id, el hostname, o cómo prefieras hacer la comprobación, deberías mejorarlo basándote en alguno de esos parámetros.

Esto tampoco sería un método seguro, ya que no identifico la red en concreto que quiero mostrar, pero al menos excluyes bastantes otras posibles interfaces:

Código

Public Shared Function GetEthernetAdapters() As IEnumerable(Of NetworkInterface)
 
    Return From adapter As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces
           Where adapter.NetworkInterfaceType = NetworkInterfaceType.Ethernet AndAlso
                 adapter.Supports(NetworkInterfaceComponent.IPv4) AndAlso
                 Not adapter.IsReceiveOnly AndAlso
                 Not adapter.OperationalStatus = OperationalStatus.Down
 
End Function
 
Private Sub Timer1_Tick(sender As Object, e As EventArgs) _
Handles Timer1.Tick
 
    Dim ipv4Stats As IPv4InterfaceStatistics = GetEthernetAdapters.First.GetIPv4Statistics
 
    Label16.Text = String.Format("{0} Bytes.", CStr(ipv4Stats.BytesReceived))
    Label7.Text = String.Format("{0} Bytes.", CStr(ipv4Stats.BytesSent))
 
End Sub

Saludos!


« Última modificación: 19 Junio 2015, 23:10 pm por Eleкtro »	En línea

okik

Desconectado

Mensajes: 462

Re: Obtener subida y bajada de Internet en Megabytes

« Respuesta #2 en: 19 Junio 2015, 23:33 pm »

hola

No había caído, gracias. Aprecio tu aporte.

Como prueba he conectado el móvil para usarlo como modem y utilizar la conexión del mismo. El código sigue funcionado. He sustitiudo (0) por Firts.

Código

ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces.First.GetIPv4Statistics

Pero supongo que es lo mismo.

En cuanto al código que me das, me da error en la lína 14.

Código

 Dim ipv4Stats As IPv4InterfaceStatistics = GetEthernetAdapters.First.GetIPv4Statistics

Señala a GetIpv4Statistics y dice "La secuencia no contiene elementos"

Intentaré averiguar el índice de la red activa.

Sl2


« Última modificación: 19 Junio 2015, 23:37 pm por okik »	En línea

Eleкtro

Ex-Staff

Desconectado

Mensajes: 9.885

Re: Obtener subida y bajada de Internet en Megabytes

« Respuesta #3 en: 20 Junio 2015, 00:18 am »

Cita de: okik en 19 Junio 2015, 23:33 pm

"La secuencia no contiene elementos"

El error se explica por si mismo, te está indicando que la query de LINQ está vacía, ya que no se ha encontrado ningún elemento que cumpla las condiciones que especifiqué (en mi caso si funciona, con mi interfáz de red Ethernet), cambia esas condiciones.

saludos!


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	internet y monitoreo de camaras... (Subida y bajada de datos)??? Dudas Generales	ReCorcholis	4	12,880	1 Mayo 2011, 22:22 pm por ReCorcholis
	Ono, capaz de proporcionar 1 Gbps de bajada y 75 megas de subida Noticias	wolfbcn	0	2,154	21 Febrero 2012, 01:45 am por wolfbcn
	Tengo un problema extraño de limitacion de bajada y subida Redes	anonimo12121	1	2,151	8 Mayo 2013, 06:55 am por mugre
	No puedo obtener estadística de subida y bajada de red en XP .NET (C#, VB.NET, ASP)	Lekim	3	2,702	16 Septiembre 2015, 15:30 pm por Eleкtro
	Problema de conexión en PC - velodidad de subida muy lenta/bajada ok « 1 2 » Windows	samjack	10	7,322	13 Julio 2017, 16:04 pm por Randomize