BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[EXE/BAT] SaveDialogBox EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[EXE/BAT] SaveDialogBox EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[EXE/BAT] SaveDialogBox EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[EXE/BAT] SaveDialogBox EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[EXE/BAT] SaveDialogBox EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[EXE/BAT] SaveDialogBox EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[EXE/BAT] SaveDialogBox EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[EXE/BAT] SaveDialogBox EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[EXE/BAT] SaveDialogBox EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
-34%
Le deal à ne pas rater :
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 – 100Hz HDR 10+, ...
919 € 1399 €
Voir le deal

[EXE/BAT] SaveDialogBox

2 participants

Aller en bas

[EXE/BAT] SaveDialogBox Empty [EXE/BAT] SaveDialogBox

Message par Delmar Grande Dim 23 Juin 2013, 17:52

exemple

inputSave.bat
Code:
@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 Bbat forum
)>%local%.rtf
)
pause

::Daqui 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


externe fait en C++ SaveDialogBox.exe size 5 kb Twisted Evil


Dernière édition par Delmar Grande le Lun 24 Juin 2013, 01:06, édité 1 fois
Delmar Grande
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

[EXE/BAT] SaveDialogBox Empty Re: [EXE/BAT] SaveDialogBox

Message par Sachadee Dim 23 Juin 2013, 22:56

Thanks for sharing Amigão !
Sachadee
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

https://bbat.forumeiro.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum