Saludos,

- Que error te manda, porque yo no tengo problemas. Recuerda que el Caracter EOF en Windows es ^Z (Ctrl + Z o F6) y en Linux es ^D (Ctrl + D):


-- Si estás presionando ^C (Ctrl + C) esto provoca una excepción y finaliza tu programa antes de (terminar de) imprimir tus "totales". El caracter EOF debería de ir solo en una nueva línea.

Saludos,

- Existe Software y hardware "congelador" de disco como Deep Freeze, Shadow Defender o Custodius. Estos protegen Unidades y/o carpetas del Disco duro de tal manera que al reiniciar se restaura tal cual estaba cuando se instaló y configuro el programa.

- Para instalar la mayoría de programas se requiere de permisos de administrador para que dicho programa agregue/modifique entradas en el registro de windows, instale librerías, trabaje con la unidad del sistema, etc. Es decir, los programas "ensucian" mucho el sistema operativo y el disco duro.

- Shadow Defender es más permisivo para uso personal y Deep Freeze Standar es más robusto para uso público, dependerá mucho del "alcance" que necesites, tienes máquinas virtuales, DeepFreeze, Sandboxie, etc. cada uno con sus ventajas, desventajas y prestaciones. Por ejemplo si es para juegos de uso personal Shadow Defender es buena opción ya que permite excluir ciertas carpetas que puede ser la carpeta donde se guarda el avance del juego. Si es para ejecutar software de uso rápido sin que deje rastros como un Keygen o "un crack" bastaría Sandboxie. Las máquinas virtuales son opciones más completas PERO hay cierta pérdida de rendimiento y el espacio que ocupan.

- Wow, me he hecho líos para realizarlo usando RegEx y Split, en mis libros de Visual Basic .NET no hay nada de Expresiones Regulares, he tenido que echar mano de mis libros de C# donde se toca el tema en detalle. De momento solo tengo Visual Basic .NET 2005 y lo he implementado así:

Imports System.Text.RegularExpressions
 
