Respecto al problema del code, parece que el valor se setea corréctamente en la variable, pero estás dentro de un IF, así que para solucionar lo del valor en la variable CNT (mostrar el contenido de la variablo y/o usar la variable) símplemente tienes que activar y usar la expansión de variables (SETLOCAL ENABLEDELAYEDEXPANSION), o en su defecto usar el comando CALL de esta manera:

Call Echo %%CNT%%

---

Entonces no has sido lo suficientemente específico, deberías haber dicho que ejecutas las órdenes diréctamente en la CMD, y que además usas Cygwin.


No necesitas usar cygwin, dispones de casi todos (sino todos) los comandos de Linux para Windows -> Gawk for Windows , sólo te lo digo como información por si quieres evitar depender de cygwin.

No sé que hace el susodicho comando "gawk", pero quizás esto te sirva como alternativa:  [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto


Ejemplos de indentación -> http://en.wikipedia.org/wiki/Wikipedia:Indentation

Saludos.

Hola, ¿Estás seguro que el PC no cumple los requisitos para instalar Windows XP?, siempre puedes instalar una versión "Lite" de Windows XP que consumen reálmente muy pocos recursos y sólo con 64 MB de RAM tendrías un SO funcional capaz de correr juegos antiguos que no requieran mucha más memória.

De todas formas mediante el sistema Torrent puedes encontrar y descargar muchos CD's de Windows 98 -> http://kickass.to/torrents/usearch/?q=windows+98

PD: Porfavor no escribas un post entero en mayúsculas, está prohibido en el foro.

Saludos

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