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

[BAT] Batch SaveDialog 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

[BAT] Batch SaveDialog 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?
[BAT] Batch SaveDialog EmptyDom Dez 10, 2023 10:47 am por Raffa

» [BAT] MegaNumeros simulador da mega sena
[BAT] Batch SaveDialog EmptySex Jan 17, 2020 7:00 pm por castioni24

» Agendador de tarefas
[BAT] Batch SaveDialog EmptySeg Ago 26, 2019 1:53 pm por Delmar Grande

» Remover duplicados e frases de um txt
[BAT] Batch SaveDialog EmptyTer Jul 23, 2019 7:00 pm por Delmar Grande

» Modificações do nome de usuário
[BAT] Batch SaveDialog EmptyQui maio 24, 2018 1:14 am por biopha

» [bat] Deletar uma linha de um lote de arquivo Txt, sem matar as linhas vazias
[BAT] Batch SaveDialog EmptyTer Ago 01, 2017 1:46 pm por sachadee

» Aulas de cmd
[BAT] Batch SaveDialog EmptySex Fev 24, 2017 4:44 pm por sachadee

» Fazer chat em rede domestica
[BAT] Batch SaveDialog EmptyDom Ago 14, 2016 12:19 am por Diego Augusto

» redirecionar comando for pra outro batch
[BAT] Batch SaveDialog EmptySex maio 27, 2016 1:29 pm por castioni24

Parceiros
Fórum grátis

Origem das visitas
[BAT] Batch SaveDialog 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!

[BAT] Batch SaveDialog

Ir para baixo

[BAT] Batch SaveDialog Empty [BAT] Batch SaveDialog

Mensagem por Delmar Grande Ter Jun 25, 2013 6:10 pm

Exemplo de Batch SaveDialog. Wink

Código:

@echo off
mode con:cols=90 lines=12
::Script criado no masbat v2.0
title -==*==- Batch SaveDialog -==*==-
(
echo Set objDialog = CreateObject^( "SAFRCFileDlg.FileSave" ^)
echo.
echo '       Pode se usar "SAFRCFileDlg.FileOpen"
echo '       ou "SAFRCFileDlg.FileSave" dialog!
echo objDialog.FileName = "test_save.txt"
echo ' Nota: O FileType propriedade é meramente cosmético, isso não acontecer
echo '       anexar automaticamente a extensão do arquivo certo!
echo '       Então, certifique-se de digitar a extensão do mesmo!
echo objDialog.FileType = "Arquivo de texto"
echo If objDialog.OpenFileSaveDlg Then
echo     WScript.Echo objDialog.FileName
echo End If
)>"%tmp%\SaveDialog.vbs"
for /f "tokens=* delims=*" %%a in ('Cscript "%tmp%\SaveDialog.vbs" //nologo') do (set "a=%%a")
::if "%a%" <> "" goto Salvar
if "%a%" NEQ "" goto Salvar
:volta
echo Vocˆ escolheu "%a%"
pause>nul
:Salvar
(
echo Delmar Grande
echo ?
)>"%a%"
goto volta


Obs: esse script funciona 100% no xp se no windows 7 não funcionar é porque esta faltando a DLL activex safrcdlg.dll link para Donwload http://originaldll.com/file/safrcdlg.dll/4612.html e deve Regitrar assim regsvr32 safrcdlg.dll
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

[BAT] Batch SaveDialog Empty Re: [BAT] Batch SaveDialog

Mensagem por Delmar Grande Ter Jun 25, 2013 6:12 pm

[EXE/BAT] SaveDialogBox

exemplo

inputSave.bat
Código:
@echo off
setlocal enableextensions enabledelayedexpansion
call:Arquivohex
:: Todo seu script aqui, lembrando que o arquivo vai para pasta temp
:: exemplo de como setar variavel de aplicativo Dev-c++ em C++
title Meu SaveDialog
for /f "tokens=*" %%i in ('%tmp%\SaveDialogBox.exe') do %%i
:: Remove a extenção original
set local="%Pathsave:~0,-4%"
::Arquivo a salvar exemplo .txt .vbs . ini e etc.

if not "%Pathsave%" == "" (
(
echo Delmar Grande
echo ? forum
)>%local%.rtf
)
pause

