Batch-Satti
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Batch-Satti

Você não está conectado. Conecte-se ou registre-se

[AJUDA] TESTE DE VIDEO VIA BATCH

3 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1[AJUDA] TESTE DE VIDEO VIA BATCH Empty [AJUDA] TESTE DE VIDEO VIA BATCH Seg Ago 23, 2010 3:32 pm

jerodrigo



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

2[AJUDA] TESTE DE VIDEO VIA BATCH Empty Re: [AJUDA] TESTE DE VIDEO VIA BATCH Seg Ago 23, 2010 4:51 pm

NeoqJav

NeoqJav

[Tens de ter uma conta e sessão iniciada para poderes visualizar 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

http://neoqjav.dihitt.com.br

3[AJUDA] TESTE DE VIDEO VIA BATCH Empty Re: [AJUDA] TESTE DE VIDEO VIA BATCH Seg Ago 23, 2010 5:18 pm

Boss-Head

Boss-Head

Obs. funciona no XP outra OS não sei !
se funcionar favor relatarem
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]

4[AJUDA] TESTE DE VIDEO VIA BATCH Empty Re: [AJUDA] TESTE DE VIDEO VIA BATCH Seg Ago 23, 2010 6:06 pm

Boss-Head

Boss-Head

@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

5[AJUDA] TESTE DE VIDEO VIA BATCH Empty Re: [AJUDA] TESTE DE VIDEO VIA BATCH Seg Ago 23, 2010 9:24 pm

Boss-Head

Boss-Head

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

Conteúdo patrocinado



Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos