Как включить в скрипт картинку, отображаемую в GUI ?

[C2H5OH]

Не уверен что на 100% правильный раздел для этого вопроса, просто проблема вырисовалась при работе с GUI, хотя по сути вопрос совсем не GUIшный.

После неудачных попыток нарисовать в GUI большую карту с помощью label http://autoit-script.ru/index.php/topic,11413.0.html
я решил выводить в GUI картинку-карту, а по картинке уже перемещать метку-маркер.
Вобщем-то получилось неплохо, но мне не нравится что карта хранится в виде файла на диске. Я хочу чтобы карта шла уже в самом скрипте.
Вот типа FileInstall, но только до половины - прикомпилировать картинку к скрипту, а потом не извлекать её на диск, а сразу работать с ней при создании GUI.
Я, конечно, могу разобрать картинку на пиксели, сохранить это всё в двумерный массив, а потом включить этот массив в скрипт и работать с ним. Но не красиво как-то...
Можно как-то приатачить картинку к скрипту цивилизованным способом?

 

[Fever]

http://autoit-script.ru/index.php/topic,2849.0.html#post_13

 

[C2H5OH]

Я дико извиняюсь, только у меня оно не работает...

Вот так работает

GUICreate("MyProg", 640, 780)
$Pic = GUICtrlCreatePic("grom.bmp", 0, 0, 566, 735)
GUISetState()

Do
Until GUIGetMsg() = -3

А вот так не работает...

#Region
#AutoIt3Wrapper_Res_File_Add=grom.bmp, 2, 200
#EndRegion

#Include <Icons.au3>
#Include <WinAPIEx.au3>

$gui = GUICreate("MyProg", 640, 780)
$Pic = GUICtrlCreatePic("", 0, 0, 566, 735)
$hInstance = _WinAPI_GetModuleHandle(0)
$hBitmap = _WinAPI_LoadBitmap($hInstance, 200)
_SetHImage($Pic, $hBitmap)
_WinAPI_DeleteObject($hBitmap)
GUISetState()

Do
Until GUIGetMsg() = -3

Что настораживает, так это то что скрипт запускатеся даже с

;#Include <WinAPIEx.au3>

К тому же!
В скачаном вот отсюда http://autoit-script.ru/index.php/topic,47.0.html
_WinAPIEx.au3 Версия: 3.8 Для AutoIt 3.3.6.1: ZIP (архив)
Получил в лоб

Обнаружен вирус.

    Имя вируса:  "W32/Suspicious_Gen4.ARMPN"
      Имя файла:  "WinAPIEx_3.8_3361.zip->MyProg.exe"
   Состояние:  "Удален"

Ну, я, мягко говоря, в замешательстве.
:-\

 

[WSWR]

C2H5OH
У меня работает, Autoit 3.3.6.1 + WinAPIEx.au3 для него же

 

[snoitaleR]

C2H5OH
У меня 3.3.9.5 - не отображается картинка... Пример и картинку брал из FAQ по внедрению ресурсов в Autoit... Есть предположение, что версия влияет на возникновение этой ошибки... Попробую использовать 3.3.6.1...


Добавлено:

Сообщение автоматически объединено: 2 Ноя 2012

C2H5OH
Нашёл версию 3.3.8.1 - картинка не отображается... Открыл EXE-файл с помощью RESHACKER, оказалось, там нет ресурса с картинкой... Получается, что AUTOIT3WRAPPER её туда не добавил почему-то...


Добавлено:

Сообщение автоматически объединено: 2 Ноя 2012

C2H5OH
У меня получилось... Установил версию 3.3.8.1, взял AUTOIT3WRAPPER версии 2.0.2.2 - картинка отображается...

 

[C2H5OH]

