Code: Select all
#NoEnv
#SingleInstance, Force
#NoTrayIcon
Menu, Tray, UseErrorLevel
PNG16x16 := "iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAMAAAAoLQ9TAAAAVFBMVEUAAABzXBdkUBVwWhYmHQtNPhR1Yi8xJwlSQiNmTx0tJxVjQk5QME6XeR6SdR3/zDN/Zhm/mSb///+/v79/TH8/Jj8/Mwy/cr9/ckw/DAz/mf9/f3/ie28vAAAAD3RSTlMAv3+/v38/v3+/vz8/Pz/96/+UAAAAeElEQVQY012M2xKDIAwFQfDSa05CwNr+/38WFHSGfcvOyZrM7KwdrHVvUwEzcSbNTVAFvRg6wa8muo87iMFZ2OOegnyCBD4TS5CfiOBqJuwLhruaKA206JRKkQlLFSPRsbmZZkaPslm9OfEKrF/VR8vEuG0aVePzD5ayCTRkTSbeAAAAAElFTkSuQmCC"
hICON := Base64PNG_to_HICON( PNG16x16 ) ; Create a HICON for Tray
Menu, Tray, Icon, HICON:*%hICON% ; AHK makes a copy of HICON when * is used
Menu, Tray, Icon
DllCall( "DestroyIcon", "Ptr",hICON ) ; Destroy original HICON
PNG256x256 := "iVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAMAAABrrFhUAAAC8VBMVEUAAAAvLzBPUFAVFRcbHB0KCgw/P0ADAgQDAwYDBAUBAQMDBAUNDQ8UExUfHyADAwUDAwYFBQgEBAYJCQwHBwomJicMDA8RERIDAwQhIiMJCAwODQoODQv/2Q//NhjevQz///8h0v/eLxSa3g2z/w8ctd7dvAsBAQEGBgSIiIj+2Am6/w8MDAflxAz/4A//+Z94eHjd3d3oxgyh5w3/75bhwAz61g6d4w3/8JuNjY7jwgz/3A7qxwzoMRTgvgwf0P7/OBgSEgP/5A8YGBcSEhGw/wki3P8h2P4evegpKCYjIh8aGwPjMBT+qJoiIgMduOIwLi/o6OgcHRzDrQvi4uKFhYX+MBF+f39ycXFfXl84OTqLvwsuKwO5pQz1NRf20g3/r6Ht7e2j6w392x5qjgldVQVSSwXyzw2wmwrMswz951wDEhQ+OQQlKwT+7Yr96nNDQkOUzQxGQQU2MgTz8/NVVldifwl0aQg5TQYfxewJS1UEJCmgjwoOb4BoaGkFGx/tygxMYwcrNwUYBQN7qAppXwbS0tIXlrBLSUkFLzTs1A5wFwsctdTuMhXWuQyIeAfK/lfq/6Ky8w6ZIQ6GHQ2mlQo1QQUfy/MSf5Pa/3z94kd+cAdUcAcHO0Q4Nif12w5xmwonBwQUjaENXGlOT1BsbUuYigxgEwl+gFeGsgw7CwWYlpb94DHYxQ+i1w0ewt0ZpLtHRzKoJRCr5g6ThAqdnWbQLROhoaG3+g/53w8aqsq1tnnEKxK1JxFBWQbIyMj48Z3KxICSk2FNDwf0qpzh/pXjzA6ysbLw6Zbh3JDYLxTRvg2PgAnQlIhDUQbCwsIgKizP2I2+/zK4t7erqqv8k4FZWj63/h+kqXL7fWr8aVNQUTl05v7a7JljZET4W0NAQS7/6RM72fz8UjiHfw2Y3+a+vb28y4RqT0qb8f6n7/b9n5BLOzf8Ryr7PR+GvsLloZS0gnfm22iCW1Ooem/AuWSQaWGopEbXyUxEnql+JxinCKeKAAAAHXRSTlMAEgdBNmMM99HZ6rN7TSzjx6i9k50cbljyI4f27oUxNjgAACnRSURBVHja5JxfSFtXHMcTo+af+afxb5dF+pB7K/fetBcjNjeG5c9LEwnO7E8tiU4k/yS2JVHyEoYgKSUyZdS8VGgYWFs2fWjRltCO2W242gjdWFcGg22Fsqc9jG1lr/vdJOpNjGLSPey035d7cqMP55PfOed3fr/fObz/s/j1hUarqImfa8jEqlxDLit8xee9wqoVNTbnG2/4iSa20SwexBvYpwhTF/6kgfeKSV7XXmi1i50WVT006pW+kVibHFpNZ7Z+lkCjY/A6Xsf+/krbsdr8v6FuCs01hf6LCUVdvqmyeNcwtt1gcdNJjwp+72P/6L+zq3nNki8//knRDiCufTeoYkE0tbXykFatQtqe73U4lAArB8nweVMyLOLz2hUJk8G6DCYg9T/r1v+s4Ne5/tQ/sHfw5JJ1/XVJM69ZaiNaeEhL5YqK5CyItpRpOkegpjFMGigvWHqHM2SeZpKuBoHQS13ofUC0NM4/O8+CaIpc0N/DW/nKgXuDaANoVswbPUo+2PSEThvI+IQyXisRJANMJqxsVyyatD0aa0IhimS6xns3rrURIWZc/4BQS4LjvQ8dUumZrS2ijoeyZBa3yWtp4tUoYybdCJOcEMsb/SSt0VApodIzZw5Ay41jXqprpVt/E3MlNWPdGz9h0fRYt/4WZn8ANGQ8lNXgMWhN80KZ/JjbYOzRgOUrCC/do9Fo0j7LGj2tAWXC/oxG0zWuf+FcpuDZ+yLspTTn9dexdX3vA6GAh6Ca61pkuZVe5TfptMaIWBU16ALQWesakRjp0YCY9Co0cq3sJsM+V3ryzzEqAxxWxle9vd36e8JaHoJqwKNORQMs9cpFFkDIhSVoUsOKCkEv84JnUaOri8k/C5+6VgDAOqwFCKrFMhdadCrlNeI4qdVqSa/PbRjR5AkwmiOq62oOQDsPQQnwuIkO+cV1ihQLQGekzaSmMhUAfKlA0hPkixMmnYGet+BBAMBKN1I5gHEAcFNUw0NRTVGDWas1xf1z8GBl7qkcwAUAcB1RADLCa4RuG8lC/3UGTZUAlDwkxReDl8eRzlgtABUPTaki5H8C4CmqABqcIQMHQNVD4BaqAATCOMkFUO0keEvNQ1PtElgIOQSqBtDBQ1M1yjCp/Q8A/IpsaFDtmjO/PIDea8gCgHif8eUBbKALQIYHi2bB6gA8PIMsAHnbNs0FMFIdAAeyAPhiCIJxAAReNwC8Rr+JawHTrx2AJo+RC8CkqVjnu5EG0OLkroM6smIDGEMcgKxoHdQZel43ALXHUiR3M1ANAJT9AEgKbXMBaKsC0HutiYeq6kWxqhwBLgCEt8MgqY/WcvT6AWgKk6+3BTS4tGauK1gVgKeIBkVZtVpChpcGcF3EQ1YCCI2/FIBuFoC4noeq5OAIvDSAL9FMju5Uh9AvOQSQTY7mVK9McAFMM5XmRlkLuIdmgURONY0+LgBTxSMABJVTCJfJFWWHdDSjqUwXeiEoumVDuEqsw6M1cwBUOgdoVs6zQUF0NwO8BogIHBoQYBiKophDRsEFWAYQLhVtJdzGA9OjjJVKb2a93pAxSVmZg+eBjadQQ4yoBEWR8aKICEVtxn0eC4HjhGXCv7xKMdzvMul0OgO2wQKAQYBqdownF8bpshERhgr5LPZzH55+8vjx47vvX7RbfFnrjmEkg7FI1BMNJwDL1V52PyTlIapmSVGVxC4AajOBf3vi0mRnQZOnTjjwWJKCr6zJRdfguaGTp08OnbMR/hd6NjCM7IaQLZUqExKi3BO2z0Y7izT6rj26SmmsQdfAZ6cK707dPUc83dKvY8hWC9c0+un9FmD1Epehj6V6PODMPlu0nZ7kvnzicPzoECFZKJeTNGw0lwKgvMQUdHK/3hlw+RxflL68jAkRrpZWe3TmkiFArTqXoP/ldMmO/7bv5ehlhHdD7IkIQ0lQMBP59u3OA3SCuFTGMM5I0awUZNVS5AmxAKg49k3nQRp1fFjm7RMc3THQigd3AehyANKey50H66T9nTJvLzYiawIC4TJdZAGUG3tyCIAvsLtl3t5F88hAvkhi3lQEwLo4OHoIgNHBoXLLgw3Z9FhzUa0cawH+JW5/91v7uclyYwBZV7Be7KeL5oCM5+Rut05NnVkqdYiGHHkov00NcRaEDxGtGM8XC3IBMGnX6d1uTWEYtjRZdha8ZMOwgT37eFeMrC+o8pjNXADJPQCTDgDgeLsEAJ6ziScY6NKrAKDJNWcosgDPngUsQScvl1jAkD1H5FSxBZxANzkC1ZJcABoqzJkDLg/u2xRdHMgTeVw0B5xt5KGqOvCEuACssYuHrQKjg1OdZXQR3bioDIuTRRbgtZ/qPFiPsc/K+QGD6PrCtW3zNBcAzIInDwFwliiH5zS6cyAAgHJR7l7A+tx2sAm8bSs3AkbRDYqyxyZ8xQDABIYO3gth506ePfvh0NLQ2RNf7L1VIBwQ4Csi3CEAooI4jPOy+gZ3nHE4fr0FumYnpgrLwBOkr5CoUXoMJUVC1kX8m/JbQduvDzcebuhZ9W6tO2zf56jY0Tw7uyMVZMe4FgDKJIi75VYAm+fP7px6Wem3rtkvdU6ettvQ9YJYdYAnVBIWZzIJ7Ozovk2/PbpJjbFaWbl6dfx8L9wqs/TNRezmTbQB1BHeadKsK0mMrFkG7k4Wmf8UloDESNeuxlYuwA0SmHNdjzgAAe6bT+noklpZa8iPD7z/+O2CT/xkinClKA1XwGJ8HYttnkccgEBJuFwW17aBCwBEUe6E0zI4sDQ0tDQwaAnHk9Z9mWHrMr76DHEArW1+dzq9+jzsNhQDAATWpHs55vP5EvPBVcqq2S+r35VegfoAhAHUShbJEYZN+M6VKRdnKMqaEyc1Pm00GknaFAhM04Eg/hyywygDqJGCGzgN3aRMuqPVywfMZna91GkNNLlGRJNdV5G9Q4NVLXt3kDfmj7lJ7dEAGL0hnYEkjVr3WhSDbHEXWMA/bcgWiLREjWTcYrGEiTh5JADMZsTlckWjHqeF8Dxnl8VxpAE0+U2GYDARCfggOH4kC2CS7vh2LPZ8LZhNQ91QDsC6EF0AEVpnDMSiBuPRz8wUJkaKgnYewAsc2VLRBhdM/mSQCHIAVCYA0PsA3dyoQLjGJsZSIfNLAUB3O1yjcnpNZjNppI3VAoAqsS0bugGhZpEzpSUNc2txskoAY2yZILKZQYiINeKeSNjpChqrOTkJGjvfu3EL3fIAyI7WSbDw4pxRVyUAOECu/xldV5CV1EOaDLr84eGekUBPhQDYzQCObH1EHsBORMhManVzpoqPzcDtssgWShYByO1yyJHKx8DDQVTvUuIAqP4WCRgDT0XIbohLLIDMO7sVTwIol0oWAQjkEiNepjJfUH/zFbGA3DqYiVniVAX9h+uFH6B9ubbUY+acm6OWseVnR7cACA3r7w1KUTYAzjKoC7CpUTy6lrRSR+w/Nb51nVAj7QexFfN7I4DyYvFljyvhTucioYeLsq68uG4TIe0EgODMxN6pMSqFhZ4lUxGLJ+bdpCDswZTFwDCUFaLm89cIUQvaPz+bHt4FQELPVhObgIHKPo9CqDCWCm2mKSuI2lH+U3LVu+13HRM1yVDvPhQIiPwk59wgQxWOhmWyyz4XgVs8EV9sOe51u93ZbNbt9sbXYr6wxykRqetqkZ779gAUTpDvzwxZ09nUoi/qJHCMFUFYhMI2iVip6qgTtCO8Ay6tFo6ZOH7Q/ghoJrmZjSjqWMlqBfJmPsJdrxUIBO31pUVCLIDDYoIMk/EgezKSK766jRAee0Msbanl/IhyyTx9+Olx6tkahuDxaL5c1tKhVjc2qtUdLTI5HxKB+OwstnD/yo1P2pQN7btWIVwmORUy+0Vltwk1ambfXqcSteEWpysKYhNZx0RqKTY73D/z1Ud9fY9u35iRqGtzi2A9Wyp62NXS1HMCV6M13de3SiWWcGI76J7TGUGkdi4UnPd58E9ufP7VzKPjx/v7++4sfCJUCWpapUrRzlU6OhNTbgJYtTSilfeorxMRkW23wUSTxsJRALPZQNK0LhibwHH8fv9xUH/fo4UZoVL4yVczhJs85BIZaxxDK/ElUxJ+L0Q5tftkhrepCPY5AMip784NDP98+Dbuo/Mm0FMWwDxSqc+aDmHES5PaA2Se9mJX+goAwAoW8K+O992e8YcA2AE3alp9KMW8+SpikSy+Mr6YABnEFgDAjj66gt3o67v/qTMGCAJltz2ZiFCFTNC7Ru1MmTiXooDmjIcBAAJgEf39CzPOhDtTLhZIrVoGzkhQmQUanEFax+k/OR3wxWjudGB047MAYE99N2bu9MN0MDuDR9ayabYeimF274+xUqsR7O+vfxejcVuY/I0Uzb0kFmZ1KjThn+O8NISIHQDsXPjoeP+dmRt98GG4/8qnODHh2/ZmN9M5JVfd8ViYwGd/+eAPRNK/ap9p3wWZ1J+3XHETuWMX5jkn9Ld/eHj4zTeHP/qoD378BVgY++HjW2/dAR8Rxwmna4KV04JhM58uPHrrvR8++EsiqG3NSdD+//WJmhVBct/FYF3jGzcJ/+7CYNZOAADobkFA4dHMbKENDIaP3799ZTavK7fv9731L3PnHtPUFQZwgZan2gIOeWxsEeK5hVuohVILlLS0LmlLCYN05T1kgMAAeQTkD8MQcCMjbIuAyYAxyXhIh2YwdVt4DIUsk8mSZdP4yEQzk5moi6+4ZX/tO7eUey8k4w7+6P0SNWnUcH79zvc63/mOJjT0zeWCJTLEYMSiJ6EO4MbTuHg3670ER2Af0Rt9cUJbUhovV1AhUS4bAKx6vrUzlPXBqjg+ubowkLZAyeOl588e6nz5aRKCK+jNzghrIsar5q7fIeo+ypAmxicpKtYB6EIzmtD/kjdvFNwnlpeXb964+sBcUFCwNMDPhohd8HAgc042fXRRXjU3dUtPVvTlvXqohA0AZBp1bQDgZsFzNPkmlj8fLd94ULAUwsvIwLeWBsAqbkBvf3lV9OVLE3oytbhyvjOFDWAP0b0BgN8LlogO+9/BEG6a23l5TzI4Nz6JbQTXIIi+PHX6Dkl0qUPZAFo3ABD654MFo01DA3n0zIuP+UEAe0YuJHcsBK/0QjNLdPTFO2g0fw2AyQ0AgCN82MrEdoHw9gnYyTdngJ8M2cuclS6PW4NgHC767J87vYbANDENADYwAs/QBcYH+YOmOtLDT8gvb+Dqg2/CszKhZkCwZifEwmE2Yuq8pnsQeGxkBJ4gpppo5nMVZeevpYv4FRO4ETAilUVgPQJwijAMG00zv80OzUYAHpmXyA4mgA6yrHm86vL5iRC/3TwKDf0RjIRhI8AZARvBOIxBTZ/PpxWAXIQ/NraC8yytQXnSuPFYMCnDevFu3miBi5g86nCFjJwwbl1j36XV2EezSHaEbigasILMjaKZRKXSt2Cg6H64PHib9OFNWLDTCwiwAWBr2BzHVgHo7h3Nt68n3za4GLqxQD5EXGADiG/GIVYsIJga8A7gixLsFBN90njWI3rx+NSTtQ9ABYahCtAJDPJHiRl7JrBRMAyxoFrdme8AQOQp5FSXIH5v7odh/hTOXXahkozEpFUE8aVX4ql9cIjZ1rV/iphU45LAPIRFak4AlkiqlATYKAAkfqicirN7YwHBdb0vX3Rgm1Ck7ftwtSosv1IidZiCBHok+mUd1EU6p224RMoFwE0oioxiAHYGmklTWVJSnCPZAgIX0/kTHQftCkztK5PKFRSAc7VShyk4RJvB/QO2TjgYaMV6wGULLJsLBmxqupTYXQnl1jhHsoW3wRSfJowLdnlrS0bKpIny+MSRVPp2fDPd2Xe7tWMQ2aZhTZwA/G4uuN+6SFcSOyqk9BTiiAhM4Dav5oi4eZAEdLiM5ClGSMacoOYER2/naeQhImZg/dwAPDIXvIDS2SqAebhwKaWtStzh/TwbMh9AjuU0NKbC6agJ9cjXJEgR+L6vxw43j5kUjgAgEsLB8OoeWBz8KJF5mB6Br03wqUzi6jcboyyMCaspQrOVtdK108Ohw/28t4sgkPpKFwEAl0BgiVg9UUiZgYnc7HwblGrYaxtvRODRpgwDKTymVbYh9sxILFXR10UugpALGAB4AS5+0LxAW0F1BxgWgMlumL0k2sYbCW6h1q+s0fYXhrXAGwL2zMgBIA40QOSyu5U7APCD5iX9KEQOlAwWy+H/S4xjBtjR5/kDwMWzIQYDiDmlzVEW9pNlClwhkn5oPyxIgC2Ahx4IBxftCh3KxQhcNRc80dkWMQF1FyqVU3eMaAQR5XwC4GbKUVIATjbGhMU04uek9kqjeo5IcTNs3BkwWfjNfKFtRaO5AABHaIZy8CB2nCk2dEUhV+CzR9oV9vIJgP9JSgGUOSQ2BaaSRFwkTi6pkGLX9UHtmbdjo2/50AAguOUUC5nNC/chdFJ3Iz3K/ahMDjnHXjkN4DRvXpxyERXZd0BDJbYDBBQJIAL4XluhgC6YhA9MPePgs/y3udkWaQAcCUBS2DVD1L8nMSJtbamCfq0ZANzmzUzBHVr7DlC29MMOaIMmKKwA51CJFPfDnyF7euFlGOE2t0EwgrQV5GAIMYH7RGsazJb5AhWXnMNH76sA5gZ4c3PKf8UH5GjblACAyIsHBfgsFxVLwQZGZWgz4I4DzDzwdwBICeVOAHYBssC40excuVyxlwGg/GeSL23z7p7g+0BiilLhdzuAQ3fvIdQnhx83+Zzpg8PRt8Xw8HaXI73L/18EHuq+e+1rUCvmARS4wfO8mS4NUZDdBDT+9A3owRg6Kk+CJwMq0Yg0Ho++qX079qJe6OLV0bmHuxWkwwHzY6Phl/Ri+ZprdlUTYr7URAK0NcowLJVFkZiEqVYhP6qdLYIvTY5NQMndpwNid/9B8OkgHLMBujIC3pAk6j5UsJ5liYi6SPJmuravIww0jUUWYlOIcivQbJuJzFM0v5J8nNAez/UWCALp1IY2ApwCIkgM0T2q9srwguPDvLk66C6etUcBY+TZ8BM4HJ5taSmqMXkTeYlxd0cIYbAYumR95vH6ue8BOjF+gM0APMvAeqU04W8db3xAUGCDHUBN0YnwcKWyLTVMqSxsFAs8647mHcGKCtU7RyrM2gPcw4ElshjHwnQ+lHwk0KkmMEiwg2rgEQiCXtpBgA2k5EB4eHhhTEOLEnvEHdsEYg9CJFzZJqO0AtCRAHcz8ALOBRjNtVFlpBPbqKDjWaTX4WsthN7jZS8RAWEQJYXhmEDjsRjwiPhuq7vbjpccE6RAATanASBgBhaMdfGgAI5M4LMKJz60I/DTV2daLVZZfRphyMpq160AKOwvigQAJypPAYB+X3aoNE+vnxUIcM6LnuP48hC9AZzXSin0zraqVBIQlSQrXddkaXcAONZAAWgIK1QWzgaz35eiYqD1XoD7Jlgw1CmkjvX3EM5zgUKPdpXEYpFQYs006DNXAcyCBoBE4l/HAljJwuCFPZvfAeAJKFfYk7Cy/gyt884E3DyqYf0SlcUqAS2wyGS6tKEVADGNFICvGk4AgFkWgF20CWR5Qe4qAPGgriR5Zf0mX6fFgC6eRqz9lmqdzthuUQGALDLNoQF2AGcrAcA3PwX8xw5gVkS4W4H7xI8J1LtkJl/nGUAhkUl98e1ZTfUGo0xlzbQaEBtADQXgJBOAW+t0ymadIO0IltA9UIFvR7T+zssBXH0MWAGsMll7Wlq7wYj3QD0bQOQYADjw8QBzlwbYUjZtAuikaMFQ8S1MG/Bw5uyEnaIhSgEy0w2Z1no9ylLJZE0kywZE5pi+AgATTAC+WzMB9B44k5D8l1NTgACPJhVWgLTsfQffOPirPhsAyHSIZQRrtGfDD3xyjQHAVdy9NRMAosFFYnQ0OeFvpx6IbSdlsANkmfqvD+7bt+9gpkEFu8GI2DaApADsYnaVT24yDmaHAo/1x5MjnhqdmQXTAN7AALIoAOmI7QVMZ8PDP7nmw7xXsZU4mN4D5rS6byPKwbo4T7aHyCT0FviaaFdZgQbbC3yVigEM+zFi59bpLQOArBiMgOn7iHKorztP3ERNK0YwTWbJIkkrwGhCawHUAIDT9MA7qhq8NRuIBYzAC4gEym85sw7gKq52uEGDDoETkMis7esA5EQeAACM4KF1SwDoYPAJyosqH3BqJWx7ugRLkyE7O12fBTDABqazAZxoGYsM/+SS2J0FgEMmxOG0lChNfpoe7MxaaJB3Pd4Dkqb26nqryiKxWId0Q0TbSjJkzwZPYgDXGf0ru7cGgO4aWiJ6og4PI7FTHaEOr1uiApGAWJrIoSzUFsNIh9cDEJAzWweAL1GkpX6f0Dt3fYJw4iAldz+DBAisiAqSQWsWOkUDwHkQBjD1chDj3GCSCUC9SQBPdKY8aEEdPzzn1CbBIE+DVeVYfxOsPzONDSDyWBsYwT9CdtL/RNSt3ioATf4/RF2GFFqxI6BZ1Kktci/56odkKiyybH11U7U+kFgD4NQaAO5eo1sFoIEWy9xXpVI4HlTIE5vHnRkNgVHzCzFkV2cbCZRuhOEgbl5rADQAgJ/1jKKdj21PylYAaFI6iHffOdJcDHMa8GSGxJ4Q596udhVs9/Xz9BT7+gt3usLZaBELQAMA+Pg35nNwQmSbVKdsFoAmv2sQff7lOyOJpbVasq64r+/4yzw4F3Z1cXFnNwgV9vczABgZAFy3BxLzM2r1ZpJBTWeXDX365evvk3kwnCTjCBHo5enLr9v1/1J3bjFtlmEAlpOMMwPKEDz86Nj/T4tpNwFhSCWtPc3QUligBTVE0M2CFkaVtms7GFLq6nDIoMqqrMUDElfU6ZbqhrpMYmIYU6MmHqJLppk3u/bO9/u+H3pglN7133uzcUP4nr59v/f8JWw5yQIYDAK4pAhz2LKKaObix/cSNXgy9tM/eu/EKdrjkMmk5npUHq04PJaWzaUOWdIkyQJ48QIGMDMIAI7/Ge6x5lmsFvrUxBePo/nxWE//6vn3jujNCzJpaalfz7x7GI3jN/G50hUQlAwCYHfnMgYwjAF8VBzuQOkDcofZznww8cW9jzz56OaHv/uR89BdbbG6pLJSUanUuqW4/kx5eUX5sXpu6f+GAH7aGjFj6DNNmQJuxOC91z97Ek640dlBHj8/cfEIbfE5pqQyUWlpqcylT7kts6jv0IEDL3GmKh6UrRfCALQtnwMA70R0MhfYXWVlKrnc5bB67PxTF4++fv4zUIUIefLxz85PvPfBEVrvsS6Y4MMnIjOj2Copo6h+bxqXWsRZyR9gAQzgytDp5fHHvj/+Tm5iuAeZ45OXgagwBLfPadcfOXLqg4tHj068jmXi6NGLH5w6wjB2p9m64JfB6VkRSd1MFtGjrCRuzY4SKWYBzAwRAJMIwNcAIKKk4MAEWAgqV8DhtvrMHovFYrfr7XaLxWk2W92OgH9Kig8fPL+D4c54TBQAVcM95xCAT4Y+QQAidz8nFlhcqrKgqBAGuUmOxS83TcFdByKToTOHnX9Bz6nZkI1bxVkA45MIwC/r3kVNyPOUhQkcekokEoWcNfhT2Plpjm9XzBy6LwzA0OntP1/6PI23vrDqUIVowFRpLCL16u0WjgMoZAGgohjIucleAPDP+q0X2+yBEACmGE4vksmstMVl5jiAFBZAW88nuD+gDwG4Il4HoNgjLwtKLAogdXloj0rq5NBw0E0B7O2twl1iPaexBgy0PbAdAGStc5h8IQBUok2PL5ty6/lWU+nVFY7vlUqpDwNAUkK/K1MijWCaNwSAPLrug/cr8zohDDSJSq9pbhkAvRjAyWEcDhZGlpZLNjcBoBb4JpBJTV4n4/Gq5CLR1WtiDoT/UQHw2T65IdB9BKATh4PFkTbQWRbdBKCgh/gCfofPrjc7VHD+UtFvNyRcB0DPhQHoPIkA/JofaQPNm5gA0dUFh8PrtpqdFrvZHZCrykwIyvUbfI4vWQUAuwmAuRAAP2VEs4Hym33vr+tovt7i8VkdZeArg5ZgKtdvpHIvAo7YpUI0oGpyhsTDywjA+xmRNtAqj/YNgKP+q/O4XHB2uYo1E7cIgOTUGRINTXZiAHMA4PvjkQ/BZBeFXgKimwJYMctVIZBuFQBJqZ1hANomzwGAT9PCAWRBNBjNBIhEv10DAGXrAVzTcB8AmRm6cJLEwwPjj/186ZeI1M02xmFSRTMBAEBjnlKpQgFAhHj1moB/iwCAvDgBAOEgBAN3ZodrAO3xuuTyjb0ABMAC+QCXihWTyeRacJs1qXlc3KQWZgPYqTHIi5OEwGkcDSWFl1ULcxmLDzHA9xs5c6jrVwoAGD6jtzhBPB6PE5JGTGp6bj6ntmfdfGRkkAB4cYBNCCAAV1BpJBxBVkEaYzdbHQGVCXl7IV6/DHk//xnpZw7sPzPd1dXX3X2wvf1gA5OZxOP66UF46SyAGQLgHHKISDAQKQlZ+blFjN6Jc19gCyElMmXy+wMoSain67sOQP0TpBwS4HV1tS/dIku2eekXVpOC4zgYGJiDNqnjGzTzJGanFKTRfJph9JDqIBlBBl4m6G6ob8IPUYLUkQmxrlvkaVFe+iQBMNxAACyjAvnxPzfOZGalHnpi/7tjY2PTL700PTb23Yn9B449O7a6n3EHCGxkqn2ljzODYZuNzg6RrChqEyYdAtgXLtjYbBbtP1wDys5KeQ1ofPkZml1TXLHr8LNPVd615+2DawgTOa0KibmrAKBNmC2PotJIXhSz+d2uyB10dU38rsPwyaPJ+z345aVX9hZjWoX5W+HhkvzMbVy9DgAAyYn1NvQSAIM4GMhN3PipIfT4PHt0LHUVu958nz5zuG4HzMbh4394po8GByArr0ipA+GLDeqSDC6WRUAyGu7D0ttA4uEZHAx8HcWGZ3SXhyzihKX0lWgn96/0WE15HZoOffCVl/euGNT89IwS441r/4K0SEY6Liu4s0EtTAoAAJaeORIODj1AfOEoe/nB4IW8uIangR+GLXkHDx3bBQ+sfdiu+6Gf6l/U0pp/r/+GZdZAUZclHMoMJPKSk7NSkpKSeQkF9b1sPDxMfOGZ7Y/hxHgU7/kQGIHwt2YqYePYV7/yG575runD7tF+Css83ycVISn12+cpqjWPKyPz2Zl5OSUlDM2gl6Ry+G0sADI4Nz43jlzBkqwoF8czu3YENYAVIPDQV+//KWH4tE6wc5EQYBaIyyi1KjoooYYbxWFeQbra2NrSYptVMEqjVk2vblB4cTUa2o5cwSh/bObaUuaQzTiVbz4PCzO//Pbzr9/56K0eiQ1rwagHAMj8JqnJXk1RAk74RtlpylbcKwvd4loN34Z6RUk8TAB8AsEAJMYVmVF+Bby4tiN8Lz8IrCF+4XlYRIzkuRO0AAH4AVRA5rVbHFKrup8a0XCgQyY5R7dzdXoUZobUEiPzIpsQIOHgOBTHUF44WlE7v76pIsIIEC246+k3n3vuuRdeePqvaeYyAOhX+KQu+9l5icuv/4GijPGvlPPSFKhNGhqm8fAEbpgfZOPhZTI8O9mG88Jbo4WQOWvvToIKhG5Ju5/IXXu+2WujQLR2mUMN/5ilZi1Fnd0S9wApX9KC+6S1Rtu+ahgfFtgY+sJqPEwALA8jR+CdqN/XQubd2h0hO/fWy54udT82g36HjqIW7SYv/CwUxzs9lFw0iwYFDGKFWqnRounZFh09VEWaZCbHSTDQyaZFo79RBM3PUd8dPCMRAoAleiGg6KeaVxb89hFYKBTv3SnFWAFsClvrrEFMG6sFrQIt3cB2CGAAJBiAtGgOL/pa6vZjNasEYAPtOqk8waCrcJHxTlmWqGZNQGo5S1G2ONfKE7eoQQFaYFZIPGqb5TOCfa0wOEY8od3DbIF8ZhC5gmh7VDThbek+tvb+7FPrCOx5aj+2giN8t9StXtxpmZKaWymqOs5GgJc+ikeFjJqlxsbGJaUBXQRKMjZU1dYAAEhlALmCm+Xzs3Pbn6hd279aGUng2UP8EQzAK5X59HqHTGodpagfYRQjnpKcqq0G29+isOHhUZsGfQcU4AmRTUK929nKAHhCVyTbNqOZUT9dsfYM9bPhCCprx8TN2BFwyMAT8stEUq8avhGS+FrBJAJAoGgl07MYgJruJNXBvW3EFRwax55Q4aa5lOLUgyfKIQIkKYGaWsiEEAyVlbvK+wzoFjjLd63mThcUjXANxDcguqPIWL0PAMxq/obh0b+VaqIBJwmAnmE2MY4myH+PZa4jK5fpO1FRW7OWGrinAtria2rq0Dtt8xSIwLJWSHStNFONYsAaR0nIMYARhEPrxMYWG5mgF0jogWBxjPWFiSe0uSQUptHt0001tZAWIxQIh5rybvi8QXQQD7Ia4FoRxh3AbXiHArg/LVqdWs0odsItYOPTPVXB4hhpEwIAf4AnFBMCmCY4+PKhph1reULQiAN9kqXGDnADIBYIasAI1RFvAIV8PEA9a2xt1SoULcCiRSdWwD0Y6gt3tm3HnlBCjHZF0KqG0Lqh+5mXp1Gu+OWuvvZ6xRKMqDeOKD3w+XNJA3j4O7ATVohoFLM4GLAxBgO5B2GNFph/kHHkEF369E5ebM61rrFRePmswKhTK8UakBUdI54XNgqbG0d0+gVTKZdsAFKBViBQzW7SQQsEJAIjCYirsCdEBK6Bz0uyY0upzcJn3QxuRbNwBIuwcV5suywUjswr9VBUF4XeAs1xB5CYIRYAASJgApSMtmUUrgHiCZ0OAnjtSozNPSkKYbOQSDMRYeOSWqyECXVzQI5qyQQBjgoX458X5OWKW6vJ6dHwqESrVaalD7COwNwDQQC/x9jflklr4cMPCiGx1NKisMhVIf0k2BNc4kC3AK+AbxDg+WmBgZHoFEUFd2wl4dDuoc4ggO8vKYpjci7TPXrjyHoEHR06SxkGQFRAJPWhWIATMzNoeNRgMCgZmuZvyU+GGJG1goODawAgGvioIKapM4/cYVHuG0FGoJmcHP7T2LFoZOwelyqko8aJosH4Z0TI8GhhQV5ubl5BYRL+e7KIFdzdSa4BIm/EtPt5mz5gMqmsFvHovh8X4fQUkn7hj1qJ3u13OjEBchGQfACHWsdDSpbZRYPYCs41hF4DsFI+hrlLa5nZ6Ta5vGY9I1FCtlkASwrVGr3TDYNDfjsQYFVA5tVBRkhSeBsX5fbcIRwQo+pYEMDXObzNrwB7wNM6r1kgE2U+s9NpcUIDhdclk0LjjCygN6vYriqcDphnOJAW/r+6a2lpI4rCVImvOEkcH7GpixYsMyWzcMgiuAqSoSa6yNwwohlXke4GYQJR8mCUdGENuOrCTKEBcdxIoApSIgp16dY2Lgrdp5v+iN65t9EEJ50UAr1+kEASsriHc849j++cscIYh0sC65tNArjsYPMpbRiJZFJFLMpYZB4ODYUQYwaeHjm+Qwb9VDItANZHjshwAQ/hxU5grZDxNwUC9ne2a+qweC2BXUwjzVoMjRiIYBgLvdaQBfz/svhfeTKBg8Wz5kDA1mAn8qcLO5Ik6pF2UxTZ7SIygmweZsfLxCwUf4CRxbv10k0C8Nn+LXexwIMaHCey5E9iIzClEzF7gyDuJKE1ZgmKxRdhpnAngG9fhWHbGqu2l6/zohFpP0dUKuahclwopgIwZDRHrRu++wHMlDq704CfnNd2MZEeMhaiZcwgfhGyVAGdgaMjORXmhgIx7XHLVg/uEaN7AAvgO0PZPrlW0fZ0/T7itcKJkivpQh1Iu0Tzxp9AFcBu8JP/zzVovwHeNbUibmsvI7G2FoACAEVXXgGwxJB6BWB4G15g/xydf/pD1NNjK4AraVbOGzAOirWdpINukNkCoMp5CI0BGhjDA4Sp9cI58oGX9gugXc9qAEi3iZuy9i6GR+ZbAb870YvMkZS8FtyEs8ZhrysTwPFw4b0fuoAf9pnruHs2yZulr8rGDdobUJpHI+SNV/ZUKyuCzGylq+FBkh1AgzpRCARNCWTeHk/7P7O+DoohwpKEC2I7taUNMZwv5wxNP4TQzcRACYuJCi/Bd9ZJQh3AfuXkl9RaMBgMHHw8Pw7THZhsj69frkqoGgLbQEm+VplJqKoMof7aWKnUeDM9TorMoIPYCKhVBwYWN1dTqdXjNxm2Q14nNcDIVR5IUAD3SKdbPkU9hHJEH2J81M3NzXH9Q/REX6f3p8PDRGfq0vN2SN8SvkOjFeOUw+Ho/SeD7fM6Jzl5pg4sTg/qyzLnITYFguga83KIjavQ6q8kYKp/GkhXtcqKGmfdIxTBAXD30PPUO0oPTnJCOC6aiIcFtt9Nj1KPxvy7IoReh89Ju4cgBuixYcrVVd//Gxsz1+m1wpbTAAAAAElFTkSuQmCC"
hICON := Base64PNG_to_HICON( PNG256x256)
Gui, Margin, 20, 20
Gui, Add, Picture,gname, HICON:%hICON%
Gui, Show,, Base64PNG_to_HICON() DEMO
Return ; // end of auto-execcute section //
name:
msgbox, Bart Simpson
return
guiclose:
ExitApp
return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Base64PNG_to_HICON( B64, nBytes:="", W:="", H:="" ) {
Local Bin, BLen, hICON:=0
if !nBytes
nBytes := ceil(strlen(strReplace( B64,"=","=",e))/4*3)-e
VarSetCapacity( Bin,nBytes,0 ), BLen := StrLen(B64)
If DllCall( "Crypt32.dll\CryptStringToBinary", "Str",B64, "UInt",BLen, "UInt",0x1
, "Ptr",&Bin, "UIntP",nBytes, "Int",0, "Int",0 )
hICON := DllCall( "CreateIconFromResourceEx", "Ptr",&Bin, "UInt",nBytes, "Int",True
, "UInt",0x30000, "Int",W, "Int",H, "UInt",0, "UPtr" )
Return hICON
}