DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[AJUDA] Como alterar as "propriedades gráficas"? Toolsc10

Participe do fórum, é rápido e fácil

DBatchScript

DBatchScript


Se você ainda não é um membro cadastre-se!
é fácil rápido e gratuito.

Existem centenas de scripts para quem é membro, alem disso você pode postar
os seus. e contar com nossa ajuda ou vice versa.

As categorias para os membros cadastrados são:

BATCH (WINDOWS).
(Espaço onde são postados os scripts que tenham funcionalidade completa) .

LINGUAGENS DIVERSSAS
(Onde tem vários códigos fonte de Delphi C/C++ asm e outros)

Participe você também estamos te esperado não perca mais tempo embarque nessa. Wink

[AJUDA] Como alterar as "propriedades gráficas"? Toolsc10
DBatchScript
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Translate the forum
English French
German Spain
Italian Dutch
Russian Japanese
Korean Arabic
Chinese Simplified Portuguese Brazil
Quem está conectado?
1 usuário online :: 0 registrados, 0 invisíveis e 1 visitante

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 153 em Ter Mar 09, 2021 2:43 am
Últimos assuntos
» CALL trava depois de vários ciclos?
[AJUDA] Como alterar as "propriedades gráficas"? EmptyDom Dez 10, 2023 10:47 am por Raffa

» [BAT] MegaNumeros simulador da mega sena
[AJUDA] Como alterar as "propriedades gráficas"? EmptySex Jan 17, 2020 7:00 pm por castioni24

» Agendador de tarefas
[AJUDA] Como alterar as "propriedades gráficas"? EmptySeg Ago 26, 2019 1:53 pm por Delmar Grande

» Remover duplicados e frases de um txt
[AJUDA] Como alterar as "propriedades gráficas"? EmptyTer Jul 23, 2019 7:00 pm por Delmar Grande

» Modificações do nome de usuário
[AJUDA] Como alterar as "propriedades gráficas"? EmptyQui maio 24, 2018 1:14 am por biopha

» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
[AJUDA] Como alterar as "propriedades gráficas"? EmptyTer Ago 01, 2017 1:46 pm por sachadee

» Aulas de cmd
[AJUDA] Como alterar as "propriedades gráficas"? EmptySex Fev 24, 2017 4:44 pm por sachadee

» Fazer chat em rede domestica
[AJUDA] Como alterar as "propriedades gráficas"? EmptyDom Ago 14, 2016 12:19 am por Diego Augusto

» redirecionar comando for pra outro batch
[AJUDA] Como alterar as "propriedades gráficas"? EmptySex maio 27, 2016 1:29 pm por castioni24

Parceiros
Fórum grátis

Origem das visitas
[AJUDA] Como alterar as "propriedades gráficas"? Percent_0
Os membros mais ativos do mês
Nenhum usuário

Destaque do mês
Destaque do Fórum

Carregando avatar...
Obrigado pela colaboração!

[AJUDA] Como alterar as "propriedades gráficas"?

3 participantes

Ir para baixo

Resolvido [AJUDA] Como alterar as "propriedades gráficas"?

Mensagem por Hifterbuk Dom Set 08, 2013 9:56 pm

Com propriedades gráficas eu quero dizer se é possível alterar a proteção da tela, resolução do computador, cor da barra de tarefas e etc por um bat.
Hifterbuk
Hifterbuk
Colaboradeiro
Colaboradeiro

Masculino
Mensagens : 40
Pontos : 78
Data de inscrição : 22/08/2013
Idade : 23
Barra Respeito às Regras : Respeito às Regras 100%

http://www.guiadohacker.com.br

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Como alterar as "propriedades gráficas"?

Mensagem por sachadee Seg Set 09, 2013 9:26 am

Olà Hifterbuk,

Nos Windows 9x funcionava isso :

8 bit 800x600
Código:
rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 800x600x8
16 bit 800x600
Código:
 rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 800x600x16
24 bit 1024x768
Código:
rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 1024x768x24
mas nos windows atual eu acho que não e mais possivel tem que passar para um externo tipo :

MultiRes

O

Qres


Bomba Bomba
sachadee
sachadee
Moderadeiro
Moderadeiro

Masculino
Mensagens : 157
Pontos : 291
Data de inscrição : 28/06/2013
Localização : porai
Barra Respeito às Regras : Respeito às Regras 100%

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Como alterar as "propriedades gráficas"?

Mensagem por Delmar Grande Seg Set 09, 2013 5:50 pm

