A qué llamas 'inversiones de 1'... ?.
Fuerzas a mirar el código para intentar dilucidar el asunto, las cuestiones que plantea el interesado deberían quedar claramente definidas en la prosa sin necesidad de tener que mirar el código, por otro lado mirando el código, pareciera que llamas inversiones a cada intercambio...

...pero cuando luego uno lee:
...ya no queda claro, ahora pareciera uno entender que entre todos esos valores se ha incluído uno con valor 1, y que se trata de contar cuantas veces cambiara ese valor de la 'parte alta' a la 'parte baja' y viceversa (asumo), por lo que lo que hay en el código es solo el 'intento' y por tanto no sirve para deducir tu propósito.

¿Por qué usas ese algoritmo?... El código es tortuoso y sin duda lento además de consumidor de memoria extra.

p.d.: Olvidaba decirte, que para poner valores de ejemplo (en el foro), basta poner 20-30 cifras, no 1000... ni 1 millón.

Win7 a la carga...

Sistema experto.

El router debe tener los mismos puertos de subida y bajada que los que tienes puesto en emule. TCP pasa el control, pero falla UDP, posiblemente el puerto no coincida o bien el puerto coincide, olvidaste marcar que es del protocolo UDP y hayas puesto TCP.

Igualmente en el firewall de windows, deben añadirse reglas que contemplen los mismos puertos.
Como es algo hartamente solicitado, no hace falta perder tiempo en epxlicaciones... 'Gúguel' its your friend, my friend:
https://www.google.es/search?hl=es&gbv=2&q=configurar+firewall+windows+10+para+emule&oq=configurar+firewall+windows+10+para+emuleule&aqs=heirloom-srp.0.0l1

Seleccionando un enlace en la búsqueda, por ejemplo:
https://www.softzone.es/programas/descargas/acelerar-emule-abrir-puertos-firewall/

Si al final siguieras teniendo dudas, saca captura d ela configuración de emule (de la ficha de conexión, tacha si procede tu nombre de usuario de emule), de los valores introducidos en le router en la ficha port forwarding y de las reglas en el 'windows defender'... para ver si hay uniformidad en los puertos.

No se trataba de ninguna 'regañina' como pareces haberlo interpretado.

Digo simplemente que donde vas a encontrar programadores con la capacidad de verificar al detalle cada nimiedad al respecto, ninguno será mejor que los propios programadores de Microsoft, a los que pagan precisamente para eso, para tratar de solventar los bugs que se reporten. Además preguntabas específicamente aquí por "¿Alguna solución?.", cuando si hay algún problema en el código la solución tendrá que venir de parte de los desarrolladores de W11, cosa que no podrá darse si ni siquiera se ha reportado tal bug. Por ello te alentaba a que lo comuniques allí.

Especialmente cuando se trata de un S.O. en activo... Ellos tiene el código, ellos pueden hacer los tests precisos, ellos pueden orientarte sobre algún problema de compatibilidad (no es causa descartable cuando se emigra desde una versión previa de un S.O. en vez de instalar desde 0 el mismo, ...tal como te sugería más arriba Falo Zipo Pixote ).

Tampoco descarto la opción que señala Songoku... un problema con un módulo de la RAM.
Si tiene 16Gb. retira un módulo de la RAM, y prueba A durante unas semanas (seguirá funcionando óptimamente con 8 Gb), luego prueba B de nuevo otras semanas, pero solo con el otro módulo de RAM.
Puede haber 4 resultados:
- No hubo problemas con A ni B. Parece problema solucionado o un problema que aparece solo cuando se accede a más de los 8GB. (un problema con un driver??).
- No hubo problemas con A, pero si con B, o al revés. Parece que falla uno de los módulos de la RAM. Si solo es de tanto en cuanto, quizás no merezca la pena cambiar de momento el módulo... podria suceder en este caso, que con un módulo el probelam sea más frecuente que con el otro, se debería posiblemente a que uno tuviere más daños' que el otro, luego ese con 'más daños' convendría ponerlo en el slot que aumenta de 8 a 16Gb. es de suponer que así se use con menos frecuencia (no necesariamente, peor teóricamente sí).
- Sigue habiendo problemas tanto en A como en B. Será raro que los dos módulos fallen con la misma cuestión siendo además de diferente fabricante (según los datos que señalas), luego no pareceriera ser un problema de la RAM, a lo sumo de algún driver de memoria... pero más posiblemente sea un problema con algún flujo de algún programa que opera con la memoria (funciones del kernel).

He de sponer que tienes Emule, aunque arriba hables de bottorrent, dado que pareces seguir las indicaciones para probar los puertos (desde el propio emule).

El problema pudiera estar (suponiendo que en el programa emule hayas asignado los mismos puertos que el router (ficha port forwarding)), en el firewall de micorsoft, o de cualquier otro firewall de cualquier posible programa o antivirus que lo incorpore. Debes añadir reglas al firewall prácticamente de la misma manera (mismos datos, aunque se localicen de diferente modo en el propio firewall), que asignas al router.


Esto no puede exigirse de emule. La velocidad de descarga de emule, depende de varios factores:
- La velocidad de tu conexión y preferencias de velocidad (y ancho de banda disponible respecto de lo que otros programas dejen libre).
- Idem, pero de los clientes (equipos de otros usuarios) a los que te conectas
- De la cantidad de clientes que tienen los ficheros solicitados.
- De los 'créditos' que tengas (esto último depende de tus estadísticas de subida y bajada). Los créditos determinan como subes en tu posición en la cola de los clientes. Es complejo su funcionamiento, quédate pues con que cuanto más hayas subido a un cliente más rápido subes en su cola de espera si su cola de espera es larga...
- Y (por supuesto) de la cantidad de descargas activas que tengas en el programa. Si tienes más de 20 (por ejemplo), deja pausado el resto y que se active otra cuando una descarga se complete (eso se configura desde las opciones del programa).

Es decir en emule puede descargar una película en (por ejemplo) 40 minutos, en 3 horas o en 5 meses... depende de todos los fatores antes dichos. Si solo un cliente tiene fuentes de la película cuyo enlace emule estás descargando y se conecta solo media hora al día y su velocidad (absoluta o relativa (si limita el ancho de banda máximo que ocupa emule)), podría tardar en descargarse mucho tiempo... si hay varias decenas de clientes que tiene ese fichero, es de esperar que se descargue en unas pocas horas.
Normalmente una película con muchos clientes se descarga en 2-3 horas, un película con muy pocos clientes, puede requerir incluso algunos días... el peor caso es cuando solo hay 1 y tiene su cola llena, se complica si su velocidad es baja.

Sigues usando código de alguna versión anterior... Nuevamente estás usando una función vieja para llamar a la nueva. Te reclama el resto de parámetros que la llamada que expones no contemplaba en esa versión...

Así quedó el código de la última versión:

' Crear nueva facturación,Abrir una existente.
Private Sub mnuFile_Click(Index As Integer)
    Dim File1 As String, File2 As String, NFacturaInicial As Integer
 
    Call CerrarCarrito
 
    Select Case Index
        Case 0  ' Nueva facturación
            File1 = InputBox("Elija el nombre del fichero para una nueva facturación (no debe existir).", "Nueva Facturacion", "Nueva facturacion" & FILE_EXTENSION_FACTURA)
            NFacturaInicial = InputBox("Si la facturación debe empezar con un número específico, indique cual es a continuación:", "NuevaFacturación: Número de facturación inicial", "1")
            If (Len(File1) > 0) Then
                File1 = AsegurarExtension(File1, FILE_EXTENSION_FACTURA)
                File2 = AsegurarExtension(File1, FILE_EXTENSION_FILES)
                If (CrearNuevaFacturacion(File1, File2, NFacturaInicial) = True) Then
                    Call ActivarInterfaz(True)
                    Call FrmCarrito.Show(vbModeless)
                Else
                    Call ActivarInterfaz(False)
                End If
            Else
                Call MsgBox("Proceso de creación de nueva facturación abortado. No se proporcionó un nombre", vbInformation, "Nueva facturación")
            End If
        Case 1  ' Leer fichero de facturación
            FrmFile.Show 1
            If (Len(FrmFile.File) > 0) Then
                File2 = FrmFile.File
                File1 = (App.Path & "\" & File2)
                File2 = App.Path & "\" & AsegurarExtension(File2, FILE_EXTENSION_FILES)
                If (ListarFacturacion(File1, File2) = True) Then
                    Call ActivarInterfaz(True)
                    Call FrmCarrito.Show(vbModeless)
                Else
                    Call ActivarInterfaz(False)
                End If
            End If
    End Select
End Sub
 

Como se ve, la función (que ni se llama igual, porque procede del nombre de otro menú), cuando llama a la función CrearFacturación precisa más parámetros...
Diríase que no sabes usar el editor de código para siquiera consultar que parámetros requiere la función a invocar, ni que entiendas los errores que te está marcando sobre la marcha la ejecución del código...

Me pregunto si llegaste a descargar, utilizar o intentar comprender el código de la última versión que te puse hace ya casi dos meses (mensaje 34 del hilo).


Por favor, no me insistas en que te solucione código que quedó solucionado. O usas enteramente una versión previa o enteramente la nueva versión. Los cambos (como te dije entonces), eran tan profundos que exigió retocar prácticamente todo, creo recordar que no quedó ninguna ventana sin que quedara afectada por los cambios. Yo me molesté en actualizar todas esas ventanas con su código para que los cambios que principalmente se solicitaban no dejarán cojo (sin funcionar o malfuncionando) el resto del programa que se vió afectado, además también me tomé la molestia de comentar los cambios que afectaron a cada uno de los módulos de código.

Yo no tengo ninguna forma de saber que cambios has hecho, ni que has tomado de una versión u otra, ni siquiera saber sobre qué versión estás trabajando... ni me siento obligado a resolver tu estulticia una y otra vez, si decides mezclar código de diferentes versiones sin pararte antes a considerar previamente qué implica hacer cambios... porque entonces esto nunca termina.

Es como si alguien comprara un vehículo, le cambia varias piezas de un motor por otro de un vehículo viejo que tenía y espera que el fabricante del nuevo le resuelva los problemas generados de dichos cambios, incluso aunque el fabricante fuera el mismo de ambos vehículos. Incluso aunque por cortesía el fabricante te diera indicaciones de los 'posibles' problemas, si tu sigues haciendo cambios de piezas.  Un fabricante vende su vehículo tal cual viene, cualquier cambio y que deje de funcionar, ahí el fabricante (además de anular su garantía) te dirá que los cambios que hagas serán bajo tu cuenta y riesgo...

Igualmente yo de digo que tú como programador debes ser capaz de resolver los problemas que te surjan cuando acometas cambios en un código que era plenamente funcional. Te solucionaría exclusivamente si algo no funcionara correctamente en el código de la última versión, solo porque aún lo conservo y no me costaría dar con cualquier posible error (en el caso de que no fueras capaz de solucionarlo), pero me desentiendo de resolver tus problemas por hacer cambios (y menos tirando de versiones anteriores, o pero mezcla de ellas) ni de acometer nueva funcionalidad.

Lo que es prestar ayuda en la compresnsión, explicación y/o dando código, creo que está más que satisfecho, el resto es dependiente de tus capacidades. Incluso el código que te he dado, aunque es plenamente funcional no es óptimo, pues te lo hice a modo de ejemplo mínimo para operar con ficheros, lo ideal era reconvertirlo para usar con clases y tablas hash, pero que dadas tus limitaciones entiendo que te quedases sin acometer tales cambios.

Seguramente le fastidia que últimamente Putin, le haya quitado 'su silla' de loco maníaco (perseguido) militar amenazante'.

Tiene que hacerse notar, cada cierto tiempo, para satisfacer su ego.

Y porqué no reportas tus observaciones en las páginas de Mocosoft????.
Aquí (casi con toda seguridad), no va a haber nadie que haya diseñado o programado las funcionalidades aludidas, y de haberlo, no tendría libertad ni permiso para responder (no es el canal oficial).

...dado que además estás con una versión de pruebas, lo más sensato es actualizar la versión, quizás se trate de un bug, que ya haya sido reportado previamente, corregido y por tanto ya no estar vigente ese problema.

El control de las pestañas, depende enteramente del navegador (las opciones activas, de las que muchas puedes cambiar a tu gusto en la 'configuración') y del usuario. La pagina web (visitada), no pinta nada en ello.

Por cierto, el título de '...memoria RAM', no tiene nada que ver con tu ocupación, cámbialo por 'dudas con pestañas en navegadores'.
...además en vez de preguntar por navegadores en general puesto que tu 'problema' es determinado, sería preferible indicar que navegador usas, para que quienes respondan puedan ceñirse con más precisión si resulta ser adecuado...