Quem está conectado?
Há 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
Os membros mais ativos do mês
Nenhum usuário |
Destaque do mês
Obrigado pela colaboração!
[AJUDA] Como alterar as "propriedades gráficas"?
3 participantes
Página 1 de 1
[AJUDA] Como alterar as "propriedades gráficas"?
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.
Re: [AJUDA] Como alterar as "propriedades gráficas"?
Olà Hifterbuk,
Nos Windows 9x funcionava isso :
8 bit 800x600
MultiRes
O
Qres
Nos Windows 9x funcionava isso :
8 bit 800x600
- Código:
rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 800x600x8
- Código:
rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 800x600x16
- Código:
rundll deskcp16.dll,QUICKRES_RUNDLLENTRY 1024x768x24
MultiRes
O
Qres
sachadee- Moderadeiro
-
Mensagens : 157
Pontos : 291
Data de inscrição : 28/06/2013
Localização : porai
Barra Respeito às Regras :
Re: [AJUDA] Como alterar as "propriedades gráficas"?
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!
Por enquanto pode usar esse script com o externo Qres já embutido no batch!
- 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
Re: [AJUDA] Como alterar as "propriedades gráficas"?
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!
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!
Tópicos semelhantes
» Alterar Propriedades JAVA
» [AJUDA] FTP x BAT
» Ajuda para LER arquivo...
» Ajuda para deletar arquivos
» [AJUDA] Fazer um anti-badcom
» [AJUDA] FTP x BAT
» Ajuda para LER arquivo...
» Ajuda para deletar arquivos
» [AJUDA] Fazer um anti-badcom
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Dom Dez 10, 2023 10:47 am por Raffa
» [BAT] MegaNumeros simulador da mega sena
Sex Jan 17, 2020 7:00 pm por castioni24
» Agendador de tarefas
Seg Ago 26, 2019 1:53 pm por Delmar Grande
» Remover duplicados e frases de um txt
Ter Jul 23, 2019 7:00 pm por Delmar Grande
» Modificações do nome de usuário
Qui maio 24, 2018 1:14 am por biopha
» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
Ter Ago 01, 2017 1:46 pm por sachadee
» Aulas de cmd
Sex Fev 24, 2017 4:44 pm por sachadee
» Fazer chat em rede domestica
Dom Ago 14, 2016 12:19 am por Diego Augusto
» redirecionar comando for pra outro batch
Sex maio 27, 2016 1:29 pm por castioni24