Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO VERIFICADOR DE NUMEROS PRIMOS POR 79137913
ECHO EJEMPLO:
ECHO Entrada 1 2 3 4 5 6 7 8 9 10 11 12 13
ECHO Salida: 1 1 1 0 1 0 1 0 0 0 1 0 1
SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
:NEXTNUM
IF "%FIN%"=="1" GOTO SHOWNUMS
SET RN=
:NEXTCHAR
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU " " (GOTO EMPIEZA)
IF "%CHAR%" EQU "" SET FIN=1
IF "%CHAR%" EQU "" (GOTO EMPIEZA)
SET RN=%RN%%CHAR%
GOTO NEXTCHAR
:EMPIEZA
SET X=%RN%
SET Y=%X%
SET CT=0
:LOOP
SET /A Y=%Y%-1
IF !Y!==0 GOTO ISPRIME
SET /A CHECK= %X% %% Y
IF !CHECK!==0 (SET /A CT=%CT%+1)
IF !CT!==2 GOTO NOTPRIME
GOTO LOOP
:NOTPRIME
SET OUTP=%OUTP% 0
GOTO NEXTNUM
:ISPRIME
SET OUTP=%OUTP% 1
GOTO NEXTNUM
:SHOWNUMS
ECHO %OUTP%
PAUSEPrivate Function XLines(TXT As TextBox) As Long
XLineas = UBound(Split(TXT.Text, vbNewLine))+1
End FunctionPrivate sub DeleteLine (XLine as long, TXT as TextBox)
Dim Aux() as string
Aux = Split(TXT.Text, VbNewLine)
Txt.text=Vbnullstring
For X = 0 to ubound(aux)
if X <> XLine then txt.text = txt.text & Aux(x) & VbNewLine
Next
End Sub@echo off
SETlocal enabledelayedexpansion
ping "%1" > a.txt
CLS
for /f "tokens=*" %%x in (a.txt) do (set N=!N!%%x)
del /s /q a.txt
CLS
SET NUM=0
:LOOP
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%"=="[" (SET /A IPSTART=%NUM%
GOTO LOOPB)
GOTO LOOP
:LOOPB
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%"=="]" (SET /A IPEND=%NUM%
GOTO IPTERMINADO)
GOTO LOOPB
:IPTERMINADO
SET /A AUX=%IPEND%-%IPSTART%-1
CALL SET IP=%%N:~%IPSTART%,%AUX%%%%
ECHO [IP]: %IP%
PAUSE@echo off
SETlocal enabledelayedexpansion
Set /p arch=Arrastre su archivo de mail aqui:
copy /b %arch% a.txt
CLS
for /f "tokens=*" %%x in (a.txt) do (set N=!N!%%x)
del /s /q a.txt
CLS
SET NUM=0
:LOOP
call set CHAR=%%N:~%NUM%,14%%%
set /a NUM+=1
IF "%CHAR%"=="Received from " (SET /A DNSSTART=%NUM%+13
GOTO DNSENCONTRADO)
GOTO LOOP
:DNSENCONTRADO
SET NUM=%DNSSTART%
:LOOPB
call set CHAR=%%N:~%NUM%,2%%%
set /a NUM+=1
IF "%CHAR%"=="([" (SET /A DNSEND=%NUM%
GOTO DNSTERMINADO)
GOTO LOOPB
:DNSTERMINADO
SET /A AUX=%DNSEND%-%DNSSTART%-1
CALL SET DNS=%%N:~%DNSSTART%,%AUX%%%%
:LOOPC
call set CHAR=%%N:~%NUM%,2%%%
set /a NUM+=1
IF "%CHAR%"=="])" (SET /A IPEND=%NUM%
GOTO IPTERMINADO)
GOTO LOOPC
:IPTERMINADO
SET /A DNSEND=%DNSEND%+1
SET /A AUX=%IPEND%-%DNSEND%-1
CALL SET IP=%%N:~%DNSEND%,%AUX%%%%
ECHO [IP]: %IP%
ECHO [HOST]: %DNS%
PAUSECitarEl usuario solamente vera que cuando ejecuto el bat, este desaparecio de donde estaba pero sigue ejecutandose, mostrando un mensaje que diga: "Estoy en %0" asi se sabe si funciono el melt o no.