Public Class Form1
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
    Dim rx As New Regex("(?<negativos>-\d+)|(?<positivos>\d+)")
    Dim positivos As String = ""
    Dim negativos As String = ""
    For Each match As Match In rx.Matches(txt.Text)
      If match.Groups("positivos").Value <> "" Then
        positivos = positivos & "," & match.Value
      Else
        negativos = negativos & "," & match.Value
      End If
    Next
    Dim numPos() As String = positivos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
    Dim numNeg() As String = negativos.Split(",".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
  End Sub
End Class

- He usado una RegEx más corta, me parece que le basta ..., luego voy concatenando una String para los positivos y otra para los negativos, unidas mediante una "coma", al final se usa esa misma coma para hacerle un Split quitando las vacias.

- Tengo entendido que pasarlo a C# es bastante sencillo, haber si me llega a descargar el C# 2005 para mañana y pasarlo si es que aún hay dudas.

- Cuando ocurre un error en VBScript se actualiza el Objeto Err con unos atributos, de los cuales se puede resaltar Err.Number y Err.Description, estos muestra un número entero distintivo y un mensaje de error distintivo correspondientemente.

- Para tomar el control de errores en VBScript se hace uso de la sentencia On Error Resume Next, de tal manera que al producirse un error no se muestra dicho error, sino, se continúa con la siguiente instrucción esperando a que el programador ponga las instrucciones adecuadas para "tomar el control" en caso de dicho error. Luego se restablece el Objeto Err con Err.Clear.

On Error Resume Next
 
Set oShell = WScript.CreateObject("WScript.Shell")
dato = oShell.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2\1004")
 
If Err.Number <> 0 then  'Ha ocurrido un error
  If Err.Number = -2147024894 Then
    WScript.Echo("Valor 1004 no existe")
  End If
  WScript.Quit
Else                     'Valor encontrado
  WScript.Echo("Valor 1004 existe y tiene el dato: " & dato)
End if
 

- La cosa es no confundir "premontados que fueron montados" que premontados propiamente dichos, por ejemplo, yo suelo comprar premontados de segundo uso DELL con placa de doble PCI-E, Core i5 de 4 generación, con 8 GB de Ram  a 200 dólares, las piezas encajan perfecto se nota que todo el conjunto está hecho para encajar uno con otro y son de buena calidad. La marca DELL del conjunto da cierta garantía y a mi me va perfecto para ponerle dos tarjetas de video para sacar 4 monitores de esa misma PC usando Ibik Aster para obtener 4 PC "independientes" a partir se una sola XD. En estos casos sale mas barato y seguro un premontado de marca.

- Para usuarios exigentes si que vale echarle buen precio a sus componentes principales de acuerdo a sus gustos y requerimientos, en este caso los premontados suelen costar bastante.

Saludos,

- En Batch se acostumbra resolverse la vida usando Find para encontrar cosas:

@Echo Off
 
Set clave="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
Set valor="1004"
( Reg Query %clave% /V %valor% 2>&1 | Find "0x3" ) >nul
If ErrorLevel 1 (
  Echo Valor no encontrado
) Else (
  Echo Valor encontrado
)
 
Pause

- También podrías usar For /F para filtrar el resultado de un comando y sacar tokens para subdividirlo:

@Echo Off
 
Set clave="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2"
Set valor="1004"
For /F "tokens=3" %%a In ('Reg Query %clave% /V %valor% 2^>^&1') Do (
  If "%%a" == "0x3" (
    Echo Valor encontrado
  ) Else (
    Echo Valor no encontrado
  )
)
 
Pause

- Jeje, falta ver más películas y dibujos animados, por ejemplo en los Simpsons: https://simpsons.fandom.com/es/wiki/Domo, las cúpulas de Ergo proxy, la película The Truman Show, etc, etc:

- Cierto, si es un apagado súbito es por Hardware: un sensor informa sobrecalentamiento y apaga para evitar daños. Lo otro es Reinicio súbito, esto puede ser por error de Software debido a algún driver.

- Debería de ser fácil detectar sobrecalentamiento al tacto. Aunque yo mismo he tenido un problema de apagado súbito con un viejo puerto serie, si ponía algo a ese puerto la PC se apagaba a los 40 a 70 segundos, tiempo que más o menos coincidía con el arranque de windows, quizá ese puerto estaba dañado y/o hacia un corto circuito. El puerto ya no se usa y la PC funciona normal.

- Tendrías que revisar los Logs de Filezilla, quizá el servidor solo acepte SFTP o alguna otra restricción debe tener.

- Sip, solo tienes que recorrer cada caracter de tu variable y ver si es una coma. Como en Batch es algo más complicado obtener el número de caracteres de una variable, puede resultar más sencillo recorrer cierta cantidad de caracteres, en este caso 50, luego se comprueba si aún quedan caracteres en la variable para salir del For y no seguir la 50 veces en vano.

-- Y como siempre, cuando se van a manipular variables de entorno dentro de instrucciones agrupadas hay que utilizar EnableDelayedExpansion:

--- GeSHi tiene un bug con !num:~%%a,1! en DOS así que le voy a poner PHP-BRIEF XD

@Echo Off
Set /P "num=Introduce un n£mero decimal > "
 
SetLocal EnableDelayedExpansion
For /L %%a In (0,1,50) Do (
  Set char=!num:~%%a,1!
  If Defined char (
    If "!char!" == "," (
      Echo Si hay ,
      GoTo :continuar
    )
  ) Else (
    Echo No hay ,
    GoTo :continuar
  )
)
 
:continuar
Pause

- He estado haciendo pruebas con 50000 iteraciones y veo que el FOR tiene un Bug porque demora igual XD, como si no saliera del For.

-- Tampoco es que se vaya a poner tantas iteracciones, no creo que el usuario se ponga a tipear un número cientos de dígitos XD. Esta otra opción no tiene el Bug:

@Echo Off
Set /P "num=Introduce un n£mero decimal > "
Set /A i = 0
 
:inicio_bucle
Call Set char=%%num:~%i%,1%%
If Defined char (
  If "%char%" == "," (
    Echo Si hay ,
    Goto :fin_bucle
  )
  Set /A i += 1
  Goto :inicio_bucle
) Else (
  Echo No hay ,
  Goto :fin_bucle
)
:fin_bucle
 
Pause

-- Estoy utilizando Call Set var1=%%var2:~%var3,1%% para que se expandan bien las variables dentro de variables y asi evitarme usar EnableDelayedExpansion.