#include #Include Global $hGui, $aPosBak, $iAdlib, $iCurOld $hGui = GUICreate ( 'GuiCtrlPicButton_SimulateReaction Example', 430, 350 ) GUISetBkColor ( 0xFFFFFF, $hGui ) $sPicPath1 = @TempDir & '\ButtonPics\image_360988.gif' If Not FileExists ( $sPicPath1 ) Then _Image_360988Gif ( 'image_360988.gif', @TempDir & '\ButtonPics' ) $iButtonGif1 = GUICtrlCreatePic ( $sPicPath1, 20, 20, 120, 29 ) $sPicPath2 = @TempDir & '\ButtonPics\image_360987.gif' If Not FileExists ( $sPicPath2 ) Then _Image_360987Gif ( 'image_360987.gif', @TempDir & '\ButtonPics' ) $iButtonGif2 = GUICtrlCreatePic ( $sPicPath2, 20, 75, 120, 29 ) $sPicPath3 = @TempDir & '\ButtonPics\image_360990.gif' If Not FileExists ( $sPicPath3 ) Then _Image_360990Gif ( 'image_360990.gif', @TempDir & '\ButtonPics' ) $iButtonGif3 = GUICtrlCreatePic ( $sPicPath3, 20, 130, 120, 29 ) $sPicPath4 = @TempDir & '\ButtonPics\image_360978.gif' If Not FileExists ( $sPicPath4 ) Then _Image_360978Gif ( 'image_360978.gif', @TempDir & '\ButtonPics' ) $iButtonGif4 = GUICtrlCreatePic ( $sPicPath4, 20, 185, 120, 29 ) $sPicPath5 = @TempDir & '\ButtonPics\image_360985.gif' If Not FileExists ( $sPicPath5 ) Then _Image_360985Gif ( 'image_360985.gif', @TempDir & '\ButtonPics' ) $iButtonGif5 = GUICtrlCreatePic ( $sPicPath5, 20, 240, 120, 29 ) $sPicPath6 = @TempDir & '\ButtonPics\image_361002.gif' If Not FileExists ( $sPicPath6 ) Then _Image_361002Gif ( 'image_361002.gif', @TempDir & '\ButtonPics' ) $iButtonGif6 = GUICtrlCreatePic ( $sPicPath6, 160, 20, 120, 120 ) $sPicPath7 = @TempDir & '\ButtonPics\image_361017.gif' If Not FileExists ( $sPicPath7 ) Then _Image_361017Gif ( 'image_361017.gif', @TempDir & '\ButtonPics' ) $iButtonGif7 = GUICtrlCreatePic ( $sPicPath7, 160, 150, 120, 120 ) $sPicPath8 = @TempDir & '\ButtonPics\image_361022.gif' If Not FileExists ( $sPicPath8 ) Then _Image_361022Gif ( 'image_361022.gif', @TempDir & '\ButtonPics' ) $iButtonGif8 = GUICtrlCreatePic ( $sPicPath8, 300, 20, 100, 100 ) $sPicPath9 = @TempDir & '\ButtonPics\image_361027.gif' If Not FileExists ( $sPicPath9 ) Then _Image_361027Gif ( 'image_361027.gif', @TempDir & '\ButtonPics' ) $iButtonGif9 = GUICtrlCreatePic ( $sPicPath9, 325, 150, 50, 50 ) $sPicPath10 = @TempDir & '\ButtonPics\image_361038.gif' If Not FileExists ( $sPicPath10 ) Then _Image_361038Gif ( 'image_361038.gif', @TempDir & '\ButtonPics' ) $iButtonGif10 = GUICtrlCreatePic ( $sPicPath10, 300, 240, 100, 30 ) $iChkBoxOver = GUICtrlCreateCheckbox ( 'Over', 120, 290, 60, 20 ) GUICtrlSetState ( -1, $GUI_CHECKED ) GUICtrlSetTip ( -1, 'Enable Simulation Reaction when Mouse is over Buttons' ) $iChkBoxPress = GUICtrlCreateCheckbox ( 'Press', 20, 290, 60, 20 ) GUICtrlSetState ( -1, $GUI_CHECKED ) GUICtrlSetTip ( -1, 'Enable Simulation Reaction when Button is Pressed' ) $iLabel1 = GUICtrlCreateLabel ( 'All Buttons were made with the chimply.com/Generator Website.', 20, 320, 390, 20, 0x01 ) GUICtrlSetColor ( -1, 0xFF0000 ) GUICtrlSetFont ( -1, 8 ) GUICtrlSetCursor ( -1, 0 ) GUISetState ( ) While 1 $iMsg = GUIGetMsg ( ) Switch $iMsg Case $GUI_EVENT_CLOSE ExitLoop Case $iButtonGif1 To $iButtonGif10 If Not $iAdlib Then If _IsChecked ( $iChkBoxPress ) Then _GuiCtrlPicButton_SimulateReaction ( $iMsg, 1 ) ConsoleWrite ( '! Button' & $iMsg - $iButtonGif1 +1 & ' was pressed' & @Crlf ) EndIf Case $iLabel1 ShellExecute ( 'http://www.chimply.com/Generator' ) EndSwitch $aCur = GUIGetCursorInfo ( $hGui ) If Not @error Then Switch $aCur[4] Case $iButtonGif1 To $iButtonGif10 If $aCur[4] <> $iCurOld Then ConsoleWrite ( '+ Mouse is Over Button' & $aCur[4] - $iButtonGif1 +1 & @Crlf ) If Not $iAdlib And _IsChecked ( $iChkBoxOver ) Then _GuiCtrlPicButton_SimulateReaction ( $aCur[4], -1 ) $iCurOld = $aCur[4] EndIf Case Else $iCurOld = 0 EndSwitch EndIf WEnd GUIDelete ( ) Exit Func _GuiCtrlPicButton_SimulateReaction ( $iCtrlId, $iFlag=1 ) ; $iFlag : 1 for Simulate Press, -1 for Simulate Over. Local $aPos = ControlGetPos ( $hGui, '', $iCtrlId ) If Not @error Then GUICtrlSetPos ( $iCtrlId, $aPos[0]+$iFlag, $aPos[1]+$iFlag, $aPos[2]-2*$iFlag, $aPos[3]-2*$iFlag ) $aPosBak = $aPos _ArrayAdd ( $aPosBak, $iCtrlId ) AdlibRegister ( '_GuiCtrlPicButton_RestorePos', 175+$iFlag*75 ) ; 250 / 100 $iAdlib = 1 EndIf $aPos = 0 EndFunc ;==> _GuiCtrlPicButton_SimulateReaction ( ) Func _GuiCtrlPicButton_RestorePos ( ) If IsArray ( $aPosBak ) Then GUICtrlSetPos ( $aPosBak[4], $aPosBak[0], $aPosBak[1], $aPosBak[2], $aPosBak[3] ) $aPosBak = 0 EndIf $iAdlib = 0 AdlibUnRegister ( '_GuiCtrlPicButton_RestorePos' ) EndFunc ;==> _GuiCtrlPicButton_RestorePos ( ) Func _IsChecked ( $idCtrl ) Return BitAND ( GUICtrlRead ( $idCtrl ), $GUI_CHECKED ) = $GUI_CHECKED EndFunc ;==> _IsChecked ( ) Func _Image_360988Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178001D00F600000101009B9B9BE49E2BFEFEFEB88857B18155AA7953A2714EF1F1F18B5538CD9D5FBE8E598B5539CA9A5E9C6B4ED5A463DBAA' $FileBin &= '64000000E5A433E4B366E8AC3CEABA6AEAB447EEC45AECBC51F0CB63F5F5F5F2D36DE6A635E6A93AF5DC787C52216B2C07E6A534F7E380EAB649E7AA3BEBB94D' $FileBin &= 'E7AB3BE6A837E9B345E4A02EE9B0427B5D35E5A331EDC258B1AEACA6A5A5CDCCC9E4A230E8AF40E6B15B725731E8AD3EF1D069F7E88AE6AF54E6A7367B5024E6' $FileBin &= 'AD4EE8AE3FE49F2DCFCECC969696F3D873ECBE53E9B2447D5D35EBBA4EE9B143EFC860B9B1A8ECC05639260F94653D9F9F9FEAB547ECBD52F2D26C070503F7E9' $FileBin &= '8CE6A737765A33120D06D2CEC1E6AB44EFC75E020101EBBB4FDAD9D82B1E0EA37543E0A237532E10E0DEDD996843EDECECEFEFEF733D13452A10794C1DEBEAE9' $FileBin &= 'E19E2EF5DE7BFAFAFAF7E686E6A93F76552B6F310BE3E2E1A27449AE7E537B5022CAB596E7E6E6B19C82DAB7808F5D36ABAAA9C3935B9B6A498D5837E5B2631C' $FileBin &= '140A805B35E6B970D0A267E5E4E321FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000000002C0000000078001D000007FF' $FileBin &= '801A821A61302E4B01898A8B8C8D8E8F9091929394944B2E3060839B3E2F475E6803A2A3A4A5A6A7A8A9AAABACADAD686D542F3E9B1A302F65A25406790C09BF' $FileBin &= 'C0C1C2C3C4C5C6C7C8C9CAC5790654A2612F30839D0803720975096C5F0EDEDFE0E1E2E3E4E5E6E7E8E9E420094A3A5E030876B4D1B9723A3A07FAFBFCFDFEFF' $FileBin &= '00030A1C48B0A0C10370E0C08B0606C611513AF0189848B1A2C58B18336ADCC8B1A3C78F14BFE8D065A8CD8038620AA85CC9B2A5CB973063CA9C49B3A6CD9662' $FileBin &= 'E20C68732854822F04820A1D4AB4A8D1A348932A5DCAB429513123D12012C586C082AB58B36ADDCA356B84AF11AE68C1D3B5ACD9B25ACEAA3D4B0084A844A2FF' $FileBin &= '4034984BB7AEDDBB78ED46A0C19746922905F2CE8D3058B0610234220C31CCB87103B703E00E00A1A0B2E5CB98336BC6BCF7F295159B2B77EE1C5AB39B295348' $FileBin &= '975EBD1AB264100F62CB9E4DBBB66DDA7B65FB95123B826C05BEC1827DA0A0CB93275D14C41EF346CB933D5F642F5891FBB6F5EBB55D07880BA1BBF7EFE0C38B' $FileBin &= '072FFC6B1225DD2348E9FE403D04F552E0AF19B385869631E9B51450629CC077F7E305286078DAC5C505173BEC80C30C7A4CE0E083104628618411AC60E10A6B' $FileBin &= '4C918483153AF8DE0A1374D8E1145FB801C11D53BC11E21A5B4010E210107638E18C343AA8C70C33E0B0C381DAFDF00308020429A4902CB0D0811A5528B8E0FF' $FileBin &= '0C1534E9E4934F2AF6E41D4FB851819415BC78E5105B5EA9C4044D5EA1C4952B3CD02496677209E59A4EE288838E55A8D1010B290C6927083E26E2230812F4E9' $FileBin &= 'E79F8006DA67081D1C59C5A109EE50E19B6FEEF0041F3354882301157629E5143434A9C0145C4A5A41A42BE4F8668589EE70689C850AAAEAAA78FEA0E78F14C4' $FileBin &= '2AEBACB4D62AAB092690A06BA1279C10C1075144C181195D24F14108C885604612BF4A100119CE422B861666983186181F44CB420821FCCAC1B71CFC1A6CAF85' $FileBin &= 'EA4A02AEB6A69B6EAB8B8060C1BBF0C62BEFBC28082144112AC8A02F0F35D44041795718AB44145F3C21D616C67290C415212C2C0117635C819C125BE4F06CFF' $FileBin &= '082744F1EB09E5FE6A42ACFDF2A0AF0C2A14612F0AF3A69C32088BBCF0020818C42CF3CC34CF8C0511258CA0331316A08002BEF9F2F0C1D0442BC145A10B0C5D' $FileBin &= '87191573A0C4074E43CDC516436F21410E5140CD71071F9C2BEB073C88AC42C93E5BC084CE239440041635B74D33082E27E2820B205C60F7DD78E76D770B2D20' $FileBin &= '11441318E09CF3083CD78BAF0CFC52806BAE2474D0EB091CE4900307DC52CE6DE5954BCEC1E31DE8BA380535886D32CA67A7AD36064D048104DF7AB77E370873' $FileBin &= 'CBED021B336460FBEDB8E76EC4DE7DFF1D78093933E1F3E189E7CAEBE496FF596491312CCFC29F9547BEB5D7A1935C84CF67034F04EAAAB37E8111B9877F3BFF' $FileBin &= '12B0BB10C0124750A143031BB4EFFEFBED3B61830DB61B61C505BD038E33E1F58E5D7CE3C8F3530C06988218A420053D38A0021358C0020ED04FDFCA41E73E16' $FileBin &= 'BAB1090105D9DB5EEA5677012B802F03F37302FC46D8001D50E1089738020CE6F0010FB8F08530F4001080B001F9D1CF7EF84342136E96330BDC4B06FE3281E3' $FileBin &= '2827011610B0073DB09312972800243AF07921D85C072828039359206D6B6B02073D08421B887086318C6102E6E0103B18C2073ED0810244C0C636B6F10C32A4' $FileBin &= 'A1FC3280C316FC6D7F3E54010F2800C0104860804964A2200729A41E3C30041224010578A002215C516DA96B4107C1E7C50D80F10C6E74A3027480464C8461EA' $FileBin &= '0930C882FAFC7083529AF2066910011CE578432BF40E0B39FB990C1407B922229090B8CC651353F0BCCD7DAC8A28481B16BAC7C54A02C103984CC3294BD90732' $FileBin &= '1C210B9DD04427B2E00518E8C00074808236B5994A11C8B08637C45F1060293C15D48004C2A2532075C94E5C2690051C8802096AA0020C96609892A4E4173DC0' $FileBin &= 'C6346C130A74788309BD9085590CE216592843198E70800430E0A1108DA844274AD18A5AF4A218CDA8462D9A00071CE10F65F082346AE103F465010C0848A94A' $FileBin &= '57CAD296BAF4A5308DA94C674A539A82210B4718692D0861084454E2A7400DAA5087BA884B6462138100003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_360988Gif ( ) Func _Image_360987Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178001D00F600001278189B9B9BFEFEFE2BE48557B25559B75754A95351A350F1F2F14E9B4E398C3962CE60398B3A5ABF5B60C95F65D56468DC' $FileBin &= '656AE46743E73E52EA5036E5324BE946F3F4F347E96636E67E60ED5F67ED63237C3570F0704BEA7E35E6840470057CF47C2DE48532E5835DEC5E6FEF6E83F682' $FileBin &= '43E97F31E5855EEC823CE77835E43088F68C357735A5A7A54FEB80227F2CC8D0C86AEE843BE783FAFCFB3A804257EC7C3CE771CBD3CC39E67B46E97F55EC7C3C' $FileBin &= 'E66DACB1AB63ED84B2BCB2BCD1BE40E8816DEF73A0A1A04DE84A8CF48F66ED846CEF7A41E75ED3E9D53DE883EBECEBC1D6C440E65140E65952EC7D367A362CE4' $FileBin &= '85F9FAF9D7EBDA78F378DFE8E089F58E6BEE829092903FE64C57EB566CEF7FB6C6B844A24FDCEADD3FE6555BEC7F86F6883BE6753D93485DC45C5AEB5AE8EAE8' $FileBin &= '8DE08F44984A3686363FE73AE4E9E41C7D230C750F3FE5459395938FAF8FA8ACA8CEDCCF3A8844398D4665ED622E79348FA28E8BEA8F78F37708720939E5363B' $FileBin &= '84438FD08E367F3640E76A47E84221FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000000002C0000000078001D000007FF' $FileBin &= '8016821608303C4201898A8B8C8D8E8F909192939494423C304A839B372D3E545102A2A3A4A5A6A7A8A9AAABACADAD516A3F2D379B16302D65A23F060ABDBEBF' $FileBin &= 'C0C1C2C3C4C5C6C7C8C6075B33024A2D30839D08026A68622F796709DCDDDEDFE0E1E2E3E4E5E6E7E21FD72F5D020870B408B8D52F2F07F7F8F9FAFBFCFDFEFF' $FileBin &= '00030A1C7860CD1A29CE5A2881E143D48B3306224A9C48B1A2C58B18336ADCC8B1A3C4332F9AFD304445C016360452AA5CC9B2A5CB973063CA9C49B3264B3642' $FileBin &= 'AA1D0A854641819F40830A1D4AB4A8D1A348932A5D2A94CD0B01511089CA53A081D5AB58B36ADD8A95D40C2A7CB88A1DAB750C922833908C21CB566C810FA2FF' $FileBin &= '1289FAE0A0AEDDBB78F3EAC52B80855F166FA810D85B574061C284BB2049C062CB9206882347862B40AE800F0B326BDECCB9B367CE7D37CF78F23973E8D0A53B' $FileBin &= '3F109040CE980533E4A49E3D9BB2E50F0F72EBDECDBBB76FDE7D756FE9C222B700DD108E9B7A0061C98C194B20E4466286CA0C2566989B6131867994E2BFC38B' $FileBin &= 'DF6D3BC05C08E8D3AB5FCFBEFD7A534B12A0EF9B9E7E5F16F77F20394063C996F9302C20C71B1614201D01E821B1C413EE35E8E07AE5CD254105434C40C60811' $FileBin &= '64A8E1861C76D8A1004F84F844025444170188199280E28A4F44800001F24D818001272670C60327F6A1E11D6574718F874006996106646431C110159477C5FF' $FileBin &= '151FA8E0E4934F5240411A135698C585746840C2965C7619441002D060C4986346718016615A61450C61B249839B6CEE51440C31CCB08715613EA066985A6881' $FileBin &= '84055B887146045F76D9A5061AD031C208596481A40469E801E5A42A7CB064224B7E20E5A69C76EAE9A67A50F9C710A44E30411302D471C10535D480C20C34D4' $FileBin &= '10260A2854116611B7DE6A4102451471870534E04A03AD5FA45A03125D18800617475CD0C4104C3081641A697C6AEDB5965E91881B6E7C20C1B7E0862BEEB8E1' $FileBin &= 'B6D10616E86211AD002F78D14413172C81C406474461C70E1D20B4C10E02ECDBEF0E3F2CB1830D48FCE02FBD471CD1AFAC5C6CE0C5C35E449B2E16E6926BF1FF' $FileBin &= 'C51F70BBC8071574ECF1C720874CA1A9D1BAFB6EC2A5CC20050162F85185120274D183C13B483143CD33D890C20FCF2DC10517FCEEBB43D0B6921245C247BCDB' $FileBin &= '44C44C988AA4C85083FCC1222DB4F081A95867ADF5D613346AE1AA6087BDC1D864CF31B00D0D8C6D361729A420C60618BC8D41180D6FC04518786F80B70D366C' $FileBin &= '8036D964871D36195D1BC9F5E1597F5075223CF0F0410690472EF9E4902F6AF908820BCE37DF6D779E020EA0E380C1E8A4976E7AE9A1E3E079DB9BDB9079D897' $FileBin &= '2F4AF9EC917FD078223EF8C0061988F6EEFBEFBD6760790D3AE8E084131D24DF410E3998E03C106D877E3A0622546FFDF5D84F1F7ADB40386F02F3CA77707CFF' $FileBin &= 'F135589E01F0E8F73EC207B90720840F3FBC300607F4D76F7FFD24D0FFE5975FB46A3CF2CA6B9E0980008424C8E08018F08007AE77820686E081108C20041B78' $FileBin &= '82EB2910030794411208E8BC1C846F7CADFAC2FE8240BFFCDDEF846378C10F7C10001EF800066F5803086648C31A82000F53C821997A80822FF4CF782E7041F2' $FileBin &= '0458C0032A50810E0C0114A03080263AF189507CE2121FD8C0237AE0801BEC60F282E8041DD4C08728E801997238053CD8D0862FB00343E060881BDCE0050B28' $FileBin &= '811CE748C71280600A7D52530F788802E20571880334E01129A8C4281AF290878442082878440D76CF831D08A21769B54735F5690A20A8631D17F002376202DC' $FileBin &= '0142B88114E2B7801598F294A604832A4140A71814618FB4D2C11F9B57C441161291B8CC65141579824666D18392A4640FE6442710A8120CA83CE503D6B00529' $FileBin &= '7442139D88031560600F3310E19AD8346515B649A757C672962610A4074E704B5D9AF39C4DE4A50235F8BD48BA40079424E636AB604A6C5ED30C06502115E230' $FileBin &= '8B41DC420A6528031C1280060618F4A0084DA84217CAD0863AF4A1108D68431590002150A147D0A8C50DDE17072520E0A3200DA948474AD2929AF4A4284DA94A' $FileBin &= '55AA0429F8A09FB52084211051899ADAF4A638CDE9222E91894D0402003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_360987Gif ( ) Func _Image_360990Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178001D00F601004D4D4D0000009B9B9B5F5B54FEFEFE3838383A3A39F1F1F1ED3F3F2525240808081D1C1C121212302F2E000000F4F4F45957' $FileBin &= '522929284242414C4C4C5F5E5B5755525E5A534D4B4856544E55524D353432484643232322EA3F3F343231403F3D6867655F5C573836355755505C5953635F5C' $FileBin &= '5D5A53C9C9C93C3C3A504C4731302FCECECE5F5C565856514B4643201F1EA4A4A44F4E4B53504C5D59532E2C2C4443425756534745433C3A39656461AEAEAEBD' $FileBin &= 'BDBD54514C454443666564A1A1A1524F4B53504B898989DADADA6562601818182A2A293E3D3B2C2B2A5A5853282727AB3A395B58535F5D595F5D5BB6B6B60D0D' $FileBin &= '0DA8A8A8FBFBFBECECEC2D2C2B9E9E9EEFEFEFE3E3E3151515854746E9E9E9CC41419D3A39C54242949494CA3C3CB53B3AB1B1B1DF4040E1E1E1B14443714947' $FileBin &= '7F3B39E23E3EA94444DC3D3D713D3CC1C1C18B3A39BB3B3A58424062403E6B6B69030303C03B3B7F7F7E614A47D940409746456E6E6DA24544B94343DEDEDED3' $FileBin &= '4141BF4343ABABAB4F4541544B4721FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000001002C0000000078001D000007FF' $FileBin &= '800F820F5627613F02898A8B8C8D8E8F9091929394943F3A2753839B2B304F635204A2A3A4A5A6A7A8A9AAABACADAD52573B302B9B0F27515AA23B39280605BF' $FileBin &= 'C0C1C2C3C4C5C6C7C8C9CAC5282561A1565127832B510704570D1F340A3D00DFE0E1E2E3E4E5E6E7E8E9EAE57134124843040751B45630B957481C13EBFDFEFF' $FileBin &= '00038A9BB080433C7B534EEC10854482C087102342FC9020D40E436308E88022B1A3C78FE5A0FCC0A6E34728151A40AA5C19D141040252108952B08125000438' $FileBin &= '1174D853C6E63734673A6CE9C972830251894439F0892082D3086CBE783387E05BD57F78B6E0A062E64B4D960E900A50CA3402B8091D1A9C6B7AD3ACBF2E66FF' $FileBin &= '545C0090D666580249092CB5C916C0043B5B8C580527A36ACE9C006490E9D0818C8C6F7CCA6CE950270B380F1F2664E9E276E5DDBC7B591EC609C68355B785CD' $FileBin &= '368DB01A4D9E02549670E187008C1B156ACE38FC89408C1BD360C52A5DA0848607031FBE4A5CED54C51730B451B39D6E560C0E0D13E8A43170938686B9089084' $FileBin &= 'C3C1A58DF28713364840A1418591049F050811E2A0BEFDFB0AA03028B220010D1522A020410FFC8813830C15248840032684E084133374500311086890830F39' $FileBin &= '202002081A72B8210206100102081D18E0438524E440A1062564F16008249498600532C420CE063D48608001ED45C041110C4011C77D443A305F22F339A0C0FF' $FileBin &= '924C36E9E4934B42010516052580840A1E6880C00B12D470C1047F7480040F08A8104208595478A2086BFA20069B3E10F126852A345801024664D1C1113DD420' $FileBin &= '41070B68E0C17B092C00249488266AA4108978E185030C442AE9A494561A291645F0B7C00B2F70908012086041050D0D78B0841C819EA1460138C8B1250E5BA2' $FileBin &= '102B174BE08002185C7000EB0B22F48AC0021EA4C146030D2CB104164A24C001A70B185A041696466BA9038E265245150E34ABEDB6DC76BB69A70924108111A3' $FileBin &= '3680E5681D7C4143041F989106025BBCB104073D74D1C10DF6DEE0C7128C9181650F0870F0C1C001A3F0461B8C2D91AC072A34400315464410EEB22F786B31FF' $FileBin &= 'B70E5C9B080C303810EEC720871CB2121120416AA9598A508001B61EC1C1CB2F2740C5072EB87084114A3450830629A4E041043E039D82084E8970C1D14AD45C' $FileBin &= '730237DC8082112F23612B0EBE8820A807C4D2804404C98AEC35C80E709C880E3A3840ECD968A77D36961A68A032CB471C31F0073534BDC106351FDD730A3100' $FileBin &= '11C4DF3C6420B8E018146E3806830BCEC3DF410011C3DE47D77C77D335CC1D37D505582D68C36A774EAC036427F2C4130A68B0CC8E28A020F7075DF670C3DD79' $FileBin &= '5FD073DF7E0711B8E123E4DE420B10F00EC1EFC007CFFBEEB98F6078068B37EE78CF91BB30799F120C7C44EA3B2AA38102A30B50C50E3B44E08E04E0872F3EFF' $FileBin &= 'F835B87EF70647A70F40DF32C81038E1188CB07BF04C90C0C40CF89B308305FCF7EFBF0533D01FFEEAC704E1B5C07888535CFB1C0780F41DED7C3780DEF82648' $FileBin &= '030E70AF0A3AB888108A30810E7AF083055A1FFB78F03EDC156F7EC0B31F09F2C7BF01586000308CA10C6748C317F24F802A3460F110984012CAC07136FA0608' $FileBin &= '4158843928A40F27D0C10A5690801ACCE88909B28114A718BC24583109F52301094CB0451378D17F340CA318C73843FF79D18B5BD4A2FDAE9884E04D718A509C' $FileBin &= '510D38B0444C58E1072B18C21A1250010AF8F18F80FCA31328E0842618B209674A240B1639001690F191908C64231BB9C8449EE9904D18E42003C9C90ABCE0A2' $FileBin &= '0943E884263A3184319CC0081300011C46C44A10F80043398825118850825ADAB2047E0CC1221D29C95EFA92922C08811F6F69CB59C63296AF6CA52AEF108308' $FileBin &= 'AC610C4398C5204E00832168410B5148820676C4CD6E7AF39BE00CA738C749CE729A739C05A8C00FAEA0053D48A3162BF80128A770807ADAF39EF8CCA73EF7C9' $FileBin &= 'CF7EFAF39F0005E81486200B5AD482108640442516CAD0863AF4A18BB84426361108003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_360990Gif ( ) Func _Image_360978Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178001D00F600003D2BE49B9B9BFEFEFE3D2BE4557CB15375AA5783B8F1F1F0506FA36099CE38518B3A528C4D679B5B8ABF5D92C764A1D7FEFA' $FileBin &= 'F067A9DD69AFE3349FE541A6E850B4EBF4F4F248AFEA5CBEEE4E68E96BB2EB62C4EF45A0E63F87E773CFF36397EC78D6F54984E989E1F6446BE404236E6191EB' $FileBin &= '423DE583E0F7679FED4A62E82F96E41F367A413AE55E88EB527BEA608CEB4755E74750E72D4A7B36577669A5EE72C9F3C9CCCF52B3EB274280C7C9CC4548E6A9' $FileBin &= 'AAAA475DE7B7BAC34443E69393934446E63E30E438597DA3A3A3EAEBEB485BE7597AEA3F33E44652E6EFEFEF3151754659E75679EAF9F6F0464CE64136E56AAE' $FileBin &= 'EDD7DCE2454AE63E2EE4A4A4A4DBDFE25B80EB40A0E76AAAEE8FC5DDE3E5E6D0D8E1233C7CB3B5B92B419EAFB0B47EDCF657BBEC40A4E7BEC0C4476398CBD4DF' $FileBin &= '44ABE9415C9269C6F1395585FDFCF997ABB9CAD0D6C2C5C90726721F368D334DA570CAF2102F7D60C1EE9AA1AA253A96537EB70B2B775578C64566B08AD7EF18' $FileBin &= '32850C2972979797476EDF5C8EC321FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000000002C0000000078001D000007FF' $FileBin &= '8016821649395F4301898A8B8C8D8E8F909192939494433B3949839B36435D556A02A2A3A4A5A6A7A8A9AAABACADAD6A5A6343369B16393B44A26D050B0B0ABF' $FileBin &= 'C0C1C2C3C4C5C6C7C8C9CAC50B053DA2499883363B07025A32673277640CDEDFE0E1E2E3E4E5E6E7E8E9E46ED9385502073BB44943B95A383808FAFBFCFDFEFF' $FileBin &= '00030A1C48B0A04104F8A208484285488E670270302840B1A2C58B18336ADCC8B1A3C78F202B92C1216A8CA1773DE41058C9B2A5CB973063CA9C49B3A6CD9B2E' $FileBin &= 'E5ACB9B663482805640C081D4AB4A8D1A348932A5DCAB4A9D3A26F6408508348141F3B0DB26ADDCAB5ABD7AD10C286D5F2E0ABD9B366133441CBF6AC0137A2FF' $FileBin &= '128922E1A0AEDDBB78F3EAC50B41895F2574AA10D85B174261C288EB12E99BB83162127103CC4D40B9B2E5CB98335FEE6BB98910CD943973060DBACC6225A453' $FileBin &= 'AB862C40AE00120F62CB9E4DBBB66DDA7D6597D132233684D9BFC58A8DBDA549932DB2A364599C248BEC2C1608E4BE4DBD3A6DD6AE4944D8CEBDBBF7EFE0BD0B' $FileBin &= '0FCB86CC760833B64B401F01FD0CF765B614109263CC83F66C1E9CE973A04104094DAC21047BE11568A077D849F6DA151C34789F04104628E1841452E8DE0C33' $FileBin &= '1050051B10A217A18720CE20C1017F30F05F1205AC4700190FAC278404CD7DE6618534D608E1760F34C841823FFC40820A400619E404448A21060515DCA0A4FF' $FileBin &= '064C36E92493504001811058D060E5034D2080C294287439E5075F869946091F8099C6966924E0A510598C07811E513E29A7924A9A418118440AA9A70A24F498' $FileBin &= '488F241029E8A084165A28833A3608810C25344A661332BCB0E80B2FD0B06809934E7AC01994A270801098A6F1420992468A870CA82E2A831D895E61E8ABB012' $FileBin &= 'D9E70F7FFA48C1ADB8E6AAEBAEB78A71C5AF1D042B2C045C081B427C5C8C10DD084C6C01C10A293CCB83B43DF4E047066564B1C208C48EE0EDB3DE8E102CB1C2' $FileBin &= '96FBEB1547F2AAEEAEB32E42C205F0C62BEFBCF49A6146A22118DB819B51E4E1C5081F2C5685153DAC5044714B209C420FC6F5E0051CD3AEC0C3B7DB86CB6DFF' $FileBin &= 'B11DE41B6C0889DA4BEFC71F93B00815549050C1C928A7ACF2CA27EB18C2CB30BF8C03172BD4BC82174BF0C0031C7BACF086135EC080441D2B0C5D740C5ED4EC' $FileBin &= '0512302CB1C21245E85CB1C538C41CB38E2C67CD32092427B2C30E246020F6D864972D761861D0794399A4BAF0B20B706720770629A4A0F31230081D430C4E38' $FileBin &= '2185143A040EC4E08307AEC3DF7DEFCD74D33AD73D770670BB1D820BA396A936DA66673E36095F27D245177784B1C1E8A4976EFA1C62578902DB2FB4D042E48F' $FileBin &= 'D75D04DE48F00DF8E03EF860C2EEBBB3E0BBEFBCEF9E7BE152381103D3503B3E77E4AE57FE010A346021F61CA6574F7A186E7C1EC0103D8C2183031E842FFEFF' $FileBin &= 'F8E2C781C6E850A8FE01A92D58E102132ECC6D37ED7CEB0084EE26FCFEC411FC07E1FFFFFFE3DF119EF03BE1014107C6431E0F52B03CF859A10595831E16A030' $FileBin &= '3A34C4817C18F440027030861E04E00B3DC8011D140082129AF08425F4400DD0C024F5B1CF0A46600213E4968222E80D70BAF3DDFE823085290CE087400CA210' $FileBin &= '83D8C3200C10783E38DCF16050040666408646786004A3C72434D4C00328CCA2027EF0104CC8C3063848C009C64846328201043548A3065CE83A18CE906E36E4' $FileBin &= 'DBFDF2B73F1F0EF18E78CCE3148E68021F00C1784C742213A2E83A3249500369AC0108C050C6326ED00636F8422666118536E0400222C8A426457002308041D5' $FileBin &= '8D50A0C1EA4AE03A23C4108E3088811472F8041EE6F195B0BCE3148240C03E4A2106817CA2290BF93C1A40019135F0E4093699490970A10751B041432CA0CC28' $FileBin &= '54018C05C8023139094A51AEAF7DA644650C74A0BB3AC6F29BE024E200FBA8035C363103A67CA0217D09CC616E320B04C0411BAA10052AD0421039A042148840' $FileBin &= '842F304001BD08A840074AD0821AF4A0084DA842178A500530600D5A204215A4C1094F44210907C8A84637CAD18E7AF4A3200DA948474A529226210A3DB0672D' $FileBin &= '0451884354E2A5308DA94C67CA884BE480089B0804003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_360978Gif ( ) Func _Image_360985Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178001D00F600006F04039B9B9BFEFEFEE4322BB26555AA5E52F1F1F1B96B58A35750CE7F608B3A388B38389B504DBF725BC7785ED68763DC89' $FileBin &= '62F4F038E59168EB9250E8813EEA8849E37733ED985AF4F4F4EFA264EB9968E64C38E53E31F5BC79E56E33794934E99068E64735E9815CF1B16A6E0403F3AC72' $FileBin &= 'E7523BE85A3FE88449E96343EA6E4AE7553CEB744DF7C583EB7D55E644347A4531E96945E85E40A9A4A4E96845E4372EF8CC8B822F22ED9660E64937CFCDCDEB' $FileBin &= '7B53E54132E5793A8A3324E6793DE4362DE67B3E7E261CEB775096908DE0BC40CBC9C9EBEAEAE98344AFAEAEF2EA39F3EE38BCB9B9EB9364802C21873024E9D3' $FileBin &= '3CE25232E2C93DED9658B4B3B3E5855FF9D193F4B676E35C32E8573DDDDADAA59F9FE0C13E974E3EC4C1C1954C39F4B173E4E2E2F1E63AE56633994F45A9A2A2' $FileBin &= 'EDDF3BE1BC46FAFAFAE1DFDF904337D5D4D4E37732ACABABC8C5C5740D0A710806D99D6CE6B75578140F84402CB29373E19F69F6C17FBA6C59C0966DA6927C78' $FileBin &= '4833CC996D7C1D16A29185D2836121FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000000002C0000000078001D000007FF' $FileBin &= '801882180646545B01898A8B8C8D8E8F9091929394945B494647839B3A334C696802A2A3A4A5A6A7A8A9AAABACADAD68615E333A9B18463347A24C040A0BBEBF' $FileBin &= 'C0C1C2C3C4C5C6C7C8C9C50A0554A2063346839D0602614F6A4F6F640CDDDEDFE0E1E2E3E4E5E6E7E8E370D84F5A02066DB4D0B9D74F08F7F8F9FAFBFCFDFEFF' $FileBin &= '00030A1C88C0891377F38C3011F5844C818710234A9C48B1A2C58B18336ADC08918C13515E0CA51190640E81932853AA5CC9B2A5CB973063CA9CA9724E196B49' $FileBin &= 'B6845AF0E580CF9F40830A1D4AB4A8D1A348932A0DDAE78900348844BD21D0A0AAD5AB58B36ABD1AA16B842566126C1D4B36EB19AF11CE945D3BF6001C5189FF' $FileBin &= '44917040B7AEDDBB78F3DE8D00A32F8C3A5008E8A51B81F0E0C1678AF88541E6B063C724E006909BA0B2E5CB98336BC6CCF7F2920F9B2B77EE1C5A33943A0C4A' $FileBin &= 'AB5E6D39B280B802483C984DBBB6EDDBB86D47D8435B8E990FB323D4168EB6EB6C294B9648A10DE582992562E4CC56224589F2DCD8B3E3760D9B0484EFE0C38B' $FileBin &= '1F4F5E7CF1085CBA7C8FF0013C7B08EC3FC43F0305C1072E451EC0E792A04B012578C09747171F48915F790826281E7793C5F6431028A0504515125468E18518' $FileBin &= '6698617C1F7CF005145C54C89E852396F881044A10C000047688518004117C41C603309E28C1070448D0E28B1AF6E8A30413468842100C124104091E24A9A4FF' $FileBin &= '926C58D0030548A050C1041380D044131A64A9E59659B207C297203CA004022078F9A597687E50A67A677651E6077F9CA926986D7269E795175C40658414F460' $FileBin &= '011B4B064A829189184982058826AAE8A28C22DA430F41504041A442F2B5C30E2E64AA041D3BF025820817782A2A0C2288F1C5A7382841AAA79FF2358114430C' $FileBin &= 'B1430562D011E1834104F1839F8DF6DAEBA044147AA4A4C4166BECB1C5EAFAE8A34A4670C318D07A5004143760A14401588C0145044244C1ADB7DD1651041658' $FileBin &= 'E07703B8E462C1AD074AB031860706FAA0E4B23D3C88ECBDF702BB080915F4EBEFBF00075C011204E7FAC3C13FC41043714B4051800F275060460450585084FF' $FileBin &= '1026201705721B6451847545F8E08309CE46914516CECAD003174B2851841A5F288C30AE042321F0CD0193B0C80C339040E5CF40072DF404FD4648F0102CA8A0' $FileBin &= '700C34DCE0F4D33E44B1C20A2F3CE1840F21F8B0C1063E08C1B5D7590B2104D61B98D0AD0953DF70C20951F8E0F417342CAD020B43101C61BF43E71D34093C27' $FileBin &= '92441224E429F8E0840F3EC5CF1544E802D2492B4D430A29C820C3DA594C6D82095B6F9D43089B87E0F9E7A06F9E43E665A3BD42166B4B0E79DC2ACC4DB70B77' $FileBin &= 'FF3C45E1B40F4EC2DF895041C51B1764E0FBEFC0079F419E531C3E41A63B20DD3AD3904F7E42E5986BDEF90B2FF0603D0F1C64AF3D07D7F340BDE7398CBE35FF' $FileBin &= 'DAA89F20C3EA31B44E37A62E50597C9EC2C7EFFB0570E81EC0164C7871830323F4EFFFFFFD2B41097CA7011CE0E00253C8D4E2589034E649EE042BB89CE64250' $FileBin &= '3DEC69AF0618AC011036C8412064B006DBB3DE0B38373EB499EF7CAC63E01014383B036AC0770204A00C1DE0042F3021004960821BFCF0840EF8F08740ECC015' $FileBin &= 'C020C00C14D0809F7241F292F6B8C841307A39A0DE053538802A5AF18A58CCA20741983DEA89CF84E74B010DE6262B17A0CA8519102018AE10C420FA400F6E60' $FileBin &= '421B8C90041DE8C0090968811EF7A8C73BF8908803D440137050051128B1818F9B5C043710C517648F8A598CA42427E9C12EBE6074601463FA588029115401F6' $FileBin &= '07584A6309C0E0C33BF0718F0970821D93E006039441075AF08213F860835ADAD2062D102220B334C84FED80894E5C2405B30784491AF39894EC6208CAB602F3' $FileBin &= '89716E3B40159634A04636B6E096B58C831098A0854E68A2136B4883119C50803858E19C56C0A5100558020D58A990BF54C1E39EB881EA71A006C8CCA73EB308' $FileBin &= '42EF31F304CFE4A4279B00026A0AD09A3640E7150850C334AC611683B885168E70843620400118CDA84637CAD18E7AF4A3200DA948470AD20520A00C61388216' $FileBin &= 'A2510B1D9481096B388201664AD39ADAF4A638CDA94E77CAD39EFAD4A72A6502446B41084320A212484DAA5297CAD4455C22139B0804003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_360985Gif ( ) Func _Image_361002Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178007800F402000000004D4D4D000000FFFFFF9B9B9B292929F6F6F6101010EEEEEE4646462F2F2FAAAAAA3F3F3FA1A1A1373737C4C4C4B8B8' $FileBin &= 'B8D9D9D95B5B5B1F1F1F7E7E7ECFCFCFDEDEDEBBBBBB0808086E6E6E8B8B8B9E9E9EAFAFAF939393C0C0C05E5E5E21FE1A224372656174656420776974682043' $FileBin &= '68696D706C792E636F6D220021F90409000002002C00000000780078000005FFE0208EA211794B43AC6CEBBE702CCF746DB3CD024506E9FB86476387E8FD8EC8' $FileBin &= 'A472C96C3A470684E5D2781893912AE2C9ED7ABFDD60A3927C2CB6A54D620268BBDFF0B87C4EAFDBEF78C081D1B922160F470F1046081407050A0C018C8D8E8F' $FileBin &= '9091929394959697010C0A0507146806108124110B461713050998ABACADAEAE090A071C250B64250D680B7BAFBDBEBFBD0C070B22080D460FA21707AAC0CECF' $FileBin &= 'D08F09B322158106C70308138BD1DEDFBEC25BD82610221405E0EAEBAB0A14221711F10306CCECF7F890D35B161067031BD2E51B98AF40076D297AC422C8909D' $FileBin &= '0207F45488E0D5B0A237612256880060B163340019096CF4481218C8011A07FF702CC9D2D5C9942B5BCABCF452A4CA99382BD51C99B327A49D377D0A650434E6' $FileBin &= 'D09E458F0A4DAA1469489E4D71328D3A732AD59656AF96CCAAD523D7AE16BF826D28762CC1B266F3A14D7B6F2DDB756EDF828B2BD71BDDBAD0EEE275A677EFAF' $FileBin &= 'BE7E7B010EECF26950C2EC06235EA578314DC3461DDB852C595DE3CA932E638EA479F3A3CE9E1B69FE014A82E3D14710986E29E1421402CF5017985D80813908' $FileBin &= 'AC102068A41B9A05121AF842EED64B84C046F41CAC12A180117367C41A289060C040B35E098A6298A0FC95714712B41DB7F43D40795FD42314504E2C432F0713' $FileBin &= '30146D83E100B756E72504D2D0DCFC00F0223897442304FC66016C8D545081FF04846803C16A1B0C40417F1A0CB000719724C0897C6D4016C7010A5C5709120B' $FileBin &= 'D426E071E10D205001C6CDD6620017F8809B801674E08003B444C048201210C7C07A19CAC2E11B1ECE01A288912481A07F289E57DE77EF5810403ABF51202001' $FileBin &= '8A08D85C0F0E10F2C76A94C472C09071145907224822A7226D0A64B045704C3692E2714FAA1800191F8418C03B0F2C228204DDC529823923E828899878987987' $FileBin &= '7D0E88781E23190C60819F763232A79A027DD7839ECE19A09C088D62EADF82B5C5B8C0230E7092478728D9B42A1C8C26F0A896715AEA64A59A0ED05FA7E980EA' $FileBin &= '48AEB134935CAA07BC4A64AB1B195BE6001324705DA416F45AE99EB7666A27FF9E8DBC5381B481C6E9C17FCE3AAB8DB2CBC244EEB1F44D304100110CC09FACBA' $FileBin &= '3642CCB475A653A1051F04E0E6001934E72BA6AA20500103DB9943C1B9C79A8BF049475C50DF04649C9A800668D019AF7FFD113A42890CC0AB08030E28200287' $FileBin &= '0C5C3100040BBBA128B9A96930E404046CF187020B708088020A64E300033A834C010F1164609FBA13A1EB060315989041CA2A23AB12D350472DB51D2B4F6DF5' $FileBin &= 'D508578DF5D65C53ED74D760874D87D662978D35D966A71D35DA6AB79DF5D76EC7BD36DC72D7FDB6C276E7FD2ADB7AF79DB0AB7E075E07DF82EB4D78E1761F8E' $FileBin &= 'B8DC8A2FEE76E38EAB0D79E4664F4EB9D8965F0E76E69A73CD79E767D30D7AEFDE9F8F3E75E9A6CF8D77EA71A3CE7ACAAEBF7E37E0B23F2E7AED69C78EBBB1BA' $FileBin &= 'EFBE6AEFBE277A7BF09B0F4FBCE7C61F1FFAEACA6F0D7CF3723C0F3D1CD24FDF744AC55A7FF5011965939DF6564384CD3F1B640F3ED4071CF4C73CF59C1FF501' $FileBin &= 'FCEC40E821EEA7DC093C3C648380F9F5937BC06FE4184032E0C1BFFEAD6A18D5100536743126031E705EC6B802294C7180023AF043D4A0872D7C3088421CC282' $FileBin &= '17AC20057E438F5008E21F6998C605DB70000774000D08B10212B2204330D8F086387C82012A3086250461034430590E8748441D4AC103551062124C708114DC' $FileBin &= 'E089508CA2146F90831D2851042100003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_361002Gif ( ) Func _Image_361017Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396178007800F60100FFFFFF73737E0000324B4B4B00002D00003AE7E7E7010041E0E0E001004B312FA301005100003DC2C2C2020063787878BCBC' $FileBin &= 'BE68686802007358579100002B010045B8B8B80000307B7A9CDCDCDD9090A81C1A8A00002993939503016BABABADB1B1B2403F89010055010048222093010059' $FileBin &= '8D8D8E5E5D9437368FA2A2A39A9A9D0100608080814C4B8F2B29998383A101005D1412861715886B6B6B2826990301660301685B5A88727272D1D1D125239638' $FileBin &= '36AB0F0D812D2B8A75749BE8E8E887879F3736745E5E5F6E6D96302E87EAEAEA717196D5D5D50402769D9DA225237C010136545454E9E9E96B6A983D3B821918' $FileBin &= '51757575D2D2D38282833332894543813D3BAFA5A5A985858A6F6F6F636363D9D9D9D7D7D84F4E7D6362956261874A497A12124E07057A9191910A087B4F4E89' $FileBin &= '676696FAFAFB4745B3F6F6F74240B10C0A7D5A5A5BB9B9BA9494A703016F6867873B3A644B4A9783839BA8A8ACC7C7C99898A5100F55CBCBCEEEEEEE23218A7D' $FileBin &= '7C97201E8406054833319A9292A021FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000001002C00000000780078000007FF' $FileBin &= '800082838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9FA0A1A2A3A4A5A69D7939202A26580F0F3311B211510F5326291F3969A7BD8F67' $FileBin &= '5B1F632C59531D1F6D0D39521908CE0852390D16292A533351261608BEDD84690D1D59512A1678080606CFEBCE19EEEF195B5B75ABAF2A7867DEA678E22CBAE9' $FileBin &= '00D5B17B06EF9D3C795C12D6B9C20247072EFA4015F9C0E2C195233F02021C48B060BC8309131E195927492D10BC2266CAF301878906067E64D42890A3C78F08' $FileBin &= '438EDC29450A082C383EE45159298D85071D8E3469229366CD81370F6E09C965E7C89E3DA599C802221F51480D589890526469539A1CDB79944AD5EA11ACD1FF' $FileBin &= '72C885A065069EAF8D328C79D0A04959A63335AE4B024609941A36103B586CC386071E4AAAF86850D52A5CB998070C6012018B01BC88CE80C041074191BF6705' $FileBin &= '6B50E2C0838D12090E1420C0A1B66D0E0496304820C2B10C2F0DDE62C52C57B37136331A802E54C4C4033CA7510706F8028A831A0B0ED0BECDBDBB6D020C1678' $FileBin &= '58D3A241DCCCC6D347309112B414162A0C44373B9D4B90EB0904DCA6C09F3F81FF0002D81F7FB709209E0C76A0975E7A423CF0195E103C00411EF30106501B7C' $FileBin &= 'AC20C212B6F517E0872082D89F6D0C38B086110BA6B85916471075C607CF51781A7DE940A0C40AF9D5E6618017F4D8E312610419A4003EF6F8E1881C145042FF' $FileBin &= '0D71A8981E13334010D11949B090818CD2A9F38403256CE71F801784110718370C31871B49A4A9669A6E0081011C5DC4118691025250DB12D73999DE0C1F7873' $FileBin &= '860A9E6149A306303850808E140028261C1AD8E1E8A390462AA91D40C011071417D4591B031E40A1A7667CFA92062B06086A216B2320FA5F185D9CE9C6ABB0C6' $FileBin &= '2AEBACB4BAB1071861684A406F9F0E10AA29A3065AA14C10DCB1827E5FC6C1E8AB1A34EBECB3D0462BADB3AFFA1047A604107880074DEAF9EB2869A4C042A9C3' $FileBin &= 'FE80018E3AFE17C71ED3B6EBEEBBCDEE71ED7F765EE080A7DE2A270A950F5C59EE0D301C902E14460061F0C106C3ABF0B3081FEC0314F4E256C21D4E3201E5FF' $FileBin &= '5DA0F08B87A93255B1C2A1FC2D71C31C0D976CF2C928A76CF00D4B646BE702142F6831136C64F160276774C0C284E506712C07894281C11C4413FDC2D14827AD' $FileBin &= 'F4D24C37AD74D173C81B7102303C3933135A3CD0DE262960A102C73F788C2C01EBEE01F5D97338ADF6DA2FA00DB5BC99DA9940CC57D38CDC189D34E09C7C3302' $FileBin &= '76C3CF8982B1C7E084138EC1E18827AEF8E28C378E78E1857711370730D7CD061B42089185BE9964D010747DCB84010C201300C6E27B38AEFAEAAC3FAE781711' $FileBin &= 'AF00C5CC97672E445D456492C62D74940BC10A02271A870FC4176FFCF1C827AFFCF2CC1F1F07BD04381087DDB66B515707995CE19C6959DE9100D004403184FF' $FileBin &= '11E4976FFEF9E8A7AFFEFAECA30F71B602D84073F55AC882430E97E410050B0D849ED18DE013C0178640C0021AF080084CA00217C8C0047EA165D9AAC00AE837' $FileBin &= '8B193CC02B93C80316C66002BF0CCA016353161C4638422798F084284CA10A57C8C216B29084239C979DA477BBFAC96206D800412540108528908546088041AA' $FileBin &= '12B5842FC0F0887030831297C8C4263AF189508C221249F88502C44D001EB85D0571380E0C42C27326E840960CB025F085EF0B684C631ABDC0C636BAF18D708C' $FileBin &= 'A31CE7E84635AA310E02A0D7DCB638832C64E1011690C419AE80031C28C542068080A17043800B80C18E9044E3092649C94A5AF29298CCA4252369C72E1009FF' $FileBin &= '401E00430470D8C72C14320B5B6BC4115880850E22D2004A2801F82E20B21BD8F296B8B4A52677C9CB5E9E2097C0BC41013E498111AC80947EC4410F25048970' $FileBin &= '45802FAF6CC30AB2F51F01842198C19C8036B7C9CD6E7AF39BE0EC263673190601E4315B3600432995598B07B000124798424562321D3E7C2F5117100014BAC0' $FileBin &= '4F7E66339C000DA840B519CC7E76010AE68C5B051C90CC65BE220A1069441A3E30032C5C213506E0C2B1F069CE7D1AD4A06508A948475A86819A549B244DE947' $FileBin &= 'FB09852524345B35D0023B5FF10A1624C1111930C128B9301D03044104B3ECE84AFB99D291B6E0A8484DAA5297CA54A41655A4433DE8308999002838B4A62CFF' $FileBin &= '9881171371142CB0A0A70670C012382A800284010C684DAB5AD1DA54A5CAE1AD708DAB5CE3DAD6A4AEF5AE6128C0543375811AE080A6EE644145F0B7882224A1' $FileBin &= '331FA009066A10D4B2F6E1AE60A88264274BD92AD475AE98AD6B65377BD73EE8F5A51480411C682A58164CC1188CC8011622900529D0040ADFAB66590BC08038' $FileBin &= '6CF6B65508816E77CBDBDEFAF6B7C0DD2D6E2B1B070630E0B3E7ACC01DB06ADAD3E260AB8510CD43D10242B2EA95015008827683CBDDEE7AF7BBBED52E140E70' $FileBin &= 'DCBDFEA706816D2E165CC18D44182005158D4F4010A001C626CA9C4BA02D03FA1007ED6AF709000EB080071C601418F8C0084EB08209CCE001FB37086120EFFF' $FileBin &= '715D9A470AAC000C823DED7A5B11C84448C1045A98421BE68B00252C0037F99C2D030E7000253CF8C10D56B08C674CE30337F8C5DA554205585CDE972A57BDAD' $FileBin &= '3441181371060B4CA14178D888336A70008EE697B607A8401F70FC602A58F9CA56AEB196678C652C5359BB77A8C08ECBEBD24C09C0011A0EB2901F9008963C80' $FileBin &= 'B5E8788A072E705F15B3B80223C8EE8B89C0E73EF7B9CB800EB4A003EDE742BF18B623D83179910B5356AAD90463402522329082BF4E211DEB70830D02A86243' $FileBin &= '9C01016E0842A1474D841E98BA077EF683AAFDD0E555FBC1CFA74635A9FDEC5F282C2001891E33A32DDC85478F6118113584143A308329C4871D55006A23CDFF' $FileBin &= '79DD44E0A1074A88B612624D6D53A7E1DA7EBE761A5C0DEB6A7B5BDA4AC04022ECD0E34F8A40094216F2AF3B6002291D426F1198C20706A284D8E633BF2B5604' $FileBin &= '10C0CDEF6A0F020AB2FE77A1BD1D6B7E83DB07E3064F01CA4C803CA77BDD1D18430A0E51E42984B80D03192F47AF7B8041A44BDC003000140CAE043D98FCE43D' $FileBin &= 'F8F7A9554E70539FFCE4245702C2113107850F335307B883BAC7D0819E7740058760090B84C0BF81D4A00075E6B8C717B000119440106708031F06C187AA4F5D' $FileBin &= '107A3042213E30F3417CC0D42EC0C02ED280070CBC7C102840C91932F082AA7BCF4814B880721AC00101949B00678634CF7BAE02761F020157784083723010FF' $FileBin &= '1BD019EF765EFA024A30733BF461038308C306261FF92114E20A4EB83C1F5CD0A742D0C1E4570F792180608315C0A0042510C1026E8A805C2D7AAA78B701C47F' $FileBin &= 'AE0215B0D910947E001B1E20057664C0BE888772C711E186258C600D83E8830C6400794184410FA10FD2C8FF0D053E641E005B88431C5A048013407F10108042' $FileBin &= '188020882624C001A64FFD090411070AB078D1E644E7DE695FFBDB17E20849D0FD0C7C9F814D2FBBAC2B367C8680076130020E6003C9B77C32107926177934F0' $FileBin &= '8091E7022EE06E5F00057A707D164079EC770731C003505700E8777A50C00B76C00151C663E655033E577B2A902611700839A00251C019EBF00E0E80620280FF' $FileBin &= '6F51960819200388917C3110030BE87C1BA00791A70310E87C0F9812D5878482900677D07C00D0076B800412300878627A3060070070062D956B8BC6702A487F' $FileBin &= '6992022F38802A800334A816EE7083CBA6831530088982777020081FD01A83C0004840063110791A080061A00382E88034E015CF470224007592370807608557' $FileBin &= '280878827E50900F49504CB8A66B62488649900266780875D0016A18016CD8863808877228024E07034F38021E908762200664E08752180688A80347A8034C58' $FileBin &= '8B4F18067D2808072006563808055003E8377371500009708961F84935C08265C889675808E1A086337013FE776F501687824001A9687900700405D08ABE08FF' $FileBin &= '8B433885CC1779BAE87C8248818868068260017DD08B53088C8F0800C3887E8194060D978C89B68C996203B5F78C294007D14808D3C8065190031E718D39988D' $FileBin &= '8A0007DBD20482800164C0073A2408CA27854A80888928084A2088EE08005C40047E900182D0051C987CAF8804C268038BC10B104000B7A68C13F64900299057' $FileBin &= '9002F667901D100508A990F0B0057316770DB962DA780820B00425F0062F50083F208B2629087420885109007440033A4007869004BC588E7D4006C0D8920E30' $FileBin &= '8429B00433D98F35994F368093571078EF667B0DD20041B905318074D868949E260546607C1EF00612800147700669400750D0965720791B2007F870061AB0FF' $FileBin &= '013480068BA9017CF08046B09875F0056110855EB9066129080590182D200840101EB786960B4724F1B3899CD89674900226E08970F900206010F2A0044D8677' $FileBin &= '70384464151E1EE0011220014800037D309C1C7807C6B90188C807E2577D34E0023A0005D0B9790FA89C41128593B70132309C54089648505E1E408C0B402407' $FileBin &= 'C07434799A0470007CC08929C09A1F500D878007F9A7052C9002EE20152D90004967942390004C978A2B701DBDF99B48008B3CC00342C87CC8490282F880CD29' $FileBin &= '810EFAA02EC0A082888893B77C1DC803DCF99BBD498CE9A77AA5A96BF1370241B09A5740071FF0012A7091859003E2420B1D801353F10222909F51B69FFCE9FF' $FileBin &= '9F00EA9BC049A0068AA0B588840DEA020A30A4444AA40EFA80134A02157AA1192A011B1A82A97796209A47227003EB59A2278AA2EE767F748005B1C0026CC105' $FileBin &= '78E001B8C16CFA998C4D570230F09F35D097022A066B60A0423879B5F8800E5AA4783AA4478A95148A9D41C8039CE9886FF09D50AA7AFC38A504B0027FC09E27' $FileBin &= 'FA13C1460819F0015B513320111273B66C7A7567688AA36DEA97C04906717AA009BAA01298A7A6AAA7119AA4D829031DB8066420A884DAA133A9689FF58F8CFA' $FileBin &= '012000029266080860016380036C80030D30153AB1014D964F1C876737AAA66CEAA69F1AAA3EAAA0769AA73B50ADD59AA711CAA74AEAA780FAAABF39A81C7AFF' $FileBin &= '7A866A9A3757003180A58D0A023082087900013DD9201FD01647E0040B705FB9B9AC6B0AA09EBA87D04AA7A42AA4446AAD027BAD469AAA3AB0ADACDAADB01AAE' $FileBin &= '515A9E2ED5706060A2E90A0257803D14D700B6C75A2AA0132331A634AAACFD5902CDAAA3FCDAA3FE3AAD016BAD56B0B2025BA4D97AB04BAAB01A1AAB51FAA1F0' $FileBin &= '97470EF007599AAB20400D9C6308759002D7B07B2261156BD032C87AA6215B288841B2A06AB2755AAA43AAB22B5BB55660AD05ABADDCEAAA8EE81AC428AEE469' $FileBin &= '9AA8F9063B9BAB166064ED75085220A9C02AAC6E21056550AFB8998D9BCAAC0748B2700AB5D20AB00A40B52BAB06568BB57AAAB5091BA81AEA92B29A8C9898FF' $FileBin &= '4723F004137BB620F04E89D0ABEF8A0317C1135250071EF0B1FB99A6F9EA187E39A0FD1AB529FBB76A70BAA8CBB23B60A484DBAAF438A8880BB6E5197F366007' $FileBin &= 'B86AB6679B938A900718CB0211D02098DB131BC00098AAB469DAACA19BB7734ABA536BBAA8FBBC2CCBBA07ABA485FBBA34EBA1B37B0105C003B7DBB367DB0658' $FileBin &= '40588910B440513375201C5991042B60AF748BAFD7E118BF49A0738A9C4808B0D56ABA6890BFF97BBAAA3BB830CBAD6079B85FDBB009B0B80450024EC0B3676B' $FileBin &= '016D600151005D85C00520F0AE5990049721173C301B495BA3F8FA9FF0FBA93DCA7C7B3BB53B6005A7ABBF28CCBF049BAAD49BB0DEEAA4B1DBB062DB23648BFF' $FileBin &= 'BB0C0C012970538BF003BD1B01C13A1C98810125705F1C67A39EABAF3B3ABAF54BC226AC0628ACBF2ABCBA0AC0C25B6BBD036CA8B8F67A79B4006560C36D0001' $FileBin &= '11F2A8A141BE6D0B02E7811986127C4A8BA31F2CBF22ACA0525BC227FCC468A0C2A83ABD002C06875BA8367B5CE624006F4007DE7BC31040118E7004131C05F5' $FileBin &= '13BEC491030310070EC0BE2B66C44E87BC490CB54BDCB74D4CC7750CB8524CC5D56B85E08A7E043C02CBB82B5DBCC05F0CC663B0A58585B1539005C80101C461' $FileBin &= '1C4C56BC1CECB91EECB47ADB9C4CECC474ECC99F4C0314EAC25D1BC3E30AA2F944061FA0CA600C016D1005A9A40875200C38B0C80AA2191E504D7058B74CEBFF' $FileBin &= 'A6A28BC9BEACC926FCC4807BB5FE4BBDAE2BCA842ABB057CCA0EF002CE0CC6E1A0A279E1AEC430CB8EBC205030C4C85A00B97CBC481CCECB9BC925DCC4A98BCE' $FileBin &= '53CCA755CCCE1C5AB3CA58AB15A004F30C01D3100543F108E04007BF6A3D53E02436A01D669ACB6CCCCBF33BC27D7BD055BBC20C0DC0C7CCC7B36B4E649002DF' $FileBin &= 'FBCC0D50CF929001F82CCB11C004209D474549D276DBC66460B2F4DBA0452AC5A8DAD22EACC7300CD3A6F9B0358001354DCFD3704192B0D13DF9BB11E0247150' $FileBin &= '033D626715E0CDEFABA3F2BBBC7BCBB74B8DC7ACDA81010CC3573CAB5A7C010BF004556DD137CD021893D3185BBE5AC0064E02053080A9000DB247DCB402FAFF' $FileBin &= 'B427ADA0402AA178BCB52FECB50E00B6365BAB2D76D737DD001F60B1937006F4D001B0C0065D1DD82280CB869D8A8C81B7A13ABF09CA917DEAA7EBBCC7930DD1' $FileBin &= '33BCBD7440C878DD006D80033733090680B12680035CAD2777B000A6DDB9BA7CB7FBAAD8078AA0D7A9807FCAB5DFEA1A7CDCC73727003C9004B89DD910300575' $FileBin &= '800978D0061D300538703B4240DCC6BDC1CADAC139FAA63C2AA74118DF058AA12B39B30C8BC5332C006BA0DDAB9CDB18CBD996C0BB9BFD00B2AC053EED24C54D' $FileBin &= 'D89ABAAC6A9ADA3ABAA3B008AA6B30E1AE0A96F438B32E39DB044CABE59ADDDB7DD3D53C05D34C0908D000493006513003A27DE02A0205C7F2CFC68BA377EBFF' $FileBin &= 'ACC08904367EE336FE9B1230A8D45DDDE5797307E0E1FD9DD9F4E0209C900310C00AC22DDA7AC20487614541BDDE4D27E34DDB979EAAE3DFCAE389B1181D8ADF' $FileBin &= '8B4BD74A70DB430EE220F0005B80337560011D00145A2004A32D3316130736300229267C528E8A6A9AAFD781188ED19BBDD91835408C2128AE5E8E827F5C0376' $FileBin &= 'FDE10D400F53E0CA9B20E03A53DE9903E7B473078602E35126E5699AE72BD0E98BF1E95CDEE930707A107D89BA767315400654ADE8F43006F6DC09BF5DB10F20' $FileBin &= 'E95A601C96833971E001E1C96CD9A8E9538E7AA837EAC20EECA9E7A1527AEA7FEC004A40D3ACBED9AFEE095BD0002910E99953EBB76E3B4270071E9000756EFF' $FileBin &= 'E72360C44CD79FA838EEC64E9EB8D68F5A6C4E224006F28CD9202E0CCFFE094720EDD4EEE657533BD55E3F03B0023540E7BC1E80628667369A8C045FF0FC986B' $FileBin &= '8A566E06F20665D0CCEEBEE82AC002F10E0AF33EEDB39E393E4C3DF95E414C7080BBDE90FA756701FFED24FFED019FF064C66C4B5906825CD144EE1C3F5B0A15' $FileBin &= '1FE96DFEBB98B3F137C4451170182B30027FFC64FA1580EF37F4C6555EA7694E0960033CE004B7EBF2993D055170E6DD30F3E4EDC311D0E635C4470D15057160' $FileBin &= 'E938C2007F0CF27A35F6644F61CC66806FF004B6ABC00F0F23971611F3BED940A1E2F5633D5A6F4A57F5006060E935A021058C5C61DF90632D022B60033100FF' $FileBin &= '063AFBB80F6F0251D00123DE0B253EC1CE71CD6E7EF733455A193605376018969E188911E88ED1181B100437B0A8E8DABD4ECF4338F0DD7861007590E4913E03' $FileBin &= '5A344AEB94F7A59566E9A6772B1890AA79A5128BFA980D01C46002BDFD1564D70074C06EB3CED5A384F7EDC45CB8FF70F3E78CBD7FAB6C8FDB1060027DC4FACB' $FileBin &= '310819300D7D07145950F311A04C8075FB53B061D2BFFB2D58FDA77FFDFDADFD3390048F0F1A7980079A1D710D31FE95FF57E915FD3BC7FE6CF9FBF00F012070' $FileBin &= '0D80306382005068788898A8B8C8D8A888D00071D531C68293A525141131C3C23235858565426A3236D691AAB29A9494F27A7545F7410B626B816BA182C389F9' $FileBin &= 'C5E5081C2C3C7C961139393615C52BA4B599C5325A7A9ADAB1AAD2FA9A123B5B7B0B32C61B91D59173368C9EAE5E98660CF1A1D281F57019A1E5CC193545ADCA' $FileBin &= 'EA0A2B8BD607101F3A3C98F18CC5152969D6397C08AC5D9D062052A49A8703C78C7BF838E178C0C2D4BF57943022DC3403078B2416B634840833A6A222521A50' $FileBin &= 'B4D8C1C49407CBB220BCB729A8D0A133A2844C0102CF8F73329B3A2D74C6C0119B163EA4883746278B075C9765C411852BC85063927C6823C500D3A76C9F9EC9' $FileBin &= '9341CA440804AFA448B2AA9A356CDB0642C88120CFDAB68409A7C983608B941C7826DA6C50074F0E29191014795938B3E6CD9C3B7BFEBC2810003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_361017Gif ( ) Func _Image_361022Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396164006400F60100FFFFFFF5F038F5F038FA3850F92F48FB4159FD798DFC7185FD758DFA3D54FC4F69FC6F82908C08C71622FA334DF12A40FB43' $FileBin &= '5DF7F7F4BFBFB7FC5B75C55359FA3049FD7C8FD61C2DDD203299950DB5B020CD1827F5EE38E32336E76673FC536DA19D19EE6876FB4660E7E7E0EB273BFC5771' $FileBin &= 'FC889A92928FFB4C66FB4963A6A6A5A6A219EBE335AE0C12F7697BF44744F33A418B3A3FE72539949009EE293EBB1019FC6A83FC657FF36979FC5F79CAC98DDE' $FileBin &= '616BFD8092FC6781F5EA38F5B740DA1E2FFD7B8ECF5A60C1BA3880806F99951AD0D0C6FD7187FD8294DB5F69D45C64F76B41D4D4D28B8B87FC5E77E36470B8AF' $FileBin &= '33F1F1E7D85E66F54142FD7189B2B2B0B70E17DFDB2EFD8496E0636EF68740FD8698902C35CEC72B9D9A20C6C129BEB238D9D42CCA17248C871AF5C53BF5E439' $FileBin &= '82827BF4D23BD3CE2C897A269B9B9B948E6CD6D4A3D3525AE53E4CF4DB3ADDDDDAF393428D5338991923E35460F2A943D6D5BBD7D6AFF67741878672EF334AF0' $FileBin &= 'A044ED5768B18F79C6C59AA5111921FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000001002C00000000640064000007FF' $FileBin &= '800082838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D865190A09EA393230CA28C3AA7A4AC8E11430C2011A9190C3AADB889111219615F50' $FileBin &= '8B3A195F5719B3B9C882BB501902021AB7887E201ACE206CC9C94C4D2B5FCE1C207787762BD5CE5DC0D9B811556B332CCE022C45A882702B2B1CF11C1923EA96' $FileBin &= 'F50E8D38512E9EB330B2068DD000C287C167601A05FC2788C10A3B8924E49971C5994367BF9469C8004FC04779338E21D2A18101C5424C668C04A143A5A0282A' $FileBin &= '40ACF846A04C3C681198952C53E1E48A6885A2E80091A1E5CB414C2480E88866C50C30FE046D03D1C5D90F12537C0A000782A3C729307EC443E3A5D09D2119FF' $FileBin &= '56A0E1C0A2EDD3A839C3C4BBA261C68A3B11547899A14FC0120A355E7C64C140AFB31714282C3158445C0496C34A0A0893EEA511156640A079C8A10BD322D49C' $FileBin &= 'BD814CE1C2E48786DD44867126DE172F434070858DA6334526A0BD7485BDB965492D742253E810E7A116D991DB6889C7588363D85D22DE55D1C48BB76FC4BF15' $FileBin &= '501E794A9D787B6490A7A038FC588343905284C3BD88390104B4BC21FE23B990FFFFBDA01619340028446474A8055B197110009F7CFF8C504513F6C5A3471B53' $FileBin &= '2C519B414BB4F19F12202A2185800F84A804806DBC16CF194B4C710109068101A13A1236B1C64ECEE8115D0102EAF34601214A21A4903B1020A290260A419BFF' $FileBin &= '3364BC90401B31B400633C5060F3548D79E028000DE4B5E1460171202745126496B9C399659239A41274681147016EB411D91F521A040546574A700211CD3803' $FileBin &= '43641F82E80601499C79661688268AA8A13B942905016E1878410B2DD060100859B112050333E8A4011443C4A7431F6B1031433C30042A64A18766F1C4ABAF7A' $FileBin &= 'E001ACAF268A6612482A41811556B40083415E8C30021B3AE8102A141AAC50D62A953041CD1561A0D1C5171A24BB4206333080AA1047B2EAEA13B2862BEEB8B3' $FileBin &= 'D67AAB146D345003AFBFC6C300037195A3C1175DA011C61560F82649547DF4E99E415388E82DB8E18660F0C108231CAEB98D62D080BA35B4FB6F3C3E7881E7FF' $FileBin &= '24789991C168133F36E60EAE166C300E24976C72C90ACBFA44166E6C20C6C3354CD1713C5D1461C90812A8D1441A20CC2CC00B20137C70C92E146DF4D146A36C' $FileBin &= 'B0AC745C7081CB0FBFE0B300475DF2D99E668D45801E7AD040030C304CF1C20B0384ECC1C83818BDC0DA6CB7CD76D23818CC47074000F1F4060D0CF0025A60D3' $FileBin &= '4002093210509800C5D8548A9E668C719F1672022A30C8B28EACB6DB07545EB9DB6FBB80031F3474800106766F8037C4BD52DA4203D3C5132A26BB70676A6165' $FileBin &= '4CE1F8C74293EC02E596E7AEFB016EE3A007E01D781EFAE835AC6B3A0D62C95344A69644B56711C319E6A110B49F1D42DAB7AFBDBBE5476C6FF902360CF0C0FF' $FileBin &= '037ECB20FCDD30976E858A020CA16F25BBE8CCE78A05705B6816D6A7CDB6EE4720E0FFFF004440F72C678302108000E32BDFF9A0A6AE5E916043D6B052268C50' $FileBin &= '05AC5DE7056D9002E424A73DEEF9CF00200CA10843E8BF232C20010EA840050E483EE081EE692F2B5E0364B6169B6D02672730431AEE438602242164D7CB9E07' $FileBin &= '4768802018D1884434C0020A300007A470850854E00B89D781F35069469688C06774C200CD146007E00A62070F8000111ED102684C231A8F6880020EE08D4D4C' $FileBin &= '210BCBF739F43500068363CC45361185DCC844330288430ACEA6BF0554AE7F210C821AD1C883462ED2024E2840022609472742B1850B14030652479DBED0C4FF' $FileBin &= '7091600314FCD285C1A9460B04F040210F99C83436F2953C40022C7960810940A000B8A4E41B2D3947F34D91007880E03EBA6015AC44422956D140470CC2811F' $FileBin &= '2CA1007C389B10C9D84A0B341209D8CCA6369160800F880002E0CCA52E79393EC04D51933058C20F4CE90CBEF845828A18015C32F3903768A10074A0C30E0879' $FileBin &= '3B56169191B1C42616064A5082DA000529488108BE794B71EE528E989CA2BA1A20831768810CB0F1C117329081214C4421EFBACE379CF9023AD80F7F2110E211' $FileBin &= '40A8486B0A74A05B88A94CB7C08309A0E0A6095528431DDA441522D09CA14B5F0B360003019D241E6178D74777B10606446F2C7A530EF5C028C6CA95B1A5B1FF' $FileBin &= '84694C4DC055AE6EC1061F5080581580539D865392955C614461D840D3B52070476D5F06C461885D9CA0094460C0779C510618C8E9A4D23424350DC04824C0B4' $FileBin &= 'AB88A5C2043EC0D8B08E15A70B0DE7387DFA00A03EADAD94B2C2922806856021026715C42B03EE639217444A09490097FE2A07C2C26261AB88358101725082DA' $FileBin &= 'DAB6B16285EC37790A511AF8F2B26DDDC00B92270FDD7C542112A8E09EC6900F8A2DC10D1A7CC2F5048B0066FE600BB1956D0E26C0DDEE4EE0B68ED56D4313B0' $FileBin &= '4BCA92C0736C5D1706967054844001949F3042CE96BB0240DE739F2915AC0160F383AE6E010137E0AE139C40063270B7C0DFAD6D7811BA534A1AD5073F7881FF' $FileBin &= '0C4007B51AC8000FA6640B18E07B082DCE970869208941F6508027ACB68CCE88410CE4208F2704C1064E9880137240E31CA4D809294E700916ACD0F10E603F72' $FileBin &= 'E08200DEF0B9A0D28093CE188217B0A8080FAB2187697887417A1802EAEED7206790430C26E00C1A3BE306183549987DE0843A94810365A8435851E0150ED833' $FileBin &= '0118E582D4BA3007BA3D2D2D0F01430698BC080FAB00CA59F30A015CC0DA203C840514E0038E0510831BA4B807298E418AC120803DC480D27520AB33B43C962F' $FileBin &= '95E40D5CA833062EF0002B1A8401F08C4404F09243103486492F78800B625C020538830B5C60F119F860634643DAD78F4EB13E6240012EFBC00DB6160017DCFF' $FileBin &= '706BB5C881C52C08DEA82F008330BB2BD5FB92800A18B2CC0893E0010470C0001250805B2B6001F268748A6DB0EE76337AD8DC35091792CD0511DC5A1F7378C0' $FileBin &= '58440D431A989A707BBE041BAAF591384C01081DA041B8C70D01D880A1D1FA900312527C0477C7402D6028B300C030EF5BDB5BD91895C364E88CDED1C900C92C' $FileBin &= 'E8682596B2572D90400C17E800B8C59D808653E7E114E8C11EE04186337421065458270B6C20F41BEC5C0065B034053EE0F15B17000C1C8070A84BDE40202C21' $FileBin &= '8F2B78AF24E0C2311F2CE1023580B9CC175E0008A400D75C5071CE6D600321A83D32FEA3808A8F20F746D79DD88C5500AEBF89EB04E821D473A833D58D2786FF' $FileBin &= 'F67C031F1C3E441FA7C2D717D4A005356840CC152EEEB2A740011F28C1047270831ED8E0085400A00102488523B0BD0737B8C176BFBBE61EE7B2A73F1D7CE912' $FileBin &= '435C861CB7107620F8372A00034A457EF264373BE64BE084CE7F3EF46524E2FF4A6F831EA03E07B40EEF6ED10AD1F38E1A6FC6A354E088BB51E61D82E5A471E6' $FileBin &= 'C11BB0010C9020F897FF808C8D8FFC22B6D4024100A1FFA84085D3AB3EFAB9DD2D25AB6FE7185A610362F3037125005D300317630846C029226510F6F40230D0' $FileBin &= '01E74773C2A77E9CD703A07755D6E4486B347A08C07CCF877F64A57FE40551130604782306158507D6C61BB5F05170B02769002F5F308063217E0450010C97FF' $FileBin &= '7E9B77039F878101854DB4147FF3677A1FC87A62E57AE4D553E453821D904E02181E57000545B0671F85337F76574430061601480C884A0E406E22800214C883' $FileBin &= 'A147583C005303254BF0377A1E787F46C860B794840E107B81134CEE310445C000455013BA1015DAF66478158319F054F1D0205F5800619879C5670365680148' $FileBin &= '805D5E850548B08625D47C6EB863648584B0575974D30148461D50A0855EE007894708113002F2550557A8439CA201800403E8A700C4D779FD130467185B5B20' $FileBin &= '4B42D886D0F78629108723B842BEF5427864106CC1296BC004A5F8597E7885A2355A1D4106E3838335A78339608165C40390E85F93B88B44A87A097684FAB7FF' $FileBin &= '4BB1777D32A0207CA1873AE07D92100170908A4F961A8F0181649788B3C888848505B8D88DF36789BD888970487D6A5582274843CE000D9C808A12A0318E7106' $FileBin &= '0F10730F408DC2A779D7588BDAE85F58404B6CF88DAB576B0AA0894D144583F7407B61439B1018BA110F4B203AE6578F28208B8B187AB6F85A92A891FD588400' $FileBin &= 'A9892448610F630535C03E20708098B00D2B301C7D6505922773D4888862B8838C58466A24841D688937807F0199846A657D97653CC84333DA9109ECB006FE12' $FileBin &= '076200796200043210913988794ED93F1FB47CDF589546F891E3A884C3B895A5833AC0727B913010F3B27B7FF33560330562330096C796C5E779A0477FCCE7FF' $FileBin &= '8F20880222B88932A03784D937E52338AAC36791A01122D63164739899B783CE379AA8A77A1DE95848188CB1273533330FCBD80828A92513F3029567762F595B' $FileBin &= '32566335166309D67A91C97F1860901D839097B0151CD33153B070607879C3A779DEA5606B7695E5558ED4363508710981E10519C04EEE0103E7B79410200229' $FileBin &= 'F09298D7588E45560189569BA89544353502900142D997DC601DBFC0105E50044530065AA82D7E627E11497365B750E37953049A5091F57A9BE85B7686371223' $FileBin &= '00EFC2006350045EE0055937046870055FF09593200179F52EFAF9A16B10A2A5C29F02F0001B80960A57014E440086094EE1195967354E728440041943FA16FF' $FileBin &= '0F33B00679B0A37990063E8A9F79C82C9230022AA0066AA00248AA0255B0A412D0A47BE22F34407E17D09203A00578F046933449E2A44B3DA5560F80070D4203' $FileBin &= '40903E96120F45A0A4AA98A46A50054630944660044CC00470202C2310051170A77A7223F1400290B7010F601E0EF10653A0A2E2064721694997E45B53B0213F' $FileBin &= '3005514A2953E20C2BC006C2020771FAA66D9A0BBB60235A220377A4210FB104E373402AE45378E0A552C43E027006780003146527D8960D9B5A21CE50015A40' $FileBin &= '5CF1F0030F280381A97093410604E04BC4A8200F5106A814239AB90E13E205F7C19D06F1024E03049F4303AC29003FF090E83305CE0A1E99F91400502320B0FF' $FileBin &= '5713A3050ED30062D001AAAA059EAA2E40800753131FDE0AAE84F80D50F02E20A017673005BC72012FC09D5F472953106657B0020CE005CB841D1A1A21A02117' $FileBin &= '0F710520A0856940AB86E1933040833FF3784039068228AECED01BF10A1AF7AA3A7958047D203F84E115320003B86A103EF0022440AC2C90A3581865AEB817EF' $FileBin &= '930DF4A13157C0022B208A12A04515C427C3C10104204C54A357F140142781877F38B3053B1775E1ADC0612A419A8CC780333A93065A1257F53A0652E61176B2' $FileBin &= '8EA9B88A7930854E71176A60067AE807EC7835A672B03192A33AD49906710529210823D08C27B0A67E00062EF1149FC1A61C86436620B1AA93017DF067731B9D' $FileBin &= '576090B0EE988A99CA97B8C00423508AAD83575F9B6473C56A59D85CCE9072EC88B799EAAD90C004415B047B85877415154F9685F7E13EA4CB0951903378D527' $FileBin &= '70415700E0647B325A1114BB9C4041160417A9E661583803F5620CBE7B4388E3B51910AB407B571B3103C99ABC90A0457FA602A8A60BC02B017720A4D48B0970' $FileBin &= 'D0A40020B938F3B3E3FBBD2709078F50B9E8DBBEEEFBBEF01BBF911008003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_361022Gif ( ) Func _Image_361027Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396132003200F60100FFFFFFE81B1B9B9B9B444444E9E9E9E4E4E4F2F2F26767675959596060606D6D6DEEEEEE7474747B7B7BF8F8F84C4C4CFBFB' $FileBin &= 'FBE0E0E0DCDCDC5353531413134B4B4B3E3D3DDD0303E10F0FDB0000DF0505E10B0BD70000D40000D00000D90000E00808373636D7D7D7E51414C80000E51515' $FileBin &= 'CE0000E61818D2D2D2B7B7B7E71E1ECFCFCFC60000332F2FC5C4C4C40000EA2121CACACAA19E9EE92D2DC00000C1C0C0BE00001A1A1AEB2424AAAAAA292727A6' $FileBin &= 'A5A5222121BFBCBC494949B90101EC2626464646BC0000AEACAC999494989898B3B3B3938989EC2929FAFAFA454545424242BBB9B94A4A4AA70808E6E6E67712' $FileBin &= '12B403034040403E3E3EE3E3E3E1E1E18C87873B3B3BC3C2C23F3F3F451313B09E9E7F7F7FF6F6F6E8E8E8D3D3D3B3B1B1970D0DA8A8A8322D2D2C2A2AA88B8B' $FileBin &= '6A6A6ADADADA585858797979262525AC8E8EBEBEBE4F4F4F363232FDFDFDC0BBBB505050C0BFBFD6D6D6311414D1D1D1B5ADAD636363161515CDCDCDF4F4F4B5' $FileBin &= 'B5B5777777C8C8C8E8232335343421FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000001002C00000000320032000007FF' $FileBin &= '800082054C3B028788898A8B8C8D8732295482826F2E625F06939A9B9C9D9E9B5D73395849822E29A59FAAABAB494C58000562A90456710FB8B9BABBBCBDBD5C' $FileBin &= '4F824939544C5F827216430B10CDCECFD0D1D2D17A4C4B298212293B990416120EE1E2E3E4E5E6E7E15403C15D320282563906F3F4F5F6F7F8F9F5295C828782' $FileBin &= '71AA2C1848B0A0C183081316F4F2C0DF3B001508489C48B1A2C58B182D567028A849818F20438A1C49B2E4C8261C013489C0B2A5CB97549E78A1E8E509959738' $FileBin &= '71A204F04FA5849F408302AD22B3479919489396815345A8D3A03B7BFA1041B5AA551167AA54D9320389D7AF6067ACB94AB6AA8F943E50A85DCB764E841A33FF' $FileBin &= '80C89D4B97EE8C3D6CF3AE3DCBF3A18F15800307462101CC0C1C88132B5E8C63C616C19001F3951AA3B2E5CA79CED84102A3B3E7CFA03FAFB94C3AC664BF2E52' $FileBin &= 'AB4EFD05CE0C15B063CB9E3DDBCF96D5B84F0BF251A3B7EF1A7DEACC3841BCB8F1E3C84FCC00F3FBB76E003E7A489FDE63459912D8B36BDFCE3D3B1A26D4A73F' $FileBin &= '0F92A2BCF9EA3346A85FCFBEBDFBF53004989F1F24651023F8F3B3D982A1BFFFFF000608E01D60E4975F7D7D0912C4100C3688C5011B4428E184145648E10C32' $FileBin &= '34D820823D0591C38720C205C288249668E28926AA100F881F72F850103BC428630D2A6860E38D38E6A8638E183420A38C2E2A28C39044B2A1C1054826A9E4FF' $FileBin &= '924C32C9009144060940108BA47041065866A9E5965C7269C622522A51C498648271C20768A6A9E69A6CAEB9C1016492A9444A4A1061E79D3BE0C0C19E7CF6E9' $FileBin &= 'E79F7E8E60C69D77CE9920004A1CA1E8A244A0D1C1A390462AE9A4928661C6A28B1ADA53081474EA2905167820EAA8A4966A6AA95A7CEA69082959A06AA77FFC' $FileBin &= '60C2ACB4D66AEBADB446F16AA716A434C50DC0060B2C1424146BECB1C8266B2C1414081BEC14BEF220EDB4D28EE1040BD866ABEDB6DCB210051E37503B2DB487' $FileBin &= '4EA1C3B9E8A2DBC20F2FB4EBEEBBF0C2FB031D37A49B2EB93D65D1C2BEFCF63BC60F34042CF0C0040B6C83163C90D16FBF59A494450810472C7108634461C3FF' $FileBin &= 'C51867ACB10D5168A1460B134BDCF0A1525860F2C9289BDC821342B4ECF2CB2F3BA1051921A49CB214294931C0CE3CF7CC73165038F1C3D04417ED04142DB8A1' $FileBin &= 'B3CF3EE37CE81215442DF5D4542F41061461381145144E8401851A6E8420451354975DC112292D31C1DA6CB7EDF6DA0F2861C11557847085050354F0F6DE6BA3' $FileBin &= 'FD340280072EF8E084176E38E17EF73440028C37EEF8E390472E39E403A4D4C6019867AEF9E69C77EE39E7CF59A1C0E8A4976EFAE9A8A76E3A03FDF0C40D0004' $FileBin &= '5C910603B4D76EFBEDB8E7AE3BED0D2CC18E0CC62073051F693460FCF1C827AFFCF2CC2B810D00DA14B0032D56B4A104D3D867AFFDCE4A34018C30395401C027' $FileBin &= '29A9B062FEF900B8020B009588714626E8C7CF4917128C527E2C4CB8E3C8FEFC33028924820804003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_361027Gif ( ) Func _Image_361038Gif ( $sName, $sOutputDir, $iOverWrite=0 ) Local $FileBin, $hFile, $iFiledelete, $sFilePath $FileBin = '0x47494638396164001E00F60000FA344DFEFEFE9B9B9BCB1A2AC21825FD95A7B91521AF1019FDA3B5FDB3C2A70D15FEBFCCFC8598FECBD79E0A0FB3B3B39306' $FileBin &= '0AFED4DFFDFDFD8B1C1D9F3739FDA4BBD21F30FC7287F22942020001E7253BF82C45FA344DFB6077E02337FA4D65891A2274111A961A24B7B7B7060101F3425A' $FileBin &= '7C121C9F3238A8A8A8FA4A63B2B2B28C1922AF9696A2A2A2A7A4A4F8F8F8571B2235070CAB4A50C9C9C99F9F9F1C070A9B3D41F9546C8C1A1BF95E75BDBDBDD6' $FileBin &= 'D6D6EBE8E8BCBCBC9B3A3EA4A3A3FC7086E3E2E2690F18AA19238E0C11B34D54D7D7D7F5F4F4BFBFBF48151B982F35D53F50E0DFDFC6404EF7667CE6E4E4ACAC' $FileBin &= 'ACF6F6F6A1494F090203ABABABF7F7F7C2C2C2B41622D3D3D3CBAFB22E0B10570C14F3F2F28B2C33EFEDED860F186F2128C4C4C4BB4751CCCCCC9C4449E84156' $FileBin &= 'FD9CADF7768AD2D2D2DCDBDBDDB4BAFA5F767E262DC1ABAD97171A601D24DA2033F8445DFDB8C5CFCFCFA54B50FA6E83FA5069E5243AB1A6A7AF484F140305A8' $FileBin &= '9E9EFEC4D0AD9A9AF95A7190090D21FE1A22437265617465642077697468204368696D706C792E636F6D220021F90409000000002C0000000064001E000007FF' $FileBin &= '8001828384473B3D2834028B8C8D8E8F90919293948D34283D6847849C9D834F2328564C5E2F12A7A8A9AAABACADAEAFB0A92F5C463A3F0F699E9E5556543B2F' $FileBin &= '2F3C2C45362714C7C8C9CACBCCCDCECFD0C7452C3CC0582E239BBA824F3F63512F593236450C0815E8E9EAEBECEDEEEFF0F1E90C39363259475C612D41DB412E' $FileBin &= '4C8ECC3891A7009F0808132A5CC8B0A1C38710233E4C2046899A234C5A18F114E447102E2C449C59D0A0A4C9932853AA5CC9B2A5CB970DCC9C38E325480B269C' $FileBin &= 'AAA030C243C609067216081D4AB4A8D1A348932A5DCA74A81C1F3678A4F91185500F2B5E643439532081D7AF60C38A1D4BB6ACD9B368C3166842868795119FFF' $FileBin &= '503C29320408103308F2EADDCBB7AFDFBF80030B1ECCD70C90214578001434624C18377E9C382940B9B2E5CB98336BDECCB9B3E7CC4ED6105133E7418028FC94' $FileBin &= '2CC9C1FA0283D7B063CB7E9DA176062D4E66EBDECDBBB76FDE40582F51D231CA8E115944D8B9C1FC469D0BD0A34B9F7E21838DEB306A38A10E1D4677EEE0A327' $FileBin &= '910E04C6141840C28707D2FC86882C23B0E89851A4498AFBF73FE4E8C0BFBFFFFF1974D1DF143EFCD75F06327480A0810CF227061B1990D11F1B60C890040C6B' $FileBin &= '34D8600E1FE097421332CC8008163E7050C289289610470A1FB4E8E28B2E06D8E2093074F141062DA680A36DB69561DE146F94D1621214D4A0C7092D820183FF' $FileBin &= '8C2D6A71821865D4D0048C54BA98421C299EC88112D7D0B003111C8429E698649619268F359C700207198070A69B6D82D0A6166F9C008216499C99C412609060' $FileBin &= '419827B429660622844942A166266A26113B286204041B442AE9A494561A699C20845003061BB47929089D82DA2609435CB10106A4766A82059DAE20A9A79192' $FileBin &= '00EA06B25A6AABAD101821000D6810A10106C0062BECB0C462D066B0871A0B02061E1CEB2C08249880ECB21998F0EBB1C0628B410D21305BC3B2C5864BAC0644' $FileBin &= 'A071C90C142CA1C1BAECB6EBEEBB1A54BBAE0831584B82101A0821EFBE266C118307776CB185B5F2C66BEDBA05E7FBAF10428000EFC3F00E37830B48E8308EFF' $FileBin &= '071867ACF1C61C376B5B0D22ACE0C10A244CB1420C21781043062A6760410C2490B0850822341B021C36679C41CA18C3B1720C220CD1F1D01DFB40870E3AA4A1' $FileBin &= '421B1358E0F4D350472DB5D321541D820904383D44D557ACE0F40A215800B60522542DC2D36153FD3409693F0DB6D753C73DF50A6D3CF04B0B33F870C2007CF7' $FileBin &= 'EDF7DF80072EF8E084FB2D44E188077E820F33B450450056F4F0C017571060F9E59867AEF9E69C77EEF9E7A07B6E000E0F8CA083205CB480040B385C61C0EBB0' $FileBin &= 'C72EFBECB4D76EFBEDB8E75EFB1538B080440B5E0C320615AB4FA0C001C827AFFCF2CC37EFFCF3D0472F7DF3BD2341C50C9C8CA0820E7D4C208202E0872FFED0' $FileBin &= 'F8E4976FFEF9E8A7AFBEF8224CC0820E503C2001272F3C00450F234881831B0EF4EFFFFF000CA0000748C0021AF08044C0811454D0032A40E1719D9000125CA0' $FileBin &= '8211E0410A5FC0C11F20C0C10E7AF083200CA1084748C2128610075F20C31EB4870D08EAC2082D40410547C00229F8600238CCA10E77C8C31EFAF087400C620E' $FileBin &= '57400129B0A0742A40410B7630BF6D08E205D770010AA0A002153CE08A58CCA216B7C8C52E7AF18B60CC6215A1800214B860065571622778300715FC40119588' $FileBin &= 'A31CE738471AFC800A617842133D1108003B' If Not FileExists ( $sOutputDir ) Then DirCreate ( $sOutputDir ) If StringRight ( $sOutputDir, 1 ) <> '\' Then $sOutputDir = $sOutputDir & '\' $sFilePath = $sOutputDir & $sName If FileExists ( $sFilePath ) And $iOverWrite = 1 Then $iFiledelete = Filedelete ( $sFilePath ) If Not $iFiledelete Then MsgBox ( 0, 'Error', 'Unable to overwrite the file.', 5 ) Return SetError ( 1, 0, 0 ) EndIf EndIf $hFile = FileOpen ( $sFilePath, 17 ) If $hFile = -1 Then MsgBox ( 0, 'Error', 'Unable to re-create the file.', 5 ) Return SetError ( 2, 0, 0 ) EndIf FileWrite ( $hFile, $FileBin ) FileClose ( $hFile ) EndFunc ;==> _Image_361038Gif ( )