#Region - Timestamp
; 05.07.2016 22:09:30
#EndRegion

#include-once
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <WinAPIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <MyTool_UDF.au3>

;~ Opt("MustDeclareVars", 1)
Opt("GUIOnEventMode", 1)

Global $aInfo[10]
Local $MyPic
$MyPic &= 'iVBORw0KGgoAAAANSUhEUgAAAIAAAACACAYAAADDPmHLAAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAAsTAAALEwEAmpwYAAAAB3RJTUUH3wMGCwozBB1HKwAAABZpVFh0Q29tbWVudAAAAAAAR29vZEZvbi5ydX8VB5kAACAASURBVHja7L13lGVXde392+HEmyuHrs5BrZa6JSEJJJRAEjyTkwhGgA0oIZABk2yTBJhsDBJCgEBkg8EEkUSSQAiUc1a3OqfKVTedc0/c749T4GcPP4/n5w8k3tdzjBrVt8aovuecPe/ea8011yo4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEM4hEP4U8DnP3fpoYfwX4T8U7rYSz76kd//+0Mfer99yUc/ZN1w/S/7r/vFVS+86fofH3HsxnX1u275bf2rn/+Me9V3vlP69re/VWr0L/9P7/E977sYgL94zVsA+MsL3/r/KwKIx/LFffC9F/O2d7zr3/zsLW9405pnPeO0S5aPDK3wKiXjOs64bTmNLE8waTorHAekXszz3BZSEYXB3MHJqb233nxbum/vvq1Ts7Pb4p6cPmrL0XPV5bWHXvr8ly38797/ledewJWfvfwQAf5QeONFf8XHLvnEv/nZ+77wD7p5+y7dmp+uyzQqjS4bW796/dq/XLlyxaBTrq7zXXd8uL+C43oIIbA9D2U5SAQohckzhNaQGpCmuEVLg9CQhZAJ9u7Zy29//Vvm5+Zzk8k7X/aKs+pRHArllLxHHtlxYPnEit0PbH34Rw9t3XvVha99zdwVl36Uc173pkME+EPhw+9++/Cevbtf0G2ZxyVB57A+X6xduXLQ2bhpjbVy7XpveHwF5b4GAkWWpJBnGEApC2E5aNsGISE3/3pHAvJeF6k0KAuEACnBLJFCCUyS0VmcpTU/i9KaRqMPpW2EdjBCEHRbzW9+72cvOef8C69+zV//LZ/6h/cfIsD/Ld7wNx+oMLNtY9iM6rmJHufmwbj2nONs1z3eVznDfT6r1yxn9fpVDIwsw0iHJElAe9h+DQFo7WB5LkppEAKTG6RlATkmSxEGjMkBA8YQttvkBrxyBaU1BiBPQSvIDIYchEZKSdhpAjla20ihEUqRm5TUSO5/6KGPHvuEV73lre94BR9673vMf/Xe//n7PxIvetbTzf/TBHjtq8/nk5/79O9fX/S6N4yKzvwWYfKzw077mVnQ9h2RypIrRL3mi3LJwfcl1XKVxvAYtXofXnUQXB+JRjsOlmVhuz6DY8uQSqMsG0GxcEkcY3KDkqJYdAFKiKVFNmBy5ib304tiav0DlEpllOVi8hiMxJicJI0xeY52PDA5cRgiAe16GEBrTZ5nCKfMv1z1g3e++CV/+d7/6N6f+eyz+cFVXwXgpFOfNvT8Zz/lyOf82ZPfdeDg/lWzrfaNz37OC18I8OY3vY2PfPSD/+8Q4G1vfudI3F1cR9xZ3Wu3NkRBbzzLki15nq7VZCUtUiwlcGxFtVrB812qFR+pLUp+GUtb+CUf27bJUeSAkBpt27ilEuVqDdf3WLZqHX65islTwk6bLE1RWuJ4HpbjglAIckwak2UZWZYhhEJKSa/Xw7FthMlBWygJWZyQmZwkiknThDiJ8fwSAomQgDEorbFsF6UVRihaYczL/vKCZT/44Y/3//vncOppf3ZyZz64YMtRm447/bTjK8959pnDWhqyNKXbabN12yN7wzT/6dx89/IXnf3yOwDOfdV5fPbzn3nsEeCiC17HJZf/az79pre8VaSdrkrTnmOiREmlThRp9oIkCZ+ehs2RpNMhzWIspaiVPcolF+24+BWXKEool3ziOENrC6UtLMsiimM8xyHoBhiKs1lpjUKgtaJSqTA+MU65XqPU18/4xAriXkie53h+Fa9UQSmFdC3I8uI4SHrEUYgUurgxKUBL0iBCagGZQTsOeZ6SpykZBpOkhGFI0OkQJz0sy8F2bJSy'
$MyPic &= 'sG0b1/cB0JaFEIKvffOHz335ua/9HsCpJ585ULK88+bm594SB73q2rUrJr/wpU8OlwZqIpqbwZiM2ZlpwrBLrT5EtxcBhoOTM3c/uHX3e+5/6MGr/vETl2avftWFfO7zlz36BLjovAu55DPFhXzCGLn7dRednAfhyVkcntTptAbjpLc+DjslQSpkkqKUQCuJY1to18W2beqlEqWSQ9hLcXyHPM/RyiaJU7TWRFFEGCYYYTB5jvndbi0MAoHnuniOg+s4jIwMMDYxzooNm0hNjpSKvr4hHM9DSpBaI6VGSInJErIkAmHI04w8ywDI8gzb8ZCi2PJzcvIsQyCIk4gsSQm7HeYm94FJ0baLASynhF8qoy0b23VwLEWWG85988c2fOMbX9p64nEnv3J+dvbzWmSUPJfB4QHe8qbXtE8844yKyDKizgKT+/cSRzHVeo0kyWi22vheidHly+m020zOzv72m1fd9Gfve89b20I8erG4/r3I8pnLuOjcC/7M9ILLHjzrrFVRp0nYbtGLQ3KTolwbx3aRyqFaayAVaKWwtKbsuNiujetaBaPinDwTCDS9ICSOM9Lfbc+5JM+KoF1QfE8ECGEwYUoahzSbglZ7kampA9jVIbNs1XLhOS5ISRz1kBIcXS4WPMvITYYxOVmcIKTAsmwyAY7tgQGRZ2RZgkkzhBBkaYowAiUFjuNR7etHWQ5JlmErSdQL6LanUdrBzSskQvHg9p3s2HFw5IwznnHVwd07DyPvkeUJ1ZEGG9ZMsHz5sorIE7KwzeS+PUzu3wN5TtBpkhqBVIqh/kFIc1xLs3xw4IlPf/KRN33gIx8/Fgjf/vY38773feTRI0DxkcnuMkJ+VHvus6VjLfcafWUpACU9KaWSQs4rrQPH0R2LuF/l2TrfsZBLW3ecxkS9FJMKekmPOE5IswST50ARrIVRhBACqQRhJ2Sx3SbKDEIItKWIeiGpgcGhISwtuOW+z4gXvvRFi+NjAzWllOjvb1Cr94EQpFFE1AsQ5Nieh+2VIM9JsxhteUhlYbJi6xVSIKQsgjopkUKQZ9DpzCC1Jur1ECYhtRy07aC0Is9ykqCHW6+aq77z67jbmfv+5IH5mmcpXFtSdqu4ts3mzYczNrGMtNPmvjtu5MDeHTQGRzF5Rru5SN/gKHGS4ZcrBO0FHMcjl4I1y0cPr9W8B5t/88bT3/e+j2x//8Vv52/f9b5HjwBCq4Of/PxnPwV86v/kl9960WtOUSZfY7L0+DjoHZbEqSul7BlklEn1uCAOBjqdDnv3H8C2LKbnF1hodnAdi7LvIJWi2w1JcxBILMumXCrheDbzix1yk9JXr/O9b32jnqN59XmvyFesWiOl5ZKEEUGniVSSSrmCMYI8z8BkaMtBaut/0QTM0tYPJs3JsgxDThh2AUHYaaOVheWVkEoVX0IhRLFLHNi/V1z9y+ucVhQ6GiCHWqlKpWzh2tKsX7dWpL0OOx6+jz07HqZcrZHGPaTUeH4Z3y/hCUGzOYvvOES9LpbjolyXETW44hXPf/rD6yYmnvLq17zh2gtf/zpx2ccvNX8SWcB/mA6e+9qnx732pcHC7NjU5F4nzxMkBqUEErAsi9ykxFGKlJqgF+G6LnGSkiOXLkky0NfH1PQkwyMjKEviWA41v8bwxLh55rOfng71VyylJY5bQmsLrSRKKQwGbbsIy8akKSZPipjA5ES9EKkUSS8iinoYCUGrSRR2UVIipI3t2ti2BdJCSYXveVz5uSv4yJXfodPqUvFtaqUSVd9jsK/MlqOPSJ/59Kfpku+wfev99A8Okuc5WRxQrg/huBU8zyNJUxzPxXNcwm4X1/PwyjWMMUDOgf37zXe+fdUPH1ysP/+rn/375NE5Av6LuOg1bxnIsmhD2gtWhWH3pCjsvHj3Q3fUut02ggxba3y/hJQCrTQ50Isi0sSAUiRZhlQWUQxG2gghcT0P8pxSyaVUKpNnkANRrwNZQrCtLbY9sl6PDB+H0prM'
$MyPic &= 'ZGRxBrZFHMd45QpGSkhjAIwxCCDNUqRWhN0uQbtFjsDWivbiFFLZWKU6lm0jhSTLDNJkS4Fmxie/8B3SdohUEtuxKXkOUhqSOGfLkRu1X3KYmdzPYUcdT7VSZf+e3Xilccp+BaEUWZoSxwl5kmJcgVCKXtBF2S6O4yOUYmhkVLz87LOeefPNtzwcbHvyBd/55bU/PfvMp/LVn//0D0oA9X/7i6/+i1fXF6b2PbJ319YLD+7f/bzZqf3HdtvzbprGlD2H/kYD13XJDUip6IY9enEhwqS5IcsNeS6xHA+kJssNUmkEAtexSZIMIySW1sRpgq0lWivKJZ8s6Zmaa4ugGxIEHSq1GuQ5XslHaxcpBSZbkoyznDRN0NoiTRI6C3M0F2aQQhFHnYJEvQ55nmLZHkppsixFK4WyNL+54Qa++LWrsB0HW2ssISh7NsZkRN2Up5x5GibpMjS2gtGxZWRpStBtM7FyHVEvxHYc0rRIPZMkwXFsXMfF5DlSKbSlyVKD6/l02m1WrhhrnHT8hrN1Ksxnv/f96373vN//jndzza9/9dghwBlPfFIcdObPCnvt0TiNcVwbx3LwbAfLtknynDhJSTJDkuZkGWAUuRFEaY6QTqHRF8ItaZ5jZPHKs22iKEYoSZYmZFmE7zpUymW0JTBpLLrzc4SdFmsOO4JSqYzteVhOCWkpjMkROYXUawxCSKRlE7Tn2bf9fkyeYrkOaRKhRE6exJBlKKnIlwJW23GwJLz1797P/ukWniXwbI1j6YLYWc6Lznp6vumIDcL1NFEYYzsuCEEvDGkMDGNZxePNs5Q4jtG6ILhl27ieD0ISBgFKWSAVlb4aea5oT+5j09qBJ03UK+cN9Y3/5v4dO/b/IRb/v0WA3956oznhhJMOlFz7z7W0kEIUn2ChAEGW5uRIpCyi6Tg3GKnJc0NmKJQ6LZGqCLZyIIwCauUKuTEoKVHGkOYpw4N99DUaCDKiKMTRGs91OPKYY3B9l2q9H2W5S9JtjkgiMpMWKaBUCMtCSMXsvu1EUcjAwBhpGmJZDq5XRkuF7ZZRjoswOZ7n4ZXKTE9PcdkV30QpScm1qZVdhEmJkpwky3npS18sGjWbMOzSa89T7hsGIIljGn0DaMsiiSOyNC0CLiHI85w4iZFKoSwPrRQzMweK2oQpdkGT5zx4x+2sWjZS6XUXX716+Zrhw9et+9W9W7clr3vZK7jlnrsffQIA3H7XHVuPP/bYGdctrS2VSgO+52FpCyUUcZ6SLVXe8swQRjEYyHJDluUsVW7Q2iJPY6IkptPusji3wPzsDBLwXYt6o4bKDVmWEYYBruswUK+xctUqPE9j2x7atpBSoLQkzxLiqIeSNkLbS0SzyKMuYRhQqtbJ8h6eW6LeGMEvVVC2g1+uU6o0qNT6UEqjLcVdd9zMd6++jqFGHddW1Koe48MNFjptklTwile8NI/bk6KzOIe0fDy/ipTFB6FcriKkJE2ipTS4gFcqEYUBC3MzpEmK51cxJqM5P0O3vcjV3/suGzYdTmNknKmpSWYmD6KJj5NxdPaxG4+aveyb/3zPs044lof3HXj0CXDhK1/F5V/84q133HvPJ59w8pO/aTn2Lq1tz7a0p5RywyiQ5BlZlhPFEQJoNtvkpnidJimz87NMTk0js4RKyaKvUmZibJj+/hplvxBywl6MY1nUqiVGhwYxeYYGHG1TbfQxML4Mx3LoNOcRSLxKA6E1xpjfb+lZGhF2W6RpBDlLcq+DUjaWZS3FHwYpi2zCsSSf+eyV/Ob2B3AtRRxHVCo+vbDLYrPHc5/11PapJx7phmGXoNNECEmcpJQrdfoHhwutQWnyLCFLU6Koh2XbaK0plWp0wxa3XH8dTqmC47ooKYijLv/y7e9z5ee/iZQGckGjvz/p9XoqJ60lYfN5q5ctawgxcOODu7dFj5k08PxzL+DT/4tz5vXnvfbUA/v2/CjPw9L+PfuYmZulr7+PR3bsIY4jLNum7Dp4jqbk'
$MyPic &= 'u/TXq1iui21JpLDQUqG1xHEdOp0unutRrZTwbIXtOAS9kFVjo5RKPk95/lnUG/0oLSHPsNwyUiqEVL8XfTCC5vQeFucPYDsufqmCEIo0zbBtjdbOEgFAaoVWCmnnbN50KlPzXUoljef5jA7WMEi6YcQn/+FiMzY2LKQU7Hz4HpKgx8GpGU54yvNYtu4wwoUZLMcl6LSJewFZnmO7DiY32NJitjXHN668gu3bp1m3cS2Dgw327jtAr73ANdffxkP75khTw/DAYPCS/3GCP97vcXBqmrnFkMX5bq9jSuf/6IbrvvTck5/Kd6//6aOTBv6eRaLQ3v/qorcMh/OTb3vkoXtf//C2h6iVbIQQ1MoOFiGbVg0WAZBjF3V3JUmSGISNZWksSxPHOUYJHM8BY5CWwnU0ShjiJCFOirqCkIKJ5ctZnJmiVCpjco0QAsfkYMRSViExeaH/d4MWWgnSXpcegMkRUqBECaU0AoWQGikVRkq6C7Ns2zNJtVrG0g62UjiWzWKzg6U9Dtt4pEizCCENY6vWsX/7g+zavZsV+w4wtnoNRiqisIOlFZnS+BWPJI6J0ohcgOOUeNbzns8bX/9WHnrkQQb6BvB8m6DbY2xsDKFdZhab7J066F/+T9/nlS94KmtWriRnD1oJ124GX3zW449/7txi983ANoD3v+v9/O3Ff/vHOwIA/uqCC/jkpz/D+ee88lPNA9v/ac+uh09Mel3WrRxhYnSQ8ZEBBhtVqmUfx7KwHQeMQDs2SkqSFIS2sbVGCEmaJiilsCyLhYV5JFD2PLIsRcoiK6j31Rjoa5BHMd1WE+25BN02eZpiuy7CGJS2yHOQGNqzB2gd3IlTqlCu9YEUaF1UErX2cVwfaRfXI4UgDtvs3b2TT3/pO1iOjVYS39YockZHhjlsw6rkSU96olKWjW17CGnRbc3zwH3beWTnTo7ctBm/VmZ6315K5QpJllIqVUjThCzLaC4ukhvQtsXUwYMcPDhV7FLtJmW/QqVWI+h2aS622bxxVXxgakbd+8AjyNLwp6t99a8ryem+rWXZFYchOheunFg3uW3Pntuvue6aP24MAHDzbbfx16+96Mh4cfLK9sK0rJZ9BvtrlEp+sWBJghAShMIYRZZBmhfBYZFzC7IcyhUfsSQUhd2AbqfDQF8dz3OWcuUcSyts28axNXHYI05i6n0NLCnotVuEvRDbsijXhzCmiKrTKCBoTWN5PrV6P47j43qlpcpfTi/qLbmAJMaAVII8N4TdFp/+wjewbQfPtvEcTaNaZXigj6c89TS1bMVKkizF9Ty01kweOMjUgSmmpheZm5tnzWGHZSbpSdf3SdIExynk6ajbYduD9+DYPu3WIvffeQcLi00MkvlmE4lCa025XKLsKtrdUB2zaTXLlw2wc/fMju/87Nq/ftrL/vrD3bl9a31LH9FXdoSMO89cP7rsDF1df9XUzK7wj0oAgGMff0rgmvBvymVHeK6DZTmYXBSqmpAgNWkMWWbIjSFNQQqJ63rkmUFpiaVganqapBfj+JrhwX60KB5G4eu0lqqPFlkSY2tNtVpGSYElcsKFOaTlMrJiDYjivfM0IotD8izDcUukWVz4iXKBEhJtOWRpjFAKx/FACJTWaMemMTrGJR+7nNgIEAbbcdBCUC2XWLV6tdm46TCRJDH33HEnP73qamZnm9T6+phYPoFj29xx083ywL6DSG3H4ytWqEKOhsWFWab37eSb//QNbrnpFiYnJxkZGmZ6YZFWLySMU5QU1OtVlFS4tqYdBmjlgehtqrr1t+7ZvvMH//KTn3zycY9/4m9dLZ4z2KhqTLKyYnpvXbdi9Q0P7tm94493BJx3Ppd86pL49JNOtEq+c4qSEoMqDCBKFyZLJFmSFbKskmR5huc5xHHE1Pw8B6enaDWb+K5Lo1GlVqkACilAWRa9XggKbG2R5znS0XiWTacTkKYJfY0KubRYffgRZHlKFse4vkcSdsjSlF7YIom6iFwU7mBj'
$MyPic &= 'CvkpN6RJBkikVliOS56mhTbh+4TTB7jz3ofI4hTL0jiOhe+5xEEoqtUy1/78l0nYaapKtUxuMjy/DKLwJSotcRyHdnNB7d+1x1TqfSJsz7Nr6704tmZy/3627thNN+yhbZckjQh60OvFJBnESUzJ80nTnEa9zsLCIp7rMDxSs3qd5qtWr1ix9p9/8OOPHXHUCZdJyVV9g0Ob6jV7IgpaL1s7unLlA3v3XPWiJ50p7t+14w98BNx+G2+58Hwmvfqv66S7tHbWaGWGfL8UGYQWqOJNhMF2LZIkIez1mJyaZs/eA3iuw/KxPob6GzRq1SIwUxolBGmWkCQRruPi2Q4CAdJQti2UgGY3pK+vRrVUZmjZcmr9g8RRRNzroWThAwiDDpVqlSxNmNmzg9bUAYyycLwySlskaUi328Yg0UphBEVQKBTLVo3x9a98G21pwjBESgvbtnj88ccm23fsUOvWrVSVapU0ibGVhVcqUa3X8Eo+/f0DWJaiXqvhuJ7Yu3snlhJc/4uraS20CDoBQS9mfrFFJ+jhaIstm9ayc+9BFlsBUkniOMa2HPIswS/7dIOQXhDQ16hIR2ZbHnfE5rfZbun7H//CV2679uY7r3zi6U/+/tBA40grj07YMLH6GZ7jf+eObQ9Hr3vFOdxy9x1/nGrgO//mb4cfvOPGyd27dmPZDo1GjVa7RRqndIIAiWGoUcGxLTzfQyqBlBLbtsnyvDgikpywGzA00o+3VNYVUpH0eiwbG6bqO0xNL9JLYjasWcGK8VHKfQPUR8ZRlk21Wi4WkhyvVMEtVRBSk5qEud3b2Hbr9fiNYVZtPh7XKxEEbToLM2i3zODwBNpzsT2PNEs484lnsnP/dBHPZDkve/GzkpXLhq2J5SvoHxzAdSwWp2ZItcIvlRBCFtW/OCZLM+qNekEoS9NcWOTaH36L5lyTThSTZjmP7JsyB6dnRd33GBkewvVt7npwF/ds3U1/tcLK5RPdiWXDsZ0njWY3zMuOlLNzi4CkXq1iOU5ebQze4PQN//mll39qL8A73vqGerS4eGInzP9CKvcDn/zCZ+78g8YA/6ZC+OaLox333fGMvpIedZ1CXKlXyww2KqwYH2T9qgka9Qqu6yBEUR5WWuO5Hp12QLfbRStJo69GueyTZUUVLUlTyiWfsucghKDTCalVy/TVS5TLZWzHRbk+tUYNSBB5Usi8StKZnyRYnMX1qjRWb2Ri49GEzVkWJg8QBAGVSh2hXcIwwKtUCxuZtlG+T8WOueuO++lr9PHEE4+LN6xZZu/bt9/cetO94rDDN1KvV/DLPqVyhUa9j1q9RrVew/dLVGtV+gcGsTyHR37zW7761X+hUvPoLLaY6XSIwpiy54iHHjmI61lIaTA5jA/WUVKw8+AskzMzdivg641GaWBkaDjbPzmTrJoYcaM4YmZunjDqiTBoLicO3/D4Y44uP+nUM+/84Mc/Mf/b2+/aduvdd3/r8FVjn9hy5MZz7n7g4a/+0foCPvLev5voc9nja4NWCpEboihiZnaRhVaHKI5IsoxOp1tYtPKc1mILW2tKlTLGgKUFSZoSBAED9Tpqydc3ONBPnIRoS7NsZBCRZfQND9HoG6BvfDnlahnf96kMjCOUBJMTzM+RZTFxHFOu9+M1hhBSkHaaHNy1nSTNEQiCTouxFWsp9Q9gez4YQ9yZ5m2vf1tm+xW5YvmoECbn4NQUN1z7G7pTbdTgSn78y3/GcSWkReahHIeiPcFgNcZ543ln84wv/Zr8jS/gYL/P3bfcxs7J6SLDsGxmWiE33fUQx29ai+VYpGmPWq1OL8352fW3oYTFsY87+sq+SumVj+zf6TZcd+tA1V1eq1V5ZPtuoiQmzQXVcplG30jWGFl2qTey7F2f+PDftwDOeemLzhS5fM5n/uljr73o5e8xl37l8j/cDvCB978HSy5r5SK8P0pFv1GOm6SZLwSyUi3j6EJxm1lYpBv2kCLHUppqtUKtVgEh6HY7pL0e'
$MyPic &= 'SgjGRkYxQpBkOVppLF2kaevXLMexbZI4oX9omOrAMEOj47ieR31wDFVaUgQxWJaN0g626xfW7zxFCInSLpKiNqGUIo1DWq0mtrZIswRLa5QAFffk8FC/6HXa5IXlmBFP03/XXm6b2sOvf3YTpz3tf1CvOWRZAnmGEpIki/jJR96D/Q9fZrnJ8M9/KeXhfu69+x6anQBLO0RxhBQZC52AXZMLlD0b29JIYSj7DhNjQ0xNzxB02kf3VX0OO+K4bWn/8GsWJvc/L2w1B1esGKdeqmBZil1797GwMC/nZqae0Jub/Zsjj9h85AlHH7vSrvTdGOT5jV+5/Ovv6lu9+uc33Xi9+YMR4JprfskpJxzFipXdB/7iwg98+aqfXPuxgf7RL+7ZN/XCfQcmKzPzc8JzLdauWMHmw1ezevk4jiNJM5hrLtBqtRge6KNaLqO1heNYZHlOkqYYk+M7FrVaA9e1cCwbS9tUBgYZWbmaRn8/lUYfwnYwaQJxhMkKTwAGlJRYS8JN1uti8gylJGmcILRGaEkWBbS7bfI4xi/XmNq/izAI8Xyf5uwMQttkSURqafpEynzcY8fsQdpTexiq5DSsDp6cJOp2mdr5EFdf+yv0kcM0znsR9cM20Wq2sztuu0vmacrB6SZ+yaEXxThacGBmnu0HZ5G5oOK75KmhUa/h+jYKkfmOkAud7lH12tiXy/XKZ6VU57QXup6tlRge6mfzpg3MzMzSWmwxPT3JwvzBw03QPrOk0otqQpwztn7Nhw5Oz47cc8+dux+V3sBLL/vY4c1dO7+ZR61NpZJLHsQ0Ox2iJKZS8qmWXfI0p9eL6QQhWZ4xMFijF8aEQY/hgQZpmgCa0ZF+bMfC80us23IcfqXK2Jq1iCzBxDF5DnlWpJ5F64HECLFUpLEweSEStVuLAITdALlUvxeAFhaVRoOtd97M3OIilcYg3fYCu3dsJxeKIIyolDS9YJ6dO6eo+jYbVjY4evNyfvirnfz5WacQdjKCJKFcG6crKgRhyM2//gVf+doPOfrIdezau497tu7n8LXLiKOEzCQ8sGuG2VaXicF+tqxbhu97KA2LzRbCGOJMcefDB+49+c9e1yrIuAAAIABJREFUdNaWo7cc3HXfjafOTe965kCt/pcqj7VlKXpBcUR2mk0qnsfQ6FBxpOA9/u0f/sdbzn7ZK/nqV678w+wA/xmu/vFPZ5586qkPDNe8vyi5FhMT4xx+xEaOOWYz46OjeKUSWZyitI3nu1ha4GiH9mKL9etXYFmK3Bgsy6JWq2CUYvURW9CWTaWvD1cp0rBHmmZFIUgIpJKIJX1fKgupBMIUxhNluziuy9zsDEoq0iyhVK6RZhn1vn7mF2aZ2ruLTtBF2R6Vap1Oax4jDKVyieGRCapORrjzjsIuVmpwy737+M3DkyRpyRDNid5dP2f58nFCd5QDe/dz+y03s2vPPrbvX2DFcI0gzbj9vp2MDveRJD3GR/qZnm8x3+pgWRpbKeqVEp7l4HoeUbhIzbeGp/ftvmD3A/d/6wc///GvH96+6wd33v/Qe5/8tJd8PMrysl2ufH3DquWbH3/iCcKu1Ke8Sv9+6fc5meV8/ppf/mrynnvu/MPFAP8Z3vWmN/CuD//DrvPPPy8aHR87o394CMcvkxtNrixs16Pe36Be85menmFxsUuj6jOxYgQtFJ7vobSkXq0z34nYuOVobMfDcV1q9TomScmyfGnhC6MJFE2kwhhMnpEnSzZ1qYjTiHaziWVZWI6DlookiZFSoaTEq9QIFueZn5nB9spYnkf/wABxlBBGIXHYwfdrbDp6E+N1i9/edAe/um+eKMrzOO6FT15n2evOOJugcRh7du1hodWKtz+yQzV8m5vv2Ybjl1mzbJD9U7M8vHeGgf5+fK1YNtTH1FyL2fk2QRAxOjScp1kq/JKLYzlgMmplW+ZJcu5wfcTbNzd9zavOeoG47HOX9267886rb73jrpsO27T5q36p/OnYrn5s2l95'
$MyPic &= 'iZ0Fl2tpdv/8mmv/sGngf4brbriJb3/5Cp790lf9xhtZ8Qkb2Qp7Sa3VXBiOwq4MOi2mD05y/4PbGRjo47jHHUHf4BC+X8K2XcrVKmmSs2f/NCecdgqu76G1TbVSwdIKQ7HFIwr/f55l5Hle+AIwiKV8PDMQBh3ioI3JEuIoJl/yLOS5WUpNLYSQtIMAy3aJeiGO49IYGmfD4ZvwfZvm4hzGCOJM08OjVpH86oYHQXlC5cJ+/OlngjdMa7FNkmbkQsmt+1vrHZM+3ZVp38O7Jlk3MUq9bJNk8ODO/ZRti7LrMTHSx54DMwRRwmKrk65ds3FqsdWc66uV6tq2mZmdwXWlaNRKJ53wuOM2WtXKL2+/6+7wgpe9jNvuuYebb7u9+6OfXdP62c9+Fv/mJ98xv/jFL3r/fvH/6AQA+OZ3f8Al//gB3vPuv+9970c//c3A8LLrsmDhnLS9aNVqVVauXsfhWzYxNDqCtHyEZeNUqtQGhphbnOe639zOaU85mVKlgpQWlm1R8otuXoOAPCdJ4qItzXIRShby81LT6PSBfSzOTqEExeIlCUmSEMcxYVj0H9qOSxB0SaKQTreLbduQF+Vjx3Wo9fVTq/eRpxm9MCxMrgharRRhwcNb93PG6U9iyzFHEkUpUZaQ5wbP98TPr334pmNOOvZ13cXZt+/fvZ+Htu9nYnyE4brH5FyLdrfHQF+Nkf4KJc9iZq5FHMdq34EDvnQG/1pr8UySSPb19zMzPUXaC4nD7hG2Zb/mhOOfeN/lX/ny1ve+++/55a+u/eMVg/6r6Buc4N577uL5z33xyx586MFrXb9iPft5T2NsfALtOsWkDxTKsnCXPPV3334bd99xNyefchx9g6PFcAgBA4MDvz/zTW7I8hxpWWjbJctT4l5Ic2GOhbkZ2vNzIAzlch3bdhBAbvLCzROHSKFACIIgIEtTwqBD2O2SZilCKtIsw3Y9HNsizzLiJCHLUoKgSZokdNsdaiWf/v4Gx2xZg1+pFY6kvAhClWXzT1/65xM+8+Uvfvjqn179o6pOz314x35sSzE8VGPNeD9bdx6kUq8zv9hh48phtIJmOyToRbITdJ5jlfrfOTY29kjQba0dqlfdJIpoLywQBvN2ybFfcsJxx1W2vfMTv3joIxf/HzWXPGpdiS94wYuPa87O3DIzM00Q9HD9Gmecsjk85vDVXl9fw1jaXmw2FxsPP/QIU9NTVDybJxy/hVpfA7/ch9SKcrlclIuVVZgstY2yLIQU9Ho9FuenCVpzOE6RUgK4fhnX9cnyjKRXOI+NMGQ5RGFAEicFmdKMUrlMu9UkMzlZHJOmKbWBIqIuV0r0woCF+Vma8wvMz+xjcW4epTX9/f1o28WtNHC8EiDJjUGYiHNf+SZUfdXzj338ql+Y5tTWHdt2Dz/wyB5OeeJmXGCm2ebGu7fhOS4nHrsJnaUEUcgNd28nRVCtNIxy6y/5H6cd1ZZx50clRxEGTSb37WV4ZAzXr6ErA9u3nPKsw1/0kufFj8kd4POfvdravfW2RxZmZlSz2cSIHC0FvW7HmpyeYvsjO8TDD273tu/cS7cTsmLFKKecdAyWY+OXG0Xvvi7s2VLK36d2Ugo6nRaLs9PMHdxFHLQLm5cB27XwylVct1Q4c6OINMtIkoQ0iUmiXuFkThPiKMJ2HXq9LqaYPEDc65LEMSyVpG2naGQRUiEEGFOIS/UlLcIt1dCWU/QjpAlSCCYP7GK4BI/sOrjquz+75rLjHn/8warOnzffbLLvwCxGCNYtH6Gv7jOz0GSh1aUd9ti8fhWrxvsoO5Kp2TlR8twXpFblk6PL1nwgzc31J536pNM2rF9bGh0d5/CN6xkZGepbaDUf+sHVP7v3MUmA4Yb74m57/oVTU9Ngga0UOTnDQwO0mwt0202iOMBgOOa4o83JJx4r8jzDtnyM0DhL00OUUmQ5pGlG3As5uG8PC7P7ac/sR9s2jl9BKvBKDaqNATAQxUXk3+22SOKI'
$MyPic &= 'OO6RpsW0Ea0tkiwliXokSUDQ6YDSRdk4CkiSBG27S4aNMlJK0iQuCCAkpXKNUqWK7ZXQllsYUtL0967g7Q/cR3NuGmEYX77h+Lv/6Vvf+tZTn/yk0ROOWH2sa0umF9pY2mbLYWvYtHaEZiug2eoxPjaej4+PZWecdrw8+ZjD2bpjO6aXnbV69eb3fvjyS+8+bMORX0h17Ydx7j7glCobUpDTzd77Tz/99JlfXHPNY+8IePlZf37lwvyBv9y9f5KyYxP2eijHoe77lEoW5bJXBGk5rFu3Nj/p8Vtkr7NArW8Ar1zDthXasotgz0iSsENzfprFuelCFm4M4pdrlMslkjTFtn3SJCPNYpoL88RxgBKqcP9kS5Y0zyePY1rNueL/7hVt6LlU2JZNa2GGLINKY5BqrU6tUcfSv/P9F1NGjPldk3VaOJ+ylNwUTuO5ubnuDdf/Zq6SdZcPjvbztR/etWvs6Oesmz94j3rmSRuv37x+5LhvfOub7N4zy2GbjvntsVvWHV+rudaXvvJdRHn0J/31yjuPOmL1K0cb5fPjqMMDO2Z5cF9n9WGrRne+5eJ/O7nm3e987+C73/OOmcdsDPCql7/qeYtT+7696+BBGiWfoBcW3nzbIgq7CJXjODYlx6ZSqzExOsoZZ5yEyQ3r169hfuoAnTDECEGntUiw2CRsdagO9NNLDNrSrFq9kmUrNxB0O7SbCxgjCII2UdBFKolUhXcwz5OlGUMShCFLBVJrwJCGbRAaZduE3SZht0upVKHcGKBUqVKpVomCwnQilUYpTS/qkiSQJiFZnoK06UU9fnXjvWd1Flp7V9WSG4875ghx6533cst9U6d+4ftX/xoQP/+XK+8bqjmH//hnv2L3nNk8tmo0OHXzxo/0esFRX//hzS/64leuuBVgZMvpzt+9/GlnuI4yK174Vz9+ytB/bwkftSDw7Be+8EvTU/tfroUuJndI0KZoCzPC4FoK39E4lsL1PIaHhzjl1JNZsXyUn3zvuyjPplypMj11kG3b9+BJgTSaTifkiWecyuajj2ZxbpY8M7i+T9Dp0FqcxVYSqS2MScEILMdHWR5SS5IwRFoOQikEgiyLUVlOJgSdzgKW1Di2i1Mqo22LUqVKniRYtl2koSan21lckqBz4jgBFJMzi90Hd88ue9s7Ll783Eff9ZVjt6w/21aG2+7edevL3/D24wG+85Uvlat+tqLTy6LnvPScR/7983rDa17H0IDP37znQ4+d7uD/VkeKVC8fbPQRJxHaKVq6siBEabAdB9fWuFqilabkOhx5xOFsWLuSX/zou+zcsYtKrUKzNE+1UuKpp51Io94g7HTZtXeS4044kQfuvpXtW7fhODZBu8eBfQdYuWKMWqNGtVLFq1QLk0gGyMKvZ5aCOROnoBRKKIRtY5GT9RK8SolcQJ4m5ErQabVwHBuZFZ7BJAmKgpPlYDsO7eYiCwuLzLSiK972josXAbbtn71o81FbnlKplYfWrDPHbTryuNr9997afN7LXtEB7v/fPa9//NQfZg7yo0YArd33SSt8u+24iKVRb45X2L6kLOzclhZUKmUed8wWnvDEJ/Cz7/4L+/ZNMTQ8SH9fnYmJ5bilwgySZyl33XkfyzceFc8d2Gf/8qfX0AkioiDE8YpuXG1rbMfDLdeQlkaKgnhpmpIRo3JIkxQlFVJIhBKkaa9oL48DjKlhawd+N2ZGGaIoLzp/eh2ElFi2j2U55MagLYeFdpS8+rVveiPAu95yERd/+JKFlavXnnT46mVbbbtEva+S8yjiURkW/eqXn8Pnv/qFd7ilxmmuW/55yfHnl49P3KZFbpKoW/gHbcWmwzbwnGc9g5NOO4n7b72BLOoyONjP8okJVq5ei1uqAkXDSNCL2XNgnuHBun3dL68m6SVYJmd4dIBq1WfDhjU0+gco1/oKd3IqyMkQUqGWXMRGFmPqclOkfXEvIOn16AVdMmHoxV3iKICl+YRSGPI0JklD8iwqGmSl'
$MyPic &= 'oNdt0mnOcmBqur1nauEYwHz4Pe/i4g9fwuc//UkueN0btp369LPEDXc/tO63113b/sj7L37UCPCojoq98NxzuOyzVxRGkne9fUPVih5YvmxIzk/P8bjHP4HaQD9J2ObOG29gbHyUTrOJkAKvXEdoCyllMdYlz7jhxttYt341Y6P9NA8epNsNCFtdDs4vMLF6OQKJFBKlFVIqUDZCGpRyEUUVgTRLihYxWdjWMSmIDINhcXoKoRS+X8bzKyjLwvF8bNvHsi3iJAET0Wt3yLBIMVxz072vePu7P/hlHsPQj+ab/27xAdYftr5x1GHj0vc8XMejF4Zs27YjnJme8lZv2EgWx9QHPUyeYFAgi6jbxBFxlhE0F/CsnCQI6RsZZsdNt9Fu9RhbPk7ci5DKQlsOxki0sn8/DUSKvJg/LAtRJzcZJsmKNFTkKG3huD79IxZht1WMkCVDCbtoPskSgm4PIzLSOC10CXrsP9D6+mN98R81Ieg/wnNf8IK002pu7HWDYSll5+FHdn79V7+578VHb173GstxlNCycNdqCdLFVoosz1HKYvsD9zGxfJzh0XGSLOeWm28jyiSWlmQmJc1yTBHhIYVCWXYRZ0hAqCWZWJDlCWkSYcnC9mUAqRQmzUmioJhBJEWxg0gBJiONewRBCykMWWZotWfYs2927tqbH/jzFz77GQu/uO76xzQBHnN/L+CjH/xQI4fkLW97a+dzl35Mlkrq9YN99b+zpeqziBEmQWQZWjto10dpSRb1OHBwitvueZggDFg2PkLFcUmSmMRkWFbRAl5aGhrtOA6O6xQ9iFpj0qgQdIwhTyOUEMRpiuuUkNrBKZXIem16YZO8GFOO75cRQhU7iu2SpSGL87Pc//Be9k0HZ3/8ii98jT8BPKb/YMSnL/kg51/0tt+/vvjv3nrKhuUjf6G1PFMr6U9NLzT2HpwSu3ftwrMN44M1Vq5chhA2SRQS9GKE0LiOxvVdXNtBWhLPL+HYDtqyCxk3jSGLSfOUJOyhbBuTgXAstLJQ2kYrG+1osrhL2GliOSUMxaQTbVsE3UUeemhnvmOyd9FHL7visr8+/1z+4dOfPUSA/y/w+r96HR//xL/mwRdccNHqmanZN/fC6PxGSbJqrNZ76plPdEcGG9x4/Q3EGfTihMVmG9d1qZY9bFfh2Q62VrhLU0ddv4whWxoQnSOWtFzH9Qm7AUmWYLIEbRWDpxCCPI0J223Icyy/hBGQZTEP7FrYvWfv9NMv+fzX7n/jha/hY5d96k/h0T52YoD/DDfdfAuvOu+N6BQOTO1D6PrZCvOOlSNVc9SGCU5/0onWyPIJKrU+kqiLSXNMLgoDh2NTKlfoq1RReQKymFqmpUGQIchxtU0WBwhVxAN5ntAL2mRxTBS0iHpFrWFuZoo47DEzN8tsc5755gK7902ydffivjsemjviS9/4xr7Xv/a1/ONll/GnAsGfGJ56+jPfEwbdd5yweYXZsHZcDA0NsnxiDNf3yHPD3OwcnW6IZdkIpcmzFGlyhkbGkWnI7ME9BL2gGALtVHBKJRzfJg47xL2YLE0wQBg06TYXQRiCIATlUqpVaC80mZqfZ+eevSx0405G6ayx4WU//9inr8zeeMEr+djlV/5JPc8/CQK87pxzuPSKK3jJs5/7t46l3r1x9Ui6fGLI6x/op9Howy+Xi9JwGjM7M0c3TH7vJpJLU79Wrt+AQ8a+h+8joygfK7uMci2QhjjuEbUDUpOSRF2SKCDuRbTDgKCXEicZC3PzNNsBM4vBNamwvvaVb//8C/yJQz/WL/C1553DpZ+5govOO3d9RedvHmp41uqVo5bne9i2VYylMxlpFLG4sEAQ9EhzAdoiTlLGRkfwbYuy62N5FuMr1qCrZeYO7iHo/c/2zjtOqurs47/by/TtzWUXqbpRBI1RXzEWFGM08aMRYzRqAOktwAIuYKQooLQFZGFVEEXQ+GIHY4tiKCLNpSxle5+dmZ0+t9+bP4bEmKrv'
$MyPic &= 'm0QW5vv3OTtz9/zmOeee85znp0DTFJimCVM3oMpRJKQoYok44tE4vIEA6hubICsGdBgwLL5WzOh9z4Zt2w8CwOyZj2LBou7tI3RWR4ApY8Zj+drVGD/6kevy3fTWCzLTczKz7aDOnNFTDA/e5gQviFASUQR8XgRDEUgawAoO5ObkoiA/F2lpbtjdaaCdLhCmBtnfiWCoC7FoCIoURTzaBUNV0NHWjMamVrT6fIhFE9ANE4RFwCAEySCpYdfdtf3d4b8QzOG/HIbnNr2Cc4GzNgJMmzgFT5cvx9QJkwYXZ7Cf5Ge6UdynGB1NtUjP74FIJJTM+CUJmLoJgmIgcAK8ShcSkgaTSBpWUBQF0yJBEQBhGDABdLTVQopLkBJRaKqEaDCAxuYmBHxdAEWDBAuK0QGYMCmnb+q6HTklHsLctE0AgHNm8M9aATw6YQyeKF+O0klThl47sPiVvMw0SEoA0a4OFPbsjY6GkyAEByzLgBoLw+RFqIoCWZKgajosy7IEUSRohk1W5pISIOgsgCAgdXbA21wPNS6hK9YFb2cnElICkmxC0VXEw1GompGscEqLFmvL+azEQ5hjHxyGZ144dwb+rBbAE6vWYnFZ6aK+hRkzLshKg9/XBsBETmExosEORKIhiACg6yAYDloshHAkjGBXFL6uCERHGsFQDPLzchELhZCdkw+C4QDDQMDbiIMH9yIYjCMUicFus8GiABg6rDOXQjTNgtOZbqkGSagEvRnAOTn4Z50ARj/0S1Rs3IS5vx7//KW9sh8u6lWEnR/uACu6UFSUD1mOoaWlLplkaZk4WXcSqmIgFOyCCRKJhIGs3Hz06ncR3A4nGJqGzeWC6PEkvQI1FZ/v/hQ1dS1gWAq8YDvjN0jCne5GPCQj0NoEd0YuBvS/mCgo7AFvRK4pX/8szlXOKgFUbNxEbFg67+2cNOG23NwsfPLhdjCCHcXFBbBMDQ2njiAWCcPQTDQ2t6LDHwCB5A3hhKwiPatQScu6QKYJ0sUyDOLxBDKzs0GzNAACuhRDU2MdeJYHJyRrCPMslzSIjOkoyMrClVf8ALKs4OpbbwdNizCqj+o4h/nOBVA2cRwWlq/BxBGj8/oUZ36cmyb07dmvDz54fSty+/SDGQsj0NmCUFcACSmBeEJGLBaFaVpgKRqqScAfioDh0toTpPs2WSe2qariMkwDJElCdDgAkoQFC421JxCJJMCKPHg+zSJYEdFwgOiZl4Err74WDCvA0BRYJAeet8HQVNVh9yQmjp+E8tUrUwL4T7CwfA0euOueS6+9vOebPfOcPToCXXhp40aUlFyMWLATbc0NsAwdPMciEIpAUy0wFIH+ffuAFzh8uu8IYjoPjqbuXfHkokMbVi+1bA47PGnp0HUTLMMmz/p1BYcPHlITRPpRCvwHmsGn5Tkcd/ftVeTpWVwIMDwY0QnKUM4kibKQVZVtaGwVz9XBPysEsGBmaY+S3rn7eFpiP9t3AE31zbjhxsFoqquGHI+iqCAfbqcLmq4iIxyHJysDNrsDtfVN+GznQcgGC8qZPmz9ppd3zptTlm5aRjFJMvD7/ejbtx9AUckIoCbQHqJuf3rdS+9PmjJZ7J3reb93QbrH5bbBME3QJAWCJCDybpgAaIoGAVOz2zk5NQX8u1f5ZTPx6MJF2LB6+U0iEXmFJhLs+x/thkWQuGxgCfbv/gx5eVm4avBgRGMxRP0dcHk86AzH8PHOLxCKJqAaBEyCAefIfeb5l15+FQB4jv0xQzMKSVFcZmYmbE5n0l3UMtHW7sUTS9Z/WTZ7IZwCWcRQeC8SCV1j45P1gXmRAicI4DgBFEnB0GWAoMKHDh8Pn8sC+K8mhT4xuyz5nr9wETaufPI+xgh9oKiSZ9ub2yHaBXyvXxEa6uvQ/3sXIz07Gx//fg9aWpphUAK2f7wfew/UIppIXrZgGBEMn354w+Yt4+4fdhcAgKUoP8exnGWayLugAAzLJrc6LQt+b+BUe6DBywsUQUIv'
$MyPic &= 'NmHMJykGzrQ0cHSyjj9JUNA0DYLNBoa3ob2jIzCt7DehlAD+XRs8CxYCADavXVahBts3t7fW4fef7CIGDBiIdLcT1adrwIsi9h48gs/2HkZ2hguabuL4yQaYJgmW5UDSLAiag2awEsW47gCAtOx8AIDdxs02FBk8zwOmASBZxh6ahobm9ioAmFM20xJ49nY9HlUy3S7Egl2wKBKC3XHm+JgDyQgAy+Bw1UnvV38kJYD/M2ufegwAMGtGWfZzS+eeUoLNoyQ1iKbmTlzSvz+UWBh+XxQ9evQERdD4/sDL8bM7hkJXNchRAx6HHUUFWXA7k5c5VJ0EKTqHP795QzMAlJeXY/SI4b3khExQJAWKIpP5fyQF6AaURAzNLe0fAMCC+QuHUiTuys3LYnibDazggGhLWr0YuglWEJP29JKEzw8emYVznP/4GmBh2aMYM/1xrFo896osO/EhbWliVX0jOgIJXNSrGIRFQjUsuNw2+LwBDLnlBrjsdjRUH8JV198EJZGAZgE0TeGdd99DXLegUeL8rVu2bvnLzxFoZmaHt92ZlemBwHFnrm8n8/bleMywQHwEAHaae99pY/0UoWWA5ZOZQAQNTVEhiGKyjLxpwtvZHl6xeu2X57oA/uMRoGzhE9Saxb8pvzCD3a3GvOLnBw+DYngU5ufjdG0TbA4XBt8wBL17F+Pmm69HhicDwa4O9Bt4BSiKhKqooEkSLU2taPdLgCFUZeYMmH/vsPsAAGMeGQEAMDTllpzsHC4zIx02mwiLIJK1gnQVkqwYeXk5vsWLVjgtSl1p6XI/hmYAUwXDceAEHoZpgmFZGGryePj48frdAOJjRw5PRYBvy4MjJ+OFyhVYMGta7g8G9d6bbacLD3yxB0drOnBBjwshKwm0tgUw+Lr/QUFeHlqbm+BxeZCVWwiKIZFL5kLTNehKDJoiISpL+OJgNXTS7i+47JpBT86Z+OfdubXrn8XoUSN70iRJuVz2Yl7g4XDZQBEkCJoFDSASCrMtbR12QrcKORszKhGPoUdBFng2eQdB13TYHQ4INnuyqJSuWLqhlQPAM5XPpSLAt+WFyhV444WVo370w8tqKLmzcOeuT7D/tB8m7TBDUQm+QAz+mAbe5sGppjYQBGflXdAbvN0GJeyFomnJc3iLwK5d+/FldXNrUKI+tWj7oCfnTNRHjRz79YdQ9U05mWl+gecJQeDB8XYQFAsYBnRDAygSJMWM4zhmHkvSTF5eDmyiHVm5+RAFAbIUB0XRUGUFlmkhEo9pm7a8s3/SuLFITQHfkEmjHgIA3HnvMPvbm9YsKSnOqmhu+FI8fLwW1U16k66Tc5zp+S1RSQ20dynVBO++8Y77xxC8PbNfj54XGjTLItLZCBAkqDO270cPHkLcwI6ZC1cVrHtx8w8RbmkCgHWVX2Xcjnn4VxkcZV7qtPGi0+FAmscNjmMAWDA1FXI8jrrGVliWdbUFq1A3lGOxaBQsy0G02QDCBJC0ioOZdDQ5dOTkG6+8ttW/sptk9p4VAli5biMAEFPuu3VXjxxu+p7dO1FV3d7Z0kWMyuz1/ZKKl7ctyM7OGdgZUPtu3vbGRZu3bD5Tx0x/nmZ5Wo52gKMoqLoOXdNQfbQKta3BfZKQdScA/HrcaLzw1tft0R55ZDRAmtk0CYthWYfb4wTPcUi++uswDBXhYAStrZ2yAXJELBJbwrFcemenz8jKyYVwxtzRk54OTVOhagrC4TBefW37kzhP+H+vARbPnYMZ8+Zj3ZJ5A/OzHAf0UAs+qm4+GTeYKXNWvLgDAEonT0r+WqdOC/x1f4Kkr4x1tUOgFOgUCYBES0M9qmu9X8xbs/XKP7Vbtqbibz57/foKTBj9SK4BLcFxnFsUONBcsoQbQ9NQFBmxeAyg6c8ScqzQJvLXwrRySIqRGIYUDE0BRbHQdR2wTLAsB38wWr1h04uHx48eidUVlakI8K+YMW8+HptZlkUa8oETp09j95eNUyMa8b3ZS1bvmDd9'
$MyPic &= 'DABgyYq/f5jy9NNLL0y3C5QudYGkCBgG0Fh3GidvfWCNAAAHaUlEQVTqOzWFzbkLAEpH/+NV+MTRI2Bokt9mEyIOp53jeQEkRUHTNciShHAoiNZ2H2RVV3nB3mmBTGtu69wQCIUFwzBgaBqcLjecbhdohoUkRREJRXYDOC8G/982BdgEMfNkTcNkTaLzZi+tXGaalgYAc59a+w/7vP3aFkybNrW2M9A1nWYEU5JUtLfW4WRtU4NPc/Wb/9SyZgBYUvGPV+HlFc+CpphhTpsoupx22O0iCCt52zfY2Y7jJ2pQ1+J9WVLIJy3CbCAZ+s1AJHxFONCJ9pYa6HrSRZy32cFwHOKSBn9Ufn/iiJFITQHfgtLHyo7hL8qbPL5s3b/sc/vdPwcAqFK4XXcIZMDvRfXx5oTGZQ1btHzZN7Y9swjyBrfL6eJ4HhSTdCfnOA7u9Ewc3bHrVYViJ5WWTvU/+dRScCzzNixzgQ4OJ083oqCoPwBAikdRXVWFmAycPtV8rPzZyvNGAOR3/QV4jvtFW7sPx483noqRrsseX7Zq39iJk755f5Z9U+A5G8NSsGCBZXkImXmQTaC+qWlT6dSp/ukz5mDW9KkgTWtwfn7hNpNkIvG4GicpEjAtCCyH+lY/GrzB/aWzZx3DecR3KoCNqxdj2xftP/38hG/InDWv9l20at0pAHim/JsnYLjcrt/xdrtBEkDA5wfJsgBBQk4ksGL12ncB4KnFyTp6BkE4SZaOgmY+D4TCOkWSybrCdifiqlk2YuyEK1YtX46UAP5LPDR+Bl6tXK6urHj+QwB47NfffuNFtNtzaIanA74g/D7/mbt9BgROwEM/v+caABg5OhlREpLyyrTSWbMMi/qtpGpxTVZAsDxA06g51bwfACZMmZISwHfF48u+/cYLSdE9O/1Bb5s/YrW2eiU5HAChGUjE41A0uREAKiuSEWXWrJmJ0seeQ1Dm3nNxssHqAVhWssrXO/+74xTOQ8ju/gCaQb0VkowfBWLSjq4u6SgROglEDyHa1WBsee2tlr9uv+Tx4TjaEI9eUsgprNIIWBSkeByN3gY1JYBuyPQZ0xpLZ8w4qOnMXML0/1Yk22GZPohW659rH0ydNO5rz/mTy7Mvz3NIvSjSDyJ8GES4DWJGjnk+CoA6Z5QsZpljBjvfzSmiSYKxwW2zwPO9mj76w+eHC64eSl998UXFS0bcPnLKfZfOvS7/yKP5uaBJjwsEb4K1ZFTXxioPHT0WSEWAbsitD93NT78157d9+5M0dMAkLICIYEBB2sAdlkWIJ3auWjDUW3PjoKOL+zuO3izSQY6ADAtC0uGTkfDTmwfeO+TM3kRKAN2M3sgpGNQ/eK0ZD0Lxe4FEPRBvAkzD/ujFJX9QY+2PsKYPajiOPftatbVra00SCSBSDZgWEAsjR7B8H7y25bwTAN1dv/iE0gkkGLmwl8Yxd14v7ffkRuF75yOk33APCDMEaPXwhYh8Q7OoS68ecv2u041vdXqNYIMy6FdXDLVmEQ72JjiLYckhEGocoSgctw0fhXefW5cSQHdg1ZJVJoCGj9ff/WxBb5czemIvOtU0ZBJ+WPEALJlCdZO0ixc9yszFaz69f1M066XZDgUAti342XjIbbCcWdBP7gTb4wowDJnm8ympKaC7MHPJVOKmm8ZeeEmRNZzo2Im3duXAsHGAogMtNYjKdjQEHFuc6ZkkALz0y+Tgj54wiggorAZIIOVGEIkWgKOhmVrvkkKGSAmgm3Bjyf1w8a0XzVpbhz1HB9Rt+YNr2YX5FCxOhu6TQGpAWApwjqzM8j/1mTZ1EhHXCavQTQQSARvMhAo9Egc6q9DaTm1/fnWlNXlyWUoA3YEhP7rMam5sSt97nHt2X12PfjcM0uo5Fws9HIGZZkNr3IMav9j8+tbK2E/ufAAA8PTSlVavTDcRD3mLyLAPVjQBwybCq+Ti4bKmFyZPLrOtWLEwJYDuwgOj7n6RoCFPXvKFUVJcWELYctAc'
$MyPic &= 'yDMmrXHr4xY1LTi1f12obMIovPn6i191klUELTdTL9nw0T4f7EUFaO7gDgCyuWLFwngqAnQjKte9Y1Qd2zth/OzZVFiJOCyaQlQR9h5ul8pVOV4DAAtXfX1V/9iSZVZ1jfSTJ95zV+w+pgHu/mj1EjXANnPSlIlIRYBuRNWRPZhZ+hRWLxiibd8TfXluRRcaY9nj/WHc2SXJHzxw39/P7Hl66zsJgnd3FPUqhhE3YBL6YgBYubz8vHsL6PZbwRf3KwFtEIirlrumQX5gX1Wow9vZVVnXdPxw1ZGDf9P+/p89SPbs08ddU3263CM4xGNtnhO/O84tuPm6QebefftSG0HdjXXPJRM4fjDgmgU5OXnff+P9N48AQEF2H7R4//aEl7BAS13hwXpC+WFbmH6pJdy665XX39CQonsyavgUXHnJVX9+fy+dNueftr93zATceMsd2XcMve2We2//8dvn+/+v208BBw7tRav3q2P/Xbt3/tP2l5ZcBjmRICxVDTpEx4aqE8fMEQ8+jINfHk79mlKkSJEiRYoUKVKkSJEiRYoUKVKkSJEiRYoUKVKkSHEO8UcVKyaeqCrV0wAAAABJRU5ErkJggg=='

