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!
[BAT] Batch OpenDialog
Página 1 de 1
[BAT] Batch OpenDialog
Exemplo de OpenDialog para Batch.
Obs: esse script funciona 100% no xp se no windows 7 não funcionar é porque esta faltando a OCX activex COMDLG32.OCX link para Donwload http://www.bioinformatics.org/snp-tools-excel/install_comdlg32.htm deve registar assim regsvr32 comdlg32.ocx
- Código:
@echo off
mode con:cols=90 lines=12
::Script criado no masbat v2.0
title -==*==- Batch OpenDialog -==*==-
(
echo Dim DialogBox
echo Dim Txt
echo Set DialogBox = CreateObject("UserAccounts.CommonDialog.1"^)
echo DialogBox.InitialDir = "%HOMEPATH%\Desktop"
echo DialogBox.Filter = "Todas os Arquivos *.*|*.*"
echo DialogBox.ShowOpen
echo result = DialogBox.filename
echo.
echo If result = "" Then
echo WScript.Echo "Você não selecionou nada!"
echo Else
echo WScript.Echo result
echo End If
)>"%tmp%\OpenDialog.vbs"
for /f "tokens=* delims=*" %%a in ('Cscript "%tmp%\OpenDialog.vbs" //nologo') do (set "a=%%a")
echo Vocˆ escolheu "%a%"
pause>nul
Obs: esse script funciona 100% no xp se no windows 7 não funcionar é porque esta faltando a OCX activex COMDLG32.OCX link para Donwload http://www.bioinformatics.org/snp-tools-excel/install_comdlg32.htm deve registar assim regsvr32 comdlg32.ocx
Re: [BAT] Batch OpenDialog
[EXE/BAT] OpenDialogBox
exemplo
inputSave.bat
exemplo
inputSave.bat
- Código:
@echo off
setlocal enableextensions enabledelayedexpansion
call:Arquivohex
::exemplo de como setar variavel de aplicativo Dev-c++ em C
title Meu OpenDialog
for /f "tokens=*" %%i in ('%tmp%\OpenDialogBox.exe') do %%i
set local="%Pathopen%"
if not "%Pathopen%" == "" (
echo %local%
)
pause
:Arquivohex
pushd "!temp!"
(
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("OpenDialogBox.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C010200AC8EC751001E0000B6020000E00007030B01023800100000001A0000000200000E610000001000000020000000004000001000000002000004000000010000000400000000000000007000000002000006A5000002000000000020000010000000001000001000000000000010000000000000000000000000600000100100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",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^("05002A0C0000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944002404E8FC0B00008300F801746C85C0742A8434F40FBDFB0F0089D8408B8CD0859FC8DE258C4000D033490874BD3D50940CB16BB38D76003D4C052E50872E08A0001053619F48878B34B8D04C430AFFD0EBA1CEB4DB019108C4054585F67488E83C65072C801FEB815E948B14A41F304C5294FE4402EB0D609000F90F3035C84ED208D285EF0600104000E8248C0DF8C04E402AC74540F86400800B00040400D158456F0E108B0D1010204000071189542408A8B6C00007043E80CEC2C00000100A",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^("490234925844407C5C844CA01845E440162C705CC44D0081E06B58AC86302C6045BED007A0D1A904E83C30C01946C06B3430C9C3231043058B450C890045F8837DF8027468900A7187A000017413EB406B0E00414714D8873F14E10D7417EB5A63509204C43813B0DEB65804F140700BDCE336620402EB535E462F9044BFEB392314001082CE0C42288B45145D006E0C96C0000825108F126AC30D8824108945FCEB07C760450512B8C09F2C0C01607A1A83AA3DA3102B03390130881C705CC4CC14C745D02A22132841AD31D80C11BAE8148945DC51207FFB2617206AECCC321E002ED3FC32458E705C84DEB50B705CC4CEB4721F020FB04500F907F48D2845",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("C881100CEF356685C022753358C00003913043A36D1878B0E31078C461251036C745AB07AF06D9C30444C0E21807474482020258E20020920EC401EF3018405502B8AA16000805141005A11E002F00CFEA72A54E7520EA10248082CEA22E30BB03837DC4140075304BF002734BF007EB71D77D326102C4DF103C3AB228A0215E4C1A425000433A0EB44F8459AB145CA2137CE021426C6E03AA417C1AB38EBB58043A905844B95844193002803A55B86100FD05E9086473174C922B07E8EC8D07E8AC769008355C54C40B3985DB750600E9C2060000430FB6000B80F9200F94C08000F9090F94C209D0A8000175EA80F922743E842C51091C230D1395C20285D0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("744C8DB66520BF860A41984CC783574A59A761BE4EF271613322364268954C33EBAE81A638E8B95E2191681F01266C22C01130C053656D30F645D401BA0A81204047F0705B851D99907ECBD199F092C0D00B013EE01402108B5DFCC9C3A2B14E84F913960B17D383B14E01E83F8B51048B0183C100080182000040008142F93A21A7DE35FCB7B82D36CE715B3708A130FB1A080B85C97426DFCBFF810B38221045D01844304A118506D275E9C9C39F7935020410A1201E170BF8FF74290085C089C3741389F6881F4AFF149D34B154674F790E00759186C05543B0B545D035BCD840020331C00085C9EB0A408B1485C61A410BF4EBBD1F92BE05B3F9C4526703",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2DA13D1D26611E4D25E6F200F923E1FD21C1DFA330A180AA90ACB08844F03F109E685FA52BF43FB391705C4070D8D158855A57609C00650512FF153C7607A0FB21E0508320EC0C950107EB4601C9004A780E807C2AA8410875F409CB3490273FC8B0C353772004011116B9B49EDD0CBAEA6910460D5005911B10AEC904B8003916C611C157AA80EBC44203BBE49811CAD075B10E761D4EE4AB7057565381EC986603B1D8D01E116180D0580640BFE5F5D5357C5C4482190400A190AA08518719715CC48913C745A018519058841B4A292C20A45453844A35BCA19854C24A3545B054031CCA4925B43803411C0A8A038945C8A144A41CC21C8ACA21D0A141AC1C",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("42FD705B004B0202668945D889349D0338D29D030D2404B50585449E12F02052B863AC1004243C291B6CC41E00D061F140984505FC8924C78B9092FB0007F3AB02C74304801C408D34C700430860184000A150A2660731001F8B15542C3114845234913844110AA40B110453188B15442031C401120A16653105723C0423684821432C8B154C68100A85042A3801268943348904F689D821C82A1690010C400212904C10844828A282040C4A79E70D248931856834503D9258C886128CA91389857028D1379158684687126D23857828913752A8C68712853380854384857388358D8595103D28309D23F89D1305FF754231D289091E1A1391C7D53710424607",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2D04E86CCE048090389CD8916DD1384430320AC72108A3901C91700492888F2939D889FA7506B1EBB1E87C1D00BD8A512489E1B50F3D0096042007811098FEB5D1A09000D042C813EBE929C12C90080E90C8BC88B00844F07F07DEFB65070166070121E6307E0E20E610A9660780109E11AA7521C040DE01C1C6A988113CC8C80305B1FF25980A150109595E0110FF2568AA3CCCC5C3983C0CC6C374AA3C8CC5C3943C0CC9C388AA3CCCC8C3783C0CC8C384AA3C4CC2C3AC3C4CCCC3A8AA3CCCCBC3B83C8CCCC3C0AA3C4CCAC3CC3C4CCDC3B4AA3C0CCDC3B03CCCC4C334AB3C0CC4C3483C4CC4C34204D1CF93BD1A3C19B8C1733E1DC2A76800DE3D58000061",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("660000C1121CB1088047B0F00F4557B3080085B0083300BF220FB0E8BD8804B1B24C0730B208C530203FE00FB002BC22BD00CD1A0C207E008D2E67BF000DB0204D8730A09DB200B0732F478E2EE700C000805560DE01010F0140000601400C5803000A10C0756F992B80384D7500658B783C03F82BC000668B471403F883C7103FE8B1D4B05424E5C450C43423E390001602B0008C40E783EE8C05566972007475616C50726F74016563740050E8627403000245A546A0867785B088FD0F8D0310B060008807884728585054405054F03F8DB5E8DF4AA8AB103D03F85645208BD800AC0AC0B0008846FF2075F6244017CE03624740E064B59E1012D0EA44606C",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000035D506B22A0306CC08845067BF7E8D2E2444045F81C7EE2E20008B90AE8AEBA14400AB61E9523C0904F47D24084114C1004C01002FD8947795E64616F07637C4163637D768F80E60E9360006D3720490CCC51140D4622030F4D444C474043023E342C4C40470045046F70457E6669436C056E614D656963120A6118029562E646C6C004164006441746F6D4100451278697419066365290146FC59015453000012F40303436F006D6D616E644C696E803CD3F44656C75686248A046C403345175674000790E466F616043055864057E58606276445780263657074696F35117420657229316D73766372407421215F5F6765746D0161696E617267733400",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00F7F555E666972607F2E60633666D6F64658028305746F715060797F045970787036365D90100005F696F62005F6F706E304308AC1226F6268740071046472566666C007573680066707269006E7466006672656500006D616C6C6F6300146D656DC8004046736908676E616C793155534546529D434372652500BD35450378410044656630D33C4188137374726F3D46004400697370617463684D9831046167A5432CC5F416164036542737F726C7320249636F6E4100782404F4D60600F5364717550794865C005265676973E1CD039D27F11053686F77A940035472616E736C6901B0C5510547161A96841F00F0FF7B0C416C206C206E2D310782A2E292",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("A192020001DE53814727BE120220506174686FF62DD0035032A700D01494E404D054E45405502427A7F0261702E06732206627234714E6C5122046612D00642180F62DC056065244964607F02607528417D606378C039629702617D6C65D362A02CC9C00D2C2942474340430743523D35284D40220D332A5C4A4D47204408524D5D294E474048C058C703723F335870610265746064727D702E03397A65706D2D34304C2116F66288CF0550480F43585142455440490025032A75352A7930262160902229F026572D52008602573278A57E0E2F2C288006763630CA2B102666901672F693338362F9500512D95302D99002E630022311A01821286022C207308",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00D80D3397920212D203722D461600FF7F1D02659CF700144CC0F00A007D87C2040CEF02903C5CC0F01E00FFBF9EF00FFF255851400090900000000000000000FF259451400090900000000000000000FF259051400090900000000000000000FF258851400090900000000000000000FF258C51400090900000000000000000FF257851400090900000000000000000FF258051400090900000000000000000FF258451400090900000000000000000FF252451400090900000000000000000FF25AC51400090900000000000000000FF25C451400090900000000000000000FF25A851400090900000000000000000FF25BC51400090900000000000000000",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^("646000000000000000000000B860000064600000706000000000000000000000C560000070600000786000000000000000000000E560000078600000806000000000000000000000F760000080600000000000000000000000000000000000000000000094600000A760000000000000D260000000000000F060000000000000026100000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C00434F4D444C4733322E444C4C0000004765744F70656E46696C654E616D6541006D73766372742E646C6C0000005F696F62005553455233322E646C",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%\OpenDialog.vbs"
CScript "%tmp%\OpenDialog.vbs" //nologo
Del "%tmp%\OpenDialog.vbs" 2>&1
popd
Exit/b
Tópicos semelhantes
» [BAT] Batch FolderBrowserDialog
» [BAT] Batch com comando at
» [BAT] Ler Txt e setar nas variaveis no batch
» [BAT] Batch SaveDialog
» [BAT] Batch inputbox
» [BAT] Batch com comando at
» [BAT] Ler Txt e setar nas variaveis no batch
» [BAT] Batch SaveDialog
» [BAT] Batch inputbox
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