Ya, deben tener algún software que maneje todos esos datos y establezca los límites a los clientes que consumen mucho tráfico,
pero en el mejor de los casos quizás también tengan un sistema de "Exclusión de usuarios" donde añadirán a los clientes como yo, para que dicho sistema no vuelva a limitarnos la velocidad nunca más y así ellos no pierdan esos clientes y todos salimos ganando ...en el mejor de los casos.

Pero ...en fín, nunca se puede estar seguro de estas cosas, solo son especulaciones así que hay que ir con cuidado a partir de ahora.

Saludos!

[OFFTOPIC]

Según he leido, pedir que te establezcan una IP estática requiere un precio extra, eso se puede entender ...pero en este caso el usuario que pregunta quiere pedir una IP dinámica, por curiosidad ¿Eso también cuesta un dinero extra?.

[/OFFTOPIC]

xDDDD

Tema movido a petición de Drvy, y también para darte la oportunidad de recibir la ayuda de los usuarios habituales de este subforo.

Saludos.

@bela lugosi
Hay una norma para postear códigos de forma correcta, lee mi firma para no seguir incumpliendo la norma.

Sobre lo del bat, así lo hice:

@echo off
 
For %%F in (".\*.jpg") Do (
     Call Ren "%%~fF" "%%date:/=-%%, %%time::=.%%.jpg"
     Call :Sleep 5 & REM Milliseconds
)
 
Pause&Exit
 
:Sleep
Echo wscript.sleep^(%1^) : wscript.quit > "%TEMP%\Sleep.vbs"
Wscript "%TEMP%\Sleep.vbs"
GOTO:EOF

Saludos.

@drvy & @$Edu$

Vuelvo a repetir lo mismo para que me comprendais mejor, en los años que he tenido contratado ONO nunca he usado "aceleradores de internet", ni he modificado valores de configuraciones de RED extrañas, ni he podido hacer nada para entorpecer mi velocidad, nunca habia tenido este problema, hasta ahora.


@$Edu$

Quizás me equivoco pero creo que te refieres al límite QOS, segúramente ya sabrás que el límite se puede desactivar, pues yo he probado tanto activado como desactivado y no se notaba ninguna mejora: http://dottech.org/26628/how-to-force-windows-to-use-100-of-your-network-bandwidth-how-to-guide/


@drvy

Gracias por el programa

No he probado mi router en otros PC's, aunque tengo un portatil muy antiguo y ahora pienso que debería haberlo probado ahí, pero si que lo he probado en un livecd y en VM's.

De todas formas creo que es imposible que tenga una mala configuración de red porque probé reinstalando Windows, es decir, he probado la conexión con la configuración por defecto en una instalación limpia del SO (sin ninguna mejora).

Dando a suponer que no es un problema "mio", la conclusión más lógica y razonable para mi es la que ha comentado Songoku en este post:


De momento tengo el problema solucionado, de momento...

Saludos!

Vaya, así que pueden hacer eso, me lo temía, y claro, esa la única explicación lógica y razonable que le podemos encontrar, vamos, que son una panda de cabrones.

Y jamás reconocerán haberme disminuido la velocidad a propósito, por lo que comentas de la ley y la justicia.

Bueno,  llevo unas 4-5 días descargando a la velocidad normal así que el problema parece haberse solucionado, simplemente la velocidad a vuelto a su estado normal justo después de que me llamase un técnico al teléfono movil (que no hizo nada especial, solo me mandó mirar las conexiones con Netstat, juas...), yo creo que el post que escribí en el foro de ONO ha tenido algo que ver http://www.ono.es/clientes/te-ayudamos/dudas/foro-particulares/-/action/posts/list/18139/#62242 quizás al final si que les sale más rentable que yo descargue muchos GB, a perder las mensualidades que mi dinero les proporciona.

Como ya digo, de momento el problema parece estar solucionado así que de momento prefiero no darme de baja, a menos que los de ONO vuelvan a limitarme la velocidad un día de estos.

Un saludo y gracias por vuestras opiniones

Una función para abreviar cantidades de dinero al estilo americano.

PD: He preguntado a gente americana como son las abreviaturas para cifras más grandes de un Trillón pero al parecer no existen abreviaturas Standards, así que me las he inventado un poco basándome en el nombre de las cantidades. http://ell.stackexchange.com/questions/9123/money-abbreviations

