domingo, 13 de setembro de 2009

BAT COMANDO DE COPIA DE TECLADO

 
@echo off  @title Errorlevels if exist "tecl
a.exe" Del /Q "tecla.exe">nul
  setlocal 
enabledelayedexpansion :ck :Tecla 
( echo n Tecla.dat echo e 0000 4D 5A 2E
 00 01 00 00 00 02
 00 00 10 FF FF F0 FF echo e 0010 FE FF
 00 00 00 01 F0 FF 1C 00 00 00 00 
00 00 00 echo e
 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4
 4C CD 21 echo rcx echo 002E echo 
w0 echo q echo. )
>Tecla.dat type Tecla.datdebug>NUL
 2>&1 del /f/q/a "Tecla.exe">NUL 2>&1 
ren Tecla.dat 
"Tecla.exe"  :Menu cls echo. ÉÍÍÍ
ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» echo. º ErrorLevel 
Check  º echo. ÈÍÍÍÍÍÍ
ÍÍÍÍÍÍÍÍÍÍÍÍͼ echo. echo. ÛßßÛßßßßßßß
ßßßßßßßßÛ echo. Û1ErrorLevel 
   Û echo. 
ÛßßÛßßßßßßßßßßßßßßßÛ echo. Û2.Û Gera
r Lista   Û echo. ÛßßÛßßßßßßßßßßßß
ßßßÛ echo. Û3.Û Sair     
     Û echo. ßßßßßßßßßßßßßßßßßßßß 
echo. Tecla if "%errorlevel%"=="49" 
(Goto :person) if 
"%errorlevel%"=="50" (Goto :Gera)
 if "%errorlevel%"=="51" (Goto :Exit)
 Goto :Menu  :person
 echo. echo. Pressione uma tecla para 
conhecer echo. seu valor ASCII que 
sera estabelecido
 echo. na variavel %%errorlevel%% 
echo. Tecla if "%errorlevel%"=="27" (
Goto :Menu) echo.
 Valor: %errorlevel% echo. pause 
cls Goto :person  :Gera echo @ echo off 
>TECLAS.BAT echo
 set mostra=Pressione uma tecla 
>>TECLAS.BAT echo :inicio >>TECLAS.BAT 
echo echo A tecla
 %%mostra%% o errorlevel dela = 
%%errorlevel%%>>TECLAS.BAT echo tecla
 >>TECLAS.BAT echo
 
 if errorlevel 32 if not errorlevel
 33 set tecla=Espaco^&set mostra=Es
paco>>TECLAS.BAT 
echo if errorlevel 9 if not errorlevel
 10 set tecla=Tab^&set mostra=Tab
ulacao>>TECLAS.BAT
 echo if errorlevel 8 if not errorlevel
 9 set tecla=Back^&set mostra=Bac
kspace>>TECLAS.BAT
 cls echo. echo. Lista de ErrorLevels 
set maiuscula=A,B,C,D,E,F,G,H,I,J
,K,L,M,N,O,P,Q,R,S,
T,U,V,W,X,Y,Z,Ç set minuscula=a,b,c,d
,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,
u,v,w,x,y,z,ç set 
mumeros=0,1,2,3,4,5,6,7,8,9 set 
simbolos=@,#,^$,%%,%*,%_,+,-,=,',\,.
,;,/,?,^},^{,[,],´,~
,^^,.,! set ACENTOS=á,é,í,ó,ú,ã,õ,â,ê
,î,ô,û,à,è,ì,ò,ù,ä,ë,ï,ö,ü for %
%a in (%maiuscula%,
%minuscula%,%mumeros%,%simbolos%,%
ACENTOS%) do ( (echo %%a)Tecla SET 
/A NUM=!errorlevel!
+1 ECHO if errorlevel !errorlevel! if
 not errorlevel !NUM! set tecla=
%%a^&set mostra=%%a 
)>>TECLAS.BAT echo goto inicio >>TECL
AS.BAT start /separate TECLAS.BAT
 exit Goto :Eof 
 :Exit @FOR %%# IN (B © S S - H 
E A D " " C © R P. " " 2 © © 9) DO 
@SET/P=%%~#NUL PING -
n 2 0 >NUL PING -n 5 0  endlocal exit
 

Nenhum comentário:

Postar um comentário