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

Aide on-line à la résolution de vos problèmes de script .BAT

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
Sujets les plus vus
[bat] Tutoriel sur la creation de Progress bar en batch
PNG2HEX.EXE HEX2PNG.EXE (RAR)
Microsoft Office Professionnel Plus pour Windows 7/8 64 bits
Un super Tuto Batch de IniTScreen
[Tutoriel]Apprendre le Batch !
voila mon rapport
La commande externe HEX2PNG
DERNIERE VERSION
[developpez.com] Script pour copier .jpg plus rajout caractère dans le titre ?
Kasimashi é_è

Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[BAT] Batch avec onClosequery EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[BAT] Batch avec onClosequery EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

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

» Un code MATRIX sympa
[BAT] Batch avec onClosequery EmptyDim 12 Avr 2015, 14:27 par Sachadee

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

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

» Externo SaveDlg com 2 kb
[BAT] Batch avec onClosequery EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[BAT] Batch avec onClosequery EmptyDim 15 Fév 2015, 12:14 par Sachadee

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

Flux RSS



Flag Counter
Partenaires

[BAT] Batch avec onClosequery

BBAT BATCH ON-LINE :: BAT (WINDOWS) :: ASTUCES

Aller en bas

[BAT] Batch avec onClosequery Empty [BAT] Batch avec onClosequery

Message par Delmar Grande Dim 16 Juin 2013, 17:06

Batch avec un programme externe en C. Quand vous cliquez sur le [X] pour fermer une fenêtre
affivhe un message MessageBox.

C'est très simple, je compte sur votre aide pour l'améliorer.

onClose.cpp



Code:
#include <windows.h>
#include <stdio.h>
#include <string.h>
BOOL CtrlHandler( DWORD fdwCtrlType )
{  
  switch( fdwCtrlType )
 {
   case CTRL_CLOSE_EVENT:                
    if(MessageBox(0, "Fechar o programa?", "Fechar",
    MB_ICONQUESTION | MB_YESNO | MB_SYSTEMMODAL) == IDYES)
    return FALSE;
   break;            
    }
    return TRUE;
 }

int main(int argc, char ** argv){
    SetConsoleCtrlHandler((PHANDLER_ROUTINE)CtrlHandler,TRUE);
    if(argc != 1)
     {
        system(argv[1]);
        getchar();
      }else
      {
    getchar();
  }
}


exemple d'utilisation les deux ensemble étant


onclose.bat



Code:
@echo off
setlocal enableextensions enabledelayedexpansion
call:Arquivohex
Rem Tout votre code vient ici. souvenez-vous votre  fichier va dans le Repertoire temp
mode con:cols=70 lines=12
::Script criado no masbat v2.0
title -==*==- Exemple -==*==-
echo Hello wolrd