Olha Hifterbuk, se é possível não sei, mais acho que é possível sim!

Por enquanto pode usar esse script com o externo Qres já embutido no batch! Positivo 

Código:

@echo off
setlocal enableextensions enabledelayedexpansion
::Autor Delmar Grande
::fórum DBatchScript  http://dbatchscript.forumeiros.com/
::Data  Seg 9 Set 2013

call:Qr
::Para outra resolução mude o /x tamanho /y tamanho
%tmp%\qres.exe /x 1024 /y 768

::Daqui para baixo é para criar o arquivo
:Qr
pushd "!temp!"
(
echo 'DBatch-Hexa desenvolvido por Delmar Grande
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("QRes.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000D00000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A24000000000000008311D703C770B950C770B950C770B950446CB750C670B9502F6FBD50C570B950C770B850D970B950A56FAA50CE70B9502F6FB350CB70B95052696368C770B95000000000000000000000000000000000504500004C01010048FEFA3E0000000000000000E0000F010B010600000000000010000000000000481B000000100000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00100000000040000010000000020000040000000000000004000000000000000020000000020000F6100100030000000000100000100000000010000010000000000000100000000000000000000000B01C000078000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000840000000000000000000000000000000000000000000000000000002E646174610000008A0F0000001000000010000000020000000000000000000000000000400000C000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6A1E0000781E00008C1E000000000000501E000000000000D21D0000C41D0000B81D0000AC1D000000000000AA1E0000F81E0000081F00007C1F0000681F0000B41E0000CA1E0000D21E0000E01E0000E81E0000561F0000141F0000281F0000381F0000481F000000000000181E0000F21D0000FE1D0000241E00002C1E000000000000000000000000000000000000000000000000000000000000000000004572726F723A2025730A0000202025730925730A00000000092025730A00000025732E0A00000000204020256420487A00000000416461707465722044656661756C74004F7074696D616C00756E6B6E6F776E0025647825642C202564206269",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("74730000204020000A45783A2022515265732E657865202F783A363430202F633A3822204368616E676573207265736F6C7574696F6E20746F2036343020782034383020616E642074686520636F6C6F7220646570746820746F2032353620636F6C6F72732E0A002F480000446973706C617973206D6F72652068656C702E002F3F0000446973706C61797320757361676520696E666F726D6174696F6E2E002F560000446F6573204E4F5420646973706C61792076657273696F6E20696E666F726D6174696F6E2E0000002F440000446F6573204E4F54207361766520646973706C61792073657474696E677320696E207468652072656769737472792E2E",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000000002F4C00004C69737420616C6C20646973706C6179206D6F6465732E002F53000053686F772063757272656E7420646973706C61792073657474696E67732E00002D313D204F7074696D616C2E0000000030203D20416461707465722044656661756C742E000000002F5200005265667265736820726174652E00000033323D205472756520636F6C6F722E0032343D205472756520636F6C6F722E0031363D204869676820636F6C6F722E0038203D2032353620636F6C6F72732E0034203D20313620636F6C6F72732E00002F430000436F6C6F722064657074682E000000002F59000048656967687420696E20706978656C732E0000002F580000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("576964746820696E20706978656C732E0000000051524553205B2F583A5B70785D5D205B2F593A5B70785D5D205B2F433A5B626974735D205B2F523A5B72725D5D205B2F535D205B2F4C5D205B2F445D205B2F565D205B2F3F5D205B2F485D0A0A00000053657474696E677320636F756C64206E6F742062652073617665642C6772617068696373206D6F64652077696C6C206265206368616E6765642064796E616D6963616C6C792E2E2E0000000054686520636F6D7075746572206D7573742062652072657374617274656420696E206F7264657220666F7220746865206772617068696373206D6F646520746F20776F726B2E2E2E0000000054686520",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6772617068696373206D6F6465206973206E6F7420737570706F7274656421004D6F6465204F6B2E2E2E0A00526566726573685261746500446973706C61795C53657474696E677300000000515265732076312E310A436F707972696768742028432920416E64657273204B6A657273656D2E0A0A0000000100000000000000FFFFFFFF381C40004C1C400000000000FF74240468A0104000FF152C1040005933C059C3FF742408FF74240868AC104000FF152C10400083C40CC3FF74240468B8104000FF152C1040005959C38B4C24045633F633C080392D75046A015E418A1180FA307C1180FA397F0C0FBED28D04808D4442D0EBE785F65E7402F7D8C38B",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4424048038007401408A0880F93A740880F920740333C0C34050E8AEFFFFFF598B4C24086A01890158C3558BEC83EC64568B7508A104114000576A1889459C5933C0FF76688D7DA0F3ABFF76708B3D2C104000FF766C68F4104000FFD783C410833DA01C40000075348B467885C0760783F8FF752885C0741D83F8FF740768EC104000EB0568E41040008D459C50FF1520104000EB1C68D4104000EBEDFF76788D459C68C810400050FF157010400083C40CF6450C01740F8D459C688C1C400050FF15241040008D459C5068C0104000FFD759595F5EC9C3558BEC81ECBC000000535633C0578945FC8945F88945F48945ECC745F0FEFFFFFFFF15181040008B",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("F0FF151C1040003D000000801BC0F7D8A3A01C40008A063C22750E8A46014684C074143C227410EBF284C0740A3C2074068A460146EBF2803E00740146803E2074FA6A045F6A025B8A063C2F74083C2D0F853701000084C00F842F0100000FBE46014683F8597F440F84CA00000083F84C7F17745283E83F74592BC7746748745B2BC7744BE9F700000083E8527479480F84E700000083E8030F84D70000002BC30F84B0000000E9D500000083F8727F76745583E863742D4874212BC774112BC70F85BA000000834DFC20E9B1000000097DFC46095DFCE9A5000000834DFC08E99C0000008D45EC5056E810FEFFFF5985C059740203F38A063C200F84800000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0084C0747C46EBEF8D45F05056E8EDFDFFFF5985C059740203F38A063C20746184C0745D46EBF383E873745183E80374452BC374224875498D45F45056E8BDFDFFFF5985C059740203F38A063C20743184C0742D46EBF38D45F85056E89EFDFFFF5985C059740203F38A063C20741284C0740E46EBF346834DFC01EB04834DFC10803E200F85BEFEFFFF46EBF4F645FC018B1D2C1040007508684C144000FFD359F645FC2074538B357C1040006A015F8D8544FFFFFF5033DB5753FFD685C00F847503000047837DBC017423817DB080020000721A33C0391DA01C40000F94C0508D8544FFFFFF50E83DFDFFFF59598D8544FFFFFF505753EBC1F645FC100F84",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("CA0000006A00FF15781040008BF885FF0F84240300008B35101040006A0857FFD66A0A8945B05B5357FFD66A0C578945B4FFD66A74578945ACFFD685C08945BC756E33F63935A01C400075668D45E85068190002005668381440006805000080FF150810400085C075488D45E4895DE4508D45D8508D45FC5056682C144000FF75E8FF150410400085C07519837DFC017406837DFC02750D8D45D850E82CFCFFFF598945BCFF75E8FF1500104000EB0233F68D8544FFFFFF5650E86BFCFFFF59595756FF156C104000E96C020000F645FC020F854E010000837DF8008B45F4751385C0750F3945EC750F837DF0FE0F843201000083F8017D0E8B45F899F7FF8D",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("04408945F4EB12837DF8017D0CC1E0026A039959F7F98945F868940000008D8544FFFFFF6A0050E8160200008B45F48B4DF88B55F08945B48B45EC83C40C85C066C78568FFFFFF9400894DB08945AC8955BC7E0A81856CFFFFFF0000040085C97E0A81856CFFFFFF0000180083FAFEBE000040007538833DA01C40000074356A00FF15781040008BF885FF741B01B56CFFFFFF6A7457FF1510104000576A008945BCFF156C104000837DF0FE740601B56CFFFFFF8B35741040008D8544FFFFFF6A0250FFD68BF885FF75208B45FCF7D0C1E80383E001508D8544FFFFFF50FFD668201440008BF8FFD3EB168BC748740768FC134000EB0568B0134000E88FFAFF",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FF83FFFD590F852F0100006864134000E87BFAFFFF598D8544FFFFFF6A0050FFD6E9140100006814134000FFD3C704240013400068FC124000E866FAFFFF68E812400068E4124000E857FAFFFF68D412400068D0124000E848FAFFFF8B75FC83C41823F7743B68C0124000E84BFAFFFFC70424B0124000E83FFAFFFFC70424A0124000E833FAFFFFC7042490124000E827FAFFFFC7042480124000E81BFAFFFF596870124000686C124000E8F4F9FFFF833DA01C4000005959751B85F674176854124000E8F2F9FFFFC7042444124000E8E6F9FFFF5968241240006820124000E8BFF9FFFF68081240006804124000E8B0F9FFFF68D011400068CC114000E8A1",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("F9FFFF68A411400068A0114000E892F9FFFF68841140006880114000E883F9FFFF686C1140006868114000E874F9FFFF6808114000FFD383C4345F5E33C05BC9C3CCFF2540104000558BEC6AFF688014400068801C400064A100000000506489250000000083EC205356578965E88365FC006A01FF155410400059830DA41C4000FF830DA81C4000FFFF15641040008B0D9C1C40008908FF15601040008B0D981C40008908A15C1040008B00A3AC1C4000E8C3000000833D7814400000750C68761C4000FF155810400059E8940000006890104000688C104000E87F000000A1941C40008945D88D45D850FF35901C40008D45E0508D45D4508D45E450FF1530",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("10400068881040006884104000E84C000000FF15501040008B4DE08908FF75E0FF75D4FF75E4E8ADF9FFFF83C4308945DC50FF154C1040008B45EC8B088B09894DD05051E80F0000005959C38B65E8FF75D0FF1544104000FF2548104000FF253410400068000003006800000100E8130000005959C333C0C3C3CCCCCCCCCCCCFF253C104000FF2538104000000000000000000000000000000000000000000000000000000000000000000000000000401D00000000000000000000E41D000018100000941D00000000000000000000441E00006C100000381D00000000000000000000601E000010100000281D000000000000000000009C1E000000100000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("541D00000000000000000000BE1E00002C10000000000000000000000000000000000000000000006A1E0000781E00008C1E000000000000501E000000000000D21D0000C41D0000B81D0000AC1D000000000000AA1E0000F81E0000081F00007C1F0000681F0000B41E0000CA1E0000D21E0000E01E0000E81E0000561F0000141F0000281F0000381F0000481F000000000000181E0000F21D0000FE1D0000241E00002C1E00000000000002036C737472637079410000F9026C737472636174410000740147657456657273696F6E0000CA00476574436F6D6D616E644C696E6541004B45524E454C33322E646C6C0000AC0277737072696E746641001B00",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4368616E6765446973706C617953657474696E6773410000030252656C65617365444300FD00476574444300C500456E756D446973706C617953657474696E67734100005553455233322E646C6C00002501476574446576696365436170730047444933322E646C6C005B01526567436C6F73654B6579007B01526567517565727956616C7565457841000072015265674F70656E4B65794578410041445641504933322E646C6C00009E027072696E7466000099026D656D73657400004D53564352542E646C6C0000D3005F657869740048005F5863707446696C74657200490265786974000064005F5F705F5F5F696E6974656E760058005F5F6765746D",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("61696E61726773000F015F696E69747465726D0083005F5F736574757365726D61746865727200009D005F61646A7573745F6664697600006A005F5F705F5F636F6D6D6F646500006F005F5F705F5F666D6F6465000081005F5F7365745F6170705F747970650000CA005F6578636570745F68616E646C6572330000B7005F636F6E74726F6C6670000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next
echo ReBin.Close
)>"%tmp%\Qres.vbs"
CScript "%tmp%\Qres.vbs" //nologo
Del "%tmp%\Qres.vbs" 2>&1
popd
Exit/b
Obs: para outras resolução mude nessa linha %tmp%\qres.exe /x 1024 /y 768
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 532
Pontos : 1378
Data de inscrição : 25/06/2013
Idade : 33
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Como alterar as "propriedades gráficas"?

Mensagem por Delmar Grande Seg Set 16, 2013 10:43 am

Hifterbuk para alterar a proteção da tela
siga os seguintes passos:
Clique no menu "Iniciar > Executar" e digite "regedit" (sem aspas), clique "Ok" e procure pela chave:

HKEY_CURRENT_USER\Control Panel\Desktop

Na janela da direita, dê um clique duplo em "SCRNSAVE.EXE", em "Dados do Valor", digite o nome do protetor de telas que você deseja, com o caminho completo de onde ele se encontra. Se o protetor de telas estiver na pasta "C:\Windows\System32", bastará o nome do arquivo. Seu protetor de telas já estará trocado.

agora é só adaptar em um batch! Positivo 
Delmar Grande
Delmar Grande
Admineiro
Admineiro

Masculino
Mensagens : 532
Pontos : 1378
Data de inscrição : 25/06/2013
Idade : 33
Localização : Na frente do pc
Barra Respeito às Regras : Respeito às Regras 100%

https://dbatchscript.forumeiros.com

Ir para o topo Ir para baixo

Resolvido Re: [AJUDA] Como alterar as "propriedades gráficas"?

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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