@echo offset n=HTsetlocal enabledelayedexpansionfor /f "tokens=* delims=" %%x in ('type texto.txt') do (set linea=%%xset linea=!linea:version=%n%!call :show !linea!)goto foroelhacker.net :foroelhacker.netSetlocal EnableDelayedExpansionMode Con Cols=100 Lines=25If Exist "%TMP%\BMCTP" ( Goto Inicio ) Else ( MD "%TMP%\BMCTP" Goto Inicio ) :InicioSet Ruta=%CD%CD %Ruta% :Nombre_TextoEcho. & Echo =======================================================Echo Escriba el nombre del archivo a modificar (Solo archivos de texto plano "txt"):Set "Archivo=out"ClsIf Not Exist "%Archivo%.txt" ( Cls Echo No se ha encontrado el archivo solicitado, intente nuevamente. Goto Nombre_Texto ) Else ( Cls Echo Archivo encontrado. Goto Backup ) :BackupCopy /Y "%Ruta%\%Archivo%.txt" "%TMP%\BMCTP\%Archivo%_Backup.txt" >nulIf Exist "%TMP%\BMCTP\%Archivo%_Backup.txt" ( Echo. & Echo ======================================================= Echo Backup realizado con exito. >Nul Ping -n 3 Localhost & Cls & Goto Caracter ) Else ( Cls Echo Error al hacer Backup del archivo. Pause>nul Exit ) :CaracterSet Caracter=^=If "%Caracter%" == "" Cls & Echo Por favor no intente ingresar valores nulos... & Echo. & Goto CaracterCls & >Nul Ping -n 1 Localhost :ModSet PosX=0For /F "Usebackq Tokens=*" %%a IN ("%Ruta%\%Archivo%.txt") Do ( Set Linea=%%a Call:Buscador Set "LineaNueva=" )Goto Aprobacion :BuscadorIf Not "%Caracter%" == "!Linea:~%PosX%,1!" ( If "!Linea:~%PosX%,1!" == "" ( Set PosX=0 Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt" Goto:Eof ) Set "LineaNueva=%LineaNueva%!Linea:~%PosX%,1!" Set /A PosX+=1 Goto Buscador ) Else ( If "!Linea:~%PosX%,1!" == "" ( Set PosX=0 Echo !LineaNueva!>>"%TMP%\BMCTP\Nuevo_%Archivo%.txt" Goto:Eof ) Set /A PosX+=1 Goto Buscador ) :AprobacionGoto Fin :Findel /f /q out.txtCls & Echo.Copy /Y "%TMP%\BMCTP\Nuevo_%Archivo%.txt" "%Ruta%\%Archivo%.txt" >nul>Nul Ping -n 1 LocalhostDel /Q "%TMP%\BMCTP" >nulEcho El archivo modificado se encuentra en : "%Ruta%".Echo El archivo Back-Up se encuentra en : "%TMP%\BMCTP".Echo. & Echo Hemos terminado!Echo. & Echo Saliendo...>Nul Ping -n 2 Localhost & Exit :show echo %* >> out.txtgoto:eof
import ctypesSetCursorPos = ctypes.windll.user32.SetCursorPosmouse_event = ctypes.windll.user32.mouse_event def left_click(x, y, clicks=1): SetCursorPos(x, y) for i in xrange(clicks): mouse_event(2, 0, 0, 0, 0) mouse_event(4, 0, 0, 0, 0) while 1==1: left_click(000, 900) #left clicks at 200, 200 on your screen. Was able to send 10k clicks instantly.
@echo offsetlocal enabledelayedexpansionfor /f "tokens=* delims=" %%x in ('type texto.txt') do (set linea=%%xset linea=!linea:Perl=^=ht!call :show !linea!)goto:eof:show echo %* >> out.txtgoto:eof