snoitaleR
спасибо за проведённую исследовательскую работу и найденное решение.
Однако, к сожалению, для меня на данном этапе неприемлем вариант смены версии AutoIt.
Проще отказаться от идеи использования ресурсов скрипта.
:(

 

[Dellroc]

Получение бинарного кода картинки.

$VarName = StringStripWS(InputBox("MemoryDllGen", "Select a name of variable:", "DllBinary"), 3)
If $VarName = "" Then Exit

$DllName = FileOpenDialog("Open dll file", @ScriptDir, "All files (*.*)")
If $DllName = "" Then Exit

$Handle = FileOpen($DllName, 16)
$DllBinary = FileRead($Handle)
FileClose($Handle)

$LineLen = 2050
$DllString = String($DllBinary)

$Script = "Dim $" & $VarName & " = '" & StringLeft($DllString, $LineLen) & "'" & @CRLF
$DllString = StringTrimLeft($DllString, $LineLen)

While StringLen($DllString) > $LineLen
    $Script &= "    $" & $VarName & " &= '" & StringLeft($DllString, $LineLen) & "'" & @CRLF
    $DllString = StringTrimLeft($DllString, $LineLen)
WEnd

If StringLen($DllString) <> 0 Then $Script &= "    $" & $VarName & " &= '" & $DllString & "'" & @CRLF
ClipPut($Script)


MsgBox(64, 'MemoryDll Generator', 'The result is in the clipboard, you can paste it to your script.')
Exit

Пример

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $DllBinary = '0x47494638396194004500879800203C1022431620541C2C642C2478203474304C7834577130347850FF4648FF5054E0684CFF646CFF687CFB74772C942C3488342CA42C2CAC3034AC3830B8344C803C58803844953C6084386A963C75933C3C9450458C4A4093404B9B4C5998434693504BA34850A04050A04C58A44C50AA4C44BC445CB04B40A0544CA45440A85C53A6545CB45054B8545CB05C6CA44464A44C6CA44C78A4406BB64C78B04C66AC5A60B45060BC506CB45860B85C6CB85C76BA524CAC644AB46C58BC6C68BA6478BC6054C85460C0546CCC5460C15C6CC25C7CC85070C05870C85C7CCA5C79D15B4CC06C4CC2785CC77050D07C5BD07B69C26370C46070CC607CCC6070C46C7CC06C6CD06C7CD06071D16C7CD16C64C87478C87467D07670E474848C44A4885484A04088A84480A84892A84488B14C90B44C9CB44C9CB84C8CB854A4BC4CA4B854BC846880BC68E08C70C0B47484C45080C45C8CC45C80CC5C8CCC5C97C45488D15C90D05090D05C9BD15CAAC851B8CC58A0D45CACD25CB0D45CBCD45CB8D85C80C46080CC608CC86080C86C90CC6088D06482D46C8CD46C88DB6880C87880D8708CD87484D0788CD47C84D87C90D87688E8608BE47C9CE478A4EC6CB7F86ABCFF7CC0D45CC4F47C0000FFFF78884CC8804CD08C58D8845CE48070F08CFF808CE49C8CFF949CECB0A88CDC888CE4849CE0849CE88298E48C98EC889CEC9093F395A0EC8CA3F68CACEC90ACF99AB8FF99A4F8ACB0F0A0B0FFA0BCFFACB0F8B0C8C880C0D894D0F094C0FFACD0FFA8D8F0B4E0F8A0FFFFC4F4FFDC00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000021FF0B4E45545343415045322E30030100000021F904090700BF002C050007008E003E000708FC007F091C48B0A0C18308132A34B862858A253D224A94D8A245C3141D522CDCC8B1A3C78F20430A54E1B0C78A1E3E7C2C51A142C292943E7AA0E8806285C5141E3C74E820B2A7CF9F400DB23CE943D393A33D547400D16105CC942B20488510A262C310331F04DDCAB5EB40923D96183D7A74090AA61D20387DEA83480B0805E2424061B1E18A103B797ADDCB776344264CC892F5A102ADD40E3F12B725C298480A0490211708D1B084E51533F5F6DDDCF7AF60C132D34A2D008148E2C68D73B4881CB94007169663DF458182'
    $DllBinary &= 'B3EDAD7FC77E7E9214C5D4B821500BCF419C3502D12C60CBC6AAF3B6F3906103EF3E0AA57AE21FC2B333269E63C58DEFFB362AB648CEE2C4F210CD9FAB5788A28726DD9FAD9FD6AEFDBBFDFB37C2574C6E3E7609F410AC27604112F4C0C97BBB41711D76D54151C4831042C8D80D33E067617EFBF1E71F7A690D28A00A4C6CC204826429D643090D46A8628433B4E8E28B15DE774208346A68198D3A05E8A1733D8C0898744F2C28C103443E70C19148B6A8228C2F3E886401451619828DFFE5D4E18E9CADF0236047F9701D142144292691641861E699681AB1E298629640257A33E988E55E2AF4F8E3134F5567039B519E90E69F6AAA58029F4442405E7FE8E9A4D99C5D69D96344305DA743040F4460E9A598A609C7A69B2691841C494C71C5A857486129A10FE4604379FB372AAA15A35C8138514A3924A6C30E12E4AAEBAEB99A40071D73C821ECB0C40662C8B1C89A80E9B24486A0EA092454E92AAC3EA5928A2BA94C14D10A35E0E0ED0E33E84AC1B8E4924BC41CE8A64BACB0810482C8BBF00EC1EBB29612C76AA279C1C00A2BA850BB512400AB62AD2A5B4894825DDDCE4003192694EB30B945DC91EEC475D421C8C58620F2C8C6A6744C6EAEF44610021439405B424E17E4650A2AA6000CB0BF04B5EC7224A6D4E2862375F690424D2BC010C30B0BCF40AE0944176DF41D48DF51F1D2160BB274C71DA32275C30F2F4B440E359C7097A23B8500C6BB3207EC09A35D94DD05C0B5B4A136189D3051270A298020F7073FFB93C1300546E74D341178248DF4D2172F7D08D4FBAAA24A177A537DA909245F65655E8C41E2C6E42D7B62B9E51F9A5D7624AAECEBCA2BAA74D2890AB46134F7071F88A1BAD1440CE1FAEB43B48E47DF7EDFE1F4D2C79AB2EFEEAE90925DD114586A42623590B0C2E33BB5C018180934DFFC02875C3EF66D2AF8607624A8D462B3DA0E38207A27342D25B7051664A081EA639CF1AB1DF0B60FC91075CC4E3BD284D46F3FC7BAB3F2F92BB2686E4AD9A47084001D3108E2198F6BC96B0C22263189C9B561016D08832A2CE783CD90C46C8870400336B84107A8AD16DF5B82DC20433EF269400361188319CE90863CF0C10F30F4C31F60F8883DE4210FFBB38B431CD075314110E2108F4044C73CC73F59A84216B398052C64E10A6CA5428005FC41F18E97979D1061315E58C0E418C8C54944C2725DD84957C0F284B2B5A1016A73432DF6F78A366EE17B3D20A1010C60420D80210C2B4C430B6318433EF8F186672883DDECB6293600E2104094C4103F270B24265189B068A2C01CC18828AEE080556C419750B000E73D0F826A64C517C328C69FB0242C65EC021BDBD846EDA9AD010E28C01344D78514CC718E26F4021854C8C216DEF09737A4C3190239481AD06007C83424221FA148535CCB158D84853497E80A8105B092'
    $DllBinary &= '3FC0815D14A5BC277081084BA1042526B7804E7AB27961E8420B52B62890E4FC6C446553052B6B018A366890831B14C5070480802574C2722B00012E4FA84B3CF6528F08FD552005A93A63B6E8983B00C220060144663AF3998D6C623553A10A4A6E810A526C0808564084B23D019C05B0801BC4C9524A4CC266E574DE2188E00176B6932329888E513821897AE2139FA200852E1EC9060118B5034BB8DC1670603E0DE8120C6658E130CF10553394610C58559D185EC0D517B408073A00021B26CA888D2972608613582A46E15190D6C04BA9EC02143C10970278C179E55C694BB9B83D9AD6949D1F39096076CA0937FCD401A2A8C5501FF9C8B479C1A80208806B7C203D47B0810D64B82356379BD530A8AEAB31086D0C60008319FBE0E00762256B591F310A49486214B0A5A4003557368B74A0AE0578412D627ACE042C0014B5D8EB24A475A4526E24A7837D0227965B58C42A96B18FD4052844D1BDEE7DC20B16088076B52B80393E610B5B98665A0F71D9CB9EF08419486F063E40DAD0C2C05B89B92C234691D6B44AD27089090108701B970F10A2A594489B397BFBDB5A4CC23C384259CA8E6BA7B13077B99E806E12A56BCFEA7EE2C29F106A2E6AC1860F681700200E3100220302F06E8111D34CB18A57BC62136FA135908D714AB3A8000780E2129700B0384131604F2E6043092EAE4252805C1229F7C19C50852B66414FEB6218C341CD8594A72CE55A7801BB1610B196B72CFB6201C8EDCB05D8EE76634CE618A38E0D87B8670314C06636B7A11639D6F138CDB9800FF8E74641BEE94088AC53F82079B96C70C093316C635D5099CAD27D7228167D6530A00E755C0EB198272DE61897D0025E70C32576C1E94EEF0214F76C739B7F1B67005FA20E313881AAEFFC9F041B97207043EE88A62318B3B1C10D6DB870620F8D68500C7AD18B06052F864DEC623BE0CAC846F6E496CDEC5D003B1484EE9EA7A77D8933AE59D46D7EB3382F31892490A73CAB66358E005B10B849844B9FE10217687D14FABA82D752F6F5AF812DEC62DB1B14CFCEB7BDED5D0B6047BB7BB59876A7717C466CB3B99C7028820DF4F36D55873B36AE7E75E9FB24B284E9A8FBE2EA66B723946CE8E90EFA13CFDEC5BE8BDDEF7C3F7BE4C57EF6BF1D107081EF02C79770C0C117E085188167E10CE78FC3EF8C1E9B1224237C86940FD88DF1A25F1C0B48C742176EAD36515C38E42827B6C9F51D755E387BD12BB7B1CB3BF6084344214213BA0FCEC3D3F08757C9A67A0141AC0F26742FFDA0415488BBDCE5CE85A4DBFDEE761FC4B275C1775DA01CDF5307B6C851CE697F5FB8BA1E6C83A637F6881539BE0861B70FCEC7A3F30D212FED3B835B435012A9C4CCFDF371C7BBE8F19E85D29BBEF4CD34C52198CDFAC98962177D8FBDEC15BF6C3648E1F6528882EE75FFF8DE43'
    $DllBinary &= 'FE6A925FF8A1FA23AD2AF2040444A6FC8D5D1A9283CE83FEF35838BDF44B4FAAEA4FE1FAD8CFBEF6AF7F85ED6F1FF7E00FBFF871BFFBF2FB5E4557234E7E56056E885FFEF83B21F2F2B955835A354841CF8FBBF7F7CFFFFEFB7FFFE3178002487EE5C77B2B927EAAD27EAD8240E223373B213797447F60A50389511D407081183805EDB2811CD8811E1808D9E729223882244882FFE77DD597822A382AAE337EE5571D10C21DAB6232C455455F7683104802A4F55E13884C3B504880108480F0811FB82E46282C2598844AB87F2B9882D3F7844F880554707BBA9722DC511EC6932835554508F06524F66574F3330FF5839C02073AA4431343316998864778844A5882DBD78490607AC85287FC76882C8A90877AD805D2177755E820C4913559682568C71A97463E20803A3F03340B43489B72863A243F7D333FB5B3346B182C6D482C4BC87DD5D781775887ED138A883040A4E808EF9287A6E787D5A10358032D5BB38555F40B08708897F601EBC555623048645006650007928807C0B407C2B807BF283FB5A3346B98894648841B7887A2388A02843FA6400AD4588DD4588A02A40859300871671D5813815484767AD101E4734B25648BE6F3025AB58B65304CC0F84B7E148FF2E847C3288CBF788C978889EBC28C76288A8CD731D40835523390043990D6588ADB08520AF28D07A4136837101D704BE6483EB6784262E05963C08BEA7343F3D891FC1E198FC3788F95C83480D3434C7308C8E28F8F0035512335BBC30AF5159386632D52538D0394906F175224D0901DE07304219113493E4DA559E9A33E74E042F228437FB0944CF9075D34091D698F92788C4AD343B7533128792C2AC9922CB33B9DE3391A1596623993A9800A364949DC98180CD9100E198B050194B85442E7B54BBCF42B2D148F30C4949660094DD9940C348FF52892F4633F84503184C078A168512C993F2FC9468DF498909951F7652DD318406809525254037601026DF96A05514241399729A44279E44B2F94977B999A7BD9977F099852698C8349983F8498F0E25A8BC998FBC24A8DC44A12B64492B951A9308D02C4085B1045FC3AC9963BB1600B7169716901A2895552A5471C1943AAA99A7DE991C2784353199B84595141F42EAE957A43C43B6DB49BAF20618CE59B93990AA4C05697493C9A693C9CB9147A8610A04947CE4950779442D1299D79C0477E909A7DB9941D094C92088971209B3FB44CDFC94CB64938E459446D849E49A49ED5A456ED399CC5991838109FC8599FCB690171795E4FC59FFDE94B000AA01F69A0F283A06868958280480CAA31E1C992BCB33F8F799ED0E59B4C74A1D692A11E959699B99920EA1123EA54254A9A538550BEC4911FF947BFF42B74C08BBC58866518075629A30C6A560FDA31A900964514998F19966A358D6CC508682AA435E0A17B'
    $DllBinary &= '4147FCE7E5546010A7263A5507C5A4762AA50A354C54CA8BBA3848560A0797158414A5A58CE7A02C692DFA239663A9563F3A0A8F4049C429A41DDA10B6F1A68DB69FA4295574BAA99CBA507CDAA77DEA83A2BA03E535561345A88C57A35E6A2DACDAAAAEDA9E678AA6C589991D2A20245AA2265A55BABAAB54CA5959A55562604CC22AAC0F05513E8881A975AA8780A68E50A8E1F9A0ACFAACB0F5A8689AA6C6092BC816A798EAABDCCAADC0FAAD5D15AE5C0523DEA203618581973551A75AADCD5AA8B0F5AEEFFAA8906AAD54003306A1ADFB1906FADAAD63A055FA0AAEE2FA02A235B03B585ADE0256897181E5A5AE8350AD0E5B8A0EEBB0F6EA11F85AB148F80AB05C855EEAA55E03DBB13B78B0A795B0A56AAAEA1AB1263BB15CF1A62A7B5E1BAB5E8FF6B28F56B0A2C583207B1D23CBB028EB212DBB5E30DBB33ECB5E3B385A207BB0F61A100021F904090700BF002C050007008F003E000708FC007F091C48B0A0C18308132A34C883078A253D224A94D8A2218F1417542CDCC8B1A3C78F20430E44E1B0618F25105180008112658F952078B45091C203880B1744EADCC9B3E741152A789C644294C94B04100AF068C2B4898F1404A21600D1A2C58A153571FADCCAB52B4192439D387942F668D2022A9A36A96AB5C080B7053A5C9D9BA203849C5EF3EAE51891A8D8B16497A04050A040D40B4CD9B2BDA1028163C70552CCBD5AF70288BD9833FFEAFB1770590E86A30E20A0B8EA8DD3A71F3F160081C564CA292E6B9EDDB32F93BF6473BFBC40E0ED00011D881011222487F1E3A955176EED7A728A9A1E684B0719566C6EB26A990A174E9CF871E3FBA86FD4B83123FC0D16E85FA7081122FAF4F70941F4F0EB197BF6EDC3BB7B076F3EFC8CF2A7A1C7C209739550027B10C0A7E0573D70E2D775D935211C14455458A17E39F4A7E169FF05382081061E18C205092EF81E0A4C384814844EF5B00214145A28A38542F8F7DF8DFF1117DE091CF488DE09218ED01E89264A375F514CE4D61415BC09E0E4598515B0C39454CE40E59438CE50C4594E76E9E4053F86C89E075A1599190F4826F9C4925034E9A59705BC71E59549D439631104BCF9A608611AC8DE4D789999170A47AEE8C3A13EC048425451E929C0076F44FA861194D669291298629AC4058E7A79429F427A40A6A07AA1395F4488FEF00310FB3330EA2A010FC4FAC00E92BE01C7ADB7D62947125328E1AB1278BEFA660139CC30A09FED751028A93EA138D1A139A8AA031013C41AC1B5D8623B41A473C8E1EDB7E01662C8B8E48620EBB9B1461542B1279020A2071D28CBEC4E1F7CB0420D1345E4820B35F4CB6AB600633BC31C04170CAE1C75145207220C375C04BA103F60DC802B841A6F07151C708001F36EC4C14A1ED48B954440F1DBEF0C349031410413B4ECF2CB13EC7047C134'
    $DllBinary &= 'D7917021851CF248243CF70C70C421409143BB079279B1051B1B1065051D0B84134E1D7CFC81175EB8A0424440DD4B420C31A43C03CC60B77CC7D877D86CF6CD664B62CADA6BA712C2CBD99E6B9C0B04FB8E20EAC51378B1C61A07145681631C90FAF4D32464610A2BA438D1C3D52A8050EF0724BC1003192ABBAC186AA6E141F6D866E36CF6216BAFC2CAE8AC1431015B2E5F2B6BD039D450F1DD1703E5851B6EE441060908F4B8928210DCF5B4175FB8D1C6F064888502502B3DFE410C628851B9694214F12BB042248187E69BDFA1F0E7A08FEE8AF791987603EA2B47F0C00454FCE002092B241BEF0592A9A08319B4FF41491D2EC024DB6C0E910881055E60800017303C3770E280FAE3C0073890010D68A0796530031DDE40873A3CA26188F05511EA703DEC8D8D101DBCDE210E218955B8E284AF78852C3881851646820B5C78A12322E1082CA4AF06FBEC839DB22473953524E0873F64C002BCF0019864262820E8DD0A82578B5A9CF089AD4811275ED2A3DC5920030D944118C8608633E4210F7CD0831FC648C610D2E18C7420581C704688113EA284AC40A12C64C10A59CC6216B490C50959910A1ADAF007385C810E33C29647508212B45BC00218F04322AE445E5D395E0F50D0BB1F3CD115ADA8052840D1860634E00307E4840A3880800A58E09458D40018B8E8C52FEAE195B0E4832CD14807CA518E0D700004200E61883796B015AE50A11DEF88475A9C3015A7188523B270C31CC26B876C01C102CCA007FB1DF29AB4CBC12321C91349A2247784D024273D49CE06B401143528408338B1041014FC4063A8D48017C030862EA6E18BF8CC271ACB604B1AD060074000822E79F9C65388EE8473A48542F3E88A54A482149148441500E93A41C24B326C81C0018018C405D0EE9A94B801078CB6AC9008E5483D400003CAE9C973D6C216739CE30706A0CE033261051C806703E759CF33DC339F7938A319CAC04F3288C19FFFA1414081308841F432129230681C5D31C7273A9414CACC82AAF8B5820F60B42A18290C252CA107457214888A74C3074475010E70F3231159825F38F1819682E2A5319D630A35D9062FFC46006839A0E24890CA797EC10C5D3C8362113B547E86A17962E01AD7FE53836955A1A98D78C4234E61D05538F4B3C9CC6AFAF6550399FB80D50351B20048AF59D6059C35016BB8407B4470817881E46A45110B27C2995759A4F015B618673919E0852E05A0000850C112C422A11ACC400C5F18C3186C1986EA364F0632788176B72B39CA06F4B2834844661F310ACE8EE2BC8D6804337D509AD840A9005E706D0216000A49ACF6906435EB0284C41EDADAB623B8A54F2849F15BE06E92A5E4BC6B0A13F1010304E0C10F36800150F010251DEA07378A4176B9AB5D1878587231F01710AA40E21666010B56688A62284C22B7'
    $DllBinary &= '44A9001F1003235FABC85ADCF79A1F28017F675B5B8E102AB74E08E501B9A0490427B816052EF01ABC70800703E0C95006004DA7B2120A5F274D486A8996B51CFB1B10A0E0C5BE09F30032B0033C80F412A0902F8D4161CDFB01C94023D8B108FE9B10B0E4962C4266E1173A494E9726F9B7C1E5B32719B0E48D45F9D08886F283A7FC620807A0534E0AB3C6F4E6DA0558E2C6634DF36B7F38CD1B842848727E6B412479A4FAE4F9806C5803286CF1674083C2C80C3867816BC10636684C638956B4A377FDE037F588032F8883B02D31631A5F1AD3B550F30FD7F08213BCF9D3701E538F110294A1A8E93AA71E32295AF167E1229801AB6E35701729C07213DA0BB56683B0D71D07BDED6D0D0A8877BC2D51897ADBDBDECA3EABA5317DC82FACE1030272B6B3A11DED10CCB9030749C1D586729D863F21DB9CE00229FB52D10A6F23B80DAC16B72DC86DEE7223F9B7970879C86B21EF92C79B0197B8F7BD29518B4D039101C706691D6A24A0800B9CE0223A784941A070892CC1E140270B0C870E432CB0C1DF080685B853B8F18E773CC9221FB9C94DBE0095AFFC12F93EEB1A1E51072464094035FFD0C03F2DA483239C20CFA936AA9A1074A117BD85708F3BDC19DB0A6E6B9CE34E0737D4A37E89A99B1C1456AFF7354181D6257B01401AC291876CFE6C1DBB8F9B2B51B8DA0F15A126C8FDF29887BB1536BF798645826DB5C87BC72F5160BE87DCEF26A7F7CA25210944D88C0D33D24F77127FA3F3D89CECECB9D8D97F1179C95F0D513E5812E7879FF9CB4BE1F8C897FC4214961F851901E10BD0F7F7DEBEC0FAEA5BBFFAD27FF7BBA9E60532D8EC4EE00FBF8CBA93210E75E8F6C8321A9D61F29C1594CC0539401415E63FFFE2C73DF9F867FEF2338504F1FBFFFF00188002581C19722301272643A27BBFF031FA632FFD5203FB122D3F00054B457F5890055930051AB8811CB881CC672949C07F98228024287E22788299A27FFAF77FC7F11F3FE22EEF525B17B380FA933C2440020FD82FD3B2544BA57F1AA84B401884510082444884015582FF8782FC877F4CD884C8A78245102345408039F082E9A77B08F76B0CE8389073835BA3833C882BB91484417830E0228670508496C2834020804AA82949707C1D383DD3637FFCF7F784514821C73120EC132AEAF73E5AD823CAF301302059280350B5762BEC160734D3888ED82DDE8286B8A28694782995388774A80497472E9CD889F6170530A20373D32E15938017831381A88519502FDAC53CFE644BC2464BB4E441D933368F088992982B95B88B1A98894AD0899D8841C288083D43430D332E72470530328A7D688AEF2310B9D32315604A0C944A92D33CB64406B2784621743D7BF08DDD488BB6E88872908B937889BDA2049E5307C06808C3588CF0188FF0E8088E600826367F50F0033940377DC8'
    $DllBinary &= '56BA1728D31890A884450DC43C90450644258B78204B0CD990B2F48D10B907DDB83969448E66082E8080331A6933E33242FCC3488CF0C836A6F05924499210358F35D442CAA83E81F43A7FB87BBF1090D3784A57944A1A200307999068C4907DD0933EF9937DE09011299121943D36D38836A3911B693323740818A459C5A8366C930AA453955659959F450A274943F66843F9C82FEC63511EE05633481015102507409304E940320006621006442541740046B2D49364E4077F90977AF9073E29941059944699944BC9941EA95986C933ACC736A2433ADF335597F4987B343A577592F47881E9B38F8164373A049303F162F054930D749360B0451174067349977C70977E6009ACB9977BD9970FF9971D943D84509BD7C33D6E7498D5A7988CE93DC1244CBD95574F443A0F4599FCCB347F2C5951A2023B0B5118B73690A10906A3C9455D844FB2244663C49ADAD99AAE099BB14994B37907B5699B1DD4943A6398D6173ABEE93D29145329444CC49447551599C519098D5043CCB4552DB99C6EC511CEA9536BA94AF4C44AADE44AAFB49ADBA99D7949463FC990E038911F349E208407E66998BE9498AB203AC01447BFA557AF009F202A9F7B94953CE30889909FC979156B651381E311CF099A3B259DD3955840054BD9C99AAAE9070DCA90DDB88D7420A1B5699EBDA459E999A1AC004C28049C1F0AA2F11953C7E459584543273A51FAE93A2BBA3F20F1990419A3038A588A055479004BD8C9A0DEC90778E0A3B2286C73C06E39D394FCE342A4BB69A448FA9BEE19A2F2A9474FFA50A3609F53AA2AC9C93E6BE5135A1A9AF3444FF594583E05A6A8E9900C89A6B4B488901A0742FAA650557D19AAA14F049CC189A798940A9E750A51DA087DAA2A10D82F2BA01703E940852A5D8CA5588AF5538AFA458E4A4BB5222992188483E0A66FBA33ACC75997BA0A7507992754770E95A1C8145AE935AA806432B36193856AA8878AA8AE3AAD8BC55888455444958DDA4A3957C28640D854B9CA4B43BA3350C5599DF5ABE8FAA9E67A5EF669A224E6A710A820AAFAACD235A3D67AAF8C85ADD99A8D907554FEF4AF34902500C5860205AEE19A5EE345AEE6BAB00C7B5EE895AC1245A5F3C27DD209ADA2D3B5ADD9585D1ADBAF1C2B591E6B8837A2833BF85D063B42E2955E164A5E0EEBB09A85B089F0B2EFDA340651B1D2A9B1367BB31C8B5D3ACB5D92C561AD385933F080233B62E005AE2F7BB2089BB42E7BB41225B31D41B3504BB33A8B5D3E5BB555EBB141FB803C48622466B0E1C5B460EBB45D31B53BBB5D0E74B6683B881EB6B66CEBB139286244CBB55CDB5462BB2068AB015B9AB758A4B66CEB855CF3B6621B100021F904090700BF002C050007008F003E000708FC007F091C48B0A0C18308132A34C883878A253D224A94D8B0618A0E29166ADCC8B1'
    $DllBinary &= 'A3C78F2007AA70D883470F264C96A8501162894B882836A0A898C283870E1B42EADCC9B3E7C1952697A044D943C5060E10783459BA944781A7104254E411024587073EB36ADD4A70640FA14EC22E5D92022984A44C991271FAF4E9CC862B5684E800A103D7BB78394664A2C909A7BF9C9E3451611642810D50A02C25C298710A0490211790BAA24489B85673E6DDCC79AF5FC07F9FF44071D670010844A03426928371EBC8910B746061F972DC10295070DEAD756F5FD0819B3824DD7672E3D6AB7328878DA0340BDA966FD7D4CCBBFAC7AF7D3FFF5DAAA5BB96C4FBAA8FAF4EAE7CC58DF3369EAB677122BADC101EA85B9F9F10450F4DD94373EF0E3EF9F8F1E70528E00DE9ADD7DE6596C107017D0C1A14420F9CE0E7C4138235C15F7F89FD50C4861C72C8D80D330C282281EBB1575B09F0D1D560832A30E1047E9A54F89D623C94906187387638C38E3CF618A2802788104208CF1D58C208292EB8A275F7C118E352E05111C203543E70C195581EA1E5965C6AD9E3865816D71691262668938A4BEEC6035FF831C1546254FC3065957456F9C60E78E6A9E70E5D1E51E79F2514591B7C562999265E2ADC37149419FE60C39F759EF0C6A477EE89279748205102A45542A0DE8123D8B4815D87E2B5E6444D341AC50FFB1250294104B0C60AEB0E94BE01C7ADB72691841C494C71C5AF5720012BA754E690DE81F08D8A55A95BB518D1543F448BC30E214420C1B5D8664B011D74CC21C7B7E0861B8821E4966B82ACE8521982B1279080E2995731CB932AAAC072CA4415D5A02F0E38CC802D0500071C301173146C70B8DF065207228B34DCF010D9BE8A6E0439FCC0DE0AA1DED441073650628A29F26E14C9C8F4D6BB854429C0A5EF0C34901182C030077CC41D06D75C471D82E47C082423F71C49C0114B1C4108D1B65B824D176CDC0124A6F81C49C805391D49C99E24DA430A2990B0020C31BCD0F20C029B20F6D863DF61F61D37A78DB320697FFC312A709B103305D9FB46C05A0D27600C6F072128510B243CF7EC8927CC766178CFB5B8D1461B9170C244A229AC00020994774D0619728F4D44109C771E0411789C6D76DA39A77D882992ACC2CAEAAC7441B6D8405F4BF40F7165AC74078C7D9140020AAC41C8E0C0B3D889E186D7D206030E2CEEC65F2A60BD820720444FB91862904181D88C0D318412DC2B3104114AE011BAE877B06DFA2192B0BEBA2BA478CE39EC744B10429C3568BD77073C7CAE84246AF4FF851A91001EE1AAA382270CCF70A8A8C52D5EC1400602462647E100082C60810C68807A6430C319B885084400EE83DEAB83F8C66736428C507C87409FEA58E10A06CAE2805D8884E148110947D4700BFBF4B39FC63696BFCFB9C10DFDA384102911C0C1358133237902F122F18A5BD422716D7040031A00982570800390B140052A'
    $DllBinary &= 'A8010D84218367C88318F5E087329A110F7B1023B7B855B09C098210297C842956D84259C88215B298C52C68210B58B88215A7B8610E9FB743DC358173BADBDDEE14F085FFA961705C2055B34CD289E1294E8A53CCE4E26A8103C0F4003215D822052D0886307CC10C6918A31E56B94A3EF0418C79A0031A66890632F40F10803884211E518A39B2F01576D4A31E69410B3FA622908EC021ED28B7372250A8091D9004252EA106377C41018ADCDD233BB13143ED64255F614225DD90C9E481A2160D64200E0AC084BF74FC62050688E728350006308CE194A984A53ED57886595E8E0600C5132E75C94B5FBAC21576242631FB08481A26028735880B0944C5032270810B44D8C0018038C421FEA19AD75C43274A90344986C46A28A9642DCEB9C074CEC289A0684303403080022C811383E30108E449CA52E2330D4015631ACE40D45A5E8E0C00DD110DA60584410C6297A3E8652A5888D03E1AF314816C8432234AB91510A19218F5C0000E904D0538400D96E8E8102111040F94D4A41D8988507EC3C4570873162B054526F74AD3010CA0034B00DE166A90819E82A1916648AC62CD70D4CB51EF05907DC18EF805842A38D5118F88AA2952C1D9CE62751491D02AFD12C3854AFB7682082B80805F5F9038076453918C44EB108980B4925EE7247CF98C275EBA52994ED101C035672D72918B5BB8610001486E013CD004013662106A104329C740DD31508F7A61782C6463C0DD18F088B2961D44221C318AF296A214E51D4523D6DB08E2118F311CF0EB6AA5D9D14BB4019BAF5DE417906413B76EAC238942C96F00B386E01AD8012C25AE82895B8B351C20B9100EC0002AC0832DC0E2C2F6FAEC21FAE7862E76B1B08525010CB8E6DD1AF02B0A55A842224681D5169FE2C225EB021442C08102C8D7AF0748A4036AA1D6212A0EBF8A74177F6B0B57840438B7DAF98B1B82DB0650DC62C10BBE05283241652AAFC1C1118630000030FB00C880600B604E0486154AE6322B14C3173E0598C18C802BDEF8C605008118D6C0803A2B00C80E70438F7DEC802F9C680419736BD216D23CA1E416388051C393A14C5C293BA0CA90CE849375718B6A82E0C15BCEB4A6379DE9E879DAD305C87284DF7CE30380C00D0ABC84AA55ED063B03797779EEB1246C70A2DA0CD9B608C15A38F1F384BF7001D19E38452C14ECE8485779C7BA48B6B2950D8A505C790D603880B4399D69515B3BCBD13B00189EED803A3BE0128DBEC5AA59DDED3BE737CF9740C4114EC0EE5A5B86BFB836080A522057BE50A8D7BEBEE8454D1B6C3718FBD8B558B6C075D1EC5018FCE006D7052F16BEF0FE55F3D9107FB61AFB14CE70861FDCC07566401BC07D0B718FFB124BBE339019490203B5DBDDF0FEAFBCE9BD97A5DC3BDFFA8EF9BE7FF8682A237BE0CAAE05C2771E0A8A579CE1BAE039'
    $DllBinary &= 'C27F5EF1A087E2C019DF71713DFEF14B3880915F00830D0A64F2939F083E6F2DC806B0C6F225A4C5425A90B9D8658EEA58DC02E7C92EB8D07B4EF48AAFFDE03E277AD00FDCEDA45FA2E31F9784218A30A0A953BD48EC3692997658907963AD213D488B77BC33F6B163E1F1312445C795FDF683B7DDED950FC5E57991ECA3633CE375BE84242471884074E8437DFF3BE0050F1FFFAA5C202BE07A45DE0405EF50E1F6B8C7FDE377CFFBDEF39E101CFEE1CE376FF1CC6F9EF2C0BDFCF20FDDB08321E428478D49FDDF033F28A4296D201E88FDE1A7922A38E5FEFBB7F7BDF87B9F85F29BDFFCA95B85FA57D1F1F6777CF9F08FBFFB6F31FAFA4BE1FEF78F82FEF5BF25ED39FFF9A7C71A39801E53F72946D27A6F452A1B1017CE032DDE077EDF870554707E14687EC072055390811AB8811CD8811EA881F8178222388222B87FFBC725DA038045E01A035880EC9137EF763F76714536215171111735102D3AB87FB897623E58051F1884423884443805247884485882269882D0A71C05C86E95712432F80B57C401FDE501944302FAB2853F608240F08560380581308664588666788619A82B6AB8866CD886BD52841C7881723887C0A204FC23B88489C121CA6131ECE12E525848745185823839223662336062FC9227B8824BB874868E1808081389DFE28694D8861F48877258819AA88958807FFA370479583116D32E95613BB7F30B6D8645902141D24302DC25592C83030E1707B4588B35738BB858339228899568891B88894A607EE5328CC4588CE5D20514787BFA972115C303A41868B7432A914141D4F80184D8355ED332B3A40671B046DE4807E2433EE27833B9B88B085389192887645807C6388C0EF38E0EE308F2388FF2D830E4627EB807053A88375A038DA7888AD4184AA264011F9001240059D57339B4F48D74A04F7BF0907B704227443EE4788BE618898F9836C5088F0D6343FC52430A201992213932F3788F5B5005B7A78F3FC0035AB302133585BFD001023993D568412F804164304B1BD490FAE44A3EF9937C00910F2991E3888BBB78861A69082974080CE3308FE03421F936703395540937A6309235E4088690053844052AE99271D15F09481005309302498D1674410999931BB44F7DF0967019976F099442499414A93637E346A5733E29D4948FF0088133326E3395EA539886C90AAA003723298F5C797B3A08962FE97A455601F1144FA1849669995D4745543DF99666E4077F109AA2290970F99342199123348E79B99737B3944C89087F09988229952B649807759BB8799BAC93982099958D19273FC0552E2996AF5710FC95599998D945A594901A144662E44A9F099AA2399D7F307A73E993753991674308DC293E7CD941B1C9336E833AB5C93A07D54076949EEAD947BA094857499260E698C12951C4599C06216D07204FF3'
    $DllBinary &= 'A49C9A99589CA94A656409024A9DD41997A63994DAC99DDD3942AE199B72349EE9A73E2DE44276C44077354CE9E9477FE49E34D408C9D495C11951C3697D45769FF86900A39496F5544A19A441F99407AB14A0026A09041A9A7E60A0AEF49062A49D77A0A00BDAA0B109A1A923A1142A0B167AA1C2C447ECF947C7440AA0E5080FE598FAE292CCE4011C50A20971A229AA9CF5140663E09F2FCA4A64E407331A9D375A9AAEA44F78C090DCE2A3FCDCE99A87E0A06E13A1E649A1478AA47B644717C6A4A7F09E8D10A5522AA22FC9013A216D280A625C3A5DA7E4A2FB24A6D169A0FBA4466C4A07B5A8978200A771FA97A6D04B744A55457AA77BA4A4ECB93AC7640AA0F5A7F1493F5CC54C3E710029AAA25D7A4F8A75064115A9B66AAB935A8BBA1A077AE99A4A99A9BCD44BEA3755EB5347EBA99E7BCA0A9C85554E1A5A0F05A2539A855CF1AA89EA538B0AA640F5A2B72AA945454BDE4A4B0ED73F70C0888030084B492E991A55BD34479D4555B9899BCABAACA7E0A4EAF5A7801AA271C11B88BAA28A8A58B34A54001BB002EBAD8D55B0FF14507BA206B8E454E6AA4BBBF497E6B5AEABD059144BB1E72E46AFEC9508F7AA2F2B424FFC1A065E7A4FD7BA588B65B0268B540095B249D52389B8036058AE0C9B42F39859117B5EEBDA62369B5EF56AAFA9FA03F2C2AF5D1AB26370B2447B5D461B59481B592CCB2F38008695C5B00D4B8F3A3BB5539BB11ABB66507310400BB2206BB45E8B5DD975B449FB02DD55B63EC2B427F6852906B5E2A5B1F3C85E70BB5E1A3BB759FB11407BB760E0B591E56120D6B765FBB73C82884C1B0595E5836CDBB6739BB88950B75BE1618EFBB81AD0B720F601945BB91F908585486225B62F688B623FB8665BE0548CBB247D6BB9A67BBA989BB95C73885B8803A31B10003B'
	$BinPic=Binary($DllBinary)

$Form = GUICreate("Pic", 300, 200, 100, 100, $WS_POPUP,$WS_EX_CONTROLPARENT+$WS_EX_TOPMOST+$WS_EX_TOOLWINDOW)
$hPic=GUICtrlCreatePic("",0,0,300,200,$WS_EX_CONTROLPARENT)
GUISetBkColor(0x000000)
$iPos = ControlGetPos($Form, "", $hPic) ;~ Берём размеры контрола ($hPic)
$hBitmap = _WinAPI_CreateBinaryImage($BinPic, $iPos[2], $iPos[3]) ;~ Берём бинарний код картинки и указываем её размеры ($iPos)
DllCall("user32.dll", "hwnd", "SendMessage", "hwnd", GUICtrlGetHandle($hPic), "int", 0x0172, "int", 0, "int", $hBitmap)
GUISetState(@SW_SHOW)

GUISetOnEvent($GUI_EVENT_CLOSE, "GUIExit")
While 1
	Sleep(100)
WEnd
Func GUIExit()
	Exit
EndFunc
Func _WinAPI_CreateBinaryImage($hBinary, $hWeight, $hHeight)
    Local $hSize = BinaryLen($hBinary)
    Local $pStruct = DllStructCreate("byte[" & $hSize & "]")
    DllStructSetData($pStruct, 1, $hBinary)
    $hData = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", 2, "ulong_ptr", $hSize)
    $pData = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hData[0])
    DllCall("kernel32.dll", "none", "RtlMoveMemory", "ptr", $pData[0], "ptr", DllStructGetPtr($pStruct), "ulong_ptr", $hSize)
    DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $hData[0])
    $pStream = DllCall("ole32.dll", "int","CreateStreamOnHGlobal", "int", $hData[0], "long", 1, "Int*", 0)
    Local $GDIPlusDll = DllOpen("GDIPlus.dll")
    Local $tInput = DllStructCreate("uint Version;ptr Callback;bool NoThread;bool NoCodecs")
    Local $pInput = DllStructGetPtr($tInput)
    Local $tToken = DllStructCreate("ulong_ptr Data")
    Local $pToken = DllStructGetPtr($tToken)
    DllStructSetData($tInput, "Version", 1)
    Local $aResult = DllCall($GDIPlusDll, "int", "GdiplusStartup", "ptr", $pToken, "ptr", $pInput, "ptr", 0)
    If @error Then Return SetError(1, 0, 0)
    $GDIPToken = DllStructGetData($tToken, "Data")
    $pBitmap = DllCall($GDIPlusDll, "int", "GdipCreateBitmapFromStream", "ptr", $pStream[3], "int*", 0)
    $hBitmap = DllCall($GDIPlusDll, "int", "GdipCreateHBITMAPFromBitmap", "handle", $pBitmap[2], "ptr*", 0, "dword", 0xFF000000)
    If @error Then $hBitmap = SetError(1, 0, 0)
    If Not @error Then $hBitmap = SetExtended($hBitmap[0], $hBitmap[2])
    Local $tObj = DllStructCreate('long bmType;long bmWidth;long bmHeight;long bmWidthBytes;ushort bmPlanes;ushort bmBitsPixel;ptr bmBits;')
    $GetObject = DllCall('gdi32.dll', 'int', 'GetObject', 'int', $hBitmap, 'int', DllStructGetSize($tObj), 'ptr', DllStructGetPtr($tObj))
    If (@error) Or (Not $GetObject[0]) Then Return SetError(1, 0, 0)
    $GetDC = DllCall('user32.dll', 'hwnd', 'GetDC', 'hwnd', 0)
    $DC = DllCall('gdi32.dll', 'hwnd', 'CreateCompatibleDC', 'hwnd', $GetDC[0])
    $SizeBitmap = DllCall('gdi32.dll', 'hwnd', 'CreateCompatibleBitmap', 'hwnd', $GetDC[0], 'int', $hWeight, 'int', $hHeight)
    $SelectObject = DllCall('gdi32.dll', 'hwnd', 'SelectObject', 'hwnd', $DC[0], 'ptr', $SizeBitmap[0])
    $CompatibleDC = DllCall('gdi32.dll', 'hwnd', 'CreateCompatibleDC', 'hwnd', $GetDC[0])
    $SelectObject = DllCall('gdi32.dll', 'hwnd', 'SelectObject', 'hwnd', $CompatibleDC[0], 'ptr', $hBitmap)
    DllCall('gdi32.dll', 'int', 'SetStretchBltMode', 'hwnd', $DC[0], 'int', 3)
    $StretchBlt = DllCall('gdi32.dll', 'int', 'StretchBlt', 'hwnd', $DC[0], 'int', 0, 'int', 0, 'int', $hWeight, 'int', $hHeight, 'hwnd', $CompatibleDC[0], 'int', 0, 'int', 0, 'int', DllStructGetData($tObj, 'bmWidth'), 'int', DllStructGetData($tObj, 'bmHeight'), 'dword', 0x00CC0020)
    DllCall('user32.dll', 'int', 'ReleaseDC', 'hwnd', 0, 'hwnd', $GetDC[0])
    DllCall('gdi32.dll', 'ptr', 'SelectObject', 'hwnd', $DC[0], 'ptr', $SelectObject[0])
    DllCall('gdi32.dll', 'ptr', 'SelectObject', 'hwnd', $CompatibleDC[0], 'ptr', $SelectObject[0])
    DllCall('gdi32.dll', 'int', 'DeleteDC', 'hwnd', $DC[0])
    DllCall('gdi32.dll', 'int', 'DeleteDC', 'hwnd', $CompatibleDC[0])
    If Not $StretchBlt[0] Then Return SetError(1, 0, 0)
    DllCall($GDIPlusDll, "int", "GdipDisposeImage", "handle", $pBitmap)
    DllCall($GDIPlusDll, "none", "GdiplusShutdown", "ptr", $GDIPToken)
    DllClose($GDIPlusDll)
    DllCall("gdi32.dll", "bool", "DeleteObject", "handle", $pStream)
    DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $hData[0])
    Return $SizeBitmap[0]
EndFunc

 

[AZJIO]

C2H5OH [?]

только у меня оно не работает...

А что именно не работает? Ресурс в файле появился? Что если _ResourceSetImageToCtrl

 

[C2H5OH]

AZJIO
Я так понимаю, что проблема как раз именно в том что ресурс не затягивается в скрипт.
Как это проверить можно?

 

[AZJIO]

C2H5OH
Проверять в ResHacker

#AutoIt3Wrapper_Res_File_Add="C:\WINDOWS\system32\oemlogo.bmp", bitmap, 0
#AutoIt3Wrapper_UseUpx=n

 

[C2H5OH]

Всё получилось. ;D
Разница в том что чтобы посмотреть ресурсы я скомпилировал exeшник.
А до этого запускал скрипт из SciTE. :-[

 

[alex33]

Вот я ещё придумал, работает.

; Progress_ImageOn.au3
OnAutoItExitRegister("_sh")
HotKeySet("{esc}", "_sh")
$image = @ScriptDir&"\loading.gif"
If Not FileExists($image) Then
If Not _CreateLoadingImage($image) Then
MsgBox(16, "Error", "Error create image", 10)
Exit
EndIf
EndIf
SplashImageOn("Загрузка", $image, 50, 50)
Sleep(30000)
SplashOff()
Func _CreateLoadingImage($iPath = "loading.gif")
;============================================image_binary_data=====================================================
$iBin = "" & _
"0x47494638396113001200A20400D3D2D2F3F3F3DCDCDC8C8A8BFFFFFF0000000000000000002" & _
"1FF0B4E45545343415045322E30030100000021F90405000004002C000000001300120000032F4" & _
"8BA1A102C4A02EABCC4412C86E01E338CD83830DD77A558EBBE702CA5EC6B9A301DCA7CDFD6" & _
"0AA004B7204E84C2040021F90405000004002C08000000090006000003102823D43ED039C5A46" & _
"D01840BFACD41020021F90405000004002C0E00030005000900000310282344F34DB146ABAD01" & _
"84067ACB41020021F90405000004002C0C00090007000900000312484A32B26448D81EBCF8061" & _
"020F8D0D62D090021F90405000004002C05000F000A00030000030D1810D4244380E9C8B88A39" & _
"28120021F90405000004002C00000A00080008000003111810D40DD035C5A4BDD88921ECF8D62" & _
"6240021F90405000004002C0000030005000A000003114814100A5031A7AABD570CA186571A47" & _
"24003B"
;============================================end image_binary_data=====================================================

;============================================create_gif_image=====================================================
$iError = 0
$hImg = FileOpen($iPath, 18)
If @error Then $iError = $iError + 1
FileWrite($hImg, $iBin)
If @error Then $iError = $iError + 1
FileClose($hImg)
If @error Then $iError = $iError + 1
;============================================end create_gif_image=====================================================
SetError($iError)
If $iError = 0 Then
Return 1
Else
Return 0
   EndIf
EndFunc
Func _sh()
FileDelete($image)
SplashOff()
Exit
EndFunc