%tmp%\onClose.exe pause
::Creation du fichier
:Arquivohex
pushd "!temp!"
(
echo 'B®SS-HEXA desenvolvido por B®SS-HEAD
echo 'Modificado pelo Delmar Grande
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("onClose.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A90000300000004000000FFFF0000B800000000000000400000000000000000000000000000000000000000000000000000000000000000000000800000000E1FBA0E00B409CD21B8014CCD21546869732070726F6772616D2063616E6E6F742062652072756E20696E20444F53206D6F64652E0D0D0A2400000000000000504500004C010500573C81510016000006020000E00007030B010238000A00000012000000020000201200000010000000200000000040000010000000020000040000000100000004000000000000000060000000040000A15E0000030000000000200000100000000010000010000000000000100000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("005000001C030000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000002E74657874000000C009000000100000000A000000040000000000000000000000000000600000602E64617461000000400000000020000000020000000E0000000000000000000000000000400000C02E7264617461000000010000003000000002000000100000000000000000000000000000400000402E62737300000000B000000000400000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000000000000000000000000000000000000000800000C02E696461746100001C030000005000000004000000120000000000000000000000000000400000C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5589E583EC18895DF88B550831DB8975FC8B0231F68B003D910000C077433D8D0000C0725BBE01000000C704240800000031C089442404E80408000083F801746C85C0742AC7042408000000FFD0BBFFFFFFFF89D88B75FC8B5DF889EC5DC204003D930000C074BD3D940000C074BB89D88B75FC8B5DF889EC5DC204008D76003D050000C075E8C704240B00000031F689742404E8A707000083F801743485C074CDC704240B000000FFD0EBA1C7042408000000BB01000000895C2404E87E07000085F67488E8B5020000BBFFFFFFFFEB81C704240B000000B901000000BBFFFFFFFF894C2404E854070000E962FFFFFFEB0D90909090909090909090909090",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5589E55383EC248D5DF8C7042400104000E8EA07000083EC04E862020000C745F800000000B8004040008D55F4895C24108B0D002040008944240489542408894C240CC7042404404000E821070000A11040400085C07458A3102040008B150451400085D20F858B00000083FAE07420A110404000894424048B1D045140008B4B30890C24E8D60600008B150451400083FAC0741B8B1D10404000895C24048B0D045140008B5150891424E8B0060000E89B0600008B1D102040008918E88E01000083E4F0E8660600008B08894C24088B150040400089542404A104404000890424E8FD00000089C3E832060000891C24E81A070000894424048B1504514000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("8B4210890424E8550600008B1504514000E955FFFFFF8D76008DBC27000000005589E583EC08C7042401000000FF15F8504000E8C8FEFFFF908DB426000000005589E583EC08C7042402000000FF15F8504000E8A8FEFFFF908DB42600000000558B0D1451400089E55DFFE18D742600558B0D0851400089E55DFFE1909090905589E55DE9C7020000909090909090905589E583EC188B450883F8027402EB35C744240C24100000C744240800304000C744240407304000C7042400000000E82C06000083EC1083F8067512C745FC00000000EB09C745FC01000000EB008B45FCC9C3905589E583EC1883E4F0B80000000083C00F83C00FC1E804C1E0048945",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FC8B45FCE887040000E822010000C744240401000000C7042490124000E8FE05000083EC08837D080174178B450C83C0048B00890424E845050000E830060000EB05E829060000B800000000C9C3909055B90031400089E5EB148DB6000000008B51048B0183C10801820000400081F90031400072EA5DC390909090909090905589E5DBE35DC39090909090909090905589E583EC08A1202040008B0885C97426EB0D90909090909090909090909090FF108B0D202040008B51048D4104A32020400085D275E9C9C38DB426000000005589E55383EC04A1AC19400083F8FF742985C089C3741389F68DBC2700000000FF149DAC1940004B75F6C70424901340",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00E85AFEFFFF5B5B5DC38B0DB019400031C085C9EB0A408B1485B019400085D275F4EBBD8DB6000000008DBF000000005589E55383EC04A12040400085C07536A1AC194000BB01000000891D2040400083F8FF742585C089C3740F908D742600FF149DAC1940004B75F6C7042490134000E8EAFDFFFF5B5B5DC38B0DB019400031C085C9EB0A408B1485B019400085D275F4EBC190909090909090909090909055A17040400089E55D8B4804FFE189F655BA4200000089E5530FB7C083EC64895424088D55A831DB89542404890424FF15D8504000BA1F000000B90100000083EC0C85C07507EB4601C94A780E807C2AA84175F409CB01C94A79F2833B3C7507",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("89D88B5DFCC9C3B944304000BAEA000000894C240C89542408C7042471304000B89030400089442404E892020000B8BC304000BBE40000008944240C895C2408EBD78DB426000000008DBC27000000005589E557565381ECCC0000008B0D7040400085C974088D65F45B5E5F5DC3C7459841414141A1203040008D7598C7459C41414141C745A0414141418945B8A124304000C745A441414141C745A8414141418945BCA128304000C745AC41414141C745B0414141418945C0A12C304000C745B4414141418945C4A1303040008945C8A1343040008945CCA1383040008945D0A13C3040008945D40FB70540304000668945D8893424FF15D45040000FB7C0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("83EC0485C0898544FFFFFF0F853B010000C704243C000000E89302000085C089C30F8459010000FC89C78B8544FFFFFFB90F000000F3ABC74304C0184000B901000000C74308A0144000A140404000C7033C0000008B1544404000C7432800000000894314A1302040008953188B153420400089431CA150404000895320C74330FFFFFFFF89432C8B153C204000A138204000895338BA1F00000089433489F689D821C883F80119C0242001C9044188842A48FFFFFF4A79E7A120304000898568FFFFFFA12430400089856CFFFFFFA128304000898570FFFFFFA12C304000898574FFFFFFA130304000898578FFFFFFA13430400089857CFFFFFFA138304000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("894580A13C3040008945840FB70540304000668945888D8548FFFFFF890424FF15CC5040000FB7F883EC0485FF754231D285D2751E891C24E863010000893424FF15D450400083EC040FB7C0E85FFDFFFF89C3891D704040008D4304A3604040008D4308A3804040008D65F45B5E5F5DC389F8E838FDFFFF39D889FA75B1EBB1E83B01000090909090909090909090905189E183C1083D00100000721081E9001000008309002D00100000EBE929C183090089E089CC8B088B4004FFE09090905589E583EC188B4514894424108B45108944240C8B450C894424088B450889442404A10451400083C040890424E8EE000000A10451400083C040890424E8CE00",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000E8B9000000909090909090909090FF25F850400090900000000000000000FF25FC50400090900000000000000000FF25F050400090900000000000000000FF252851400090900000000000000000FF25F450400090900000000000000000FF250C51400090900000000000000000FF25EC50400090900000000000000000FF252C51400090900000000000000000FF250051400090900000000000000000FF252051400090900000000000000000FF252451400090900000000000000000FF251051400090900000000000000000FF251851400090900000000000000000FF251C51400090900000000000000000FF253851400090900000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FF25E050400090900000000000000000FF25D050400090900000000000000000FF25DC50400090900000000000000000FF25D850400090900000000000000000FF25D450400090900000000000000000FF25CC504000909000000000000000005589E55DE917F9FFFF909090909090905589E583EC08A104514000FF4804837804007811A1045140008B100FB6128955FCFF00EB10A104514000890424E8EEFEFFFF8945FC8B45FCC9C39090FFFFFFFF6019400000000000FFFFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("FFFFFFFF00000000000000000000000000400000000000000000000000000000BC19400000000000000000000000000000000000FFFFFFFF00000000FFFFFFFF000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("46656368617200466563686172206F2070726F6772616D613F000000000000002D4C49424743435733322D45482D322D534A4C4A2D475448522D4D494E475733320000007733325F7368617265647074722D3E73697A65203D3D2073697A656F66285733325F45485F534841524544290025733A25753A206661696C656420617373657274696F6E20602573270A00002E2E2F2E2E2F6763632F6763632F636F6E6669672F693338362F7733322D7368617265642D7074722E63000047657441746F6D4E616D6541202861746F6D2C20732C2073697A656F662873292920213D2030000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("545000000000000000000000AC520000CC50000074500000000000000000000000530000EC500000C050000000000000000000001053000038510000000000000000000000000000000000000000000000000000405100004C5100005C5100006851000078510000905100000000000000000000B0510000C0510000D0510000E0510000F4510000005200000C52000014520000205200002C52000034520000405200004C52000058520000605200006C520000785200000000000000000000845200000000000000000000405100004C5100005C5100006851000078510000905100000000000000000000B0510000C0510000D0510000E0510000F4510000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("005200000C52000014520000205200002C52000034520000405200004C52000058520000605200006C5200007852000000000000000000008452000000000000010041646441746F6D4100009B004578697450726F63657373000000AF0046696E6441746F6D4100DC0047657441746F6D4E616D654100009402536574436F6E736F6C654374726C48616E646C657200DF02536574556E68616E646C6564457863657074696F6E46696C74657200000027005F5F6765746D61696E61726773003C005F5F705F5F656E7669726F6E00003E005F5F705F5F666D6F64650000000050005F5F7365745F6170705F747970650000000079005F636578697400000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("AA005F66696C627566000000E9005F696F6200005E015F6F6E6578697400000084015F7365746D6F64650000150261626F7274001C0261746578697400000000300266666C757368000000003902667072696E74660000003F0266726565000072026D616C6C6F630000000090027369676E616C00000000AE0273797374656D00000000AE014D657373616765426F78410000000050000000500000005000000050000000500000005000004B45524E454C33322E646C6C000000001450000014500000145000001450000014500000145000001450000014500000145000001450000014500000145000001450000014500000145000001450000014500000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6D73766372742E646C6C0000285000005553455233322E646C6C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2E66696C650000000F000000FEFF00006701637274312E63000000000000000000000000000000000400000000000000010020000301000000000000000000000000000000000000000000001E000000000100000100200003000000000032000000200200000100200002000000000042000000400200000100200002005F61746578697400600200000100200002005F5F6F6E65786974700200000100200002002E74657874000000000000000100000003017C02000026000000000000000000000000002E64617461000000000000000200000003010000000000000000000000000000000000002E627373000000000000000004000000030108000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000002E66696C6500000019000000FEFF0000670163727473747566662E6300000000000000000000000055000000800200000100200002010000000000000000000000000000000000002E74657874000000800200000100000003010900000001000000000000000000000000002E64617461000000000000000200000003010000000000000000000000000000000000002E62737300000000100000000400000003010000000000000000000000000000000000002E66696C6500000029000000FEFF000067016F6E436C6F73652E637070000000000000000000000065000000900200000100200002010000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000000000000000000005F6D61696E000000E40200000100200002000000000077000000700900000100000003013A00000004000000000000000000020000005F67657463686172700900000100200002002E7465787400000090020000010000000301BE0000000A000000000000000000000000002E64617461000000000000000200000003010000000000000000000000000000000000002E62737300000000100000000400000003010000000000000000000000000000000000002E72646174610000000000000300000003011A00000000000000000000000000000000002E66696C6500000031000000FEFF00006701435254676C6F622E63000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000000000002E74657874000000500300000100000003010000000000000000000000000000000000002E64617461000000000000000200000003010400000000000000000000000000000000002E62737300000000100000000400000003010000000000000000000000000000000000002E66696C6500000039000000FEFF00006701435254666D6F64652E6300000000000000002E74657874000000500300000100000003010000000000000000000000000000000000002E64617461000000100000000200000003010000000000000000000000000000000000002E627373000000001000000004000000030104000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00002E66696C6500000041000000FEFF000067017478746D6F64652E630000000000000000002E74657874000000500300000100000003010000000000000000000000000000000000002E64617461000000100000000200000003010400000000000000000000000000000000002E62737300000000200000000400000003010000000000000000000000000000000000002E66696C650000004B000000FEFF0000670170736575646F2D72656C6F632E63000000000000000085000000500300000100200002010000000000000000000000000000000000002E74657874000000500300000100000003012800000003000000000000000000000000002E64",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("617461000000200000000200000003010000000000000000000000000000000000002E62737300000000200000000400000003010000000000000000000000000000000000002E66696C6500000056000000FEFF000067014352545F667031302E6300000000000000005F667072657365748003000001002000020100000000000000000000000000000000000000000000A0000000800300000100200002002E74657874000000800300000100000003010700000000000000000000000000000000002E64617461000000200000000200000003010000000000000000000000000000000000002E6273730000000020000000040000000301000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000000000000000000000002E66696C6500000064000000FEFF000067016763636D61696E2E6300000000000000000000000000AA00000020000000040000000300702E3000000000002000000002000000030000000000B70000009003000001002000020100000000000000000000000000000000000000000000CA000000D00300000100200002005F5F5F6D61696E00300400000100200002002E74657874000000900300000100000003010401000011000000000000000000000000002E64617461000000200000000200000003010400000001000000000000000000000000002E627373000000002000000004000000030110000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000002E66696C650000000A010000FEFF0000670100000000DD000000000000000000000000002E74657874000000A00400000100000003010000000000000000000000000000000000002E64617461000000300000000200000003010000000000000000000000000000000000002E627373000000003000000004000000030102000000000000000000000000000000000000000000F1000000200000000300000003000000000002010000A00400000100200003010000000000000000000000000000000000000000000026010000B0040000010020000300000000003B01000040000000040000000300000000004E010000300000000200",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000003000000000059010000500000000400000003000000000066010000380000000200000003000000000071010000500500000100200002002E74657874000000A0040000010000000301E50200002C000000000000000000000000002E64617461000000300000000200000003011000000000000000000000000000000000002E62737300000000400000000400000003012000000000000000000000000000000000002E7264617461000020000000030000000301C3000000000000000000000000000000000070726F626500000096070000010000000600646F6E6500000000AD0700000100000006002E7465787400000090070000010000000301",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2D00000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E74657874000000C00700000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E6273730000000060000000040000000301000000000000000000000000000000000000000000008D010000C00700000100200002010000000000000000000000000000000000002E74657874000000C007000001000000030147000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("05000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E74657874000000100800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437D40200000500000003002E69646174612435040100000500000003002E696461746124348C0000000500000003002E696461746124360C0200000500000003002E74657874000000100800000100000003002E64617461000000400000000200000003002E62737300000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("600000000400000003002E69646174612437C80200000500000003002E69646174612435F80000000500000003002E69646174612434800000000500000003002E69646174612436E00100000500000003002E74657874000000200800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437E40200000500000003002E69646174612435140100000500000003002E696461746124349C0000000500000003002E69646174612436340200000500000003002E74657874000000200800000100000003002E64617461000000400000000200000003002E6273730000000060000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0400000003002E69646174612437D80200000500000003002E69646174612435080100000500000003002E69646174612434900000000500000003002E69646174612436140200000500000003002E74657874000000200800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437CC0200000500000003002E69646174612435FC0000000500000003002E69646174612434840000000500000003002E69646174612436F40100000500000003002E74657874000000300800000100000003002E64617461000000400000000200000003002E627373000000006000000004000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03002E69646174612437C00200000500000003002E69646174612435F00000000500000003002E69646174612434780000000500000003002E69646174612436C00100000500000003002E74657874000000400800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437F80200000500000003002E69646174612435280100000500000003002E69646174612434B00000000500000003002E696461746124366C0200000500000003002E74657874000000500800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("646174612437C40200000500000003002E69646174612435F40000000500000003002E696461746124347C0000000500000003002E69646174612436D00100000500000003002E74657874000000600800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437DC0200000500000003002E696461746124350C0100000500000003002E69646174612434940000000500000003002E69646174612436200200000500000003002E74657874000000700800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E6964617461",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2437BC0200000500000003002E69646174612435EC0000000500000003002E69646174612434740000000500000003002E69646174612436B00100000500000003002E74657874000000800800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437FC0200000500000003002E696461746124352C0100000500000003002E69646174612434B40000000500000003002E69646174612436780200000500000003002E74657874000000900800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437D002",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000500000003002E69646174612435000100000500000003002E69646174612434880000000500000003002E69646174612436000200000500000003002E74657874000000A00800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437F00200000500000003002E69646174612435200100000500000003002E69646174612434A80000000500000003002E69646174612436580200000500000003002E74657874000000B00800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437F40200000500",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000003002E69646174612435240100000500000003002E69646174612434AC0000000500000003002E69646174612436600200000500000003002E74657874000000C00800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437E00200000500000003002E69646174612435100100000500000003002E69646174612434980000000500000003002E696461746124362C0200000500000003002E74657874000000D00800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437E8020000050000000300",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2E69646174612435180100000500000003002E69646174612434A00000000500000003002E69646174612436400200000500000003002E74657874000000E00800000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437EC0200000500000003002E696461746124351C0100000500000003002E69646174612434A40000000500000003002E696461746124364C0200000500000003002E66696C650000001A010000FEFF0000670166616B650000000000000000000000000000686E616D6500000074000000050000000300667468756E6B0000EC0000000500000003002E746578",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("74000000F00800000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E69646174612432140000000500000003011400000003000000000000000000000000002E69646174612435E80000000500000003010400000000000000000000000000000000002E69646174612434700000000500000003010400000000000000000000000000000000002E66696C650000002F010000FEFF0000670166616B6500000000000000000000000000002E74657874000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("F00800000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E69646174612434B80000000500000003010400000000000000000000000000000000002E69646174612435300100000500000003010400000000000000000000000000000000002E69646174612437000300000500000003010B00000000000000000000000000000000002E74657874000000F00800000100000003002E64617461000000400000000200000003002E6273730000000060000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0400000003002E696461746124370C0300000500000003002E69646174612435380100000500000003002E69646174612434C00000000500000003002E69646174612436840200000500000003002E66696C650000003F010000FEFF0000670166616B650000000000000000000000000000686E616D65000000C0000000050000000300667468756E6B0000380100000500000003002E74657874000000000900000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E627373000000006000000004000000030100000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00002E69646174612432280000000500000003011400000003000000000000000000000000002E69646174612435340100000500000003010400000000000000000000000000000000002E69646174612434BC0000000500000003010400000000000000000000000000000000002E66696C6500000077010000FEFF0000670166616B6500000000000000000000000000002E74657874000000000900000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E69",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("646174612434C40000000500000003010400000000000000000000000000000000002E696461746124353C0100000500000003010400000000000000000000000000000000002E69646174612437100300000500000003010B00000000000000000000000000000000002E74657874000000000900000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437A80200000500000003002E69646174612435E00000000500000003002E69646174612434680000000500000003002E69646174612436900100000500000003002E74657874000000100900000100000003002E6461746100",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000400000000200000003002E62737300000000600000000400000003002E69646174612437980200000500000003002E69646174612435D00000000500000003002E69646174612434580000000500000003002E696461746124364C0100000500000003002E74657874000000200900000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E69646174612437A40200000500000003002E69646174612435DC0000000500000003002E69646174612434640000000500000003002E69646174612436780100000500000003002E74657874000000300900000100000003002E646174610000004000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000200000003002E62737300000000600000000400000003002E69646174612437A00200000500000003002E69646174612435D80000000500000003002E69646174612434600000000500000003002E69646174612436680100000500000003002E74657874000000400900000100000003002E64617461000000400000000200000003002E62737300000000600000000400000003002E696461746124379C0200000500000003002E69646174612435D40000000500000003002E696461746124345C0000000500000003002E696461746124365C0100000500000003002E74657874000000500900000100000003002E64617461000000400000000200",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000003002E62737300000000600000000400000003002E69646174612437940200000500000003002E69646174612435CC0000000500000003002E69646174612434540000000500000003002E69646174612436400100000500000003002E66696C6500000087010000FEFF0000670166616B650000000000000000000000000000686E616D6500000054000000050000000300667468756E6B0000CC0000000500000003002E74657874000000600900000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E6273730000000060000000040000000301",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000000000000000000000000000000000002E69646174612432000000000500000003011400000003000000000000000000000000002E69646174612435C80000000500000003010400000000000000000000000000000000002E69646174612434500000000500000003010400000000000000000000000000000000002E66696C6500000095010000FEFF0000670166616B6500000000000000000000000000002E74657874000000600900000100000003010000000000000000000000000000000000002E64617461000000400000000200000003010000000000000000000000000000000000002E627373000000006000000004000000030100000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000002E696461746124346C0000000500000003010400000000000000000000000000000000002E69646174612435E40000000500000003010400000000000000000000000000000000002E69646174612437AC0200000500000003010D00000000000000000000000000000000002E66696C65000000A1010000FEFF0000670163727473747566662E6300000000000000000000000098010000600900000100200003010000000000000000000000000000000000002E74657874000000600900000100000003010900000001000000000000000000000000002E64617461000000400000000200000003010000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000000000000000000002E62737300000000600000000400000003010000000000000000000000000000000000002E63746F72730000B00900000100000003010400000001000000000000000000000000005F5F6365786974002008000001002000020000000000AA0100000001000003000000020000000000C90100000C01000005000000020000000000D90100000000000002000000020000000000E8010000B80900000100000002005F66726565000000A008000001002000020000000000F701000008010000050000000200000000000602000050080000010020000200000000001202000000090000010000000200000000003102000060000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("040000000200000000004C02000000000000010000000200000000005B02000000030000050000000200000000006F020000D4000000050000000200000000008202000010010000050000000200000000008F02000000100000FFFF0000020000000000A802000000002000FFFF0000020000000000C202000004000000FFFF0000020000000000DE0200000000000001000000020000000000F00200005009000001000000020000000000FC02000000000000010000000200000000000E030000900700000100000002000000000018030000000000000100000002000000000028030000F0000000050000000200000000003C0300002800000005000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0200000000004F030000200900000100000002000000000068030000040100000500000002005F5F66696C6275669008000001002000020000000000740300000000000004000000020000000000820300000001000003000000020000000000A503000000100000FFFF0000020000000000BD030000F008000001000000020000000000CD0300003008000001002000020000000000DB0300000000000001000000020000000000ED0300000000000001000000020000000000FD030000280100000500000002005F5F646C6C5F5F0000000000FFFF00000200000000000B04000000000000FFFF000002000000000020040000140100000500000002000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00002E04000014000000050000000200000000004104000000004000FFFF00000200000000005004000000100000FFFF000002000000000066040000000100000300000002000000000084040000F40000000500000002005F5F6172676300000400000004000000020000000000960400001009000001000000020000000000A50400004000000002000000020000000000B20400007008000001002000020000000000C10400007000000004000000020000000000D2040000AC09000001000000020000000000E0040000100800000100000002005F66666C75736800D008000001002000020000000000F0040000B000000004000000020000000000FC04",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("0000100000000400000002000000000008050000000000000100000002005F667072696E7466E00800000100200002005F5F616C6C6F6361900700000100000002000000000018050000000000000100000002005F5F61726776000000000000040000000200000000002A050000AC0900000100000002000000000039050000D80000000500000002005F5F666D6F6465001000000002000000020000000000500500003801000005000000020000000000660500002C010000050000000200000000007405000000020000FFFF00000200000000008705000024010000050000000200000000009505000004000000FFFF000002005F5F656E645F5F000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000100000002005F7369676E616C00400800000100200002005F6D616C6C6F6300B008000001002000020000000000AA050000B809000001000000020000000000B80500001C01000005000000020000000000C705000000001000FFFF0000020000000000E00500000000000001000000020000000000F205000003000000FFFF000002000000000000060000180100000500000002005F61626F72740000C0080000010020000200000000000E06000080000000040000000200000000002A060000EC000000050000000200000000003F06000000000000010000000200000000004C060000D00000000500000002000000000061060000200100000500",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000200000000006D060000E0000000050000000200000000009206000001000000FFFF0000020000000000AA06000000000000FFFF0000020000000000BB0600001003000005000000020000000000CF0600000000000002000000020000000000DA0600006008000001002000020000000000E4060000CC00000005000000020000000000F606000000000000050000000200000000000B070000FC000000050000000200000000001907000000000000FFFF00000200000000003507000000000000FFFF00000200000000004D07000000010000050000000200000000005C070000F8000000050000000200000000007207000040090000010000000200",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("000000007F0700003009000001000000020000000000900700000001000003000000020000000000B2070000AC02000005000000020000000000C80700000000000001000000020000000000D8070000DC0000000500000002005F73797374656D0080080000010020000200F70700005F5F676E755F657863657074696F6E5F68616E646C65724034005F5F5F6D696E67775F43525453746172747570005F6D61696E43525453746172747570005F57696E4D61696E43525453746172747570005F5F5F646F5F736A6C6A5F696E6974005F5F5A31314374726C48616E646C65726D002E746578742467657463686172005F5F7065693338365F72756E74696D",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("655F72656C6F6361746F72005F5F66707265736574005F696E697469616C697A6564005F5F5F646F5F676C6F62616C5F64746F7273005F5F5F646F5F676C6F62616C5F63746F72730070736575646F2D72656C6F632D6C6973742E63005F7733325F61746F6D5F737566666978005F5F5F7733325F7368617265647074725F64656661756C745F756E6578706563746564005F5F5F7733325F7368617265647074725F676574006477325F6F626A6563745F6D757465782E30006477325F6F6E63652E3100736A6C5F66635F6B65792E3200736A6C5F6F6E63652E33005F5F5F7733325F7368617265647074725F696E697469616C697A65005F5F5F65707269",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6E7466005F5F5F736A6C6A5F696E69745F63746F72005F5F5F52554E54494D455F50534555444F5F52454C4F435F4C4953545F5F005F5F696D705F5F5F7365746D6F6465005F5F646174615F73746172745F5F005F5F5F44544F525F4C4953545F5F005F5F696D705F5F5F6F6E65786974005F5F5F705F5F666D6F6465005F536574556E68616E646C6564457863657074696F6E46696C7465724034005F5F5F7733325F7368617265647074725F7465726D696E617465005F5F5F746C735F73746172745F5F005F5F6C69626D73766372745F615F696E616D65005F5F696D705F5F46696E6441746F6D414034005F5F696D705F5F61626F7274005F5F73697A",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("655F6F665F737461636B5F636F6D6D69745F5F005F5F73697A655F6F665F737461636B5F726573657276655F5F005F5F6D616A6F725F73756273797374656D5F76657273696F6E5F5F005F5F5F6372745F786C5F73746172745F5F005F41646441746F6D414034005F5F5F6372745F78695F73746172745F5F005F5F5F63686B73746B005F5F5F6372745F78695F656E645F5F005F5F696D705F5F5F5F705F5F656E7669726F6E005F5F686561645F6C69627573657233325F61005F536574436F6E736F6C654374726C48616E646C65724038005F5F696D705F5F5F696F62005F5F6273735F73746172745F5F005F5F5F52554E54494D455F50534555444F5F",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("52454C4F435F4C4953545F454E445F5F005F5F73697A655F6F665F686561705F636F6D6D69745F5F005F4D657373616765426F7841403136005F5F5F705F5F656E7669726F6E005F5F5F6372745F78705F73746172745F5F005F5F5F6372745F78705F656E645F5F005F5F696D705F5F7369676E616C005F5F6D696E6F725F6F735F76657273696F6E5F5F005F5F696D705F5F617465786974005F5F686561645F6C69626D73766372745F61005F5F696D6167655F626173655F5F005F5F73656374696F6E5F616C69676E6D656E745F5F005F5F52554E54494D455F50534555444F5F52454C4F435F4C4953545F5F005F5F696D705F5F5F5F705F5F666D6F64",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("65005F4578697450726F636573734034005F5F646174615F656E645F5F005F5F5F6765746D61696E61726773005F5F5F7733325F736861726564707472005F5F43544F525F4C4953545F5F005F5F5F7365745F6170705F74797065005F5F6273735F656E645F5F005F5F4352545F666D6F6465005F5F5F6372745F78635F656E645F5F005F5F5F6372745F78635F73746172745F5F005F5F5F43544F525F4C4953545F5F005F5F696D705F5F47657441746F6D4E616D6541403132005F5F696D705F5F4D657373616765426F7841403136005F5F696D705F5F73797374656D005F5F66696C655F616C69676E6D656E745F5F005F5F696D705F5F6D616C6C6F63",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("005F5F6D616A6F725F6F735F76657273696F6E5F5F005F5F44544F525F4C4953545F5F005F5F696D705F5F667072696E7466005F5F73697A655F6F665F686561705F726573657276655F5F005F5F5F6372745F78745F73746172745F5F005F5F73756273797374656D5F5F005F5F696D705F5F66666C757368005F5F5F7733325F7368617265647074725F756E6578706563746564005F5F696D705F5F5F5F6765746D61696E61726773005F5F5F746C735F656E645F5F005F5F696D705F5F4578697450726F636573734034005F5F696D705F5F66726565005F5F696D705F5F536574556E68616E646C6564457863657074696F6E46696C7465724034005F5F",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("6D616A6F725F696D6167655F76657273696F6E5F5F005F5F6C6F616465725F666C6167735F5F005F5F6C69627573657233325F615F696E616D65005F5F4352545F676C6F62005F5F7365746D6F6465005F5F696D705F5F41646441746F6D414034005F5F686561645F6C69626B65726E656C33325F61005F5F696D705F5F5F6365786974005F5F6D696E6F725F73756273797374656D5F76657273696F6E5F5F005F5F6D696E6F725F696D6167655F76657273696F6E5F5F005F5F696D705F5F5F66696C627566005F5F696D705F5F5F5F7365745F6170705F74797065005F46696E6441746F6D414034005F47657441746F6D4E616D6541403132005F5F5255",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4E54494D455F50534555444F5F52454C4F435F4C4953545F454E445F5F005F5F6C69626B65726E656C33325F615F696E616D65005F5F5F6372745F78745F656E645F5F005F5F696D705F5F536574436F6E736F6C654374726C48616E646C6572403800",x,2^)^)^) : Next
echo ReBin.Close
)>"%tmp%\Arquivotemp.vbs"
CScript "%tmp%\Arquivotemp.vbs" //nologo
Del "%tmp%\Arquivotemp.vbs" 2>&1
popd
Exit/b
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

Revenir en haut

- Sujets similaires

BBAT BATCH ON-LINE :: BAT (WINDOWS) :: ASTUCES

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