EDITO: Corregido la ubicación del caracter del dolar, parece ser que se pone a la izquierda de la cantidad, no a la derecha.

    #Region " Money Abbreviation "
 
       ' [ Money Abbreviation Function ]
       '
       ' // By Elektro H@cker
       '
       ' Examples :
       '
       ' MsgBox(Money_Abbreviation(1000))           ' Result: 1 K
       ' MsgBox(Money_Abbreviation(1000000))        ' Result: 1 M
       ' MsgBox(Money_Abbreviation(1500000, False)) ' Result: 1,5 M
 
       Private Function Money_Abbreviation(ByVal Quantity As Object, _
                                           Optional ByVal Rounded As Boolean = True) As String
 
           Dim Abbreviation As String = String.Empty
 
           Select Case Quantity.GetType()
 
               Case GetType(Int16), GetType(Int32), GetType(Int64)
                   Quantity = FormatNumber(Quantity, TriState.False)
 
               Case Else
                   Quantity = FormatNumber(Quantity, , TriState.False)
 
           End Select
 
           Select Case Quantity.ToString.Count(Function(character As Char) character = Convert.ToChar("."))
 
               Case 0 : Return String.Format("${0}", Quantity)
               Case 1 : Abbreviation = "k"
               Case 2 : Abbreviation = "M"
               Case 3 : Abbreviation = "B"
               Case 4 : Abbreviation = "Tr."
               Case 5 : Abbreviation = "Quad."
               Case 6 : Abbreviation = "Quint."
               Case 7 : Abbreviation = "Sext."
               Case 8 : Abbreviation = "Sept."
               Case Else
                   Return String.Format("${0}", Quantity)
 
           End Select
 
           Return IIf(Rounded, _
                  String.Format("{0} {1}", StrReverse(StrReverse(Quantity).Substring(StrReverse(Quantity).LastIndexOf(".") + 1)), Abbreviation), _
                  String.Format("{0} {1}", StrReverse(StrReverse(Quantity).Substring(StrReverse(Quantity).LastIndexOf(".") - 1)), Abbreviation))
 
       End Function
 
    #End Region

---

Contar la cantidad de coincidencias de un caracter dentro de un string.

#Region " Count Character "
 
    ' [ Count Character Function ]
    '
    ' // By Elektro H@cker 
    '
    ' Examples :
    ' MsgBox(Count_Character("Elektro", "e"))       ' Result: 1
    ' MsgBox(Count_Character("Elektro", "e", True)) ' Result: 2
 
    Public Function Count_Character(ByVal str As String, ByVal character As Char, _
                                    Optional ByVal IgnoreCase As Boolean = False) As Integer
 
        Return IIf(IgnoreCase, _
                   str.ToLower.Count(Function(c As Char) c = Convert.ToChar(character.ToString.ToLower)), _
                   str.Count(Function(c As Char) c = character))
 
    End Function
 
#End Region

Una función para convertir entre tasas de transferencia de telecomunicaciones y tasas de transferencia de datos, es decir, entre Bp/s y B/s.

PD: En este snippet @IkillNukes me ha ayudado con los cálculos matemáticos de las enumeraciones, que me daban ciertos problemas.

#Region " Telecommunication Bitrate To DataStorage Bitrate "
 
    ' [ Base64 To String Function ]
    '
    ' // By Elektro H@cker & IKillNukes
    '
    ' Examples :
    '
    ' MsgBox(Telecommunication_Bitrate_To_DataStorage_Bitrate(365, _
    '        Telecommunications_Bitrates.Kilobips, _
    '        DataStorage_Bitrates.Kilobytes)) ' Result: 45
    '
    ' MsgBox(Telecommunication_Bitrate_To_DataStorage_Bitrate(365, _
    '        Telecommunications_Bitrates.Kilobips, _
    '        DataStorage_Bitrates.Kilobytes)) ' Result: 45,625
 
    Private Enum Telecommunications_Bitrates As Long
        Bips = 1 ' bit/s
        Kilobips = 1000 ' bit/s
        Megabips = 1000000 ' bit/s
        Gigabips = 1000000000 ' bit/s
        Terabips = 1000000000000 ' bit/s
    End Enum
 
    Private Enum DataStorage_Bitrates As Long
        Bytes = 8 ' bits
        Kilobytes = 8000 ' bits
        Megabytes = 8000000 ' bits
        Gigabytes = 8000000000 ' bits
        Terabytes = 8000000000000  ' bits
    End Enum
 
    Private Function Telecommunication_Bitrate_To_DataStorage_Bitrate( _
                       ByVal BitRate As Single, _
                       ByVal Telecommunications_Bitrates As Telecommunications_Bitrates, _
                       ByVal DataStorage_Bitrates As DataStorage_Bitrates, _
                       Optional ByVal Rounded As Boolean = True
                     ) As Single
 
        Return IIf(Rounded, _
                   (BitRate * Telecommunications_Bitrates) \ DataStorage_Bitrates, _
                   (BitRate * Telecommunications_Bitrates) / DataStorage_Bitrates)
 
    End Function
 
#End Region

Convierte una fecha a formato de fecha Unix

#Region " DateTime To Unix "
 
    ' [ DateTime To Unix Function ]
    '
    ' Examples :
    '
    ' MsgBox(DateTime_To_Unix(DateTime.Parse("01/01/2013 12:00:00"))) ' Result: 1357041600
 
    Public Function DateTime_To_Unix(ByVal DateTime As DateTime) As Long
        Return DateDiff(DateInterval.Second, #1/1/1970#, DateTime)
    End Function
 
#End Region

Convierte formato de fecha Unix a Fecha normal.

#Region " Unix To DateTime "
 
    ' [ Unix To DateTime Function ]
    '
    ' Examples :
    '
    ' MsgBox(Unix_To_DateTime(1357041600)) ' Result: 01/01/2013 12:00:00
 
    Public Function Unix_To_DateTime(ByVal UnixTime As Long) As DateTime
        Return DateAdd(DateInterval.Second, UnixTime, #1/1/1970#)
    End Function
 
#End Region