:aqui para baixo é para criar o arquivo
:Arquivohex
pushd "!temp!"
(
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("SaveDialogBox.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C0102003C8CC751001E0000B6020000E00007030B01023800100000001A0000000200000E6100000010000000200000000040000010000000020000040000000100000004000000000000000070000000020000EA0C010002000000000020000010000000001000001000000000000010000000000000000000000000600000100100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000064600000200000000000000000000000000000000000000000000000000000002E4D5052455353310050000000100000000E000000020000000000000000000000000000E00000E02E4D505245535332BD030000006000000004000000100000000000000000000000000000E00000E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000076322E3139",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0500350C0000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944002404E8FC0B00008300F801746C85C0742A8434F40FBDFB0F0089D8408B8CD0859FC8DE258C4000D033490874BD3D50940CB16BB38D76003D4C052E50872E08A0001053619F48878B34B8D04C430AFFD0EBA1CEB4DB019108C4054585F67488E83C65072C801FEB815E948B14A41F304C5294FE4402EB0D609000F90F3035C84ED208D285EF0600104000E8248C0DF8C04E402AC74540F86400800B00040400D158456F0E108B0D1010204000071189542408A8B6C00007043E80CEC2C00000100A",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("22016B0058A342204AB058C116C501D2100F858B8A30A80F4E470602247AB1D861138B4B0330890C24E81C7480350183FAC0741B8B1D4A02390CB0D8A024515089149C4A83CE80003E700081811EC4700430480E8FCEBE0B60B4980181B058710551034010149A0291484082CE5E1C8090388CCE6D04891C2438E89CBF000120DEB22804C16C140170E967710131028DBC6C27F5103F2308C5002A00F04F52412604E8FC1400D988426BE2A3023E5FB0D8C007680289E55DFFE18D7458261E01E751FF415DE90C71096000301E10C88E870D06C74424084C80E00004850C00D058841A05C1140520605C88E9FFFF9F23800A08148B45088945ACC70C45B40030",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("490234925844407C5C844CA01845E440162C30D8C700405721705CC46D80802059ACFA92F02C2046CA9008A06105E8743C30801A46C06B34C9C3C02F104F058B450C8945F802837DF80274680A711784A000017413EB6B0E1000414714D8871FA10E0E7417EB5A6F101420598C803F01EB6D8B45100FB708C03D70234620B0EE656AF40249F4BB9EF3420100E842CC2084B25844D105C0D06D090C805002B129A136DC4802009158C4BF7E705C141C21810BFCC9C21000B3314DA8DA330A7133501400C30110C745CC4C715C048D52358112D41A83CD10A14E619158C49D20F277707201C24ECD2CEF01E032CD2F53E4C71045E8637302C745EC2B86AB01C745",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("F0006704907F404FD158841C08C1B05F635618015C3783050C301015336D348681073B0E81471C56B201715C747BB06BF0FD4C4004472C71704424282080250E9004E2401CF00E8301741F50856B01805040015110EA710100F0AC2E57EA5407A20E944102E82CEA02733C30D8A7400C5007B3042F30B7047FB0BE16D727132640FC0DC1A3238B02AF1AC2A421040530A4E34007455A984AC1253ACD071E22C406ED361AC4A731EBB88B4501A08945948B459401239D0052855B05D05F908E40367791C4B47280CEDE7880CEAA062889C33945BC8453B85D0760902E6C000030F40060BB00980FF240090C00989FF040299C000D801A50A70E982F4227E4C312",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("95C031D2305119205C084DC7D4689B0532F4AB1084C9743C78A5940D75E6EB241F17362362232B84C934B3EE1A688A839E0AEB1289F61160C226020C1E017354D606635F441DA00BA4000274040FB755D8F49109B71C9D092F090CBD10E603814E01B1D8C59F3C2C1A22EB981F6BB970313D18EB4014FEB31845B0183008108C102008000004101298AF1372EA5DC37F8B31DBE31CF77483100AB3AF518050984C67F2BDFC1FB810882351048D4104A3143150285D979E3CFC9957238040100AE2B18680FF4F079052089C384C37914864FFA1F44FD149134B754AF6E70050175D085C29045B025B5DC38B0D24301003005C98BCAE00B4483156A811B440BFDE",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FB21E95B4D304F2C7536D012DAD36112A6E651622E0F903F12DE1F128CF9DB1A0AA80AC90A8B480401FFE189F655BA42FF33E30F090504871D8D55A87505C609905856F05FC1637700BA1F020E0531C8CE501970B06E140090AC84E700C8A7824A1054479FB04C0379F206833B3C75074210106191FB445BCCA0AB9E0661D4005510B9014DE14C800B9063611C117CA50A27B82C34B04B8E19890C5D1730EBD7E144BE0A77653515C8C4EE34108B0DED111106088D0065F45B5E5F5DC3C71245984100100AA98A10750898C7459C38715C042A88118945B8A194AA02422A4A35A854C31B8A4925ACA254034B35C0A19C54428B8833C4A1A0389058842C124ACA",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("21CCA1A81C020D12CACA21D40FB705B08124609658849D48D3399086D339D04042505B5048E42901110F853BC60A4140C293B221C66600001D160F845954C02F9178BC0829B90F70301FB07A3C4400C801D44803703C8400860104101A05E5741003F0B15841C5122043284513894314A14082BA103185B15841041243101CA16051165320C7434130861432C4B258C1840628A148A08213609238442390689F881D82AC62011900C0242001C904418811842A48C0A09477DE40829158884603D52389856CC628913A91580887127D138933857428D13652888712792335857C285138035838445838A781D8585809D18302D339822FD839F15F2714239D98E0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("C1AB31115C7D03216474D04280CE46684B0089C3891DD9168D431104A3701C82300AC91190094789F89892839DA83F5017BB1E8BCED701D0AB281195185EFBD00360490072041081E95F1B0D0A0900422D3CB19E9E12CC028900E089CC8B088B40043BFFE0BD5F5E10E07410104A0E63E600D44A0EE1740008E119A15A17020C64EB1D109C8A18C1838C3C5010FBCF54A250119090E51500F15F5285C6C35C3C8CC9C3603C5C45C7C3583C4CC9C3903C5C85C8C38C3C8CC7C3803C5C45C8C3243CCCCAC3C43C5C85CAC3BC3C8CCBC3C83C5C05CCC3A43CCCCCC3D43C5C45CBC3D03C0CCBC34C3C5C45C3C3403C8CC4C3443CEC2F44103CD9ABC193811B3CE7D3",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("217CEF8A06D083050010660600102CC111008B78040BFF507435008B50088B3003F02B00F28BDE8B48102BCB0074238B500C03F20300FE2BC02BD20BD0AC00C1E207D0E872F60B00D00BD2740803DA29000B3BF772E4E8720E0600005805E61D10F0100000641000C480350080A0005CF796B90288D3045057B688C73380BF02006CB6784431803F8870FC831E4B0D4B4552064E454C33320E096021000B04C0743EE8CE5860950620475717C60625F706405736460700852E0648372050546A046A7804578BD8FFD03800010B00867880788482050542054505FFD3588BFE42ADBA0AD133806F5504B20880CDAA000C0B806804F15F674F0274E13C20027604",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4E56EB092101AD024EC6060050536D20AB3032C08C400875F6EBD721E84244F01578EC6E010204B0E9AAB81E4A04B01A9692CE934040DF4782104411600C1400F0824D7957696E00646F77436C617373F78D8600966E0360302D4700C95CA01C41AD0402434F4D444C004733322E444C4C0000476574536176654601696C654E616D651903C04A1A9162E542C6C606100440461644F7D616049050849746976130569612E06794154035050020413F303004F0D6D616E646C69406E4C6334D6F64756C65514848C0063453746145070070496E666F410053046574556E6870425604803756064797F6E68658134057269712D33667073126471712F2F5755606",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("40D71696E616267706344703705F5F656E760869726F6E3063D6F606425686027365745F610270705F74797038300654961D00F095F62606C0F1F5E6063384C02A6162026F727400617454620660C6563787066006072097E6466706602607505606D016C6C6F6563006D056D6860C006424309776E616C696175315315524D539342457560200D85B53841704405466160E33CD1338314727F7D6630400409436071746376682D614431076563AC4524C006F6164437572736F40722C9334F6E61604008947426F6D00506F737410517569C805205576869336D73CD079120F3185F60674970A442517E636C7769C16005B557064A16149F80100FFBFC78010",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("C4C606E2D612732028062A2E2A290010E03D15784074E22B0102154687360768DF023D25730A004D4100494E4D454E5500450272726F7221007E26031269763272615E2C016214D60200421662DF026C652045640069746F7220457861306D70386099026772616DF0DC65A322CC09202D4C4942004743435733322D4500482D322D534A4C4A002D475448522D4D49304E4758C0087733325F00736861726564707400722D3E73697A6520113D3D201CF16686C208005F45485F53484152004544290025733A250A753A2066912020F229502624570D02563277A278052E232E2F08703636C6201A2B00609676F69236836343F55209D05209D39209E0324604",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2012A320286128C00202368700DD307329292021353D204A6401F0FFD72150C6790F40C104DD0CAF00D0284CC0F02E00C9C305FF0CEF01F0FFEB090000000000FF259451400090900000000000000000FF259051400090900000000000000000FF258851400090900000000000000000FF258C51400090900000000000000000FF257851400090900000000000000000FF258051400090900000000000000000FF258451400090900000000000000000FF252451400090900000000000000000FF25AC51400090900000000000000000FF25C451400090900000000000000000FF25A851400090900000000000000000FF25BC51400090900000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FF25B851400090900000000000000000FF25C851400090900000000000000000FF25C051400090900000000000000000FF25A451400090900000000000000000FF25CC51400090900000000000000000FF25D451400090900000000000000000FF25B451400090900000000000000000FF25D051400090900000000000000000FF25B051400090900000000000000000FF254C51400090900000000000000000FF253451400090900000000000000000FF254051400090900000000000000000FF254851400090900000000000000000FF254451400090900000000000000000FF253C51400090900000000000000000FF253851400090900000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("646000000000000000000000B860000064600000706000000000000000000000C560000070600000786000000000000000000000E560000078600000806000000000000000000000F760000080600000000000000000000000000000000000000000000094600000A760000000000000D260000000000000F060000000000000026100000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C00434F4D444C4733322E444C4C0000004765745361766546696C654E616D6541006D73766372742E646C6C0000005F696F62005553455233322E646C",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6C0000004C6F616449636F6E410060E80000000058059F0200008B3003F02BC08BFE66ADC1E00C8BC850AD2BC803F18BC85751498A44390688043175F68BD68BCFE85C0000005E5A2BC0890432B4102BD02BC93BCA73268BD9AC4124FE3CE875F24383C104AD0BC078063BC273E5EB0603C378DF03C22BC38946FCEBD6E8000000005F81C78CFFFFFFB0E9AAB89B020000ABE80000000058051C020000E90C020000558BEC83EC148A025633F646397508894DF088018975F8C645FF000F86E30100005357807DFF008A0C32740C8A443201C0E904C0E0040AC8468365F400884DFE0FB645FF8B7D082BF83BF70F83A001000084C90F8917010000807DFF008B",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("1C327403C1EB0481E3FFFF0F0046817DF8810800008BFB7320D1EFF6C301741481E7FF07000003F081C7810000008075FF01EB4B83E77FEB4583E303C1EF0283EB0074374B74274B74154B753281E7FFFF03008D74300181C741440000EBCF81E7FF3F000081C74104000046EB1181E7FF03000003F083C741EBB383E73F47807DFF0074090FB71C32C1EB04EB0C33DB668B1C3281E3FF0F00000FB645FF8075FF0103F08BC383E00F83F80F74058D5803EB384681FBFF0F00007408C1EB0483C312EB27807DFF00740D8B0432C1E80425FFFF0000EB040FB70432468D98110100004681FB10010100745F8B45F82BC785DB74428B7DF003C7895DEC8B5DF88A",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("08FF45F840FF4DEC880C1F75EF8A4DFEEB24807DFF000FB61C32740D0FB6443201C1EB04C1E0040BD88B7DF88B45F0FF45F8881C3846FF45F4D0E1837DF408884DFE0F8C9AFEFFFFEB4933C03845FF74138A4432FCC645FF0025FC000000C1E00546EB0C668B4432FB25C00F0000D1E083E17F03C88D44090885C074168B0C328B5DF88B7DF08345F80483C60448890C1F75EA0FB645FF8B4D082BC83BF10F8221FEFFFF5F5B8B45F85EC9C20400E981BAFFFF4DACFFFF000000004D737461000000200000000200000003010000000000000000000000000000000000002E627373000000002000000004000000030104000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next
echo ReBin.Close
)>"%tmp%\Arquivotemp.vbs"
CScript "%tmp%\Arquivotemp.vbs" //nologo
Del "%tmp%\Arquivotemp.vbs" 2>&1
popd
Exit/b


externo feito em C++ SaveDialogBox.exe size 5 kb Twisted Evil
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

Ir para o topo

- Tópicos semelhantes

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