
Pesquisa personalizada
[AJUDA] TESTE DE VIDEO VIA BATCH
Página 1 de 1 • Compartilhe •
[AJUDA] TESTE DE VIDEO VIA BATCH
Boa tarde a todos.
estou precisando de uma ajudinha de vcs.
preciso fazer um teste de video via batch.
preciso testar as paletas de cores...
fazer que o batch mostre "todas" as cores e mostrar no final um OK.
agradeço ajuda de vcs
estou precisando de uma ajudinha de vcs.
preciso fazer um teste de video via batch.
preciso testar as paletas de cores...
fazer que o batch mostre "todas" as cores e mostrar no final um OK.
agradeço ajuda de vcs
jerodrigo- Idade : 28
Re: [AJUDA] TESTE DE VIDEO VIA BATCH
[Você precisa estar registrado e conectado para ver este link.]
@echo off
cls
dir /w C:\
for /L %%i in (7,1,8 ) do call :mudacor a%%i
for /L %%i in (6,1,7 ) do call :mudacor b%%i
for /L %%i in (5,1,6 ) do call :mudacor c%%i
for /L %%i in (4,1,5 ) do call :mudacor d%%i
for /L %%i in (3,1,4 ) do call :mudacor e%%i
for /L %%i in (2,1,3 ) do call :mudacor a%%i
for /L %%i in (1,1,2 ) do call :mudacor a%%i
for /L %%i in (1,1,9 ) do call :mudacor 0%%i
goto :sai
:mudacor
set texto=%*
set texto=%texto:"=%
<nul set /p "t=%texto:~,1%"
color 0%texto%
ping -n 2 127.0.0.1 > nul
exit /b
:sai
Re: [AJUDA] TESTE DE VIDEO VIA BATCH
Obs. funciona no XP outra OS não sei !
se funcionar favor relatarem
[Você precisa estar registrado e conectado para ver este link.]
se funcionar favor relatarem
[Você precisa estar registrado e conectado para ver este link.]
Boss-Head- Idade : 33
Re: [AJUDA] TESTE DE VIDEO VIA BATCH
@echo off
MODE 74,70
cls
FOR %%B IN (A B C D E F) DO (FOR /L %%A IN (0,1,9) DO (call :mudacor %%A%%B ))
echo OK
pause >nul
exit
:mudacor
color %1
SET /A NN+=1
SET "NN=%NN% "
<nul set /p "t=Û COR-%NN:~0,2% COLOR %1 Û"
ping -n 2 127.0.0.1 > nul
exit /b
Boss-Head- Idade : 33
Re: [AJUDA] TESTE DE VIDEO VIA BATCH
tutti i colori
@echo off
MODE 95,16
SET NN=-1
SET NN3=-1
set sb=+
set sb2=+
set pt=no
:vv
If Not Exist COR_BOSS.VBS (Call :CORES >>COR_BOSS.VBS)
FOR %%B IN (A B C D E F) DO (FOR /L %%A IN (0,1,9) DO (call :mudacor %%A%%B ))
goto vv
exit
:mudacor
SET /A NN%sb%=1
SET /A NN3%sb2%=1
SET "NN2=%NN% "
Cscript //nologo COR_BOSS.VBS %NN3% %NN% %1 " COR-%NN2:~0,2% COLOR %1 "
ping -n 1 127.0.0.1 > nul
if %NN%==0 (
if %pt%==ok set sb2=-
SET /a NN3=%NN3%-3
SET sb=+
)
if %NN%==21 (
SET /a NN3=%NN3%-8
set pt=ok
SET sb=-
)
exit /b
PAUSE >NUL
:CORES
%1:COR_BOSS
%1Echo.On Error Resume Next
%1Echo.HexColor = Right("0" %~2^& wscript.arguments(2), 2)
%1Echo.Set oExec = CreateObject("WScript.Shell").Exec("%comspec% /c debug ")
%1Echo.
%1Echo.Do Until oExec.StdOut.Read(1) = "-"
%1Echo. wsh.sleep 10
%1Echo.Loop
%1Echo.
%1Echo.Dim Textos
%1Echo.Textos = Replace(wscript.arguments(3), Chr(195), "Û")
%1Echo.WriteXY wscript.arguments(0), wscript.arguments(1), HexColor, Textos
%1Echo.
%1Echo.oExec.StdIn.Writeline "e0:451 2A"
%1Echo.oExec.StdIn.Writeline "q"
%1Echo.
%1Echo.Sub WriteXY(X, Y, hColor, sText)
%1Echo.Dim ColorText
%1Echo. For j = 1 to Len(sText) Step 10
%1Echo. ColorText = "EB800:" %~2^& Hex(Y * 160 + (X + j - 1) * 2)
%1Echo. For i = j to j + 9
%1Echo. ColorText = ColorText %~2^& " " %~2^& Hex(Asc(Mid(sText, i, 1))) %~2^& " " %~2^& hColor
%1Echo. if i = Len(sText) Then Exit For
%1Echo. Next
%1Echo. oExec.StdIn.Writeline ColorText
%1Echo. Next
%1Echo.End Sub
%1Attrib +H COR_BOSS.VBS
%1Goto :Eof
Goto :Eof
Boss-Head- Idade : 33

» [Iniciante][Video-Aula][ON]Video aula sign completa no ps, e animada no flash !
» Video novo - Caue Moura
» [Video -Tutorial] -Web Photo Gallery
» Video Feito no Pivot
» [Video] Desenhando o rosto de um Orc.
» Video novo - Caue Moura
» [Video -Tutorial] -Web Photo Gallery
» Video Feito no Pivot
» [Video] Desenhando o rosto de um Orc.
Página 1 de 1
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum