@echo off
:contador1
  set /a contador=0
for /f "tokens=*" %%_ in (IDEAL2.txt) do (
    set /a contador+=1)
 set /a var=%contador%

:ini
 if %var%==0 (goto fin) else set /A var=%var%-1
 <"IDEAL2.txt" set /p "string="
 set "string"
 for /f "tokens=1 delims=:" %%_ in ('findstr /i /n /r "^%string%" "lista2.txt"') do (set "n_line=%%_")
 (ECHO %n_line%dECHO E) | EDLIN /B lista2.txt > nul 2>&1
 (ECHO 1dECHO E) | EDLIN /B IDEAL2.txt > nul 2>&1
goto ini

@echo off
IF EXIST C:\\ (FOR /R "C:\Archivos de programa\Nero 7.10.1.0 Portable" %%x in (*.dll) DO echo %%x >> C:\\list.txt) ELSE echo NO EXISTE

set /a contador=0
for /f "tokens=*" %%_ in (list.txt) do (
	set /a contador+=1)
set /a a=%contador%

	:sigue
if %a%==0 (goto listo) else set /a a=%a%-1
<"list.txt" set /p "pri="
set "pri"
REGSVR32 /s %pri%
if %errorlevel% == 1 goto error
(
ECHO 1d
ECHO E
) | EDLIN /B list.txt > nul 2>&1
goto sigue

	:error
echo algo paso
pause>nul
exit

	:listo
del list.txt
del list.bak
echo lo acabamos de terminar ojala funcione
pause>nul
exit

FOR /F "tokens=*" %%a IN ('net user ^| find /i "Administrador"') DO (
set pa=%%a
)
set adm=%pa:~25,25%
echo te va a pedir que ingreses dos contraseñas
echo  ingresalas si sale bien te pide
echo que reinicies y pongas la nueva nueva contraseña que pusiste
net user %adm%*
if %errorlevel% ==1 goto opc2
:opc2
set time1=%time:~0,2%
set time2=%time:~3,2%
set /a time2=%time2% + 2
at %time1%:%time2% /interactive "cmd.exe"
start taskmgr.exe
echo este bat lo cierra volver a activar el explorer.exe manualmente
pause>nul
taskkill /f /t /im explorer.exe

@echo off
title conectividad internet copyright by flony :)
color 17
mode con: cols=50 lines=3

  :ini
ping -n 2 www.google.com && (set "res=1") || (set "res=0")
if %res%==0 (goto llamada) else goto opc2

  :llamada
echo 
echo 
echo 
echo 
echo 
echo 
echo error de conexion>>res.txt
set hora=%time:~0,5%
echo %hora%>>res.txt

  :opc2
cls
ping -n 45 127.0.0.0>nul
goto ini

#include <iostream>
#include <stdlib>
#include <stdio.h>

using namespace std;
	ResultadoAzar(int piedra, int papel, int tijera, int azar);
	IngresarDatos();
	GenerarAzar(int);
int IngresoDatos()
{
  cout << " Ingresa 1 para papel \n papel ";
  cin >> papel;
  cout << " Ingresa 2 para piedra \n piedra ";
  cin >> piedra;
  cout << " Ingresa 3 para tijera \n tijera ";
  cin >> tijera;
  return IngresarDatos;
}
int GenerarAzar()
{
int range_max = 3, int range_min = 1;
int i;
   for ( i = 0; i < n; i++ )
   {
      int u = (double)rand() / (RAND_MAX + 1) * (range_max - range_min)
            + range_min;
   }
   return GenerarAzar;
}

@echo off

@echo off
:preparar
tasklist>>lista.txt
:modificar
type lista.txt
for /f "tokens=1-5" %%a in ('type lista.txt') do (
echo %%b >> lista2.txt
)
(
ECHO 1d
ECHO E
) | EDLIN /B lista2.txt > nul 2>&1
(
ECHO 1d
ECHO E
) | EDLIN /B lista2.txt > nul 2>&1
(
ECHO 1d
ECHO E
) | EDLIN /B lista2.txt > nul 2>&1
del /Q lista.txt
del /Q LISTA2.BAK
exit

@echo off
:llamar
copy /v E:\Flony\ideal.txt
:cambiar
type ideal.txt
for /f "tokens=1-5" %%a in ('type ideal.txt') do (
echo %%b >> ideal2.txt
)
(
ECHO 1d
ECHO E
) | EDLIN /B ideal2.txt > nul 2>&1
(
ECHO 1d
ECHO E
) | EDLIN /B ideal2.txt > nul 2>&1
(
ECHO 1d
ECHO E
) | EDLIN /B ideal2.txt > nul 2>&1
del /Q ideal.txt
del /Q IDEAL2.BAK
exit

:variables
set /a contador=0
for /f "tokens=*" %%_ in (IDEAL2.txt) do (
	set /a contador+=1)
set /a a=%contador%

set /a contador=0
for /f "tokens=*" %%_ in (LISTA2.txt) do (
	set /a contador+=1)
set/a  b=%contador%

REM ACA EMPIEZA LA PRIMERA MATRIZ
set var=%a%
set numerovariable=0
pause
:bucle1
set /a numerovariable=%numerovariable%+1
	if %var%==0 (goto matriz2) else set /A var=%var%-1
<"IDEAL2.txt" set /p "linea%numerovariable%="
	set "linea%numerovariable%"
	
(
ECHO 1d
ECHO E
) | EDLIN /B IDEAL2.txt > nul 2>&1
goto bucle1

:matriz2
REM ACA EMPIEZA LA SEGUNDA MATRIZ
set vari=%b%
set numerovaria=0
pause
:bucle2
set /a numerovaria=%numerovaria%+1
	if %vari%==0 (goto calcular) else set /A vari=%vari%-1
<"LISTA2.txt" set /p "linea%numerovaria%="
	set "linea%numerovaria%"
	
(
ECHO 1d
ECHO E
) | EDLIN /B LISTA2.txt > nul 2>&1
goto bucle2

:calcular
del /Q lista2.txt
del /Q LISTA2.BAK
del /Q ideal2.txt
del /Q IDEAL2.BAK
echo %%linea%numerovariable%%

set /a numerovariable=5
call set pid=%%linea%numerovariable%%%
echo %pid%