Func _PrgInfoScreen($InfoPic, $sTitel = '')
	Local $iSW = 600, $iSH = 250
	_GetScriptInfo(@ScriptFullPath)
	Local $MyString = Binary(_PrgInfo_Base64Decode($MyPic))
	Global $hInfoScreen = GUICreate("About", $iSW, $iSH, -1, -1, $WS_POPUPWINDOW, $WS_EX_STATICEDGE + $WS_EX_CLIENTEDGE + $DS_MODALFRAME + $WS_EX_DLGMODALFRAME)
	Local $idTitel = GUICtrlCreateLabel('', 170, 20, 420, 25, 1)
	GUICtrlSetFont($idTitel,16,400,0,"Tahoma")
	Local $idComment = GUICtrlCreateLabel('', 170, 50, 420, 20, 1)
	GUICtrlSetFont($idComment,12,400,0,"Tahoma")
	Local $idDescription = GUICtrlCreateLabel('', 170, 80, 420, 80, 1)
	GUICtrlSetFont($idDescription,10,400,0,"Tahoma")
	Local $idVersion = GUICtrlCreateLabel('', 10, $iSH - 20, 200, 80)
	GUICtrlSetFont($idVersion,10,400,0,"Tahoma")
	Local $idCopyright = GUICtrlCreateLabel('', $iSW - 305, $iSH - 42, 250, 80, 0x2)
	GUICtrlSetFont($idCopyright,10,400,0,"Tahoma")
	Local $idX = GUICtrlCreateButton('X', $iSW-25, 5, 20, 20)
	GUICtrlSetFont($idX,10,400,0,"Tahoma")
	GUICtrlSetOnEvent($idX, "_UDFExit")
	GUISetState(@SW_SHOW, $hInfoScreen)
	Local $bString = Binary(_PrgInfo_Base64Decode($InfoPic))
	_GDIPlus_Startup()
	Local $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hInfoScreen)
	Local $hBitmap1 = _GDIPlus_BitmapCreateFromMemory($bString)
	Local $hBitmap2 = _GDIPlus_BitmapCreateFromMemory($MyString)
	Local $hBitmap_Scaled1 = _GDIPlus_ImageResize($hBitmap1, 150, 150)
	Local $hBitmap_Scaled2 = _GDIPlus_ImageResize($hBitmap2, 50, 50)
	_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Scaled1, 10, 10) ;display image in GUI
	_GDIPlus_GraphicsDrawImage($hGraphics, $hBitmap_Scaled2, $iSW-50, $iSH-50) ;display image in GUI
	_GDIPlus_BitmapDispose($hBitmap1)
	_GDIPlus_BitmapDispose($hBitmap2)
	_GDIPlus_GraphicsDispose($hGraphics)
	_GDIPlus_Shutdown()
	If $sTitel = '' Then
		GUICtrlSetData($idTitel, _SplitUpCase($aInfo[1]))
	Else
		GUICtrlSetData($idTitel, _SplitUpCase($sTitel))
	EndIf
	GUICtrlSetData($idComment, $aInfo[2])
	GUICtrlSetData($idDescription, $aInfo[3])
	Local $t = FileGetTime(@ScriptFullPath, 0)
	Local $dmyyyy = $t[2] & '.' & $t[1] & '.' & $t[0]
	GUICtrlSetData($idVersion, 'Version ' & $aInfo[4] & ' vom ' & $dmyyyy)
	GUICtrlSetData($idCopyright, 'Copyright by' & @CRLF & $aInfo[5])
EndFunc   ;==>_Info

Func _getFileInfo($path)
    If Not FileExists($path) Then Return -1
    Local $info_A[12]
    Local $string_A[12] = ['FileVersion', 'FileDescription', 'LegalCopyright', 'Comments', 'InternalName', _
            'ProductName', 'CompanyName', 'ProductVersion', 'LegalTrademarks', 'PrivateBuild', 'OriginalFilename', 'SpecialBuild']
    For $i = 0 To UBound($info_A) - 1
        $info_A[$i] = FileGetVersion($path, $string_A[$i])
    Next
    Return $info_A
EndFunc   ;==>_getFileInfo

Func _GetScriptInfo($Script)
	If Not IsDeclared('aResult') Then Local $aResult
	If Not IsDeclared('sTmp') Then Local $sTmp
	$aInfo[1] = StringTrimRight(@ScriptName, 4)
	If StringRight($Script, 4) = ".exe" Then
		$aResult = _getFileInfo($Script)
		$aInfo[2] = $aResult[3]
		$aInfo[3] = $aResult[1]
		$aInfo[4] = $aResult[0]
		$aInfo[5] = $aResult[2]
	Else
		Local Const $scriptHandle = FileOpen($Script)
		If $scriptHandle <> -1 Then
			Local $aSource = FileReadToArray($scriptHandle)
			_ArrayDelete($aSource, '30-' & UBound($aSource)-1)
			Local $sResult = ""
			For $iCounter = 0 To UBound($aSource) - 1
				If StringInStr($aSource[$iCounter], '_Res_') > 0 Then $sResult &= $aSource[$iCounter] & '|'
			Next
			ReDim $aSource[0]
			$aResult = StringSplit(StringTrimRight($sResult, 1), "|")
			$sTmp = $aResult[_ArraySearch($aResult, '#AutoIt3Wrapper_Res_Comment=', Default, Default, Default, 1)]
			$sTmp = StringRegExp($sTmp, '#AutoIt3Wrapper_Res_Comment=(.*)', 3)
			$aInfo[2] = $sTmp[0]
			$sTmp = $aResult[_ArraySearch($aResult, '#AutoIt3Wrapper_Res_Description=', Default, Default, Default, 1)]
			$sTmp = StringRegExp($sTmp, '#AutoIt3Wrapper_Res_Description=(.*)', 3)
			$aInfo[3] = $sTmp[0]
			$sTmp = $aResult[_ArraySearch($aResult, '#AutoIt3Wrapper_Res_Fileversion=', Default, Default, Default, 1)]
			$sTmp = StringRegExp($sTmp, '#AutoIt3Wrapper_Res_Fileversion=(.*)', 3)
			$aInfo[4] = $sTmp[0]
			$sTmp = $aResult[_ArraySearch($aResult, '#AutoIt3Wrapper_Res_LegalCopyright=', Default, Default, Default, 1)]
			$sTmp = StringRegExp($sTmp, '#AutoIt3Wrapper_Res_LegalCopyright=(.*)', 3)
			$aInfo[5] = $sTmp[0]
		EndIf
		FileClose($scriptHandle)
	EndIf
EndFunc   ;==>_ScriptVersion

Func _PrgInfo_Base64Decode($sB64String)
	Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "")
	Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]")
	$aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0)
	If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($bBuffer, 1)
EndFunc   ;==>_WinAPI_Base64Decode

Func _UDFExit()
	GUISetState(@SW_HIDE, $hInfoScreen)
;~ 	Exit
EndFunc

;~ _PrgInfoScreen($InfoPic)

