:: Para esperar 5 segundos
Timeout /T 5

:: Para esperar 5 segundos
Ping -n 5 localhost >NUL

Start http://www.juegoejemplo.net/game.php?sección=mapa^&vuelta=5534601

Start /B "" "http://www.juegoejemplo.net/game.php?sección=mapa&vuelta=5534601"

@Echo OFF
For /L %%N in (0,1,100) Do (
    Echo http://www.juegoejemplo.net/game.php?sección=mapa^&vuelta=553460%%N
    REM  Start /B "" "http://www.juegoejemplo.net/game.php?sección=mapa&vuelta=553460%%N"
)

Reg.exe QUERY "HKLM\Clave"

Regedit.exe /e "C:\Temp.reg" "HKEY_CURRENT_USER\Clave"

CreateObject("Wscript.Shell").Run """" & "C:\Archivo.bat" & """", 0, False

• obtienes la primera línea
• la cifras
• la guardas en un archivo temporal
• obtienes la siguiente línea
• la cifras
• la añades al archivo temporal

@Echo OFF
setlocal EnableDelayedExpansion
set NewLine=^


Set /P "File=Escriba el nombre del archivo >> "
Echo "%File%" | FIND /I ".txt" || (Set "File=%File%.txt")

For /F "usebackq tokens=*" %%# in ("%File%") do (Set "FileContent=!FileContent!!NewLine!%%#")
Echo: !FileContent!
Pause&Exit

@Echo OFF
 
Set /P "File=Escriba el nombre del archivo >> "
Echo "%File%" | FIND /I ".txt" || (Set "File=%File%.txt")
 
For /F "usebackq tokens=*" %%# in ("%File%") do (Call :Cifrar "%%#")
Pause&Exit
 
:Cifrar
Echo "%~1"
Rem Esta subrutina procesa una a una cada línea del archivo...
Rem aquí debes hacer las operaciones en el string recibido, es decir, lo cifras...
Rem y almacenas la línea cifrada en un archivo temporal...
Echo "%VARIABLE%" >> "%TEMP%\Temp.bat"
GOTO:EOF

    #Region " Get MD5 Of File Function "
 
       ' [ Get MD5 Of File Function ]
       '
       ' Examples :
       '
       ' MsgBox(Get_MD5_Of_File("C:\Test.txt"))
 
       Private Function Get_MD5_Of_File(ByVal File As String) As String
           Using MD5_Reader As New System.IO.FileStream(File, IO.FileMode.Open, IO.FileAccess.Read)
               Using MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
                   Dim MD5_Byte() As Byte = MD5.ComputeHash(MD5_Reader)
                   Dim MD5_Hex As New System.Text.StringBuilder(MD5.ComputeHash(MD5_Reader).Length * 2)
                   For Number As Integer = 0 To MD5_Byte.Length - 1 : MD5_Hex.Append(MD5_Byte(Number).ToString("X2")) : Next
                   Return MD5_Hex.ToString().ToLower
               End Using
           End Using
       End Function
 
    #End Region

#Region " Get MD5 Of String Function "
 
    ' [ Get MD5 Of String Function ]
    '
    ' Examples :
    '
    ' MsgBox(Get_MD5_Of_String("C:\Test.txt"))
 
    Private Function Get_MD5_Of_String(ByVal str As String) As String
        Dim MD5_Hex As String = Nothing
        Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim MD5_Byte = System.Text.Encoding.UTF8.GetBytes(str)
        Dim MD5_Hash = MD5.ComputeHash(MD5_Byte)
        MD5.Clear()
        For Number As Integer = 0 To MD5_Hash.Length - 1 : MD5_Hex &= MD5_Hash(Number).ToString("x").PadLeft(2, "0") : Next
        Return MD5_Hex
    End Function
 
#End Region

#Region " Get Motherboard ID Function "
 
    ' [ Get Motherboard ID Function ]
    '
    ' Examples :
    '
    ' Dim Motherboard_ID As String = Get_Motherboard_ID()
    ' MsgBox(Get_Motherboard_ID())
 
    Private Function Get_Motherboard_ID() As String
        For Each Motherboard As Object In GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard") : Return Motherboard.SerialNumber : Next Motherboard
        Return Nothing
    End Function
 
#End Region

#Region " Get CPU ID Function "
 
    ' [ Get CPU ID Function ]
    '
    ' Examples :
    '
    ' Dim Processor_ID As String = Get_Motherboard_ID()
    ' MsgBox(Get_CPU_ID())
 
    Private Function Get_CPU_ID() As String
        For Each CPU_ID As Object In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_Processor") : Return CPU_ID.ProcessorId : Next CPU_ID
        Return Nothing
    End Function
 
#End Region

#Region " Get MD5 Of File Function "
 
    ' [ Get MD5 Of File Function ]
    '
    ' Examples :
    '
    ' MsgBox(Get_MD5_Of_File("C:\Test.txt"))
 
    Private Function Get_MD5_Of_File(ByVal File As String) As String
        Using MD5_Reader As New System.IO.FileStream(File, IO.FileMode.Open, IO.FileAccess.Read)
            Using MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider
                Dim MD5_Byte() As Byte = MD5.ComputeHash(MD5_Reader)
                Dim MD5_Hex As New System.Text.StringBuilder(MD5.ComputeHash(MD5_Reader).Length * 2)
                For Number As Integer = 0 To MD5_Byte.Length - 1 : MD5_Hex.Append(MD5_Byte(Number).ToString("X2")) : Next
                Return MD5_Hex.ToString().ToLower
            End Using
        End Using
    End Function
 
#End Region

wmic.exe BASEBOARD get serialnumber

#Region " Get Motherboard ID Function "
 
    ' [ Get Motherboard ID Function ]
    '
    ' Examples :
    '
    ' Dim Motherboard_ID As String = Get_Motherboard_ID()
    ' MsgBox(Get_Motherboard_ID())
 
    Private Function Get_Motherboard_ID() As String
        For Each Motherboard As Object In GetObject("WinMgmts:").InstancesOf("Win32_BaseBoard") : Return Motherboard.SerialNumber : Next Motherboard
        Return Nothing
    End Function
 
#End Region

#Region " Get CPU ID Function "
 
    ' [ Get CPU ID Function ]
    '
    ' Examples :
    '
    ' Dim Processor_ID As String = Get_Motherboard_ID()
    ' MsgBox(Get_CPU_ID())
 
    Private Function Get_CPU_ID() As String
        For Each CPU_ID As Object In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_Processor") : Return CPU_ID.ProcessorId : Next CPU_ID
        Return Nothing
    End Function
 
#End Region