Belini Posted February 11, 2014 Share Posted February 11, 2014 When I use any edge of the image goes out of pic when I use GUICtrlSetImage (), how to solve? expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> main1() main2() Func main1() Local $gui = GUICreate("GUI Pic", 300, 300, -1, -1) GUICtrlCreateLabel("Using the edge pic", 56, 8, 154, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") Local $pic = GUICtrlCreatePic(_image1(True), 40, 40, 200, 200) GUICtrlSetStyle(-1, "", $WS_EX_OVERLAPPEDWINDOW); GUISetState() Local $i = 0 Local $image = 1 While $i < 15 $i += 1 If $image = 1 Then $image = 0 GUICtrlSetImage($pic, _image1(True)) Else $image = 1 GUICtrlSetImage($pic, _image2(True)) EndIf Sleep(500) WEnd GUIDelete($pic) EndFunc ;==>main1 Func main2() Local $gui = GUICreate("GUI Pic", 300, 300, -1, -1) GUICtrlCreateLabel("Without using the edge pic", 56, 8, 170, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") Local $pic = GUICtrlCreatePic(_image1(True), 40, 40, 200, 200) GUISetState() Local $i = 0 Local $image = 1 While $i < 10 $i += 1 If $image = 1 Then $image = 0 GUICtrlSetImage($pic, _image1(True)) Else $image = 1 GUICtrlSetImage($pic, _image2(True)) EndIf Sleep(500) WEnd GUIDelete($pic) EndFunc ;==>main2 ; #FUNCTION# ==================================================================================================================== ; Name ..........: _image1() ; Description ...: Compressed file embedded in your .au3 file ; Syntax ........: _image2( [ lToSave [, sPath [, lExecute ]]] ) ; Parameters ....: lToSave - [optional] If True, save the file, else, return binary data. Default is False. ; sPath - [optional] The path of the file to be save. Default is @TempDir ; lExecute - [optional] Flag to execute file saved. Default is False ; Return values .: Success - Returns decompressed image2.jpg binary data or saved. ; Failure - Returns 0 and set @error to 1. ; Author(s) .....: João Carlos (Jscript FROM Brazil) ; Modified ......: ; Remarks .......: This function uses _LZNTDecompress() and _Base64Decode() by trancexx. ; Related .......: ; Link ..........: ; Example .......; _image2() ; =============================================================================================================================== Func _image1($lToSave = False, $sPath = @TempDir, $lExecute = False) Local $hFileHwnd, $bData, $sFileName = $sPath & "\image1.JPG" ; Original: E:\image1.JPG $bData = "QrcA/9j/4AAQSkYASUYAAQEBAGABABAA/9sAQwAIAAYGBwYFCAcHAAcJCQgKDBQNAAwLCwwZEhMPABQdGh8eHRocABwgJC4nICIsACMcHCg3KSwwADE0NDQfJzk9gDgyPC4zNDIBiAABCQkJDAsMGAANDRgyIRwhMgEuAP/AABEIAD4AAD4DASIAAhEAAQMRAf/EAB+wAAABBQCtAbAAAwAAAQIDBAUGBwgICQoLACC1EAACAAEDAwIEAwUFFAQEAC19AB8ABBEABRIhMUEGE1EAYQcicRQygZEAoQgjQrHBFVIA0fAkM2JyggkAChYXGBkaJSYAJygpKjQ1NjcAODk6Q0RFRkcASElKU1RVVlcAWFlaY2RlZmcAaGlqc3R1dncAeHl6g4SFhocAiImKkpOUlZYAl5iZmqKjpKUApqeoqaqys7QAtba3uLm6wsMAxMXGx8jJytIA09TV1tfY2doA4eLj5OXm5+gA6erx8vP09fYQ9/j5+" $bData &= "oFrAQADFwNrhmyMaxGAawIEBAgDBAeBawECdwABABARBAUhMQYSAEFRB2FxEyIyAIEIFEKRobHBAAkjM1LwFWJyANEKFiQ04SXxdwFtgmwjbIJyNgY2xzXaEAAMAwEAbwMRAAA/AMLNWbOyuAC+l8uCMsep9AAD1J7UabYS6gBXqW8Q5Y8k9AADuTXcSpZ6DgCcFAOzIAAGXgBn9Mdz+gr1KwBWVPRbnnUqTgB6vYxINBt4cQDns0z+icL+fQBP5VYaDT4PlQCt7VP+uj8/qQCtCz0qbVMS6gAyvFC3Itbd9gCMf7Tjkn6YFQDQWnhXR1TEegBdr9TEGP5nmgDjlKo9WzqjGgBrZHIiwsLlTgAtYyP70Lnj9QAiqN14bLKXsgCQuf8Anm/DfgAHof0rs77wlgCSSWSzSCQdJACD92w/FcVgTgDXOiyj7U7XVgBE483b+9j/AADex98fr9acagBUjqncUoU5aADVjjJEeJyjqQBWBwQR0p" $bData &= "ma7wB1bRotYsxPbwC1rgKGR1ORKADsM9/Y1wLqUQDKsCCOOa7aVQAVRXRyVKbg7AB23hS2Sz003ACwHmznAPoo/wAAE/yrMl1AagB6w9wTmKMmOABHovc/Un9MVQCpro22jEIceQB2xx/3zXJadQDnl4Ga56MfaQBSUmdFR8kFFAB6dp90uxckDAAKv3F1euVSKQCaBPRep+tczgCQ0r24udp2fwAHufWmXmoXcwBd/ZIZ/JcDfACS43eWO3B6kgB/TJ9Kyraz5QCJpT0jzM69pwC4W2zO/mAcbwA9R9a5zVp1kgA2Q9KNK1me4QAaOZBvU+XKnQBAP+BHI9jWVgC+ZLKQBs+W4wAox7j0+oqsOwC8uV7k1tFzIQD+G9SNtdS6awA37s5kh/2f7wAo9u/51Q8W2QAseorcxABLgQC44/vd/wDH8QCsO0vSuu2jgwD/AC1A/Pj+tQDS6wRdWManqgDJ1/A1dvZV7AC2ZN/aUrvoSQAdsb7" $bData &= "RwE5MsAAyD64I/nXHeABnTZdWvvLIdQC3h+adwPuj0AB7n/E9q6/wbQDyXEL2TtiRPwB5H7juP5GuUwDGuhyaPrDXMQAJBY3bF12OQABX/iU4P4j2PgDVEHKE5QWjZQBJKcFJnpWpawA2Ok6WGSEMwAAI7eBf42xwowDb19qoadpMYgDbzL95XvJmMgBKUbaMnt07dAD26dq8wsREXwChJIxkuSf58QBdTY6RYyxgvAA5Pu7f41aw8gCKunqQ8RFvVQCh2UNlZWN0bgBiE29k2MGfIQCGcjIx1HOPqQCn6xHZ6vpL2gC52ueY5APuNwBj9Ox9q8/1PQA2zgB2REfSRgD/ABrmLkRqxAAm8fSRv8aX1QCnfmvqNYiDXAC2NrTLK4/4SwAgsp42SWGUmQAU9tvOfpx+tQDUa2xtrWEE8gDsTj/P1pngDwAPyQ2r6pchvADLldkAckkR9wBufXAA9h71nQDijUUutUZIWAAYofkUjvjqfwA6" $bData &= "UW6tb0HJcgBS9TGs7yWyuQCOeFyjo25WHQCNehW2paf4mwBMktrmJGLKPADrcnkf7Sn+RwC3evI/7U/6YwD/AI9/9apYdQC5IJFeNGVlOQBWV8EfQ4ratQA41NU9TGlVcADR7HU3vgq7sQC4Mmnv9rt85AAvAlX6jv8AUQD5CprVp7ddkgAZImHUOCP51QBLLx1NsAvbfwA1R/Gh2t+I6AB/SuhtfEsdzABBo2uVHo2P8QCso4qdP3ZK5gCSw8KusXYxbgBtLy/OyCOaYgB/uqSPz6Vc0QB8FxRTrc6sywApBytshyM/7QCe/wBB+dSX/gAthtRh1uZD2AAcY/nXN6j4ygDycGNU8mM9kQDwSPdv8MUSrwBSt7q0Q40oUQDV6nZ+IvE6QQAL2Vk4MzDbJACL0jH90e/b2gC4Nn3HJrNOqiBP/LHjsCBU1qQA/tT/AKY/+PcA/wBat6MYU1YAMKlRzZ//2Q==" If $lToSave Then $hFileHwnd = FileOpen($sFileName, 10) If @error Then Return SetError(1, 0, 0) FileWrite($hFileHwnd, __image1(__image1B64($bData))) FileClose($hFileHwnd) If $lExecute Then RunWait($sFileName, "") FileDelete($sFileName) Return 1 EndIf If FileExists($sFileName) Then Return $sFileName Else Return __image1(__image1B64($bData)) EndIf Return SetError(1, 0, 0) EndFunc ;==>_image1 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image1B64 ; Description ...: Base64 decode input data. ; Syntax.........: __image1B64($bBinary) ; Parameters ....: $sInput - String data to decode ; Return values .: Success - Returns decode binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error calculating the length of the buffer needed. ; |2 - Error decoding. ; Author ........: trancexx ; Modified ......: João Carlos (Jscript FROM Brazil) ; Related .......: _Base64Encode() ; =============================================================================================================================== Func __image1B64($sInput) Local $struct = DllStructCreate("int") Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", 0, _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, "") ; error calculating the length of the buffer needed EndIf Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]") $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", DllStructGetPtr($a), _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, ""); error decoding EndIf Return DllStructGetData($a, 1) EndFunc ;==>__image1B64 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image1 ; Original Name..: _LZNTDecompress ; Description ...: Decompresses input data. ; Syntax.........: __image1($bBinary) ; Parameters ....: $vInput - Binary data to decompress. ; Return values .: Success - Returns decompressed binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error decompressing. ; Author ........: trancexx ; Related .......: _LZNTCompress ; Link ..........; http://msdn.microsoft.com/en-us/library/bb981784.aspx ; =============================================================================================================================== Func __image1($bBinary) $bBinary = Binary($bBinary) Local $tInput = DllStructCreate("byte[" & BinaryLen($bBinary) & "]") DllStructSetData($tInput, 1, $bBinary) Local $tBuffer = DllStructCreate("byte[" & 16 * DllStructGetSize($tInput) & "]") ; initially oversizing buffer Local $a_Call = DllCall("ntdll.dll", "int", "RtlDecompressBuffer", _ "ushort", 2, _ "ptr", DllStructGetPtr($tBuffer), _ "dword", DllStructGetSize($tBuffer), _ "ptr", DllStructGetPtr($tInput), _ "dword", DllStructGetSize($tInput), _ "dword*", 0) If @error Or $a_Call[0] Then Return SetError(1, 0, "") ; error decompressing EndIf Local $tOutput = DllStructCreate("byte[" & $a_Call[6] & "]", DllStructGetPtr($tBuffer)) Return SetError(0, 0, DllStructGetData($tOutput, 1)) EndFunc ;==>__image1 Func _image2($lToSave = False, $sPath = @TempDir, $lExecute = False) Local $hFileHwnd, $bData, $sFileName = $sPath & "\image2.jpg" ; Original: E:\image2.jpg $bData = "XrsA/9j/4AAQSkYASUYAAQIBAGABABAA/+EIg0V4AGlmAABNTQAqAAAAAAgABwESBAADACQBAAEAABABGgAFAiwAAGJEARsGFmoBKARGAkkARjEAAAoAYwBOchQBMgIWFAAW1YdpTAAEAA4AigDsAEoYSAAOpgAOJxAFB0EAZG9iZSBQaG8AdG9zaG9wIEMAUzQgKDExLjAAeDIwMDcxMTAIMSBbBQkubS4xCDkwIAEOLzExLwAwMTowMjowMAEAAiBjdXRvZmYAOyBtIGJyYW4AY2hdKSAgV2kAbmRvd3MAMjAEMTQBKTExIDA3QDoyMTo0OQBBABAAA6ABg1///wCIAKAChlM+oAOHBUGCFAAABgEDhHUGk4BihocBZoeHAW6Jh6OArYR7AXYChi0HgaM9ASlIAAKBiYIDiskAAIJIgAAA/+0ADIKNAF9DTQAC/+4AIg6CBgBkgIEc/9sAAIQADAgICAkACAwJCQwRCwoACxEVDwwMD" $bData &= "xUAGBMTFRMTGBEeDAIABAMDBo0CAQ0LAAsNDg0QDg4QIBQODg4UAQEOFB2DDBFEDoQBExD/wAAAEQgAPgA+AwEAIgACEQEDEQEE/92ATgT/xAE/uYBJBQECAAAsgQADAJwABAUGBwgJCgtDgJULBwEAAgMFBxAAAAEEAQMCBAIABQcGCAUDDDMBAAcRAwQhEjEFAEFRYRMicYEyAAYUkaGxQiMkABVSwWIzNHKCANFDByWSU/DhAPFjczUWorKDACZEk1RkRcKjAHQ2F9JV4mXyALOEw9N14/NGACeUpIW0lcTUAOT0pbXF1eX1AFZmdoaWprbGANbm9jdHV2d3AIeXp7fH1+f3ABEAAgIBAgQEIcIkBwYFNYIgITEEEgRAIHEiEwUyCIGRFEEgwVLR8AAzJGLhcoKSQwBTFWNzNPElBkEBIAcmNcLSACGjABdkRVU2dGXiC4YgVyAnhyD/2gAMAgPCHBEAPwAUSgAuPTfe/ZS0uADyfA" $bData &= "D95zvzEgDGxrMnIbTWNQBx1J4A/Oc5bYDccXpuKGgHAIcAEvsf+7t/Pf8AAPgdaaA5mDAAHJqfkaDMChkAHqk2v8G6N/wA76b/APttTP0Aiq0dVU3+u7UA/wCm5W8XptkAnRZmvdXU7UYANS7aI/4W9nsC3iAIv061q0/VAO6S1sMw6viWAAcf85/vR0bcAGOIaCLgivEuAAf0LSP3q3HTAPGxiFb0uW7sAGcXH/Ru0d/ZAHfQf/4Gt3K+AK/0pxJZQ2l4AOLKv0bh/aq9ADWTe3J6c8euAOORiEx6sfpWAH/G7P6Qz/wTAP4xLREseKWhAI8DkPa5ji1wAC1wMEEcKMroAHLwq+pUC2mHAFwALHgyLB+aAN3fn/8ABPWBAOm7dtg7uIQpAKk8EozjD94gAH2v/9DV6TUyAJx/XMepdoD4ADR/6UeqxyRmAOYbjrXXLKR4ADfznf17H/8AAIGnyLzVhw0xAOnSY/zVnYF4AGVgINLNL28" $bData &= "WADgHraLWtYJIABAUr8nMcQytAOaWeA5P9ZZuADW2vpF8HZ+ZAOZ/eVe3JyrrAP7NXZ6TgN9lAJG7YPzfa/6bAOx//ge+3/RoALLh0x8cnoPXAL3VTc7eBpvPACP6yoZtjdhaAHhVcDqV5BZaANG5p2Ws5AP/AACQsZ76v+DQALqBsqcA6djhACxx7j93+uxDAMeq3mRUeMfKAI+l5LsXIfgkAPsM2U+X+lrbAPyPz/8APVi2AKrZ1mjJDRssANzyP5Ya53/VAH6RYRyS7qNDAMH88D7/AGf9APlqvtmuvxa/AJ+LXpfks4jkAOX4j82LV//RALrscZWKPT1NALU5g+MOZ/1aAMfpFN2bY2kbAJtNWt7wOB+6AN/l2f8Ak7f8ABrX6BYPTdjPADD2/pK/MfnNAP8AqXrG+sXSAN2JnG1ocMTKACXt2uIAf/haAN2x39ur/g/+AC0Nx2JasxGeADx5D6oxerzeAKWJhYYc2sOcAACvHpH5" $bData &= "zo9tAG3+R/pf+DQcABwm1078svflAFxL7S07RJ/NAPo/4P6H/B/zAF/g1yWEyndwAEkiJLiT/wBVAOxbNHS8GxoLAKuT5ud/5JLiAOrGeahI0Y+hANkUYtV5vrD9AMW7HAukETvbALm7fp1+70lLADxjZmE6hxhxANa7APou/Nd/AFPzLf8Ag1zuAG9Ow8cHayPgAYAIlj31VOJDdwgPg50gHEgQfNcAfesdcHD6W/gA9V/7arxLWlkAZU8mxp7bPfsAv6ntWzaxzXUALO73OdHwBcoAt9VukWV1uz4A+d+QNlAcSSIAv86z3/6Ta1kAV/wf/GI783EA39Zr9w9CsmoADvi017/+3HIASTEY8AH+cf8A0qVeTdTa22oAJa5h3NcOxXQANWZh9XxH0XsAGkuA9agnUf8AAAlTv/PT/wAAwf8AhVyotysA/uP/ANNv9ykAVW5/qM9Kh3oAk+zY8bv7EBAAFudy2TJEUIkAlj8NXRt+r+QA4" $bData &= "1u/Dd9ppmQAN0Fo/rN/P/oA9f8A21WrNFgA9jdry6tw5DgAEf8AVqFOV10AaA3Kw/UH77UA7Gu/tt3+m78A8DV+q3qLmg8ApXM8iWH8j0AAgHwXTwYMhuMAljjPYlo3tyYA320tfaT4AkcA+d9BNhdBYbQAX9RIsjVuO0wAif8Ah3fn/wAAUr/7dVvJv6gAt5x7n+ElgH4ANizcrI6+5jgA/ZXMrHIre0sAiP5TmOc//toA2IjTxCsePl8AEb4hln2Bt0sAqfV20sdi4rsA9K4bbLBwwf4Ajb/L/M/4NYcA5qn6uV2o07AA3t/uUvVzI/kAj/pt/uQtGScAlOWJIIIkNCOAV//Z/+0M4GeAADMuMAA4QklNdAQl0mMQUgBIALEBA9rtAgEQIYxgigJ1AHID2iayAQ5SAEIAP4BzkgFWDeIAwXke8gAZ+wADWvPyAAlSAEAAAXMICt/yACB7MQPgi+EAClAHYgEkAAJRAQP1wgBIAKgvZm" $bData &= "aQAWxQAAYSAUIBFAGhmZoAFQEysZABAQBaUAAVATUSARYtFwEyBfjwAAAAcJgAAP8PABABA+jxAX+vAREBvwF3Ar8BuwGxBwQOCLIHsRdwDwJAAAB1MQAA8xAesgFRFPMAGmnxAANBUAAGkQA0AD4DcAAxAAYAaQBtAIBhAGcAZQAxMAF/8ARQACsAOQF1AxoCTwMAhgDECXECbnVsbHAAAVGoBmJvdW5kcxhPYmrxqHQDUmN0C6EHIgtUkKZsb25nQ3EDMQBMZWZ0+QBCGHRvbfQAoQgAUmcGaPUB8QAGc2xpY0Blc1ZsTHPQAwGtegYFsgFgARIwAAfCAARJRLgFB2dyb3UCcCoBBm9yaWdpIG5lbnVtMAMMRZpT0QVPMgHwAA1hsK0AR2VuZXJhdGWCZAABAFR5cGXEAg4KwwIRAZEBSW1nIP9wAP8PQAH/D/8PYAIiAP8PAfoPA3VybFRFWB5UsALEFcEXGwFNc2cCZRoBBmFsdFR" $bData &= "hAmc6AQ5jZWxsVABleHRJc0hUTaBMYm9vbAEFCGUBAcoCCWhvcnpBbNRpZ5USD8MPSGUB4AgAB2RlZmF1bHRBoAAJdmVydO8CZQZWZQHrAgtiZ0NvKGxvcsgVEfMFQkeDhgEgAwBOb25lcAAACXRvcE91dHMyZYkjCmyAJF4BDGIsb3QAJX4BCyAeaHRLbAGSNyiBBgAMUAABrD/wsgBTNhGyAAE0SR0B1gCjylID8QIAByEPMAJBFIEqMQC8AAAtiIgAAKDHGAABr8aPkEWvxkHZr8YMCQmvxv2vxgwPAK/GAcfDxa/G/wP+DK/Gr8bAxuIRkN2vxscB/2C1r8avxq/Gr8avxq/Gr8b7r8avxiGvxq/Gr8avxs3OZ7sAprbG1ub2JzcAR1dnd4eXp7cAx//aAAwDAQAAAhEDEQA/ABQASi49N979lLQAuPJ8AP3nO/MAEsbGsychtNYANXHUngD85zkAbdxxem4oaAcAZIAAEvsf+7sA" $bData &= "fz3/APgdaaAAOZgwHJqfkaAAzAoZHqk2v8EAujf876b/APsAbUz9iq0dVU0A/ru1/wCm5W8AF6bZnRZmvdUA1O1GNS7aI/4QFvZ73gBBv061AKtP1e6S1sMwAOr4lgcf85/vAEdG3GOIaCLgAIrxLgf0LSP3AKtx0/GxiFb0ALlu7GcXH/RuANHf2XfQf/4GALdyvq/0pxJZAENpeOLKv0bhAP2qvTWTe3J6AHPHruORiEx6ALH6Vn/G7P6QAM/8E/4xLREsAHiloY8DkPa5AI4tcC1wMEEcACjK6HLwq+pUAAtph1wALHgyACwfmt3fn/8AAAT1gem7dtg7ALiEKak8EozjAA/eIH2v/9DVAOk1Mpx/XMepAHaA+DR/6UeqAMckZuYbjrXXACykeDfznf17AB//AIGnyLzVAIcNMenSY/zVAJ2BeGVgINLNAC9vFjgHraLWALWCSBAUr8nMAHEMreaWeA5PAPWWbjW2vpF8AB2fmeZ/e" $bData &= "Ve3ACcq6/7NXZ6TAIDfZZG7YPzfAGv+m+x//ge+AN/0aLLh0x8cAJ6D173VTc7eAAabzyP6yoZtAI3YWnhVcDqVAOQWWtG5p2WsAOQD/wCQsZ76AL/g0LqBsqcAAOnY4Sxx7j93APrsQ8eq3mRUAHjHyo+l5LsXACH4JPsM2U+XAPpa2/yPz/8AAD1YtqrZ1mjJAA0bLNzyP5YaAOd/1X6RYRySAO6jQ8H88D7/AABn/flqvtmuAL8Wv5+LXpfkALOI5OX4j82LAFf/0brscZWKAD09TbU5g+MOAGf9WsfpFN2bAGNpG5tNWt7wADgfut/l2f8AAJO3/BrX6BYPAE3YzzD2/pK/ADH5zf8AqXrGAPrF0t2JnG1oAHDEyiXt2uIAAH/4Wt2x39urAP4P/i0Nx2JaALMRnjx5D6oxAHq83qWJhYYcANrDnACvHpH5AM6PbW3+R/pfAPg0HBwm1078ALL35VxL7S07AESfzfo/4P6HAPwf81" $bData &= "/g1yWEAMp3cEkiJLiTAP8AVexbNHS8ABsaC6uT5ud/AOSS4urGeahIANGPodkUYtV5AL6w/cW7HAukABE727m7fp1+AO9JSzxjZmE6AIcYcda7APouAPzXf1PzLf8AAINc7m9Ow8cHCGsj4AARlj31VEDiQ3cPg51AOEgAEHzXfesdcHAA+lv49V/7arwAS1pZZU8mxp4A2z37v6ntWzYAsc11LO73OdEA8AXKt9VukWUAdbs++d+QNlAAHEkiv86z3/4Ak2tZV/wf/GIAO/Nx39Zr9w8AQrJqDvi0178A/txySTEY8AEA/nH/0qVeTdQA2ttqJa5h3NcADsV0NWZh9XwAR9F7GkuA9agAJ1H/AAlTv/MA0/8Awf8AhVwAqLcr/uP/ANMAb/cpVW5/qM8ASod6k+zY8bsA+xAQFudy2TIARFCJlj8NXRsAfq/k41u/Dd8AaaZkN0Fo/rMAfz/69f8A21UAqzRY9jdry6sAcOQ4Ef8AVqE" $bData &= "ATlddaA3Kw/UAB++17Gu/tt0A/pu/8DV+q3oAi5oPpXM8iWEA/I9AgHwXTwYADIbjljjPYloAN7cm320tfaQA+AJH+d9BNhcAQWG0X9RIsjUAbjtMif8Ah3cA5/8AUr/7dVsAyb+ot5x7n+EAJYB+NizcrI4AvuY4/ZXMrHIAK3tLiP5TmOcAP/7a2IjTxCsAHj5fEb4hln0AgbdLqfV20scAYuK79K4bbLAAcMH+jb/L/M8A+DWH5qn6uV0AqNOw3t/uUvUAcyP5j/pt/uQALRknlOWJIIIAJDQjV//ZADhAQklNBCEAAQBVCYAAAQGAAA8AQQAAZABvAGIAZQCgIABQAGhgAXRgACpzIgFwIAQTPAQgAKBDAFMANCAFASMMggZAAQAABwAEQQIAAQD/4Q9SaHQAdHA6Ly9ucy4AYWRvYmUuY28AbS94YXAvMS4AMC8APD94cGEAY2tldCBiZWcAaW49Iu+7vyIAIGlkPSJXNU0AME1w" $bData &= "Q2VoaUgAenJlU3pOVGMAemtjOWQiPz4AIDx4OnhtcG0AZXRhIHhtbG6gczp4PSKCCzpgARHBAi8iIEIEdGs9BCJBoQ4gWE1QIABDb3JlIDQuMgAtYzAyMSAxLgAxMjQzMjYsIAAyMDA3LzEwLwAxMi0wMDo1NFA6MDIgBAAigA1ywGRmOlJERkQNoAEEPSJkGnd3dy53ADMub3JnLzE5ADk5LzAyLzIyAi0gBC1zeW50YSB4LW5zIyUIRGUAc2NyaXB0aW8EbiAgBDphYm91mHQ9IgAVIxhhcMYKE1IlBQVkY+YEcHVyAmyCD2RjL2VsZaBtZW50c8AqMaEfAYIKcGhvdG9zaJ5vVAvGA2IxKBFNTXsRhG1tRgx0aWZmkwXjIQMKC2V4aVQFIQNFBQBhcDpDcmVhdARlRGAAPSIyMDEANC0wMi0xMVQAMDc6MjE6NDnALTAzOjAwwBVABcBNb2RpZnlfBaEC4eAiZGF0Yc8CfwUjCEBvc" $bData &= "lRvb2wVJFABxRQgQ1M0ICgxBfAreJEjMTEwMSACW5UALm0uMTkw4SQlMS8wMcAk0AogAAAgY3V0b2ZmOwAgbSBicmFuYwBoXSkgIFdpbgBkb3dzIiBkY0A6Zm9ybWEgIWkAbWFnZS9qcGUIZyIgJho6Q29shG9y4A5lPSIzeQGASGlzdG9yeZIkAGFwTU06SW5zAnTgBWVJRD0idQB1aWQ6NTZFRgBFRjE4MDY5MwBFMzExQTUzQgBBNDIxQTE5Ng5FoACSFIADRG9jdTsxJIcDNY8DiwMxHjpPFHJpkCdhkS09IjEEIiBCAVhSZXNvxGx1QwE5NjAAACA2O1AA9AFZ/wH6AecBVW4qaUARMnQDTnAGdmUgRGlnZXNRATU2UCwyNTcwADgwADkALDI2MiwyNzQDMAAwATg0LDUzMCEwADEsMjhwATgzACwyOTYsMzAxECwzMTgwADksNTIyMAAzMjABcAQ3MGtwA7ACN/EANfABMAAzAR" $bData &= "BCO0UwQkQxRABCQUYyMDhFNQAxNTkxQTM3QgA0RTY0QTA4NAZB4BgBLDpQaXhlUGxYRGkwFHNQPj2sIjZAC5cBWZ8BZlMdBlMgUGAdNjU1MzUMIiASA2sOMzY4NnA0LDQwcBRSAAAMNzQxMlMAMhIBUwAzLCAzNzUxMBIBNCz9UQM3UgDADoAMEAFQABABwDQ4NTAsM1AAgA6PUABgDlAAgBE3MzfQAZdQAPACUAA50AQzOJACqDczOLEGM0AUM7AA/VEGM8AVsQCwAxABsgOgFXg0MTRAFlEA0AqwADaqLLEAN1IAOFEAOXAKUDE0OTOyADVQADeKMnEBN2AYNDE3wBqQNDE5OHEBOTixAyQ5OLEDOTgxAjk4sjnwAjk50A2wVjGyACXRBDnSBDk5EQc5OaeyA5EIcEM2LAAdLEAgACw2LDcsOCw5AiygETExLDEyLAAxMywxNCwxNYAsMTYsMTcs0CDeMrACMCIgItAjNYAksCADYCO" $bData &= "QITs2MThCRQAxMjhEMjZENwA4OENDM0E2NwA2RkExNjhCQg5GQB4BaaI3RGVyaQB2ZWRGcm9tIAExXnBhcnNlVHkGcMAd8Sx1cmNlIvov0AIvwQEIYSUBUGahAPuia2FsPmVofwAfAR8BHwH/HwEfAR8BHwEfAR8BHwEfAf8fAR8BHwEfAR8BHwEfAR8B/x8BHwEfAR8BHwEfAR8BHwH/HwEfAR8BHwEfAR8BHwEfAf8fAR8BHwEfAR8BHwEfAR8BAx8BHwEgtrkCILgEPD94cGFjAGtldCBlbmQ9ACJ3Ij8+/+4AAA5BZG9iZQBkAgAAAAH/2wCEAAAGBAQEBQQGBRAFBgkGYAALCAYABggLDAoKCwrwCgwQDAIAxACDAa0AAAEHBwcNDA0YABAQGBQODg4UUYEADhQRwgQRwwAMB8QATQfjAf/AABEIAAA+AD4DAREAAAIRAQMRAf/dAAAEAAj/xAGiOcAUBwEBAAABQgAEBQADAgYB" $bData &= "AAcICYAKCwEAAgIDqQMhAAIDBAUGggMQAAACAQMDAgQCBgQHA4AAAnMBAgMAEQQABSESMUEAUQYTYSJxgRQAMpGhBxWxQiMAwVLR4TMWYvAAJHKC8SVDNFMAkqKyY3PCNUQAJ5OjszYXVGQAdMPS4ggmgwkAChgZhJRFRqQAtFbTVSga8uMA88TU5PRldYUAlaW1xdXl9WYAdoaWprbG1uYA9jdHV2d3h5cAp7fH1+f3OEgAWGh4iJiouMgA2Oj4KTlJWWkAeYmZqbnJ2ekA+So6SlpqeoqAmqq6ytrq+sAfEgKgFAUFYBgECANEA23gGREDBCEWBQJRIBYGcYGRMqEAsfAUwdHhI0IAFVJicvEzJDQAQ4IWklMlomMAssIHc9I14kQQgxdUk6AjGBkmADZFGidkdFU3APKjs8MoKdPjIPOElKS0SxZGVgeHFnYWWBb/2gAMAwHCFBEAPwAKBXIAq3jzkpFWFncAt5P6NrGXbq0A/KF/m" $bData &= "Zv2MI0A23HgOROItAsAKKn1lmuZf5YAP4Y/+Cpzf/kAF4eB2uPs0D8AH/HlUjRbX4EA7W1j/wCMz/EAf8O2SEXLGjAAFVLfSbtTSzgAyv8Avy3dtv8AAIaRMPAiXZ0AAcvx9qFufK0AyjMmnSmRv98AEnwyf7FqcH8A+SeQMXW5+zwA3t+PtY/LHLEASGORSjg8WUgA6ZGnA4aWcu0A2xtjb//Q2nYAm3Oo38dpAPgAnPxMfshf2mYAysC3lNLh8QsANb19L8v6WEAAD6XJVVQOU1wATfy8f23/AOQAnHk+T0WLTjEAhrSvLdzrNJ8AWJngtn+JdNsAR/TXj/xbOnwAbv8A8Y/TjxAAWo5iymz/AC8AvKcaUh0i1/0AYxLI3/BP8eIAWcZkoTVPy+8AKrktFYpaTr8AZntf3Eg/2UUA6eDdgYzjzYkA3qajoM6/XZEAr/SmPH6zx/0AKh/4y8P96E8A+Sn/ABkx4mwAhqQOaP1bRbcA8w" $bData &= "WK3Npxe9AAivDKh5LOv7IAvKnx/wDFT4kAcfWaURDAfqwA/qenxb1B8IEA3yNOjrd//9EAlXlO0itNON4AsB9YvDxVvCMIT/qokAociA67ALLx8EUubURqAPrD3bGtvAWhALNfCP8Aab/XApHQDp8MMnG1OQD9TOrC6RIl5ABA4riQuCfEVQAvtT1eQpFBOwBaxfyp9o/62ACC7WEKCMF7fQAlqDdP6yr8PgCx+0P9bE7tWQCx8IY/rNzH6AC0Z+ziDwuqyQA92N+WNSfTdQAZtGdv3L8p7AD/AMj/AH7GvwDkft/8HhBp2QDodQJxpH3drQC0XnKx1AIphgDgPMy9vWWNmwDwYCT/AGWQvgCuFLTHxw//0gA6v79rbR6RmgAYLM8f+ReAuADQPDAse0G/EADboK9sXmssrgBs5025uZbQXgBxPpf7p92/mwAIdvoMSX3epQCqXd99Qt7j6gDSqPVuLmnP0gBf2fhf7byP/wAAJPnL/vv" $bData &= "AXAD9Rl4EdoPmWwDWVorlB6sbegAXUX2lDf8ANABInxxf8VvjdADZE+IELr73FgDShXr6Mg5QyAB7r/L/AK6ZEwC7ou0I8BYc2gCJk8xWEyncTgCr/wAH8H/G2ADza+zZ8MqZRAD3XOC33+KObQCf5o4/jk+HowDRTH7yJ97/AAD/0zp9PGpaWgD6O5ubZ4l/1gDgyf8AE8EgCQBx8EycZDDvKQBZ3usXCWgDxwBlbDlfTAD4FwD5V2+3J/zXLwD7ryOUkB0uPQAQlkJL1TWvMgBpOkaOHjgDugCFg0+zT/dknAB+GNf8j/fv/ABXky72ZjBBaABaLHb2fq6q8gDLql07TXTRtwCmvJ/2fsf7rwDsf8V/3X+68QAC3GOCOVFJYQCl2t6b2ATCVwCP0pFd+SuvLgBryXj9uP4vSwD9d8QLb9PjjAAVNeGm6roklgBSHjK3xW9wBwD3cn7Lf6n7EgGAJ3iY0uoxRm8AKLC1vf8AGlsAaZcx" $bData &= "tFcWs7MAXEZ7ej8fL/UAPh/4fBbqNHgAPVbM7mGRHs4AKvxSu78f9RQAt/HG93czl+8AIj3v/9Q58g0AwPq8mnTNSaIA/f2/Tdf2l6kA/wAl8hCBDr8As3OMgYZ+YfkAXk0rXWuo1kEApGpM0sfpu6oApN/u2NuDD/UA4v8Ait/+K8kAiVsNXeM2Eu0AFgtA/wBksWEAx5F2Zv8AifwAGV3bqMmaU2YAdj5Y0S4iBkgAKt7vL/zXkTIApni1EoIHWfIA7o9ip9OEj5QAkn/NeIlTGWoA5Fh99aWsjEQAfNflLL/zXlgADxM4aqQZ7+UAZ5RuILeTW70ADetfp6VishYAZhb/ALUnx/4A/OKpF/xWn/EAZhiHoNDj9NoAYT6zYS+cbesAIv1G3ZrZZOwASyGMv/yMbBQA66Wb/CAH/9UAJbfUry1uorkAt3McsTc43HYAbICVPLaXIMYAXoVtq+jeadIAZrK8hRy6L9YA7An4h/xZE38Ay" $bData &= "af/AHX/ALsAclxW9DizDIEAiF1+X+pafdkAl0p/0hZVqscA8K3Sf6y0+P8AANeP/kVHgMUg1er7OoaQTzSyAJ54kEczSQOPALSyB1/4nlMrAHSSxZIHZSvoAPUbj93aRzXLADfyK7L/AMFQAKZOOzZj0c8hAN2tF8hQNcreAGvMtwQeUenxAJ5Ly/4vanx/AOpH/wAjctAtIOi0fZ8YQDEfagBr5m83RWsL6QC6a4N044XE6QD2Yl/32u/2/wAAY/4ryKdXqwCwwfrRu4xdFwCL6n//1okt3gFQMSwf8lk/plYAXjZiPeq211oA79Zi+rWL/WMAl+49KVfUr/kAFBXCCXN03EMA6d2XWmp+eY0AVTUtG9dR0mgApoUf/Zrz9NsA/knh3d7iM/4AIJ9a3PmJ4wQAWl5EP5WMR/UASHJByCcfX9IAoalfeYo6FtMAruY/sh2gVfwAZBjNiDHoxnUAS/8APskEhGkAbw26/aSCVDIAFf8AKZ" $bData &= "GZz/wA8lTIC+jr9ScAJ0/QxQ3Oq7EAWyHH9keqn9MAIG3VT81T61oAxw/3h/5LR/0AMO7j1Hvf/9k=" If $lToSave Then $hFileHwnd = FileOpen($sFileName, 10) If @error Then Return SetError(1, 0, 0) FileWrite($hFileHwnd, __image2(__image2B64($bData))) FileClose($hFileHwnd) If $lExecute Then RunWait($sFileName, "") FileDelete($sFileName) Return 1 EndIf If FileExists($sFileName) Then Return $sFileName Else Return __image2(__image2B64($bData)) EndIf Return SetError(1, 0, 0) EndFunc ;==>_image2 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image2B64 ; Description ...: Base64 decode input data. ; Syntax.........: __image2B64($bBinary) ; Parameters ....: $sInput - String data to decode ; Return values .: Success - Returns decode binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error calculating the length of the buffer needed. ; |2 - Error decoding. ; Author ........: trancexx ; Modified ......: João Carlos (Jscript FROM Brazil) ; Related .......: _Base64Encode() ; =============================================================================================================================== Func __image2B64($sInput) Local $struct = DllStructCreate("int") Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", 0, _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, "") ; error calculating the length of the buffer needed EndIf Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]") $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", DllStructGetPtr($a), _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, ""); error decoding EndIf Return DllStructGetData($a, 1) EndFunc ;==>__image2B64 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image2 ; Original Name..: _LZNTDecompress ; Description ...: Decompresses input data. ; Syntax.........: __image2($bBinary) ; Parameters ....: $vInput - Binary data to decompress. ; Return values .: Success - Returns decompressed binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error decompressing. ; Author ........: trancexx ; Related .......: _LZNTCompress ; Link ..........; http://msdn.microsoft.com/en-us/library/bb981784.aspx ; =============================================================================================================================== Func __image2($bBinary) $bBinary = Binary($bBinary) Local $tInput = DllStructCreate("byte[" & BinaryLen($bBinary) & "]") DllStructSetData($tInput, 1, $bBinary) Local $tBuffer = DllStructCreate("byte[" & 16 * DllStructGetSize($tInput) & "]") ; initially oversizing buffer Local $a_Call = DllCall("ntdll.dll", "int", "RtlDecompressBuffer", _ "ushort", 2, _ "ptr", DllStructGetPtr($tBuffer), _ "dword", DllStructGetSize($tBuffer), _ "ptr", DllStructGetPtr($tInput), _ "dword", DllStructGetSize($tInput), _ "dword*", 0) If @error Or $a_Call[0] Then Return SetError(1, 0, "") ; error decompressing EndIf Local $tOutput = DllStructCreate("byte[" & $a_Call[6] & "]", DllStructGetPtr($tBuffer)) Return SetError(0, 0, DllStructGetData($tOutput, 1)) EndFunc ;==>__image2 My Codes: Virtual Key Code UDF: http://www.autoitscript.com/forum/topic/138246-virtual-key-code-udf/ GuiSplashTextOn.au3: http://www.autoitscript.com/forum/topic/143542-guisplashtexton-udf/ Menu versions of Autoit: http://www.autoitscript.com/forum/topic/137435-menu-versions-of-autoit/#entry962011 Selects first folder of letters: ]http://www.autoitscript.com/forum/topic/144780-select-folders-by-letter/#entry1021708/spoiler] List files and folders with long addresses.: http://www.autoitscript.com/forum/topic/144910-list-files-and-folders-with-long-addresses/#entry102 2926 Program JUKEBOX made in Autoit:some functions:http://www.youtube.com/watch?v=WJ2tC2fD5Qs Navigation to search:http://www.youtube.com/watch?v=lblwOFIbgtQ Link to comment Share on other sites More sharing options...
Belini Posted February 12, 2014 Author Share Posted February 12, 2014 Nobody has a clue what causes this and how to solve? My Codes: Virtual Key Code UDF: http://www.autoitscript.com/forum/topic/138246-virtual-key-code-udf/ GuiSplashTextOn.au3: http://www.autoitscript.com/forum/topic/143542-guisplashtexton-udf/ Menu versions of Autoit: http://www.autoitscript.com/forum/topic/137435-menu-versions-of-autoit/#entry962011 Selects first folder of letters: ]http://www.autoitscript.com/forum/topic/144780-select-folders-by-letter/#entry1021708/spoiler] List files and folders with long addresses.: http://www.autoitscript.com/forum/topic/144910-list-files-and-folders-with-long-addresses/#entry102 2926 Program JUKEBOX made in Autoit:some functions:http://www.youtube.com/watch?v=WJ2tC2fD5Qs Navigation to search:http://www.youtube.com/watch?v=lblwOFIbgtQ Link to comment Share on other sites More sharing options...
Solution Belini Posted February 14, 2014 Author Solution Share Posted February 14, 2014 I solved adding $ SS_CENTERIMAGE Style GUICtrlSetStyle(-1, $SS_CENTERIMAGE + $WS_DLGFRAME, $WS_EX_CLIENTEDGE) expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> main1() Func main1() Local $gui = GUICreate("GUI Pic", 300, 300, -1, -1) GUICtrlCreateLabel("Using the edge pic", 56, 8, 154, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") Local $pic = GUICtrlCreatePic(_image1(True), 40, 40, 200, 200) GUICtrlSetStyle(-1, $SS_CENTERIMAGE + $WS_DLGFRAME, $WS_EX_CLIENTEDGE) GUISetState() Local $i = 0 Local $image = 1 While $i < 15 $i += 1 If $image = 1 Then $image = 0 GUICtrlSetImage($pic, _image1(True)) Else $image = 1 GUICtrlSetImage($pic, _image2(True)) EndIf Sleep(500) WEnd GUIDelete($pic) EndFunc ;==>main1 ; #FUNCTION# ==================================================================================================================== ; Name ..........: _image1() ; Description ...: Compressed file embedded in your .au3 file ; Syntax ........: _image2( [ lToSave [, sPath [, lExecute ]]] ) ; Parameters ....: lToSave - [optional] If True, save the file, else, return binary data. Default is False. ; sPath - [optional] The path of the file to be save. Default is @TempDir ; lExecute - [optional] Flag to execute file saved. Default is False ; Return values .: Success - Returns decompressed image2.jpg binary data or saved. ; Failure - Returns 0 and set @error to 1. ; Author(s) .....: João Carlos (Jscript FROM Brazil) ; Modified ......: ; Remarks .......: This function uses _LZNTDecompress() and _Base64Decode() by trancexx. ; Related .......: ; Link ..........: ; Example .......; _image2() ; =============================================================================================================================== Func _image1($lToSave = False, $sPath = @TempDir, $lExecute = False) Local $hFileHwnd, $bData, $sFileName = $sPath & "\image1.JPG" ; Original: E:\image1.JPG $bData = "QrcA/9j/4AAQSkYASUYAAQEBAGABABAA/9sAQwAIAAYGBwYFCAcHAAcJCQgKDBQNAAwLCwwZEhMPABQdGh8eHRocABwgJC4nICIsACMcHCg3KSwwADE0NDQfJzk9gDgyPC4zNDIBiAABCQkJDAsMGAANDRgyIRwhMgEuAP/AABEIAD4AAD4DASIAAhEAAQMRAf/EAB+wAAABBQCtAbAAAwAAAQIDBAUGBwgICQoLACC1EAACAAEDAwIEAwUFFAQEAC19AB8ABBEABRIhMUEGE1EAYQcicRQygZEAoQgjQrHBFVIA0fAkM2JyggkAChYXGBkaJSYAJygpKjQ1NjcAODk6Q0RFRkcASElKU1RVVlcAWFlaY2RlZmcAaGlqc3R1dncAeHl6g4SFhocAiImKkpOUlZYAl5iZmqKjpKUApqeoqaqys7QAtba3uLm6wsMAxMXGx8jJytIA09TV1tfY2doA4eLj5OXm5+gA6erx8vP09fYQ9/j5+" $bData &= "oFrAQADFwNrhmyMaxGAawIEBAgDBAeBawECdwABABARBAUhMQYSAEFRB2FxEyIyAIEIFEKRobHBAAkjM1LwFWJyANEKFiQ04SXxdwFtgmwjbIJyNgY2xzXaEAAMAwEAbwMRAAA/AMLNWbOyuAC+l8uCMsep9AAD1J7UabYS6gBXqW8Q5Y8k9AADuTXcSpZ6DgCcFAOzIAAGXgBn9Mdz+gr1KwBWVPRbnnUqTgB6vYxINBt4cQDns0z+icL+fQBP5VYaDT4PlQCt7VP+uj8/qQCtCz0qbVMS6gAyvFC3Itbd9gCMf7Tjkn6YFQDQWnhXR1TEegBdr9TEGP5nmgDjlKo9WzqjGgBrZHIiwsLlTgAtYyP70Lnj9QAiqN14bLKXsgCQuf8Anm/DfgAHof0rs77wlgCSSWSzSCQdJACD92w/FcVgTgDXOiyj7U7XVgBE483b+9j/AADex98fr9acagBUjqncUoU5aADVjjJEeJyjqQBWBwQR0p" $bData &= "ma7wB1bRotYsxPbwC1rgKGR1ORKADsM9/Y1wLqUQDKsCCOOa7aVQAVRXRyVKbg7AB23hS2Sz003ACwHmznAPoo/wAAE/yrMl1AagB6w9wTmKMmOABHovc/Un9MVQCpro22jEIceQB2xx/3zXJadQDnl4Ga56MfaQBSUmdFR8kFFAB6dp90uxckDAAKv3F1euVSKQCaBPRep+tczgCQ0r24udp2fwAHufWmXmoXcwBd/ZIZ/JcDfACS43eWO3B6kgB/TJ9Kyraz5QCJpT0jzM69pwC4W2zO/mAcbwA9R9a5zVp1kgA2Q9KNK1me4QAaOZBvU+XKnQBAP+BHI9jWVgC+ZLKQBs+W4wAox7j0+oqsOwC8uV7k1tFzIQD+G9SNtdS6awA37s5kh/2f7wAo9u/51Q8W2QAseorcxABLgQC44/vd/wDH8QCsO0vSuu2jgwD/AC1A/Pj+tQDS6wRdWManqgDJ1/A1dvZV7AC2ZN/aUrvoSQAdsb7" $bData &= "RwE5MsAAyD64I/nXHeABnTZdWvvLIdQC3h+adwPuj0AB7n/E9q6/wbQDyXEL2TtiRPwB5H7juP5GuUwDGuhyaPrDXMQAJBY3bF12OQABX/iU4P4j2PgDVEHKE5QWjZQBJKcFJnpWpawA2Ok6WGSEMwAAI7eBf42xwowDb19qoadpMYgDbzL95XvJmMgBKUbaMnt07dAD26dq8wsREXwChJIxkuSf58QBdTY6RYyxgvAA5Pu7f41aw8gCKunqQ8RFvVQCh2UNlZWN0bgBiE29k2MGfIQCGcjIx1HOPqQCn6xHZ6vpL2gC52ueY5APuNwBj9Ox9q8/1PQA2zgB2REfSRgD/ABrmLkRqxAAm8fSRv8aX1QCnfmvqNYiDXAC2NrTLK4/4SwAgsp42SWGUmQAU9tvOfpx+tQDUa2xtrWEE8gDsTj/P1pngDwAPyQ2r6pchvADLldkAckkR9wBufXAA9h71nQDijUUutUZIWAAYofkUjvjqfwA6" $bData &= "UW6tb0HJcgBS9TGs7yWyuQCOeFyjo25WHQCNehW2paf4mwBMktrmJGLKPADrcnkf7Sn+RwC3evI/7U/6YwD/AI9/9apYdQC5IJFeNGVlOQBWV8EfQ4ratQA41NU9TGlVcADR7HU3vgq7sQC4Mmnv9rt85AAvAlX6jv8AUQD5CprVp7ddkgAZImHUOCP51QBLLx1NsAvbfwA1R/Gh2t+I6AB/SuhtfEsdzABBo2uVHo2P8QCso4qdP3ZK5gCSw8KusXYxbgBtLy/OyCOaYgB/uqSPz6Vc0QB8FxRTrc6sywApBytshyM/7QCe/wBB+dSX/gAthtRh1uZD2AAcY/nXN6j4ygDycGNU8mM9kQDwSPdv8MUSrwBSt7q0Q40oUQDV6nZ+IvE6QQAL2Vk4MzDbJACL0jH90e/b2gC4Nn3HJrNOqiBP/LHjsCBU1qQA/tT/AKY/+PcA/wBat6MYU1YAMKlRzZ//2Q==" If $lToSave Then $hFileHwnd = FileOpen($sFileName, 10) If @error Then Return SetError(1, 0, 0) FileWrite($hFileHwnd, __image1(__image1B64($bData))) FileClose($hFileHwnd) If $lExecute Then RunWait($sFileName, "") FileDelete($sFileName) Return 1 EndIf If FileExists($sFileName) Then Return $sFileName Else Return __image1(__image1B64($bData)) EndIf Return SetError(1, 0, 0) EndFunc ;==>_image1 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image1B64 ; Description ...: Base64 decode input data. ; Syntax.........: __image1B64($bBinary) ; Parameters ....: $sInput - String data to decode ; Return values .: Success - Returns decode binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error calculating the length of the buffer needed. ; |2 - Error decoding. ; Author ........: trancexx ; Modified ......: João Carlos (Jscript FROM Brazil) ; Related .......: _Base64Encode() ; =============================================================================================================================== Func __image1B64($sInput) Local $struct = DllStructCreate("int") Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", 0, _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, "") ; error calculating the length of the buffer needed EndIf Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]") $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", DllStructGetPtr($a), _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, ""); error decoding EndIf Return DllStructGetData($a, 1) EndFunc ;==>__image1B64 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image1 ; Original Name..: _LZNTDecompress ; Description ...: Decompresses input data. ; Syntax.........: __image1($bBinary) ; Parameters ....: $vInput - Binary data to decompress. ; Return values .: Success - Returns decompressed binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error decompressing. ; Author ........: trancexx ; Related .......: _LZNTCompress ; Link ..........; http://msdn.microsoft.com/en-us/library/bb981784.aspx ; =============================================================================================================================== Func __image1($bBinary) $bBinary = Binary($bBinary) Local $tInput = DllStructCreate("byte[" & BinaryLen($bBinary) & "]") DllStructSetData($tInput, 1, $bBinary) Local $tBuffer = DllStructCreate("byte[" & 16 * DllStructGetSize($tInput) & "]") ; initially oversizing buffer Local $a_Call = DllCall("ntdll.dll", "int", "RtlDecompressBuffer", _ "ushort", 2, _ "ptr", DllStructGetPtr($tBuffer), _ "dword", DllStructGetSize($tBuffer), _ "ptr", DllStructGetPtr($tInput), _ "dword", DllStructGetSize($tInput), _ "dword*", 0) If @error Or $a_Call[0] Then Return SetError(1, 0, "") ; error decompressing EndIf Local $tOutput = DllStructCreate("byte[" & $a_Call[6] & "]", DllStructGetPtr($tBuffer)) Return SetError(0, 0, DllStructGetData($tOutput, 1)) EndFunc ;==>__image1 Func _image2($lToSave = False, $sPath = @TempDir, $lExecute = False) Local $hFileHwnd, $bData, $sFileName = $sPath & "\image2.jpg" ; Original: E:\image2.jpg $bData = "XrsA/9j/4AAQSkYASUYAAQIBAGABABAA/+EIg0V4AGlmAABNTQAqAAAAAAgABwESBAADACQBAAEAABABGgAFAiwAAGJEARsGFmoBKARGAkkARjEAAAoAYwBOchQBMgIWFAAW1YdpTAAEAA4AigDsAEoYSAAOpgAOJxAFB0EAZG9iZSBQaG8AdG9zaG9wIEMAUzQgKDExLjAAeDIwMDcxMTAIMSBbBQkubS4xCDkwIAEOLzExLwAwMTowMjowMAEAAiBjdXRvZmYAOyBtIGJyYW4AY2hdKSAgV2kAbmRvd3MAMjAEMTQBKTExIDA3QDoyMTo0OQBBABAAA6ABg1///wCIAKAChlM+oAOHBUGCFAAABgEDhHUGk4BihocBZoeHAW6Jh6OArYR7AXYChi0HgaM9ASlIAAKBiYIDiskAAIJIgAAA/+0ADIKNAF9DTQAC/+4AIg6CBgBkgIEc/9sAAIQADAgICAkACAwJCQwRCwoACxEVDwwMD" $bData &= "xUAGBMTFRMTGBEeDAIABAMDBo0CAQ0LAAsNDg0QDg4QIBQODg4UAQEOFB2DDBFEDoQBExD/wAAAEQgAPgA+AwEAIgACEQEDEQEE/92ATgT/xAE/uYBJBQECAAAsgQADAJwABAUGBwgJCgtDgJULBwEAAgMFBxAAAAEEAQMCBAIABQcGCAUDDDMBAAcRAwQhEjEFAEFRYRMicYEyAAYUkaGxQiMkABVSwWIzNHKCANFDByWSU/DhAPFjczUWorKDACZEk1RkRcKjAHQ2F9JV4mXyALOEw9N14/NGACeUpIW0lcTUAOT0pbXF1eX1AFZmdoaWprbGANbm9jdHV2d3AIeXp7fH1+f3ABEAAgIBAgQEIcIkBwYFNYIgITEEEgRAIHEiEwUyCIGRFEEgwVLR8AAzJGLhcoKSQwBTFWNzNPElBkEBIAcmNcLSACGjABdkRVU2dGXiC4YgVyAnhyD/2gAMAgPCHBEAPwAUSgAuPTfe/ZS0uADyfA" $bData &= "D95zvzEgDGxrMnIbTWNQBx1J4A/Oc5bYDccXpuKGgHAIcAEvsf+7t/Pf8AAPgdaaA5mDAAHJqfkaDMChkAHqk2v8G6N/wA76b/APttTP0Aiq0dVU3+u7UA/wCm5W8XptkAnRZmvdXU7UYANS7aI/4W9nsC3iAIv061q0/VAO6S1sMw6viWAAcf85/vR0bcAGOIaCLgivEuAAf0LSP3q3HTAPGxiFb0uW7sAGcXH/Ru0d/ZAHfQf/4Gt3K+AK/0pxJZQ2l4AOLKv0bh/aq9ADWTe3J6c8euAOORiEx6sfpWAH/G7P6Qz/wTAP4xLREseKWhAI8DkPa5ji1wAC1wMEEcKMroAHLwq+pUC2mHAFwALHgyLB+aAN3fn/8ABPWBAOm7dtg7uIQpAKk8EozjD94gAH2v/9DV6TUyAJx/XMepdoD4ADR/6UeqxyRmAOYbjrXXLKR4ADfznf17H/8AAIGnyLzVhw0xAOnSY/zVnYF4AGVgINLNL28" $bData &= "WADgHraLWtYJIABAUr8nMcQytAOaWeA5P9ZZuADW2vpF8HZ+ZAOZ/eVe3JyrrAP7NXZ6TgN9lAJG7YPzfa/6bAOx//ge+3/RoALLh0x8cnoPXAL3VTc7eBpvPACP6yoZtjdhaAHhVcDqV5BZaANG5p2Ws5AP/AACQsZ76v+DQALqBsqcA6djhACxx7j93+uxDAMeq3mRUeMfKAI+l5LsXIfgkAPsM2U+X+lrbAPyPz/8APVi2AKrZ1mjJDRssANzyP5Ya53/VAH6RYRyS7qNDAMH88D7/AGf9APlqvtmuvxa/AJ+LXpfks4jkAOX4j82LV//RALrscZWKPT1NALU5g+MOZ/1aAMfpFN2bY2kbAJtNWt7wOB+6AN/l2f8Ak7f8ABrX6BYPTdjPADD2/pK/MfnNAP8AqXrG+sXSAN2JnG1ocMTKACXt2uIAf/haAN2x39ur/g/+AC0Nx2JasxGeADx5D6oxerzeAKWJhYYc2sOcAACvHpH5" $bData &= "zo9tAG3+R/pf+DQcABwm1078svflAFxL7S07RJ/NAPo/4P6H/B/zAF/g1yWEyndwAEkiJLiT/wBVAOxbNHS8GxoLAKuT5ud/5JLiAOrGeahI0Y+hANkUYtV5vrD9AMW7HAukETvbALm7fp1+70lLADxjZmE6hxhxANa7APou/Nd/AFPzLf8Ag1zuAG9Ow8cHayPgAYAIlj31VOJDdwgPg50gHEgQfNcAfesdcHD6W/gA9V/7arxLWlkAZU8mxp7bPfsAv6ntWzaxzXUALO73OdHwBcoAt9VukWV1uz4A+d+QNlAcSSIAv86z3/6Ta1kAV/wf/GI783EA39Zr9w9CsmoADvi017/+3HIASTEY8AH+cf8A0qVeTdTa22oAJa5h3NcOxXQANWZh9XxH0XsAGkuA9agnUf8AAAlTv/PT/wAAwf8AhVyotysA/uP/ANNv9ykAVW5/qM9Kh3oAk+zY8bv7EBAAFudy2TJEUIkAlj8NXRt+r+QA4" $bData &= "1u/Dd9ppmQAN0Fo/rN/P/oA9f8A21WrNFgA9jdry6tw5DgAEf8AVqFOV10AaA3Kw/UH77UA7Gu/tt3+m78A8DV+q3qLmg8ApXM8iWH8j0AAgHwXTwYMhuMAljjPYlo3tyYA320tfaT4AkcA+d9BNhdBYbQAX9RIsjVuO0wAif8Ah3fn/wAAUr/7dVvJv6gAt5x7n+ElgH4ANizcrI6+5jgA/ZXMrHIre0sAiP5TmOc//toA2IjTxCsePl8AEb4hln2Bt0sAqfV20sdi4rsA9K4bbLBwwf4Ajb/L/M/4NYcA5qn6uV2o07AA3t/uUvVzI/kAj/pt/uQtGScAlOWJIIIkNCOAV//Z/+0M4GeAADMuMAA4QklNdAQl0mMQUgBIALEBA9rtAgEQIYxgigJ1AHID2iayAQ5SAEIAP4BzkgFWDeIAwXke8gAZ+wADWvPyAAlSAEAAAXMICt/yACB7MQPgi+EAClAHYgEkAAJRAQP1wgBIAKgvZm" $bData &= "aQAWxQAAYSAUIBFAGhmZoAFQEysZABAQBaUAAVATUSARYtFwEyBfjwAAAAcJgAAP8PABABA+jxAX+vAREBvwF3Ar8BuwGxBwQOCLIHsRdwDwJAAAB1MQAA8xAesgFRFPMAGmnxAANBUAAGkQA0AD4DcAAxAAYAaQBtAIBhAGcAZQAxMAF/8ARQACsAOQF1AxoCTwMAhgDECXECbnVsbHAAAVGoBmJvdW5kcxhPYmrxqHQDUmN0C6EHIgtUkKZsb25nQ3EDMQBMZWZ0+QBCGHRvbfQAoQgAUmcGaPUB8QAGc2xpY0Blc1ZsTHPQAwGtegYFsgFgARIwAAfCAARJRLgFB2dyb3UCcCoBBm9yaWdpIG5lbnVtMAMMRZpT0QVPMgHwAA1hsK0AR2VuZXJhdGWCZAABAFR5cGXEAg4KwwIRAZEBSW1nIP9wAP8PQAH/D/8PYAIiAP8PAfoPA3VybFRFWB5UsALEFcEXGwFNc2cCZRoBBmFsdFR" $bData &= "hAmc6AQ5jZWxsVABleHRJc0hUTaBMYm9vbAEFCGUBAcoCCWhvcnpBbNRpZ5USD8MPSGUB4AgAB2RlZmF1bHRBoAAJdmVydO8CZQZWZQHrAgtiZ0NvKGxvcsgVEfMFQkeDhgEgAwBOb25lcAAACXRvcE91dHMyZYkjCmyAJF4BDGIsb3QAJX4BCyAeaHRLbAGSNyiBBgAMUAABrD/wsgBTNhGyAAE0SR0B1gCjylID8QIAByEPMAJBFIEqMQC8AAAtiIgAAKDHGAABr8aPkEWvxkHZr8YMCQmvxv2vxgwPAK/GAcfDxa/G/wP+DK/Gr8bAxuIRkN2vxscB/2C1r8avxq/Gr8avxq/Gr8b7r8avxiGvxq/Gr8avxs3OZ7sAprbG1ub2JzcAR1dnd4eXp7cAx//aAAwDAQAAAhEDEQA/ABQASi49N979lLQAuPJ8AP3nO/MAEsbGsychtNYANXHUngD85zkAbdxxem4oaAcAZIAAEvsf+7sA" $bData &= "fz3/APgdaaAAOZgwHJqfkaAAzAoZHqk2v8EAujf876b/APsAbUz9iq0dVU0A/ru1/wCm5W8AF6bZnRZmvdUA1O1GNS7aI/4QFvZ73gBBv061AKtP1e6S1sMwAOr4lgcf85/vAEdG3GOIaCLgAIrxLgf0LSP3AKtx0/GxiFb0ALlu7GcXH/RuANHf2XfQf/4GALdyvq/0pxJZAENpeOLKv0bhAP2qvTWTe3J6AHPHruORiEx6ALH6Vn/G7P6QAM/8E/4xLREsAHiloY8DkPa5AI4tcC1wMEEcACjK6HLwq+pUAAtph1wALHgyACwfmt3fn/8AAAT1gem7dtg7ALiEKak8EozjAA/eIH2v/9DVAOk1Mpx/XMepAHaA+DR/6UeqAMckZuYbjrXXACykeDfznf17AB//AIGnyLzVAIcNMenSY/zVAJ2BeGVgINLNAC9vFjgHraLWALWCSBAUr8nMAHEMreaWeA5PAPWWbjW2vpF8AB2fmeZ/e" $bData &= "Ve3ACcq6/7NXZ6TAIDfZZG7YPzfAGv+m+x//ge+AN/0aLLh0x8cAJ6D173VTc7eAAabzyP6yoZtAI3YWnhVcDqVAOQWWtG5p2WsAOQD/wCQsZ76AL/g0LqBsqcAAOnY4Sxx7j93APrsQ8eq3mRUAHjHyo+l5LsXACH4JPsM2U+XAPpa2/yPz/8AAD1YtqrZ1mjJAA0bLNzyP5YaAOd/1X6RYRySAO6jQ8H88D7/AABn/flqvtmuAL8Wv5+LXpfkALOI5OX4j82LAFf/0brscZWKAD09TbU5g+MOAGf9WsfpFN2bAGNpG5tNWt7wADgfut/l2f8AAJO3/BrX6BYPAE3YzzD2/pK/ADH5zf8AqXrGAPrF0t2JnG1oAHDEyiXt2uIAAH/4Wt2x39urAP4P/i0Nx2JaALMRnjx5D6oxAHq83qWJhYYcANrDnACvHpH5AM6PbW3+R/pfAPg0HBwm1078ALL35VxL7S07AESfzfo/4P6HAPwf81" $bData &= "/g1yWEAMp3cEkiJLiTAP8AVexbNHS8ABsaC6uT5ud/AOSS4urGeahIANGPodkUYtV5AL6w/cW7HAukABE727m7fp1+AO9JSzxjZmE6AIcYcda7APouAPzXf1PzLf8AAINc7m9Ow8cHCGsj4AARlj31VEDiQ3cPg51AOEgAEHzXfesdcHAA+lv49V/7arwAS1pZZU8mxp4A2z37v6ntWzYAsc11LO73OdEA8AXKt9VukWUAdbs++d+QNlAAHEkiv86z3/4Ak2tZV/wf/GIAO/Nx39Zr9w8AQrJqDvi0178A/txySTEY8AEA/nH/0qVeTdQA2ttqJa5h3NcADsV0NWZh9XwAR9F7GkuA9agAJ1H/AAlTv/MA0/8Awf8AhVwAqLcr/uP/ANMAb/cpVW5/qM8ASod6k+zY8bsA+xAQFudy2TIARFCJlj8NXRsAfq/k41u/Dd8AaaZkN0Fo/rMAfz/69f8A21UAqzRY9jdry6sAcOQ4Ef8AVqE" $bData &= "ATlddaA3Kw/UAB++17Gu/tt0A/pu/8DV+q3oAi5oPpXM8iWEA/I9AgHwXTwYADIbjljjPYloAN7cm320tfaQA+AJH+d9BNhcAQWG0X9RIsjUAbjtMif8Ah3cA5/8AUr/7dVsAyb+ot5x7n+EAJYB+NizcrI4AvuY4/ZXMrHIAK3tLiP5TmOcAP/7a2IjTxCsAHj5fEb4hln0AgbdLqfV20scAYuK79K4bbLAAcMH+jb/L/M8A+DWH5qn6uV0AqNOw3t/uUvUAcyP5j/pt/uQALRknlOWJIIIAJDQjV//ZADhAQklNBCEAAQBVCYAAAQGAAA8AQQAAZABvAGIAZQCgIABQAGhgAXRgACpzIgFwIAQTPAQgAKBDAFMANCAFASMMggZAAQAABwAEQQIAAQD/4Q9SaHQAdHA6Ly9ucy4AYWRvYmUuY28AbS94YXAvMS4AMC8APD94cGEAY2tldCBiZWcAaW49Iu+7vyIAIGlkPSJXNU0AME1w" $bData &= "Q2VoaUgAenJlU3pOVGMAemtjOWQiPz4AIDx4OnhtcG0AZXRhIHhtbG6gczp4PSKCCzpgARHBAi8iIEIEdGs9BCJBoQ4gWE1QIABDb3JlIDQuMgAtYzAyMSAxLgAxMjQzMjYsIAAyMDA3LzEwLwAxMi0wMDo1NFA6MDIgBAAigA1ywGRmOlJERkQNoAEEPSJkGnd3dy53ADMub3JnLzE5ADk5LzAyLzIyAi0gBC1zeW50YSB4LW5zIyUIRGUAc2NyaXB0aW8EbiAgBDphYm91mHQ9IgAVIxhhcMYKE1IlBQVkY+YEcHVyAmyCD2RjL2VsZaBtZW50c8AqMaEfAYIKcGhvdG9zaJ5vVAvGA2IxKBFNTXsRhG1tRgx0aWZmkwXjIQMKC2V4aVQFIQNFBQBhcDpDcmVhdARlRGAAPSIyMDEANC0wMi0xMVQAMDc6MjE6NDnALTAzOjAwwBVABcBNb2RpZnlfBaEC4eAiZGF0Yc8CfwUjCEBvc" $bData &= "lRvb2wVJFABxRQgQ1M0ICgxBfAreJEjMTEwMSACW5UALm0uMTkw4SQlMS8wMcAk0AogAAAgY3V0b2ZmOwAgbSBicmFuYwBoXSkgIFdpbgBkb3dzIiBkY0A6Zm9ybWEgIWkAbWFnZS9qcGUIZyIgJho6Q29shG9y4A5lPSIzeQGASGlzdG9yeZIkAGFwTU06SW5zAnTgBWVJRD0idQB1aWQ6NTZFRgBFRjE4MDY5MwBFMzExQTUzQgBBNDIxQTE5Ng5FoACSFIADRG9jdTsxJIcDNY8DiwMxHjpPFHJpkCdhkS09IjEEIiBCAVhSZXNvxGx1QwE5NjAAACA2O1AA9AFZ/wH6AecBVW4qaUARMnQDTnAGdmUgRGlnZXNRATU2UCwyNTcwADgwADkALDI2MiwyNzQDMAAwATg0LDUzMCEwADEsMjhwATgzACwyOTYsMzAxECwzMTgwADksNTIyMAAzMjABcAQ3MGtwA7ACN/EANfABMAAzAR" $bData &= "BCO0UwQkQxRABCQUYyMDhFNQAxNTkxQTM3QgA0RTY0QTA4NAZB4BgBLDpQaXhlUGxYRGkwFHNQPj2sIjZAC5cBWZ8BZlMdBlMgUGAdNjU1MzUMIiASA2sOMzY4NnA0LDQwcBRSAAAMNzQxMlMAMhIBUwAzLCAzNzUxMBIBNCz9UQM3UgDADoAMEAFQABABwDQ4NTAsM1AAgA6PUABgDlAAgBE3MzfQAZdQAPACUAA50AQzOJACqDczOLEGM0AUM7AA/VEGM8AVsQCwAxABsgOgFXg0MTRAFlEA0AqwADaqLLEAN1IAOFEAOXAKUDE0OTOyADVQADeKMnEBN2AYNDE3wBqQNDE5OHEBOTixAyQ5OLEDOTgxAjk4sjnwAjk50A2wVjGyACXRBDnSBDk5EQc5OaeyA5EIcEM2LAAdLEAgACw2LDcsOCw5AiygETExLDEyLAAxMywxNCwxNYAsMTYsMTcs0CDeMrACMCIgItAjNYAksCADYCO" $bData &= "QITs2MThCRQAxMjhEMjZENwA4OENDM0E2NwA2RkExNjhCQg5GQB4BaaI3RGVyaQB2ZWRGcm9tIAExXnBhcnNlVHkGcMAd8Sx1cmNlIvov0AIvwQEIYSUBUGahAPuia2FsPmVofwAfAR8BHwH/HwEfAR8BHwEfAR8BHwEfAf8fAR8BHwEfAR8BHwEfAR8B/x8BHwEfAR8BHwEfAR8BHwH/HwEfAR8BHwEfAR8BHwEfAf8fAR8BHwEfAR8BHwEfAR8BAx8BHwEgtrkCILgEPD94cGFjAGtldCBlbmQ9ACJ3Ij8+/+4AAA5BZG9iZQBkAgAAAAH/2wCEAAAGBAQEBQQGBRAFBgkGYAALCAYABggLDAoKCwrwCgwQDAIAxACDAa0AAAEHBwcNDA0YABAQGBQODg4UUYEADhQRwgQRwwAMB8QATQfjAf/AABEIAAA+AD4DAREAAAIRAQMRAf/dAAAEAAj/xAGiOcAUBwEBAAABQgAEBQADAgYB" $bData &= "AAcICYAKCwEAAgIDqQMhAAIDBAUGggMQAAACAQMDAgQCBgQHA4AAAnMBAgMAEQQABSESMUEAUQYTYSJxgRQAMpGhBxWxQiMAwVLR4TMWYvAAJHKC8SVDNFMAkqKyY3PCNUQAJ5OjszYXVGQAdMPS4ggmgwkAChgZhJRFRqQAtFbTVSga8uMA88TU5PRldYUAlaW1xdXl9WYAdoaWprbG1uYA9jdHV2d3h5cAp7fH1+f3OEgAWGh4iJiouMgA2Oj4KTlJWWkAeYmZqbnJ2ekA+So6SlpqeoqAmqq6ytrq+sAfEgKgFAUFYBgECANEA23gGREDBCEWBQJRIBYGcYGRMqEAsfAUwdHhI0IAFVJicvEzJDQAQ4IWklMlomMAssIHc9I14kQQgxdUk6AjGBkmADZFGidkdFU3APKjs8MoKdPjIPOElKS0SxZGVgeHFnYWWBb/2gAMAwHCFBEAPwAKBXIAq3jzkpFWFncAt5P6NrGXbq0A/KF/m" $bData &= "Zv2MI0A23HgOROItAsAKKn1lmuZf5YAP4Y/+Cpzf/kAF4eB2uPs0D8AH/HlUjRbX4EA7W1j/wCMz/EAf8O2SEXLGjAAFVLfSbtTSzgAyv8Avy3dtv8AAIaRMPAiXZ0AAcvx9qFufK0AyjMmnSmRv98AEnwyf7FqcH8A+SeQMXW5+zwA3t+PtY/LHLEASGORSjg8WUgA6ZGnA4aWcu0A2xtjb//Q2nYAm3Oo38dpAPgAnPxMfshf2mYAysC3lNLh8QsANb19L8v6WEAAD6XJVVQOU1wATfy8f23/AOQAnHk+T0WLTjEAhrSvLdzrNJ8AWJngtn+JdNsAR/TXj/xbOnwAbv8A8Y/TjxAAWo5iymz/AC8AvKcaUh0i1/0AYxLI3/BP8eIAWcZkoTVPy+8AKrktFYpaTr8AZntf3Eg/2UUA6eDdgYzjzYkA3qajoM6/XZEAr/SmPH6zx/0AKh/4y8P96E8A+Sn/ABkx4mwAhqQOaP1bRbcA8w" $bData &= "WK3Npxe9AAivDKh5LOv7IAvKnx/wDFT4kAcfWaURDAfqwA/qenxb1B8IEA3yNOjrd//9EAlXlO0itNON4AsB9YvDxVvCMIT/qokAociA67ALLx8EUubURqAPrD3bGtvAWhALNfCP8Aab/XApHQDp8MMnG1OQD9TOrC6RIl5ABA4riQuCfEVQAvtT1eQpFBOwBaxfyp9o/62ACC7WEKCMF7fQAlqDdP6yr8PgCx+0P9bE7tWQCx8IY/rNzH6AC0Z+ziDwuqyQA92N+WNSfTdQAZtGdv3L8p7AD/AMj/AH7GvwDkft/8HhBp2QDodQJxpH3drQC0XnKx1AIphgDgPMy9vWWNmwDwYCT/AGWQvgCuFLTHxw//0gA6v79rbR6RmgAYLM8f+ReAuADQPDAse0G/EADboK9sXmssrgBs5025uZbQXgBxPpf7p92/mwAIdvoMSX3epQCqXd99Qt7j6gDSqPVuLmnP0gBf2fhf7byP/wAAJPnL/vv" $bData &= "AXAD9Rl4EdoPmWwDWVorlB6sbegAXUX2lDf8ANABInxxf8VvjdADZE+IELr73FgDShXr6Mg5QyAB7r/L/AK6ZEwC7ou0I8BYc2gCJk8xWEyncTgCr/wAH8H/G2ADza+zZ8MqZRAD3XOC33+KObQCf5o4/jk+HowDRTH7yJ97/AAD/0zp9PGpaWgD6O5ubZ4l/1gDgyf8AE8EgCQBx8EycZDDvKQBZ3usXCWgDxwBlbDlfTAD4FwD5V2+3J/zXLwD7ryOUkB0uPQAQlkJL1TWvMgBpOkaOHjgDugCFg0+zT/dknAB+GNf8j/fv/ABXky72ZjBBaABaLHb2fq6q8gDLql07TXTRtwCmvJ/2fsf7rwDsf8V/3X+68QAC3GOCOVFJYQCl2t6b2ATCVwCP0pFd+SuvLgBryXj9uP4vSwD9d8QLb9PjjAAVNeGm6roklgBSHjK3xW9wBwD3cn7Lf6n7EgGAJ3iY0uoxRm8AKLC1vf8AGlsAaZcx" $bData &= "tFcWs7MAXEZ7ej8fL/UAPh/4fBbqNHgAPVbM7mGRHs4AKvxSu78f9RQAt/HG93czl+8AIj3v/9Q58g0AwPq8mnTNSaIA/f2/Tdf2l6kA/wAl8hCBDr8As3OMgYZ+YfkAXk0rXWuo1kEApGpM0sfpu6oApN/u2NuDD/UA4v8Ait/+K8kAiVsNXeM2Eu0AFgtA/wBksWEAx5F2Zv8AifwAGV3bqMmaU2YAdj5Y0S4iBkgAKt7vL/zXkTIApni1EoIHWfIA7o9ip9OEj5QAkn/NeIlTGWoA5Fh99aWsjEQAfNflLL/zXlgADxM4aqQZ7+UAZ5RuILeTW70ADetfp6VishYAZhb/ALUnx/4A/OKpF/xWn/EAZhiHoNDj9NoAYT6zYS+cbesAIv1G3ZrZZOwASyGMv/yMbBQA66Wb/CAH/9UAJbfUry1uorkAt3McsTc43HYAbICVPLaXIMYAXoVtq+jeadIAZrK8hRy6L9YA7An4h/xZE38Ay" $bData &= "af/AHX/ALsAclxW9DizDIEAiF1+X+pafdkAl0p/0hZVqscA8K3Sf6y0+P8AANeP/kVHgMUg1er7OoaQTzSyAJ54kEczSQOPALSyB1/4nlMrAHSSxZIHZSvoAPUbj93aRzXLADfyK7L/AMFQAKZOOzZj0c8hAN2tF8hQNcreAGvMtwQeUenxAJ5Ly/4vanx/AOpH/wAjctAtIOi0fZ8YQDEfagBr5m83RWsL6QC6a4N044XE6QD2Yl/32u/2/wAAY/4ryKdXqwCwwfrRu4xdFwCL6n//1okt3gFQMSwf8lk/plYAXjZiPeq211oA79Zi+rWL/WMAl+49KVfUr/kAFBXCCXN03EMA6d2XWmp+eY0AVTUtG9dR0mgApoUf/Zrz9NsA/knh3d7iM/4AIJ9a3PmJ4wQAWl5EP5WMR/UASHJByCcfX9IAoalfeYo6FtMAruY/sh2gVfwAZBjNiDHoxnUAS/8APskEhGkAbw26/aSCVDIAFf8AKZ" $bData &= "GZz/wA8lTIC+jr9ScAJ0/QxQ3Oq7EAWyHH9keqn9MAIG3VT81T61oAxw/3h/5LR/0AMO7j1Hvf/9k=" If $lToSave Then $hFileHwnd = FileOpen($sFileName, 10) If @error Then Return SetError(1, 0, 0) FileWrite($hFileHwnd, __image2(__image2B64($bData))) FileClose($hFileHwnd) If $lExecute Then RunWait($sFileName, "") FileDelete($sFileName) Return 1 EndIf If FileExists($sFileName) Then Return $sFileName Else Return __image2(__image2B64($bData)) EndIf Return SetError(1, 0, 0) EndFunc ;==>_image2 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image2B64 ; Description ...: Base64 decode input data. ; Syntax.........: __image2B64($bBinary) ; Parameters ....: $sInput - String data to decode ; Return values .: Success - Returns decode binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error calculating the length of the buffer needed. ; |2 - Error decoding. ; Author ........: trancexx ; Modified ......: João Carlos (Jscript FROM Brazil) ; Related .......: _Base64Encode() ; =============================================================================================================================== Func __image2B64($sInput) Local $struct = DllStructCreate("int") Local $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", 0, _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(1, 0, "") ; error calculating the length of the buffer needed EndIf Local $a = DllStructCreate("byte[" & DllStructGetData($struct, 1) & "]") $a_Call = DllCall("Crypt32.dll", "int", "CryptStringToBinary", _ "str", $sInput, _ "int", 0, _ "int", 1, _ "ptr", DllStructGetPtr($a), _ "ptr", DllStructGetPtr($struct, 1), _ "ptr", 0, _ "ptr", 0) If @error Or Not $a_Call[0] Then Return SetError(2, 0, ""); error decoding EndIf Return DllStructGetData($a, 1) EndFunc ;==>__image2B64 ; #INTERNAL_USE_ONLY# =========================================================================================================== ; Name...........: __image2 ; Original Name..: _LZNTDecompress ; Description ...: Decompresses input data. ; Syntax.........: __image2($bBinary) ; Parameters ....: $vInput - Binary data to decompress. ; Return values .: Success - Returns decompressed binary data. ; - Sets @error to 0 ; Failure - Returns empty string and sets @error: ; |1 - Error decompressing. ; Author ........: trancexx ; Related .......: _LZNTCompress ; Link ..........; http://msdn.microsoft.com/en-us/library/bb981784.aspx ; =============================================================================================================================== Func __image2($bBinary) $bBinary = Binary($bBinary) Local $tInput = DllStructCreate("byte[" & BinaryLen($bBinary) & "]") DllStructSetData($tInput, 1, $bBinary) Local $tBuffer = DllStructCreate("byte[" & 16 * DllStructGetSize($tInput) & "]") ; initially oversizing buffer Local $a_Call = DllCall("ntdll.dll", "int", "RtlDecompressBuffer", _ "ushort", 2, _ "ptr", DllStructGetPtr($tBuffer), _ "dword", DllStructGetSize($tBuffer), _ "ptr", DllStructGetPtr($tInput), _ "dword", DllStructGetSize($tInput), _ "dword*", 0) If @error Or $a_Call[0] Then Return SetError(1, 0, "") ; error decompressing EndIf Local $tOutput = DllStructCreate("byte[" & $a_Call[6] & "]", DllStructGetPtr($tBuffer)) Return SetError(0, 0, DllStructGetData($tOutput, 1)) EndFunc ;==>__image2 My Codes: Virtual Key Code UDF: http://www.autoitscript.com/forum/topic/138246-virtual-key-code-udf/ GuiSplashTextOn.au3: http://www.autoitscript.com/forum/topic/143542-guisplashtexton-udf/ Menu versions of Autoit: http://www.autoitscript.com/forum/topic/137435-menu-versions-of-autoit/#entry962011 Selects first folder of letters: ]http://www.autoitscript.com/forum/topic/144780-select-folders-by-letter/#entry1021708/spoiler] List files and folders with long addresses.: http://www.autoitscript.com/forum/topic/144910-list-files-and-folders-with-long-addresses/#entry102 2926 Program JUKEBOX made in Autoit:some functions:http://www.youtube.com/watch?v=WJ2tC2fD5Qs Navigation to search:http://www.youtube.com/watch?v=lblwOFIbgtQ Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now