Mon WriteStringN(0,Path$) apres if fichier$ ni change rien, meme si je le mets à la fin.
Quel est la syntha pour ecrire le contenu de reprar$ avec WritstringN ??
Merci
[resolu] GUI utilisant rar.exe
Non, car reprar$ est le repertoire courant du soft, ou se trouve rar.exe..Dobro a écrit :il te suffit de sauvegarder ton ini juste avant de quitter le prg
(juste avant le "end" !!)
mais prevois un "Delay (500)"
avant de quitter , histoire de laisser le temps au programme d'ecrire son fichier
en utilisant le dernier chemin se trouvant dans ta variable
je suppose (RepRar$)
J'ai bien avancé mais je ne comprends pas ce qui se passe.
Les le fichier ini n'existe pas, il est créé et le chemin s'ecrit bien.
Mais ensuite, le nouveau chemin par defaut (path$) ne s'ecrit pas dans ini !
Voilà mon code, je deviens barje, je pige pas ! Il devrait marcher
Code : Tout sélectionner
OpenWindow_Fenettre()
;{ boucle
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
mdp$= GetGadgetText ( #MDP )
nom_archive$=GetGadgetText ( #Nom_Archive )
If EventGadget = #OuvrirFichier
taux.s
If GetGadgetState(#Option_Fort) ; Option Fort
taux = "-m5"
Else
taux = "-m0"
EndIf
If mdp$ And nom_archive$ ;-----1
RepRar$ = GetCurrentDirectory()
rar$=RepRar$+"rar.exe"
Filtre$ = "*.*|*.*"
Filtre = 0
DossierParDefaut$="C:"
; SI .ini existe
If ReadFile (0,RepRar$+"user.ini") ;------2
Path$=ReadString(0)
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , Path$ ,Filtre$, Filtre)
MessageRequester("info","le chemin des archives ETAIT "+Path$) ;-------------TEST
Path$ = GetPathPart(Fichier$)
MessageRequester("info","le chemin des archives est MAINTENANT "+Path$) ;-------------TEST
Parametre$="a -s -ep -hp"+mdp$+" "+taux+" "+"-v95m "+Chr(34)+Path$+nom_archive$+Chr(34)+" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
StandardPath$ = Path$
DossierParDefaut$=Path$
NouveauRep$ = Path$
WriteStringN(0,Path$)
MessageRequester("info","NouveauRep$ = "+NouveauRep$+Chr(10)+"DossierParDefaut$ = "+DossierParDefaut$+Chr(10)+"StandardPath$ = "+StandardPath$) ;-------------TEST
; SI .ini existe pas
ElseIf CreateFile(0,RepRar$+"user.ini") ;------3
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , DossierParDefaut$, Filtre$, Filtre)
Path$ = GetPathPart(Fichier$)
Parametre$="a -s -ep -hp"+mdp$+" "+taux+" "+"-v95m "+Chr(34)+Path$+nom_archive$+Chr(34)+" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
;CloseFile(0)
WriteStringN(0,Path$)
ReadFile (0, RepRar$+"user.ini")
Path$=ReadString(0)
StandardPath$ = Path$
MessageRequester ("infotest","le rep par defaut est : "+Path$+" et le fichier est : "+Fichier$) ;----------TEST
EndIf ;------FIN 3
If Fichier$ ;------ 4
WriteStringN(0,Path$+Str(a))
SetGadgetText(#Message_Affiche,"Patienter SVP")
RunProgram(rar$,Parametre$,Fichier$,1)
If RunProgram("C:\WINDOWS\explorer",Path$,Path$,1) ;------5
MessageRequester ("Rappel","Votre mot de passe est : "+mdp$+Chr(10)+"Notez le bien ;)")
CloseFile(0)
WriteStringN(0,"")
WriteStringN(0,Path$)
SetGadgetText(#Message_Affiche,"Opération terminée")
Else
MessageRequester ("info","Votre explorer est introuvable")
EndIf ;------ FIN5
Else
MessageRequester ("info","Fichier Manquant ou introuvable")
EndIf ;------ FIN4
Else
MessageRequester ("Alerte",alerte$)
EndIf ;------ FIN2
EndIf ;------FIN 1
If EventGadget = #Boutonimage_about
If uFMOD_PlaySong(?xm, ?endxm-?xm, #XM_MEMORY) <> 0
MessageRequester ( "A Propos" , "a propos",0)
EndIf
uFMOD_PlaySong(0, 0, 0)
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Fenettre
CloseWindow(#Fenettre)
Break
EndIf
EndSelect
ForEver
;
;}
DataSection
xm:
IncludeBinary "cosnie.xm"
endxm:
EndDataSection ;<
End
j'ai un plantage sur
OpenWindow_Fenettre() !!
si tu pouvais mettre un code complet
...
[edition:]
pour clarifier il vaudrai mieux respecter ceci a chaque appel de ton fichier
en lecture
et en ecriture
ouvrir --- lire --- fermer
ouvrir --- ecrire--- fermer
faire ceci peut paraitre rebarbatif
mais cela a 2 avantages
1- si une coupure secteur a lieu, il est peut probable de perdre des données , , alors que sinon si la coupure a lieu avant le Close
tu perd le fichier en cours !!
bref ! ne pas faire
ouvrir ---- lire----ecrire-------lire----lire---ecrire-----fermer
2- cela permet d'etre clair et bourrin, mais clair !!
cela evite des erreurs de lecture ecriture, comme tu en connais en ce moment
bref ! je prends peur lorsque je vois ceci (pris dans ton code )
OpenWindow_Fenettre() !!
si tu pouvais mettre un code complet
...[edition:]
pour clarifier il vaudrai mieux respecter ceci a chaque appel de ton fichier
en lecture
Code : Tout sélectionner
If OpenFile(0, "***.ini") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
Texte$ = ReadString(#Fichier [, Options])
CloseFile(0)
EndIf
et en ecriture
Code : Tout sélectionner
If OpenFile(0, "***.ini") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
WriteStringN(0, "... une ligne ")
CloseFile(0)
EndIf
ouvrir --- lire --- fermer
ouvrir --- ecrire--- fermer
faire ceci peut paraitre rebarbatif
mais cela a 2 avantages
1- si une coupure secteur a lieu, il est peut probable de perdre des données , , alors que sinon si la coupure a lieu avant le Close
tu perd le fichier en cours !!
bref ! ne pas faire
ouvrir ---- lire----ecrire-------lire----lire---ecrire-----fermer
2- cela permet d'etre clair et bourrin, mais clair !!
cela evite des erreurs de lecture ecriture, comme tu en connais en ce moment
bref ! je prends peur lorsque je vois ceci (pris dans ton code )
Code : Tout sélectionner
WriteStringN(0,Path$)
ReadFile (0, RepRar$+"user.ini") Voila le code complet
Code : Tout sélectionner
;{- Enumerations / DataSections
;{ Windows
Enumeration
#Fenettre
#Nom_Archive
#OuvrirFichier
#Message_Affiche
#Image_logo
#Text_9
#Text_info
#Image_1
#Boutonimage_about
#MDP
#Text_16
#Option_Fort
#Option_Nul
#Image_Image_8
#Image_Image_1
#Image_ButtonImage_1
EndEnumeration
;}
;{- uFMOD flags
;#XM_RESOURCE = 0 ;
;#XM_MEMORY = 1
;#XM_FILE = 2
;#XM_NOLOOP = 1
;#XM_SUSPENDED = 16
;}- FinmodFlag
;{ Included Images
DataSection
Image_Image_8:
Data.l $E0FFD8FF,$464A1000,$01004649,$64000002,$00006400,$1100ECFF,$6B637544,$00010079,$00000004,$FF000048,$410E00EE,$65626F64
Data.l $00C06400,$FF010000,$008400DB,$03030304,$03040303,$03050403,$06050303,$05040405,$06060706,$07060606,$08080709,$09070808
Data.l $0C0B0B09,$0C090B0B,$0C0C0C0C,$1010100C,$12121010,$12121212,$12121212,$04040401,$0E070707,$140E0909,$140E0D0E,$12121214
Data.l $12121412,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$00C0FF12
Data.l $2E000811,$01038501,$11020011,$01110301,$B300C4FF,$02020000,$00010103,$00000000,$00000000,$05060000,$08040307,$00010201
Data.l $01010501,$00000001,$00000000,$00000000,$05040302,$08070106,$02020010,$04020301,$09050204,$00000905,$03020100,$11000504
Data.l $31122106,$51071341,$71142261,$42328115,$C1912362,$B3827252,$B2171624,$08353453,$7333B1A1,$8474D383,$01001175,$03040203
Data.l $03050804,$00010702,$00010000,$04110302,$05123121,$61065141,$F013B1A1,$C1918171,$423222D1,$14C2B252,$237262E1,$D2928253
Data.l $16347333,$00DAFF24,$0001030C,$11031102,$BF003F00,$B93AD1FB,$1EF91AED,$A2896E85,$2EDC8F5E,$C7262419,$29904CDF,$1BBDD22A
Data.l $F48780A8,$80D0ECCE,$ADB6A13E,$E0F7D39D,$A534CB57,$F3596E73,$56FAD04A,$9CBB2D98,$C9D08CC7,$66B3894D,$4650BF65,$763A8A66
Data.l $5E250AE5,$C4F13DE4,$C80377CA,$9A6D9BE9,$91C478F2,$1A4F53B3,$C6D51E8E,$55C8EE31,$F8CD4F7C,$D928789D,$068FEC92,$3C694A60
Data.l $EA4B6D55,$E967277A,$8D544C1C,$44DB468F,$8FE4353B,$B9CA1A73,$C2A8709F,$1CC0D5BE,$C7DB024D,$551E2CF2,$C13EB66C,$5B64D098
Data.l $0B4BF12A,$EABDCE46,$7A88CC0A,$661ABE8E,$81B86FEB,$B4B4B2C1,$561F979C,$1ED41C9A,$166CDC37,$74D3F246,$F3664B6A,$AFBCAAE3
Data.l $E824A91F,$2A744759,$5239D0C5,$A6D79110,$6BAB6FFB,$86BB97AE,$2234CFDF,$019CC681,$0C07C5F4,$3036D1F9,$0A3CEBD8,$756C5E50
Data.l $D4352FD4,$08716D23,$746C84D0,$8D101A21,$EBD80875,$75E04688,$1584063D,$F19A7B0B,$31D95D6C,$15CBEDD7,$4892E8BA,$AAD452A9
Data.l $4FFB4D12,$9D32517C,$B17A3EF6,$27AFD9B7,$9A8DCC8F,$3E665A9B,$DE63AC6B,$E455D168,$5B87F31C,$D27B1571,$2B8D9FBB,$30493F8A
Data.l $6CB73480,$4C45831B,$693EDE67,$F94FE2DF,$4A869C0A,$345B21D7,$3F304BE5,$61B09184,$6F07F1B8,$AAC63C02,$DA31D7DE,$0653285C
Data.l $FCA8D0A0,$71C220DF,$9B7D7FAA,$2CE0B4B6,$77B14123,$88E04392,$1D330B88,$F8F900BC,$94A5456A,$13D12FF7,$EE921475,$CF0F3B0A
Data.l $DD72F638,$D04C356A,$BFFAC8D9,$F788926A,$EF52D193,$BB7237D2,$03EBDF28,$7EBAEF53,$2433D6EE,$BC1D6980,$CC8D8FD3,$982AACA6
Data.l $BA9E7658,$513509A8,$C7553E59,$5BC173B0,$66486629,$ACF0AEB6,$0A4EAC75,$E676B7C7,$B70DDC18,$6B9B3A1E,$825CDDB5,$39AD6E62
Data.l $CAFA38E2,$A07141EB,$EE8B5A15,$1572091F,$F858CC6F,$FFBBB10F,$1FA9B100,$FEE3EEFC,$E6B7F7D1,$FF1CFE9E,$94FB9000,$17C61CBD
Data.l $173AC228,$09629623,$52345858,$8E483C90,$E847AC40,$398B0BD4,$B800FFE1,$8D4F13C2,$0B81FBEC,$D3A9D06D,$1524D500,$BABAB6F1
Data.l $23848E8D,$63F7425D,$A17921AE,$BD50D708,$5E88EBD8,$21344268,$758D101A,$425CDB08,$EA1A2134,$10D7B111,$7AEAC08D,$262A080D
Data.l $B8E32DE7,$6E17E7FB,$12E18579,$A58E63CC,$C4A687A9,$89E27B80,$3D1FC4D7,$F76C5B58,$4C5CB373,$31D3DAD4,$050DBD9F,$170A29D9
Data.l $C1A865A9,$2DCAC693,$F0BDB851,$6528034C,$60F66DDF,$C63CEA08,$E20B4DA1,$1CC56379,$AC800B33,$36EA42DA,$758D103A,$88EBD808
Data.l $9E258446,$956A765F,$9E4A4483,$B0B11A9E,$A2E2388C,$7281BADC,$E3DC6E36,$EFA2E492,$4AC9983E,$6D0B7F3B,$FFB76BAF,$FE6FD300
Data.l $8E16FA31,$00FF26EA,$D498E619,$EECBA4FE,$F2D346DE,$21EFA6F8,$6F01A3A5,$FFEB34D1,$3FD57000,$914DB749,$069FF303,$6BECECA4
Data.l $FDF204E2,$8A1C5FCE,$BFF48FFD,$3D72A089,$FE05520B,$5D2758D2,$E5061ADB,$FA8F7970,$A1A93D54,$983F70CF,$7B3F3978,$C7B36728
Data.l $25EE1939,$9DFBAACD,$8FC37FFC,$66DDB38E,$BF8ABA40,$6EA1E297,$03EEA44C,$19E2929A,$8AB92C7E,$495A7B3F,$86DF5372,$289967A5
Data.l $59E798BD,$3A12243D,$19216548,$3DB7597F,$6EA5933A,$CC66EEF0,$1B944782,$7D9B4353,$126EC9DD,$DCF0EA08,$E04AFCF3,$0D8F7CE4
Data.l $9449A8C5,$56E8CFCC,$0E008588,$A2DB91E7,$CCEA28A2,$ACCD1F7E,$D78C8D05,$15E20852,$4AEA4C71,$F878AF18,$ADD056DE,$90110F1C
Data.l $626D1CED,$187FB0B9,$F977FBFB,$395A2707,$8DF12EBA,$9C3E41AD,$747B8455,$1E406DCE,$5BDD53FC,$5215F234,$7A5629F5,$E3DAEFB2
Data.l $0449D571,$82207610,$07F52008,$236959C7,$782C6F7C,$6A8682A3,$E4510A0D,$AEF1E73E,$335C923B,$D993BB96,$91ACA84C,$AB6E00C5
Data.l $0021CBEA,$18AAE413,$B679B5FC,$E3DDD574,$ADD1C63C,$97FA78E6,$34A46363,$4EF85268,$E0CD855D,$2A1172EC,$9A51C7D1,$334D6C78
Data.l $734D8DA8,$837EB0B3,$0675E0B7,$9A6B00FF,$3FC8E3DA,$B5CBF053,$6880E736,$BED67F96,$0A7DD618,$EFB03CEB,$A091D8B2,$8A0FB2AE
Data.l $ED23F224,$5C5D65FD,$CB2FA3B3,$CA031A35,$A8142CBF,$5494E52C,$CF097E0F,$E7C59B13,$21A1EE63,$18128412,$613FD824,$4B05063B
Data.l $B19A0F2B,$DBBDA11A,$2575B5E7,$24783B6D,$1A91044D,$CE63513C,$671CF1E7,$3153361F,$AFD5DB3F,$CE02FBB6,$1115DDCC,$7ACC5247
Data.l $D9D9A401,$8E2073CD,$C1145721,$7BC05A7A,$59E483A9,$B59A386A,$B45C8AA4,$BA5F4593,$30459E58,$9509F6C0,$05ED6623,$1EA32363
Data.l $70EF6ABB,$489B6BE9,$8D22CF0C,$98A67DA5,$981B5F27,$A329AE06,$4E412333,$03844E47,$57612BAA,$0587D404,$DDF31ECA,$8B523EB5
Data.l $54F2902B,$26FC7A60,$E95EAF61,$B8DA8646,$42FBCF0F,$1C5AD9BA,$EA8F3C01,$15A7022A,$63C6C7C8,$92F2D4E4,$96D42247,$35FC13D3
Data.l $DD2D2159,$92FDF310,$B77EF703,$53D7EDEC,$5D30BC5D,$F137771B,$8FCFF306,$C6290EA7,$BE79F16E,$E3D8215E,$73382A85,$0A3ED7F6
Data.l $DC63F6CD,$F5ACADAC,$5AE94D0C,$66C3C8C1,$7EDE3D1B,$523C2D84,$632FEFB7,$BA61FE26,$F5500DF8,$AD1BD38E,$CC51C04C,$9FD2BC23
Data.l $A4FBCE14,$9C19AE39,$BF00FFD2,$79B6FB19,$B12B1114,$F68B1A8A,$32B073E3,$03B922CB,$35307DE2,$19ADA32B,$3E7DA11D,$601F3BA7
Data.l $D66C341F,$8F837BCD,$F091F72A,$F0C1FE4C,$5FF90DDB,$3CE39A32,$366A49B0,$54ED63A6,$3FE18D57,$6FB33B59,$AC1A90B7,$85E13DEB
Data.l $1C03B48E,$5DD47B0D,$4A3E66C6,$92291C71,$56AE2BE8,$80781819,$0CF1E675,$5C728642,$426EEFD7,$87CAB8CC,$A49782BC,$063DFC55
Data.l $7374A8D7,$3F255D03,$7653F128,$5FE11C70,$7555FBCD,$DC6538C5,$9B6C32FE,$82279ADF,$865784C1,$28006635,$1D69E66E,$0DFA5D07
Data.l $E50D7768,$DC88D296,$AB5A512B,$18D6BD2B,$516B5A9E,$992605C0,$A7C05B5E,$2596C482,$557987BF,$D8C08224,$0C6575A3,$2455E4A1
Data.l $B9F12829,$6D23F2F0,$5E5B9229,$520180B0,$B8A32FAD,$E5E63E6D,$F6F19843,$7B4D5710,$E6E2CD65,$CD50DB58,$1573A927,$C7A8BFE8
Data.l $85B59276,$E6632626,$7FA3A3C0,$793D1F54,$E26C534F,$F65970CA,$23ECB43E,$B1B7B330,$192C6608,$8B3C5F70,$C7297EDD,$668B492F
Data.l $1DEBF76B,$38DA08AC,$5E8F81E1,$809125D9,$0CD5FDEE,$361A9847,$BBBC97DE,$A5D19867,$FA7822A7,$B9366682,$985B8DE6,$E778710F
Data.l $E4E84E20,$A6701748,$A1299A55,$3BC04E52,$F837DD21,$E9F985B2,$5E4C873B,$6A440D5B,$26259F1D,$DD1A394B,$8AD91158,$7A25B568
Data.l $DC624931,$14085E89,$053B92BC,$961B5555,$0D00F424,$E439B050,$A2928A06,$5FEAAA17,$D982F87B,$9E475430,$530BDB00,$E4681D49
Data.l $C9D5181F,$AB6C3E72,$175D5CAD,$756AE67A,$F699D91B,$92F636A9,$87D12ACA,$F2C2746A,$4520473C,$E6F4A434,$17D63B91,$78D42564
Data.l $2B3332B2,$DCB1E701,$3DAA8179,$B4B86AC3,$CF619034,$D2F6E482,$BEF06842,$C2240779,$912D4A71,$A015D8CD,$801AD90D,$2064495A
Data.l $EAA09190,$73FE76CC,$58594DD3,$8E2075CD,$9AE95321,$28945E8C,$2FC6D5FB,$03EB5A59,$5576AE42,$9875CD96,$BC6300FF,$2F00FFAE
Data.l $F4375A53,$5A5BE355,$547CFB8A,$9EE9F6F8,$4FEF292A,$FC38F294,$A46E638D,$76A3F1BD,$F16CA448,$BAF61BB8,$DFB1039F,$9A8E3AE6
Data.l $4B5BDCCB,$2848F40B,$E85A4954,$140A97CE,$BCB937AF,$2397AC6A,$E3AA15B5,$61413317,$D4C7ED9F,$7D5500A4,$B81BF26E,$837AD915
Data.l $5EFAB8AB,$1B89F1F5,$E70AD742,$0E8DDCC3,$B72027A1,$0DDB1CF3,$22A6CA85,$C41E36D4,$22E97AD0,$BD221698,$960684DD,$DB0EEA54
Data.l $17F5BC8D,$6EAED86F,$4A4532E3,$04DF4E03,$253FD746,$50CB8729,$CCA062CF,$1B8DD9E3,$389BFE7D,$0E00FF00,$09BC8D46,$0E7C2A1E
Data.l $49DB5DA0,$FF89296F,$48737300,$538E12D6,$8C191EDE,$9262F4B8,$B190944C,$C4886749,$ECD4D595,$D099D557,$18B81F31,$6979F57C
Data.l $B3D377D2,$E741035D,$9DE6BB9F,$7ECA1786,$5C709890,$96C807BB,$C390B43F,$4922FD2C,$0859361A,$138F901B,$A4FB93BA,$55CBDB86
Data.l $75CB86FB,$0E838C69,$A43D3B61,$60B80AB1,$A7592EA5,$CC2DAF8D,$A9D4D184,$34CD4B59,$571111AC,$404F2CA9,$1D1B5D35,$2A588323
Data.l $A528404E,$EB7F48F4,$3E6B0D5F,$589E7585,$486CD977,$075957D0,$117912C5,$AEB2FEF6,$CBE8ECB4,$8046CDF2,$05CBAFF2,$65390B26
Data.l $82DF0315,$8D3D8F68,$5C9250CD,$58668574,$EC0B43FD,$0CF4B01F,$1F56960A,$4D356235,$6B4FB771,$A5AD6C20,$5C4DF078,$3C5824C3
Data.l $BB777351,$CCA229D9,$539A24E2,$57583118,$50F5806F,$48FAD36B,$3F7DB669,$3B56F030,$48972D2C,$BC8A6F77,$E0CFAB3D,$BEF8E3E5
Data.l $DFD74A27,$7D63C65E,$FA429977,$2E90186D,$1D2486FB,$6B2074DC,$7DBBD403,$E1BE73C4,$E35EA3ED,$D0EE0A45,$246348DB,$B925571F
Data.l $E2CD3DCA,$C7D84EDC,$E4EE915A,$68250DB6,$5B057F0A,$8CBC32A8,$0DF9BBAA,$D3B67CCB,$DD4E671B,$055BB7DE,$39FCCC1B,$A46B63A6
Data.l $C6171A75,$371EDD07,$D046259E,$8E77F576,$1F54E768,$81430A17,$F3400AF3,$7A6F5223,$EA06F252,$CDEC501F,$33DD7E4C,$8E80AA5B
Data.l $D39F9CC2,$03F71245,$8155001B,$827A10DC,$9C60B30E,$BE4A1D94,$1327EFB7,$758AED82,$4047AE3B,$A469AD3F,$C698288E,$B88B700F
Data.l $DB087296,$239FF6A2,$47A755AD,$7918CB5E,$39906BA3,$B12579FB,$B84B738E,$CDF9E304,$00FFF24F,$4FB297F9,$F3BFFCB1,$EA614F1F
Data.l $AD8F5E7A,$77FBB6DB,$C7C7D36D,$3BE3DF59,$167FF2CE,$AD953DAD,$54613512,$55BACEB9,$F653A31F,$AC7BD4DC,$51662597,$1899E5E4
Data.l $D9EE52E3,$3750B639,$AF6DF13F,$59C08166,$8FEDBFB2,$0C57B5D0,$397DB42E,$3DA7D49F,$2C0F95D6,$9D213582,$0F18C268,$08F64C10
Data.l $AA11F407,$B31497BE,$1A7CE43F,$AA5BD89B,$B95F4E21,$20ECE4C8,$D68BE3F6,$3E76F897,$6ED39FE5,$CFE9DB8D,$34D26FD7,$84BB866D
Data.l $8B4F65E4,$A4A52D54,$D573F04A,$F67E72F0,$8D8B6766,$6D8702F2,$E0FE57ED,$2DD63D6B,$F12FEA06,$A11BA8F8,$BBF400FF,$1A5712D6
Data.l $EADCD799,$9C2AB144,$0BBF9D98,$EA3EAD6F,$FF3FB52B,$21FD1000,$08006E58,$C4C7FD2B,$737F3FA7,$C6D92C16,$352247D5,$EF475936
Data.l $FE018DA8,$F4CF3A47,$D95ABB2D,$1EE9C71F,$5B93FCFA,$38E46154,$BFC13DF3,$C563AB32,$EBC14769,$78C66A72,$9214D1B2,$3E56064B
Data.l $BB629BA3,$85EA6F2F,$6FD8F400,$165AC7D3,$C01D926E,$C7699ADB,$6D53EAF4,$98722DB7,$E24FD3F4,$07DCAFA9,$71258FAB,$EECA35FB
Data.l $3872C55A,$57323B6C,$27296C34,$14CDE27F,$4F7FC891,$1E59A7A2,$9E68B2B4,$818B8127,$3C45D807,$EAEE5655,$AA38E24E,$67B32E7B
Data.l $966AC1FD,$AF389225,$9A099E66,$CEFA3B32,$EEA45062,$6FA03D01,$C5BBADAD,$34D7DCB6,$7787B17D,$36875B55,$B8BF8B08,$051F86FB
Data.l $0F897B60,$C1834FF9,$4D52B1C6,$9F8C75F9,$DDC832A9,$E6D17BCE,$DC00CC0A,$86BFC777,$9F045BB3,$731DDCCC,$70831A20,$55E081F7
Data.l $34199365,$A382D284,$829FF90C,$0D5CE349,$3249F833,$B8C9DEF7,$271BC96C,$14118D71,$DF48A102,$DC833BEA,$5C2D1F41,$B7F17B6E
Data.l $08D0469C,$DE752AA0,$A0DF2DEC,$380E92B0,$B7B383D2,$38A450D7,$71CB221F,$0C53572E,$78C45ED6,$8355DCBC,$5986DA1F,$B751DABE
Data.l $EDDB46EF,$1ABE2DFD,$1D6DF356,$D3E7DEDE,$861D6A36,$D1DD0995,$F9EBADFA,$FBF77B4A,$E9943C29,$A6101B41,$2DDF0EEB,$F2B72FC4
Data.l $1AFA661D,$FC3D8706,$5995F874,$F53DB0B5,$6305FE3C,$54870BF6,$5D0EBD9A,$52B6932C,$434ABB95,$3180F037,$50550149,$24B90F3E
Data.l $BC675DE9,$00B46A38,$BCA62169,$DC5EA579,$86D247B6,$259FDDA3,$F4CEE779,$BC0EFC25,$0AEFD3FA,$E46A9F14,$E67F77DF,$2BFEEFB8
Data.l $F5FA7E7F,$00FF97FE,$7EF977D6,$3FF6AED0,$EA8F7AB4,$343D372A,$B438C0C9,$BC82B491,$C613ECE6,$E92C841D,$A084C83B,$9EBAA53D
Data.l $16EB69A4,$48CEDF34,$1EA40515,$6E8A6339,$CC37DAC2,$889391E7,$7DB2AAEE,$3D30E284,$507A860C,$CC592B1B,$44F5BB2A,$C0CA3092
Data.l $1BB10A7C,$1AFE9DF9,$E6A6F5CD,$3040E6E0,$67BDFA61,$C3BB28FA,$3896E69D,$51383C62,$8CCD7B2E,$7EC3AAF4,$6BD51662,$7E02925E
Data.l $66558EA7,$1A93FD61,$D566FD91,$D4DD4987,$D5142E3A,$09FE3BE0,$EAE086DD,$E31EC4D1,$AFA738F2,$ABE57CFA,$FB787976,$66AAB5ED
Data.l $52BF0DEA,$C990EE7A,$B262FEB7,$C74FC51F,$B6711D55,$03B7B586,$13E2939E,$2E1ADB9B,$31C40F35,$FFB6ABF5,$BF3CFC00,$C5C03AD5
Data.l $C98E5598,$BFBC2773,$FEBFDAF2,$36DC9F8C,$7EA44BBD,$8800FFE7,$5F3653F1,$DA2FFEBB,$FFE97F9C,$2B570D00,$326D73C5,$14225382
Data.l $47B4FE1F,$D649F5F9,$B83B26F7,$253EF9E9,$0D58DC44,$27CDEBC3,$1963CF7B,$7EFCAC8D,$B27B1209,$22B21CCF,$8F14C690,$78DB1D76
Data.l $3E002416,$18E9B61A,$C4CC7BE4,$ACA7B451,$C7C8F694,$B00CA479,$237B5EEE,$0C3EFE7E,$E41E46FE,$ADA2EC8B,$48B3EB09,$7C1B47A6
Data.l $3D8D3B76,$57B2D0D5,$A4CE11C3,$77020DFB,$B05B2270,$49EE6538,$F9BC32FC,$5B5651DE,$BDD8A591,$9B14EC19,$B79F57EA,$D0DD93BC
Data.l $AB7FE7B6,$C7E5BB57,$6148EDF1,$1C6E88D3,$3E677A02,$0558D808,$3CF3C45D,$76EC0D53,$9E7EB662,$A652174B,$570B212A,$D4C819B3
Data.l $191200FF,$9BF7FA89,$D7EDD063,$35F36D4C,$26CB16B1,$C1335CB3,$2B756B3D,$A7C5FA47,$7D2A660A,$F29BBB69,$57FAF74C,$57951D53
Data.l $4733F48A,$1CECDE4E,$CB4C11BC,$43526611,$EDA62277,$E6AC53BF,$8DDBB7CF,$858EEEDD,$953717A0,$AA24F070,$527D6BDB,$7704EE10
Data.l $447A4F9F,$3E1A3CE1,$90BF8D4B,$BE5803BD,$6644F693,$C6117A32,$91903250,$DF89453C,$7B57BBC7,$59EBFAD6,$94D2C69A,$7C7CE6A9
Data.l $C1FDDB14,$8631EED6,$94D6F654,$F709A1EC,$6069618A,$F8D98A82,$EC635371,$92A3882D,$4D1A4FFC,$52CA6C0B,$61858348,$9BFA3ABA
Data.l $542776EC,$6EF296FB,$05742C22,$1E3AC3C1,$1C4A7E3C,$5266C2B7,$E7E31D8E,$F57D97DE,$F2C8DECD,$2C61D51A,$D6841A56,$64F92E5F
Data.l $7B3E6265,$D19D1A20,$D98EAC56,$435DE2CF,$D47C00EA,$50DFAEAD,$84A6020E,$F8485D8F,$F625AD77,$7AFC16D7,$B49EDD8D,$F2A4AA96
Data.l $3D7926E4,$7F27F250,$AA08477F,$43A9FEA4,$F5E0A6D3,$4B00FF07,$2873B920,$1E940608,$EF9614BF,$A619CA20,$EAB8CA8D,$CA5E3EAF
Data.l $A83DB664,$CC4F19E7,$99E562E8,$58AA37E5,$EC2438AF,$888D2852,$154AFC98,$1D935F65,$6C9BD539,$D332B76E,$9A77B816,$EE92D353
Data.l $31E6E0F6,$A5988ADF,$CF3C65CE,$49BDF2CC,$8855B3EF,$80D200FF,$AF4DABEF,$FB83B90D,$DE92FB5D,$F6B8DACA,$34B5F437,$5976C7FB
Data.l $DC8D9833,$8FED88F7,$C377BB1E,$9FEAF3B7,$09A65BA3,$14BFCD29,$9903D0DE,$D47EF78F,$4FCF8DE9,$B12EF68C,$293BE6AA,$C755B88E
Data.l $7A692688,$7ED6E58F,$BECD265B,$632D3BB8,$1BB82AC0,$09E4F4A9,$E30DDF54,$86CCF271,$57823B46,$6A747D4C,$8F302BB1,$A43B6276
Data.l $0DC42AEC,$C70F03BC,$75EF8D5B,$6D698C36,$EEAEE22A,$34681BAF,$53D0D486,$31CD7A3A,$CF9EE559,$3A3ECF02,$3B0DC995,$23695675
Data.l $30C1DB0E,$49CA0A67,$1D281524,$F137EE7A,$9CED3A3E,$ABB7BFAD,$BC9EC6DB,$605274BE,$E4F66CBB,$5C464091,$957B398E,$35A7EE93
Data.l $18E09ABD,$37FC0F1B,$2F49ADCC,$642AFDA2,$3662DA35,$9EA88FFE,$B674C91A,$09B7C8D4,$B47AF978,$4FCD00FF,$C2B74B05,$C03C7624
Data.l $5C053FF1,$9906AE71,$7B9924FC,$36DC64EF,$B8938D64,$018A88C6,$F56FA450,$20EEC11D,$5BB4968F,$E76DFC9E,$2802B411,$DDBBB10A
Data.l $16F4BB85,$1AC74112,$FA767650,$0DD716EA,$B7B8E5CF,$F6068323,$CC78CC1E,$3F5655CA,$FDB214B5,$DE6FA3BC,$E96FDF46,$BBD3F06D
Data.l $7677BCB5,$66337D2E,$5069D8A1,$1F5CDD9D,$6E455E6F,$9604DF7B,$8CE45832,$AAEC7875,$91843BFC,$1AEDBF9D,$0B04D281,$F098D767
Data.l $9D20EC4D,$F1EACF34,$4EDAF709,$11579C38,$335B2607,$8F256B4B,$9561D66A,$EA6F4455,$0F806CAB,$53472805,$A9FE59D7,$2795BFDC
Data.l $43D3F4F1,$2A785EAB,$C93CE9DB,$57879AB4,$ABA8AA49,$F9CBB154,$BD64DBAF,$BD5D6B79,$4DFAAE65,$CEFDECDA,$3DB659C1,$BEDBABBF
Data.l $363317B7,$A7E8CBC6,$9A4FD1D0,$C15B04B3,$A9A869E6,$947AC0AF,$CBE32A97,$99A926C2,$D6E5BFC4,$2BC4DA92,$F16CD2C6,$44123BB2
Data.l $ED75E78E,$2176901B,$76303EBC,$95D7D96D,$AD70C563,$DD35DF7D,$3A3374B3,$1EA4A185,$F318A115,$716825AF,$2173714E,$195DDEED
Data.l $B65C9C98,$9DDBA8E2,$320126C4,$233B3EA8,$14FC2A33,$EFAEAC01,$D5CDC6B4,$493F1894,$AAD0BA3E,$943F1AA9,$F9A9325A,$5EDB93AA
Data.l $E52D073B,$C9C98F8B,$6F8AD93F,$102CA422,$7BAA52B1,$5EA7C78E,$6DEB78BB,$B28E6EBF,$0468CC83,$1BAB98D6,$4D1459B9,$C1111861
Data.l $0BE5BF75,$00FF53FE,$CF1EF72E,$EF2F7FCB,$7DF4EDF3,$9300FF1D,$83FC295E,$FB379FFC,$54D577B5,$05C54E61,$C0FED5CF,$46FB8DBA
Data.l $53B59DFA,$4337135D,$839CCC05,$4A6E9817,$A630BEF9,$1324B9CD,$BCC258BD,$BCD34BF1,$C8D44F98,$A82B0BCC,$ECB4D72B,$E57A8DC0
Data.l $D596E28B,$69C879AC,$662DF6F4,$8436BBCF,$F5986B8C,$CBB028E6,$C92DDFED,$9E459EA5,$4A6C6290,$B11CE9DD,$FE4A6C99,$DD488C25
Data.l $27F083C8,$99742AFA,$6D5B2B37,$181EB730,$7F9D921C,$0214A90D,$0A004E30,$77C073FB,$735C4BAD,$548B729E,$938D4AD6,$EBB5C84A
Data.l $D5C680DA,$49A7177B,$F836BB95,$EAF87792,$80C65F5C,$8386C039,$775D5289,$B5328E1C,$23B35B83,$EFAAB68F,$5E667CE2,$C7ECC411
Data.l $E69A557E,$76966542,$AA00BA43,$7B3E0514,$35E6EB75,$FBDD9BE7,$97076F6F,$2C50B4F6,$29ABEB55,$BC2AAE35,$A679D8E3,$74F255E7
Data.l $A992A967,$3C6E6D1E,$B0552E95,$966C0956,$568A6456,$BE71FD75,$5BCFD3EB,$B756D62D,$685C736D,$F350604C,$9BBBB1A2,$714B8BCC
Data.l $580E27A1,$22757FA9,$AA942D87,$0CA55C91,$F86EDEF4,$5AAD5C2C,$FB18B342,$91C45619,$61E20DF7,$ABB6EFF4,$91853D7A,$9E8E9C3C
Data.l $D6345FED,$DBD872DB,$1E77758E,$989BAFC6,$A5EDA7E6,$6BF9255C,$F20E72E3,$43AC1620,$EF4B1602,$91D5B763,$21CA3DD6,$F275F52B
Data.l $0FAF76D3,$E2F65CDE,$E11F71DC,$BBD5144F,$5DDCB9FC,$F21FA781,$FE5BF069,$87B1D0D6,$B3E767C6,$D16BB5E9,$86E73550,$4F8E6768
Data.l $ED56D94C,$ECD41D78,$8FBA5E4F,$936CCFD5,$969AD644,$24B35787,$EEC5CD8D,$5E0E4CD7,$C285B1C4,$D49E7BCB,$A7E7E3C8,$9573AC93
Data.l $DDDAB7AE,$79AD3BAB,$34F72B2F,$1B64CA51,$AFC01D06,$5F5F3D4F,$B2F6D8CA,$2B1F1AD7,$393D0F4D,$C4A90B2B,$1CB79691,$4A95C349
Data.l $903EF77D,$B6D0D3B4,$36B6F6AF,$9E7BD121,$48BA5327,$52B99180,$54FDAE3A,$D6481DB0,$446EA64B,$15F60E2E,$E4756B55,$BA478E49
Data.l $C6971499,$ACAA5C72,$085A0D23,$96E3F4B2,$6E9A3D31,$2CA26864,$59516937,$FD17325E,$7A1E29EA,$56B66ED4,$4FCC30B2,$A7A701D4
Data.l $EED0621F,$C35C7117,$C07348AB,$FAC787FB,$C18C1185,$64CCB1DD,$B76A5EB7,$36BC3CFD,$55EE15A4,$6C89459A,$693433AB,$8F769029
Data.l $A4A6A71F,$B61B33CF,$3A569AD0,$723A8663,$D5652E51,$39716309,$FE4E41E0,$4619ACED,$A75B02AF,$7E7BC55A,$BACD8AA9,$C6D059F5
Data.l $C47DBAC9,$91D88691,$BA7E07B8,$96D6E8A0,$03919387,$67DB44C5,$7F9E786C,$277B6505,$E18BB18D,$5EEC568F,$65BD958D,$745BDDF6
Data.l $0CA1AB90,$20088284,$BDB20EEE,$7E5F2B61,$02454D4B,$C93ACD69,$4E359522,$3AB6E319,$A23AF253,$5C581FB5,$B75CED97,$F2381DEE
Data.l $0D4F1AF9,$642529CA,$35AF6568,$56E6B5DA,$E9834BF5,$416C2CCF,$B681D00D,$C6A67FBD,$0A57778B,$4FC1BDBA,$1BDB2EDB,$F1C84805
Data.l $52F3981F,$DE9E7133,$96155B03,$5F34A164,$C0CA4370,$66AB0C47,$61468E46,$033D85BA,$6204FB36,$F80D5D75,$CC9CA31B,$384CE35A
Data.l $7B4B14E0,$833B43A7,$39EE0EB0,$4AB5978F,$B59B45FB,$3B18EEC7,$9A05BDE1,$A9E956EF,$8CB4B566,$95573221,$206469CD,$23375D02
Data.l $EA5CAF6F,$084D06FB,$9CA64675,$C05C1338,$DD4CBDAF,$3DE06C66,$690CA482,$23B18743,$CA3B1EF3,$2379F933,$95B1D5C6,$14E589C6
Data.l $68A6AC6D,$C1DD4E44,$10E5AE44,$BDBDFD2E,$AB63DB36,$86C8B7ED,$6134AEDD,$63B81A2D,$6EC32A4E,$E692716C,$5781A7B6,$DC5EB22F
Data.l $9727C44D,$26919229,$8701CBC9,$1C0F26B6,$9559E56A,$76247458,$9DF84880,$7AC73A61,$C710C865,$BCD6B4F6,$97BEAACA,$A9B596CC
Data.l $ABF9ECF0,$00FFF972,$D3FD290D,$705F4CAC,$E6929D51,$8BA2749F,$2D2A5925,$56AC95BA,$56FAD2BA,$CEAA57AD,$53422686,$DB301EEE
Data.l $F9D83712,$517AD5EB,$C8894BBA,$76A778B4,$A919DBC9,$70603E23,$ABF450ED,$27FCF065,$E3F0CCED,$16944BAC,$C1AE99A9,$78A2360C
Data.l $73ED3692,$B2418E28,$9657DFB6,$2E453CA7,$341C8DE5,$105AE150,$8B99947B,$EA5C701F,$918AD050,$AE167D8F,$B72CDB0F,$33B6BA22
Data.l $F1636B57,$55C4DDCE,$28CDEC78,$10A37D27,$E2271813,$7B57A9CF,$68B3B5DD,$56802331,$13455D32,$EC680828,$B8729FC4,$78F8F16E
Data.l $AE8E1FC7,$82B50F26,$3BEC0A30,$123A1098,$3D1E894F,$A6E7F57C,$2657D7FD,$62569C47,$126B67E2,$AA640A37,$1B3F4F6A,$4CECB5CC
Data.l $971D4951,$CA7B5C66,$8C0CCD90,$CA5C6108,$27369540,$2FD8DD6E,$7DE25147,$F40D4102,$78685E1A,$A2F470FA,$36EE59D1,$906242F3
Data.l $6885A755,$E6CA9EE6,$2E25FEAC,$63352F43,$7D681D77,$214FBADB,$FFAE8935,$141BAD00,$11C2FB89,$0EBD92D0,$92757CDD,$7BFB76DF
Data.l $90A38368,$E61A7E54,$A3ECEEA9,$4E03346D,$DC478B66,$CFAA7B2C,$4F1BB78F,$48F6CA4A,$817D40AA,$E8160A0C,$5D065819,$3D3612FA
Data.l $053BD309,$41E28DD0,$738243C1,$1C399504,$6B153BFD,$2C73CA8F,$D8F0692D,$14211349,$AC9A6583,$87282BC2,$2EE2BB7D,$017EC692
Data.l $F391A7D7,$C6E2DAD6,$5F89E4CE,$16A56F4F,$5D50D7B5,$71C003C4,$1F1A3819,$A6397D75,$39C0158E,$6C8ED405,$1D8785FD,$E36272BF
Data.l $00644A98,$D39B16F7,$003EBE2C,$E5EBF79D,$7DEFDDAA,$708C0886,$51E1BCD0,$E85F55C1,$398C746B,$2F56E237,$7EADB170,$B56F96D2
Data.l $EBD94DB7,$11CC2A5A,$20CBDD8E,$76634F50,$EC01D4AF,$B376D461,$97D38915,$8E858D8D,$E9E95DFB,$D71EC6CF,$0D0E79B9,$1F389426
Data.l $6D574B81,$4249BE73,$93402A1C,$EADB53D3,$AD09B7D6,$9DF6DF21,$DFC8F465,$E6ABE3AF,$2943D958,$D51EA09A,$4E5B98A1,$303000FF
Data.l $8722EC6A,$133C58BD,$F0E266DB,$24BF974B,$93DE3277,$748FF02F,$8A0D7751,$C0D67EAB,$FF9ECF9D,$3A652D00,$C36D7D87,$80FD1184
Data.l $1DAA79E2,$40F360D2,$62877B6A,$AC35E54A,$71E6F29C,$0D99146B,$33A326D5,$60C77D2A,$F22E1AD9,$11D09E03,$E9BF07A3,$768200EE
Data.l $31F2ECD0,$CE4BBEF6,$EC58055E,$0E06A3BB,$B4A4E100,$B5E0E1F1,$E3FCE160,$FE5AE79C,$B8B8B45A,$D6245188,$7B64678F,$B931ACFE
Data.l $C04F62EE,$A44EE66D,$CF2200FF,$8C80826E,$52C90C38,$31516425,$0FD058DE,$9D157C12,$E090B1CC,$248C05B8,$FC78F81F,$B1F8A95C
Data.l $4B7FCC1D,$CB4EAC13,$21F7E970,$9673B32B,$00FFD07A,$AAC869AA,$CB58889B,$0E39372E,$C8205916,$8DCAAB08,$1E939E14,$BE1462C7
Data.l $36BCD1EB,$3BB6AEDF,$E23E31A4,$B5052821,$AED4C770,$E6C328F7,$4BB57F63,$F36BAFF1,$D9248F5C,$3A25F33C,$8971278F,$D8AC59A6
Data.l $6705837F,$8BF6A32A,$B986FC1D,$F6566FB8,$858EE950,$410660C0,$C7F1E126,$8E349016,$E7744A5C,$C53EA8D8,$E9C6B270,$3892284A
Data.l $E2B91799,$C81180F4,$5DB991A0,$54FDAEBA,$5923F1B0,$D1BC9F6E,$2AFE9431,$ADA8DAD7,$1D32CCAE,$F0B83B59,$E48C4F29,$465855B9
Data.l $6511B41A,$622CC7E9,$C8DC347B,$6E5844D1,$BCB2A2D2,$D4FB2F64,$A4F53C52,$64AD6CDD,$A89F9861,$3E4E4F03,$2EDCA1C5,$5687B9E2
Data.l $F781E790,$0AF58F0F,$BB811D1F,$664B986B,$0572D5BC,$915AF172,$34ABDC6B,$56D9128B,$53D26866,$FAF3ED20,$D34C6A7A,$D4779BB1
Data.l $319DFE69,$28391DC3,$84EA3297,$F09CB8B1,$734FA720,$64E47171,$40F7F36A,$BD92B9F0,$13734695,$44EEB1ED,$6C1C9905,$0416B41B
Data.l $46EC0029,$78319DB3,$C90E41D8,$BF6FBBCA,$60471DF2,$7F79502B,$1E848F45,$16CF2C49,$8CB77546,$14621983,$CDF1B492,$41934C0B
Data.l $8E8979B7,$FA48A8CE,$273560C0,$6BB763A9,$ACE9E818,$1E4ADBBB,$BA7827E5,$3BF3EE74,$91B334C7,$CE84218B,$49C3994B,$49AC560C
Data.l $1D969ABD,$27654921,$7217527F,$A89F4BAA,$5B1DDCC7,$6357D07E,$A1497BAB,$C911B7BB,$E7D353C0,$665B56F1,$D7D2C2F0,$E6BE4380
Data.l $D2A33D9C,$DCE208AB,$05E69ED3,$E818988C,$B9C56EBF,$DFA308C3,$7B1FA5AF,$340A7E3B,$DBB266EB,$D423A0E2,$C8C22933,$80D10561
Data.l $AA26F1DA,$C683B3CF,$D8262E71,$AC8EE638,$3D986356,$A7B10E9B,$987E34A9,$55881D69,$76921B1E,$79C7C41A,$26E0E625,$0E37F123
Data.l $B27956C0,$E10ECFB7,$A0A27E8E,$D9C18B3D,$BA22CCA9,$85540BE6,$EB19501B,$316AAF59,$29986829,$0148F26A,$57D713D8,$0D33717D
Data.l $563F68A0,$98C669A0,$799297A9,$0C18489A,$53BADA2B,$5ADE7EA7,$3D0A7EF2,$3CD95130,$ED1A597C,$C3708304,$6282496D,$ED2154C7
Data.l $BFC555A8,$3D5B126C,$4524ABDD,$4359BBBB,$1D3BFE0D,$A8DE2368,$DA08D5DE,$12537090,$98DA2870,$06DE1388,$A1B6E5C3,$AAFA74B7
Data.l $E77AEB96,$7BC4D19A,$9B2EB574,$9FBC172E,$8801F6A9,$A7139FF9,$4C7D37EE,$6E1917D2,$56131C47,$90478E5B,$800E2AA2,$6F59B50D
Data.l $49FD5878,$A20842E7,$C5F0C18D,$278577C5,$AD8BD4EB,$6548CCC7,$FCA416BD,$FDC82405,$7DDF71EF,$5A77EBF4,$B6494A33,$532EABC6
Data.l $84F2AD83,$699B1DB1,$177A6E30,$BA556D5D,$1B5B4DDC,$BB9D24F6,$FB22D376,$5E494DFD,$B8581446,$345C0EF7,$DC4950E6,$877B57E9
Data.l $1DB9289A,$B9B792BE,$9AAB160F,$7E47AD4F,$D2663ADE,$B914D1F9,$154B0E21,$E56ABBBD,$8200B982,$7CECF9BB,$D8FD62B5,$72DB3239
Data.l $115F2A32,$912E7FC3,$ED9EB89F,$35DCB845,$DA32258A,$03EF5A8B,$CDC5574B,$A7EF3BC8,$B334DD23,$81ADE34A,$FA584E35,$605967DF
Data.l $55DB88FE,$AA533F33,$0BB4B1A4,$BA85B5DB,$70F009ED,$F413B946,$154EA9BA,$BB7D1509,$DAFD2F8D,$F5AD3E92,$B37A7776,$51FC874A
Data.l $C72CA95A,$02258B0C,$BE0C77C6,$B86F8D7A,$DF52CD98,$305A086E,$AA2069F0,$62DBD5D5,$DCCED336,$906875C1,$185AB02D,$D66D00FF
Data.l $80D3A60B,$E0D48F1D,$3EF1C700,$E26D7E3A,$DB86D2AC,$1E5671B8,$6074943E,$063C4611,$BC9065A8,$604CA9D4,$FAD13C0B,$DA1FB2B1
Data.l $340D691B,$21214A35,$8EBE3D64,$126CD3DD,$6AFA9DA4,$4BDB2DF2,$B58FA834,$6FF2AAA9,$41A1846F,$AEE9B073,$E1A27537,$7E7853B4
Data.l $B31B5323,$E3C3DC11,$EE1797A8,$E096757A,$DAF89B29,$F29AABF7,$DA462A28,$8EC51489,$80B94EA8,$DB778184,$E0D97954,$AAC7A83D
Data.l $3DF26AF9,$43540CE7,$6A428D6B,$E17C9CE3,$87BF0BE3,$2E2FAB96,$8E9FD2BC,$B3593332,$6AAE72DC,$EE28B222,$6DD2A1DB,$C1111D2F
Data.l $9283482A,$D969FB5A,$A2DB6038,$5AFEC69D,$42CD3BB7,$38482D8C,$C086ED14,$B78B8C41,$A923E66E,$BAB8A63A,$22432A2F,$1E724401
Data.l $E62C5711,$1FB21D54,$9B76A931,$2914A39B,$2887DB12,$42B7778C,$87A4FEBC,$3A7EE671,$A8ED3695,$6CDB2650,$C4131C47,$D3F09A38
Data.l $D28E4235,$74A63A36,$48AABAE4,$8944018C,$3BDEF698,$7F581A56,$2EF54356,$35FA83DB,$69BC6F77,$FB8C0A6D,$BF146A5C,$E270E11B
Data.l $42A1EE02,$00505575,$256AA01F,$4B64E2E6,$49892764,$03CBE57E,$621F7B47,$EA15AD46,$88B240D2,$382B98A6,$124849D9,$1E7F2347
Data.l $FF6A3BD5,$13C0A600,$6B20E731,$1A2976C9,$603809C9,$BCB5F752,$B95AD30A,$A8D94E66,$1BA9AA5E,$F547EC88,$E45E27C5,$372C0CB3
Data.l $D5E9D30D,$B0EE55AF,$EAC6C690,$AA7D9C96,$7786F445,$4A298207,$BA0A7D60,$0C669C30,$7347D45F,$7873056B,$1AB24C64,$839C5762
Data.l $A1CC548B,$C81F50EE,$CE97B6EB,$08C9AE88,$EDAD5872,$152C57DB,$DF1504C8,$ABE563CF,$C9C1EE17,$9191DB86,$1E4E3853,$A5FA9331
Data.l $97A86F8B,$A260FE37,$4AFA765C,$D5E19FCD,$1B591F33,$6DD2F338,$82451737,$2C079054,$0D2F6E98,$C75DCD0A,$E7466070,$8B9B74E0
Data.l $2E54F7D2,$250A1AB2,$11B7A7FC,$40D3B058,$50CF7B7B,$DC0D3E35,$5FA6D086,$4B0A8E6B,$C722C203,$F63A6915,$462D0FF8,$F28BDCBA
Data.l $D61C644B,$51E222D7,$C0575566,$6EDA862F,$95C4FCCE,$6BCB0124,$84F1F18D,$3B49B18F,$AFCBAB69,$2876D534,$FA1DA674,$F509A8EF
Data.l $6884BAE6,$1A213442,$46088D10,$11422384,$84D008A1,$21344268,$088D101A,$42238446,$D008A111,$34426884,$8D101A21,$23844608
Data.l $08A11142,$426884D0,$101A2134,$8446088D,$A1114223,$6884D008,$07213442,$2F1242C3,$498C8328,$4B4B3938,$14F89B04,$B200FF90
Data.l $2E5657A7,$15E803B8,$86B228F7,$38A71257,$EBC878CC,$4F948C01,$8701911F,$156A40FB,$EBBB90E9,$36884B14,$41ED2998,$425DA34F
Data.l $101A2134,$8446088D,$A1114223,$6884D008,$7F213442
Data.b $FF,$D9
Image_ButtonImage_1:
Data.l $E0FFD8FF,$464A1000,$01004649,$64000002,$00006400,$1100ECFF,$6B637544,$00010079,$00000004,$FF000048,$410E00EE,$65626F64
Data.l $00C06400,$FF010000,$008400DB,$03030304,$03040303,$03050403,$06050303,$05040405,$06060706,$07060606,$08080709,$09070808
Data.l $0C0B0B09,$0C090B0B,$0C0C0C0C,$1010100C,$12121010,$12121212,$12121212,$04040401,$0E070707,$140E0909,$140E0D0E,$12121214
Data.l $12121412,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$12121212,$00C0FF12
Data.l $1C000811,$01032100,$11020011,$01110301,$8A00C4FF,$03020000,$00000001,$00000000,$00000000,$00070500,$01080604,$00050100
Data.l $00000003,$00000000,$00000000,$04030005,$02010706,$01001008,$03030104,$01050104,$00000000,$02010000,$06050403,$31211100
Data.l $13410712,$61161514,$17B45222,$01001108,$05020303,$01090501,$00000000,$00010000,$04110302,$21123105,$06135141,$91817114
Data.l $61F0C1A1,$3222D1B1,$1554D242,$0C00DAFF,$02000103,$00110311,$E56E003F,$462C7CF9,$6D5E32B9,$3A26EC53,$F6EA6ADC,$64924B88
Data.l $DBC6AEBC,$6E245C05,$098F5277,$D7F42A48,$99183197,$B311666F,$90BBD480,$9ADBCF1C,$68284BBB,$2E814EEA,$460B726C,$0CB39714
Data.l $871455DA,$4E83E9CE,$DB7008DC,$B994723B,$B82F8939,$45C5BE53,$89BD1E60,$3FBB34E8,$6DB0C71D,$3F42266C,$06BF8B93,$DEC30790
Data.l $58083B8B,$C489EBC0,$F5E1F264,$B1CBDC43,$7C54D2F6,$F4767C8D,$FEF72913,$00FFA696,$00FFB2C0,$FBBFF828,$B68CD926,$7CAC9E26
Data.l $AA7224BF,$4B0AE4D9,$F69EBC7A,$8BBB4CE0,$91152A5D,$2357E480,$E5CE6D49,$4B23620F,$2405040A,$B8EBF585,$983243E3,$99B1796C
Data.l $EC3184CC,$75170415,$E54D491D,$BED8F2F0,$D7DEDC33,$597313FB,$3E918C32,$877CC454,$DB549A7B,$88A14E63,$652B0BF5,$5B5A486B
Data.l $CAA6D05A,$84044FFB,$A0758EA8,$D266BE78,$057707CE,$98DB505C,$B78074A5,$33F9C492,$6A13A602,$3F5B9991,$C9DC9577,$0D0B1585
Data.l $8E5AD2B6,$4B1C92A7,$0852804D,$83DC5149,$2CD8ACCE,$1E73F7EC,$682203DB,$0AA7753A,$DEE3AEA6,$7371DCE1,$52B9078D,$E051FCC8
Data.l $D68830CA,$E4EAECD2,$292C4948,$15D031F9,$2520C1DB,$EA044880,$774606CB,$D3DAD08F,$F8DD8DDA,$DEB685E5,$C6DDD4F4,$C3BB5583
Data.l $2DC9712C,$936350D0,$D7D8DD3E,$B204E450,$1AD93995,$38056E33,$00EC04B5,$EAFA73E3,$15DD9BBB,$025AE694,$5DE7F5E6,$52DECC14
Data.l $45B0E5D6,$F011496E,$B1F627F9,$244D3D64,$00FF3497,$579015D2,$226B4575,$1A3B52D8,$3B196464,$8E435880,$9D7B0BA5,$BB07C886
Data.l $000FB5AE,$0373C39D,$4628086A,$3570A345,$176315A7,$9B7FBCC2,$FCAA2864,$343A7984,$BB24B75A,$A6A51468,$B47DE91B,$B80E3706
Data.l $2B0BDC8D,$D4B73FF4,$6496A768,$8F81B267,$BA38968C,$6B3ABC85,$CCE57EA5,$A3648971,$5F53BC9D,$38E379A2,$042746AD,$23B45357
Data.l $8D841CC6,$F2D7F764,$867CBFDC,$268E12A5,$7A2350B0,$49539C86,$DFF2A124,$85CEB7F9,$C877AFF9,$B71F1FEE,$D3F1BB7E,$F51EDF56
Data.l $F4E91DFB,$F6DDA0E6,$46A637AA,$49DFF535,$F8B7EA0F,$37F6D81E,$AA713BFE,$F3FEEEE5,$F1EAFEB7,$D1A6E352,$456D114D,$49D2D45D
Data.b $7F,$FF,$D9
EndDataSection ;<
;}-FinImages
;{ Image Plugins
UseJPEGImageDecoder()
;}
;{-mes textes---------------
ok$="Fichiers découpés avec succés"
zobi$="Vous avez annulé"
intro$="bienvenue"
alerte$=" Attention"+Chr(10)+Chr(10)+" Vous devez remplir les champs"+Chr(10)+ "*archive de sortie* et *mot de passe*"+Chr(10)+" avant de commencer"
;}-
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Fenettre()
If OpenWindow(#Fenettre, 331, 244, 390, 178, "Winrar RS Decoupator", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar|#PB_Window_BorderLess)
If CreateGadgetList(WindowID(#Fenettre))
EditorGadget(#Nom_Archive, 185, 109, 205, 20)
ButtonGadget(#OuvrirFichier, 0, 157, 355, 20, "Cliquer pour selectionner un fichier à découper")
TextGadget(#Message_Affiche, 0, 55, 390, 30, "Bienvenue dans ce programme, vous allez obtenir des archives de 95 mo", #PB_Text_Border|#PB_Text_Center)
ImageGadget(#Image_logo, 0, 0, 385, 45, CatchImage(#Image_Image_8, ?Image_Image_8))
TextGadget(#Text_9, 0, 0, 5, 5, "Gadget_9")
TextGadget(#Text_info, 4, 111, 180, 20, "Entrer le nom des futures archives =>")
;ImageGadget(#Image_1, 0, 0, 5, 5, CatchImage(#Image_Image_1, ?Image_Image_1), #PB_Image_Border)
ButtonImageGadget(#Boutonimage_about, 358, 153, 30, 25, CatchImage(#Image_ButtonImage_1, ?Image_ButtonImage_1))
EditorGadget(#MDP, 130, 131, 260, 20)
TextGadget(#Text_16, 3, 134, 130, 20, "Entrer un mot de passe =>")
OptionGadget(#Option_Fort, 232, 89, 155, 15, "Taux de compression Fort")
OptionGadget(#Option_Nul, 4, 90, 145, 15, "Pas de compression")
SetGadgetState(#Option_Nul, 1)
; Gadget Colors
PureCOLOR_SetGadgetColor(#Text_info, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(#Boutonimage_about, #PureCOLOR_SystemColor, #PureCOLOR_SystemColor)
PureCOLOR_SetGadgetColor(#Text_16, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(#Option_Fort, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
PureCOLOR_SetGadgetColor(#Option_Nul, #PureCOLOR_SystemColor, #PureCOLOR_DontSetBackColor)
; Window Backcolor
PureCOLOR_SetWindowColor(#Fenettre, $1DCAE9)
EndIf
EndIf
EndProcedure
Procedure Ini()
RepRar$ = GetCurrentDirectory()
If ReadFile (0, "user.ini")
Path$=ReadString(0)
ElseIf CreateFile(0,RepRar$+"\user.ini")
StandardPath$ = "C:\"
Path$ = PathRequester("Choisissez le repertoire source", StandardPath$)
WriteStringN(0,Path$)
EndIf
EndProcedure
OpenWindow_Fenettre()
;{ boucle
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
mdp$= GetGadgetText ( #MDP )
nom_archive$=GetGadgetText ( #Nom_Archive )
If EventGadget = #OuvrirFichier
taux.s
If GetGadgetState(#Option_Fort) ; Option Fort
taux = "-m5"
Else
taux = "-m0"
EndIf
If mdp$ And nom_archive$ ;-----1
RepRar$ = GetCurrentDirectory()
rar$=RepRar$+"rar.exe"
Filtre$ = "*.*|*.*"
Filtre = 0
DossierParDefaut$="C:\"
; SI .ini existe
If OpenFile (0,RepRar$+"user.ini") ;------2
Path$=ReadString(0)
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , Path$ ,Filtre$, Filtre)
MessageRequester("info","le chemin des archives ETAIT "+Path$) ;-------------TEST
Path$ = GetPathPart(Fichier$)
MessageRequester("info","le chemin des archives est MAINTENANT "+Path$) ;-------------TEST
Parametre$="a -s -ep -hp"+mdp$+" "+taux+" "+"-v95m "+Chr(34)+Path$+nom_archive$+Chr(34)+" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
StandardPath$ = Path$
DossierParDefaut$=Path$
NouveauRep$ = Path$
WriteStringN(0,Path$)
MessageRequester("info","NouveauRep$ = "+NouveauRep$+Chr(10)+"DossierParDefaut$ = "+DossierParDefaut$+Chr(10)+"StandardPath$ = "+StandardPath$) ;-------------TEST
CloseFile(0)
; SI .ini existe pas
Else
CreateFile(0,RepRar$+"user.ini") ;------3
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , DossierParDefaut$, Filtre$, Filtre)
Path$ = GetPathPart(Fichier$)
Parametre$="a -s -ep -hp"+mdp$+" "+taux+" "+"-v95m "+Chr(34)+Path$+nom_archive$+Chr(34)+" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
WriteStringN(0,Path$)
ReadFile (0, RepRar$+"user.ini")
Path$=ReadString(0)
StandardPath$ = Path$
MessageRequester ("infotest","le rep par defaut est : "+Path$+" et le fichier est : "+Fichier$) ;----------TEST
CloseFile(0)
EndIf ;------FIN 3
If Fichier$ ;------ 4
WriteStringN(0,Path$+Str(a))
SetGadgetText(#Message_Affiche,"Patienter SVP")
RunProgram(rar$,Parametre$,Fichier$,1)
If RunProgram("C:\WINDOWS\explorer",Path$,Path$,1) ;------5
MessageRequester ("Rappel","Votre mot de passe est : "+mdp$+Chr(10)+"Notez le bien ;)")
CloseFile(0)
WriteStringN(0,"")
WriteStringN(0,Path$)
SetGadgetText(#Message_Affiche,"Opération terminée")
Else
MessageRequester ("info","Votre explorer est introuvable")
EndIf ;------ FIN5
Else
MessageRequester ("info","Fichier Manquant ou introuvable")
EndIf ;------ FIN4
Else
MessageRequester ("Alerte",alerte$)
EndIf ;------ FIN2
EndIf ;------FIN 1
If EventGadget = #Boutonimage_about
;If uFMOD_PlaySong(?xm, ?endxm-?xm, #XM_MEMORY) <> 0
MessageRequester ( "A Propos" , "a propos",0)
; EndIf
; uFMOD_PlaySong(0, 0, 0)
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Fenettre
CloseWindow(#Fenettre)
Break
EndIf
EndSelect
ForEver
;
;}
;DataSection
; xm:
; IncludeBinary "cosnie.xm"
; endxm:
;EndDataSection ;<
End
ça y est j'ai reussi !!!!!
Effectivement ça marche mieux si on Manipule-mit-ferme le .ini
Voilà ce que ça donne :
Merci Dobro !
Effectivement ça marche mieux si on Manipule-mit-ferme le .ini
Voilà ce que ça donne :
Code : Tout sélectionner
OpenWindow_Fenettre()
;{ boucle
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
mdp$= GetGadgetText ( #MDP )
nom_archive$=GetGadgetText ( #Nom_Archive )
If EventGadget = #OuvrirFichier
taux.s
If GetGadgetState(#Option_Fort) ; Option Fort
taux = "-m5"
Else
taux = "-m0"
EndIf
If mdp$ And nom_archive$
RepRar$ = GetCurrentDirectory()
rar$=RepRar$+"rar.exe"
Filtre$ = "*.*|*.*"
Filtre = 0
DossierParDefaut$="C:\"
; SI .ini existe
If OpenFile (0,RepRar$+"user.ini")
Path$=ReadString(0)
CloseFile(0)
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , Path$ ,Filtre$, Filtre)
Path$ = GetPathPart(Fichier$)
; SI .ini existe pas
Else
CreateFile(0,RepRar$+"user.ini")
Fichier$ =OpenFileRequester ( "Choisissez le fichier à découper" , Path$ ,Filtre$, Filtre)
Path$ = GetPathPart(Fichier$)
If OpenFile(0,RepRar$+"user.ini")
WriteStringN(0,Path$)
CloseFile (0)
EndIf
Path$=ReadString(0)
StandardPath$ = Path$
CloseFile(0)
EndIf ;------FIN 3
If Fichier$
Path$ = GetPathPart(Fichier$)
Parametre$="a -s -ep -hp"+mdp$+" "+taux+" "+"-v95m "+Chr(34)+Path$+nom_archive$+Chr(34)+" "+Chr(34)+Fichier$+Chr(34) ; archive avec repertoire
StandardPath$ = Path$
DossierParDefaut$=Path$
NouveauRep$ = Path$
If OpenFile(0,RepRar$+"user.ini")
WriteStringN(0,Path$)
CloseFile(0)
EndIf
MessageRequester("info","NouveauRep$ = "+NouveauRep$+Chr(10)+"DossierParDefaut$ = "+DossierParDefaut$+Chr(10)+"StandardPath$ = "+StandardPath$) ;-------------TEST
SetGadgetText(#Message_Affiche,"Patienter SVP")
RunProgram(rar$,Parametre$,Fichier$,1)
If RunProgram("C:\WINDOWS\explorer",Path$,Path$,1) ;------5
MessageRequester ("Rappel","Votre mot de passe est : "+mdp$+Chr(10)+"Notez le bien ;)")
SetGadgetText(#Message_Affiche,"Opération terminée")
Else
MessageRequester ("info","Votre explorer est introuvable")
EndIf ;------ FIN5
Else
MessageRequester ("info","Fichier Manquant ou introuvable")
EndIf ;------ FIN4
Else
MessageRequester ("Alerte",alerte$)
EndIf ;------ FIN2
EndIf ;------FIN 1
If EventGadget = #Boutonimage_about
If uFMOD_PlaySong(?xm, ?endxm-?xm, #XM_MEMORY) <> 0
MessageRequester ( "A Propos" , "a propos",0)
EndIf
uFMOD_PlaySong(0, 0, 0)
EndIf
; //////////////////////
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #Fenettre
CloseWindow(#Fenettre)
Break
EndIf
EndSelect
ForEver
If OpenFile(0,RepRar$+"user.ini")
WriteStringN(0,Path$)
CloseFile(0)
EndIf
End