Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD


Pesquisa personalizada

[AJUDA] TESTE DE VIDEO VIA BATCH

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por jerodrigo em Seg Ago 23, 2010 3:32 pm

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

jerodrigo

Idade : 28

Voltar ao Topo Ir em baixo

Re: [AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por NeoqJav em Seg Ago 23, 2010 4:51 pm

[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
avatar
NeoqJav

Idade : 28

http://neoqjav.dihitt.com.br

Voltar ao Topo Ir em baixo

Re: [AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por Boss-Head em Seg Ago 23, 2010 5:18 pm

Obs. funciona no XP outra OS não sei !
se funcionar favor relatarem
[Você precisa estar registrado e conectado para ver este link.]
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por Boss-Head em Seg Ago 23, 2010 6:06 pm

@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
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por Boss-Head em Seg Ago 23, 2010 9:24 pm

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

avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [AJUDA] TESTE DE VIDEO VIA BATCH

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum