#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GDIPlus.au3>
Local $sPicN = @ScriptDir & '\bk.png'
If Not FileExists($sPicN) Then _CreatePic($sPicN)
Local $sShortcut = StringTrimRight(@ScriptName, 4)
Local $sShortcutName = @DesktopDir & '\' & $sShortcut & '.lnk'
If Not FileExists($sShortcutName) Then
FileCreateShortcut(@ScriptFullPath, $sShortcutName)
Sleep(500)
EndIf
Local $aShortcutPos = _GetShortcutPos()
If @error Then Exit
_GDIPlus_Startup()
Local $hImage = _GDIPlus_ImageLoadFromFile($sPicN)
Local $hGui = GUICreate('', 206, 75, $aShortcutPos[0], $aShortcutPos[1], $WS_POPUP, BitOR($WS_EX_LAYERED, $DS_MODALFRAME))
SetBitmap($hGui, $hImage, 200)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case -8
ExitLoop
EndSwitch
WEnd
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
GUIDelete($hGui)
Func _GetShortcutPos()
Local $hListView = ControlGetHandle('Program Manager', 'FolderView', 'SysListView321'), $ix = 0
Local $aShortcutPos[2]
While 1
$aRect = _GUICtrlListView_GetItemRect($hListView, $ix)
If $aRect[1] = 0 And $aRect[2] = 0 And $aRect[3] = 0 Then ExitLoop
If ControlListView('Program Manager', 'FolderView', 'SysListView321', 'GetText', $ix) = $sShortcut Then
$aShortcutPos[0] = $aRect[0] + 60
$aShortcutPos[1] = $aRect[1]
ExitLoop
EndIf
$ix += 1
WEnd
If $aShortcutPos[0] = 0 And $aShortcutPos[1] = 0 Then Return SetError(1)
Return $aShortcutPos
EndFunc ;==>_GetShortcutPos
Func _CreatePic($sPicN)
Local $Code = ''
$Code &= '0x89504E470D0A1A0A0000000D49484452000000CE0000004B08060000003862B8AF000000097048597300000B1300000B1301009A9C1800000A4D6943435050686F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDFF7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B57D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD81F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E0500D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C200A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422CCC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD974BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B231348E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA560068DFF95D33DB09A05A0AD07AF98B7938FC'
$Code &= '401E9EA150C83C1D1C0A0B0BED2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158AF15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC864FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B91001067343279F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70170660189EC218BC86090441C8081361213A8811628ED822CE0817998E04226148349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD9615C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF0824028B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F9348240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB906DC9DEE408B280'
$Code &= 'AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA076502F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD831E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA12953A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A909D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB2868546A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16EDEBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C313863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE8767E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD946B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F5'
$Code &= '56D7AC49D65CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A64B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCADD96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3BFACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A50735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD115CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DCA2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A76E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA68864F4675C633094F522B79911992'
$Code &= 'B923F34D5644D6DEACCFD971D92D39949C949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58ECDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED926DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBFB2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BDEFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB75FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6FEB65F7'
$Code &= 'CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBCCE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04FF73EE77CFEFC2FF784F3FB25D29F33000000206348524D00007A25000080830000F9FF000080E9000075300000EA6000003A980000176F925FC546000010DE4944415478DAEC9D4DAC2CC755C77F55DD3D3DF7DEE7F79E1D29485EB08C14BE8202644158D88E4D3E2CF34842B01DC02014622726C60281041289D82444CA0A296205442224482896234814881405B1006494051F111202447624965FFC3EEE9DE9EEAAC3A2AB67FACE744F57DDA9B69F873ED2A8EF3D73EA5FA7ABEACCA93AF5A5448489269A288CF45404134D144E69F38752CA475E75FCADA6629CE80049DCA7FDFFB6E1781A8D725E6AF3A326039AE8000CA5FDB7EDF8AC8C290D349A04C880997BA6EEA327C399E8800CC80295FB9440D1FA1F40420C27017260FEC02F7FFCE9B3D3EF8A35659624492E62B5010141830641619D09'
$Code &= '2758B03584303DA7E72BF774AD5CACAD87237A6B4C9F245A1B636DB15C16D96C965A51955831493EB32F7CEE937F0E9CBACFC225A97C0DA7E99E65C0FCAD8F3FFBC1773EF8638FBEFF671F7CE349725E60B31F679DB9DAE9576CA257B9EFD537182F0512557F57B9765B017FF6D9BFFA567AFA9D7BFEFEF93FFE9356CF6CD565F3F5381A98FDC42FFEF6071E79E8BEC77FE5F107DF98B92F661B868358C0D44F05B94A30E74C697A4ECF57EAE9E716A43578A90C1C27F0C47BDFF5BDB3347DF4C6C22EFFED2B9FF95CABAB5601467B7A9C04C874C9F1138FFDE40F140B37B0296BBB16C02035AA52542AA3D2332A955391206804B9039FCA1598CFF3D5CA77DFE72196BB6F7AF17AD62940236449DDE067A9E6E71E7BC7EB15F62A70153876BD2E8DBF59D65D3529CBFC2881CB7338BD59314FD70E50CBF6534BFDBDCFB32FFD10AE6FBE5D7261BAC47CAF619DE39569DCFA89811782D12D3B5E9BB3159485659EC1D912A42C2F019780793B101632C649348B79F3CFE5130D764192CCDD3C907BCDD673F5EA6AF8D9257B2EA4D7233BF47D4C5DC6C0EAE3C52CD3D858FBE28560F4C98ED5E69204925463058E73B0B69A39A3C9420D67E57592C48D8904B406B11A64ED3A59C53364E532BB78BEB2ECC018CA23B62E3E7986600DF3E294694C2C22E9464079F5CB8ED3E6945258EBDA37902469'
$Code &= 'BE6934A1F338FA74512E34A0155468D033B480DD085768A92BACCDEFE20DC902BD18BE79C4D22524CF7D75D1A2A295694CAC58BA6DD6EB2E8C3ED9B1DA9C00CA0D6012A02A16B6D5675417593980A8CC0A70562CC867734A0359ED74CE5998011211ECEA576A9BE7235BC7FFB6F982F2CA23A62EBE79EEAB4BC38B55A642DCFA89814700469FEC586D4E56E327100DBA9EFB515D837E6FBBB1286B003DCB6BCB4CD65FDA8E20B9ED594BB0AFEC45B062E8120B2B36CF47367699C4A8C331EA29663DD78DDE764E43FA7A1C01B022A614385275F05B5990561CDC384B5580158548072F40B6F9B5D9E437BEB3370F89AFCB609E2165E0C18B55A62271EB27898047C0FBF5C98ED5E65663A196F7E9984BC5771E4701CA882155F5FC922E85DC4C6B02263A4C6ABC91D0BD5F2DF5309AC6C0F4D98D1B4B0D582BE499C21A3A6105B01BDB14BA78FBC8FAA68BA9CB18EFD5C78B594E31EB27061E01183E4B69C6AA1B0B58DBAD86F6F034AB15D1AF7FDDD57B2B0B4695140ACEF4E471263A2C5A2FBF69860AB6734F8E1E309A947A45F4D19B1F7EF2B1871E78E0BE630DF324A5AA2A529DEC1E1405FCDAF4BDC02E59D9235FB9A0DE31B186D2C77E8FB1B0F67DAF8BCA8F59CF43A43D8CE6E487DEFD91471F7EE49DD73EF2A1F7BE6186458A33E62A454AA8044C6BAC535AA192F3C86D5E886C1F7F'
$Code &= '30DD08BA447D2F0F5EAC328D5D3F31F04230FA64C76A734D40C5345D3563BCA26A5B46F37D8F3CF5BE871E7ADBB55F7BF2DA9B8A9B05C95D7574A02C0DE93C71118E7A890280D68A4443515A92446FF132ED2F0B74F29344EF4CE7CB0BD16528CF50AC215EAC324D93B8F513038F8036D3273B569BCBB4EE0B534B9FC7698F6966C0F10F5F7BFA17DEF353D79EF88DA7AEBD756EE17577CD28CA824A6B9827DC72C101A5EA4F7B6FA9B5B697E72BDBC7F7C923B62E31B17C78B1CA748CFAD9172F04A34F76AC36B70AE15BB002D6731E67B561EDCD3FF3ECCFBFEDFEFB7EFAE90FBCE347D412D21C96674B9416B27CCE8DD325C93CC7B8BD9DDA2D94336E73699AA6ABC5736D9E099005BA31CCEE746A045D86F20CC1F2E1C52AD3E8F513012FE4FDFA64C76A738D95C840804F7774D5D21FBCF6CC7BEE7FE0A1879FF9F0B51FCFA977C85516AC4E51F9255E3E5D72F7714E5A08C6D47D48639D720A8CA9D7FB74F202647BF943798CA14B442C1F5EAC328D5D3F31F04230FA64C76A73C8A6958857704003C923EF7EDF631FFED0BBEEAF04CECEE064065505499E70B330CCE6272C168679A2EAEE80D406246ED5B452605DA56DF24264FBF843E9C6D02526960F2F5699C6AE9F187821187DB2A3B539D60182FA2376C87056939DCF7FFE33CFFDE1A79FFB874CC1DD4720854129B85100B3844A'
$Code &= '43614AAC2DEA48844BD9644C6BE1E7262F48B6873F946E0C5D626279F1229569ECFA89811782D12B3B529BDB0E0948A7EB493B7C92FDE65FFFD19753557C8F2C6E1CFDEEB3BFF42625092A813C81851B38DD733CC72C16CE6235DA596C655C042AADE3795B3C13204B37BF2806D2D9F8BA0CE619F25E1EBC58656A22D78FB03F1E01187DB263B539A9DA9BA9FB693338E04EDAA0F8E7AFFCE973B7AEBF94A46A76F4CC53EF7FC351E2365C57A08C45CD35A549EB5F05A31011AC3124BAE62D2CE4769B37137F59E8E6674AEF4CE7CB0BD16528CF102C1F5EAC32255151EB47CDD2BDF1C0FFFDFA64C76A7347B64014189561D054A6321D031DD11DB1EA8AFA0CA99BFFF58F5FFACB2F3EFFDC97DFFEF66B9FBF6DE0AC049D40922A6EDDB6CC8E522A1791D0ADFE6F55415174F34264FBF843E9C6D02526960F2F5699C6AE9F187821187DB263B5B9F5224F8D51FEC181E628B405701378E9DFFFEE0B7F7163B1F89FDFFBFD4F7FA3C8A052A052854A356555FFA0593188D85A11F723576F70DBE685C8F6F187D28DA14B4C2C1F5EAC328D5D3F31F04230FA64C76A73220A23493D872360D7D7790C8E710CF5919F2BFAD63FFDCD97FEF6D2A5A3DF3C7DB9FAD4277FE72D06A89615C7791D0B1723186B11114840A9943405B3345B3CCA0059BAF9529A9DE97C7921BA0CE51982E5C38B55A62A49'
$Code &= 'A2D68F4AF7D70DFCDB4C9FEC586D4E4A8D28B59ECFA92740B78C27ED5956506D5898FE8FAF3FF77CB93C55B797BC45E98A2B2729A680AA727B74DCAE366B2D52194425E80E5E16200B74F2F5403A3D822E3A2696072F5699C6AE9F18788037469FEC586D4E016215D244E402F6E3B43DCFD285A933605E56F2D2A51C6692624A17C3566EB59A4AEBC53A5AD53B26854E1E0A7F597A64D36467BA317419CA3308CB8317AB4C63D78F8D80B75A81E6550EDDB263B5397131F0A60BA7046FC3E9EAB69D01B72139D580B696E569499EE788D25863406B947213A26850F556D42D5E1D1FF592856EBE526A771EBEBC005D06F30CC0F2E1C52AD3D8F51345B77AD5B11F468FEC586D4E8C334A512E77E9B48DD4637B8371018332CB8FA532901625F33CAB43709521D5BA3E329AFAE4102306AB1312D9E669E52F0B74F295B0339D2F2F4497A13C43B07C78B1CAB492B8F513030FF0C6E8931DABCD6977165DFD13A17A37E90C6D9D6EEE0A11C0185316CA4DA889114A31489660657DB28228B5BA64C13436DBE259D1DEB2F46128BD339D2F2F4497A13C43B07C78B1CA54B48A5B3F11F00878BF3ED9B1DA5C735CBBB6164582F4DCB51172CA8DD0B2A2A69F2902953B8BD7AAB59F12403507C7491BC45F965E8CDDE97C7912A4773C2C1F5EAC3215E2D7CFBE7821EFD7273B569B53D2AC1A10B7BDC0'
$Code &= 'CA3E86E396ED54C628289462A641A4FE15A6B5AFE1DCA45087A79300D95E8C81EF7D7921BA48442C2F5ECC328D5D3F11F042303A65476A73F5E9A75BDB0ABCB64EEF743CD56A5655D35EFEE6BD875B5E9DBDF331748985E5C58B59A6B1EB2702DEDE1823B539A957F360D15BA7965ED8E3201671E746A780728327E958627DAEBBD5A3EC90EC2EBE4F1EB1758985E5C38B55A68AF8F51313EFA21863B5B94A355753893B6AF7DC0ED0C1536EBADD93D2A9B865D8469A81946C69A5DD1540BD3C4FD95D18837944D62536D6102F5699C6AE9FA8787B608CD5E656D74D37C184FA78A80B9DE4B9A244EACB47CF6FED714757ABF38138E5AE32DCE405C9F6F087D28DA14B542C1F5EB4328D5D3FFBE38560F4CA8ED4E67CB64D8777D5505B33A9220AAB5AFDB5D57D396E6DD006CFE22F5BFF2B9DB2BBD2F9F2427491C85843BC58651ABB7E62E0D583703F8C3ED9B1DA9CB8D502220AABFB0D28C8702A63EBE3A7D4EAC70093A9F39B7E54733D43B2E677F13C64CF6D28DAE07BE511599758583EBC58656A1451EB270E5E0846B7EC586D2E5D85A6B53B572D4238DA585B8A02B1EB5B7DED965FEB3AABB7EFA0AAFD642F821543975858B1795DFCA1FFF77D8F187538463D5D34BD6E3B27BB0A0EC85E13A0162BC64D2419397F4FE744131D02C9C6FC4F971D047B1C6BAD11B53E0041DA63908926'
$Code &= '3A10CB11174D90E64EF70B76D5A4DD3FB42EC6DDC43CD4E476263A246ADF76ADCFDD5670F1E0805831EB681AABCD3E134D74482EA75EBFA6DA6D7B6B154F1A0C2BEBEE9958364376134DF4DA77392D1F23D6C498C7D9DE1537799C890ECEE7B8BE9AA1BEF7B64B26C85F98B2A8B4B316259B2B08269AE8708C66E7583FD8E388A037AE279B3CCE448735C2A91BB455CDADDDFB4D80D6DB3A94D6F535EDE263A1134D74A8DE870B0FED4526A399E830C92AD57192DA792712181CB0EE1A84F5E0661AE74C7450D49C75B0BAE6C3065FD7BE6D366E538F556E3BEA34BE99E80049CBEEC040B0C7116B4D130C300053576DA243763EB23A0297BD0CA7EEACD5C7EDB463DD8D9536071D34CFC63B757DE723BBEE73F6CB0E7D1F539731B0FA7831CB3436D6BE7821187DB2E3B5B97AF02E6AF7D91361DB0ACA65A5155849314A48F57A5982A5759A887BD2C1EB7BD2C363409600AC7D751903AB8F17B34C6363ED8B1782D1273B569BD35A5155501625B3930CA594DEDB704E2EDF7365B180E3540386B22A119DBB4EA05AEFDA6BEDDEDBE2F53DBB645B21BC5ED9A1EF63EA3206560F2F6699C6C6DA172F04A34F76AC36674A21CB14F379C6AD65FF5827283870FBBB2FBE9CE750141595356479DEC2B21D4F09F8F4A51FC2F5CD3744BF2ED998EFE5A34BAC328D5D3FB1F04230BA64C669735AC362'
$Code &= '515014B05808D69AFD97DC64F93CCF325069429ACC28CB72A3305F6BCFB1645F49AC3B29AF57AADCC7D34D44C8B28C2481CB9755EFD29890AE9AE8344BAF5F178E73C832B879AB229B05C717269AE88E0EA5CD72CDD95985D437386FBABE70C3397DF9A5EB57AF2A8A059C2D2DF9FC183B4DE64C744094A69A45613146C8E700DAB6FAD736D47004B0D9F1A5F4F6299CE4B05828545287235687B7A9FE8B78269AE8D5A4BEB074AAA012A89686FC38A12CEB5B0C2E5FD17CFB3A889205F53537860B9C39600193CD4EE4531FFF832FFEFA6F3D73EDAE13C5D9029264EDC4DACE67DADF36D19D44EE7A9CADE7AD055CBD0A37CBA40E435790E770FD067CE2631F7D41A9F494FA62B582FA8A4F1BEA71CA17FFF56BDFF81ADC339FCFAF3CF9AB1FBCEFD2099465F762CF664C351D4930D19D4C590EB74E41A750594867F5FF9FF8D8475FF8EA173EFBD5B36FFFF737815BD4D77AAEEEC655CD36E81D876E28EA13F9E6C025E0EEE37BBFFF47B32CBBB75ADE3E02B90436736BE156207D1347134D7447C50274AACAE569A97552EF9A1131597E4C552E5F3EFDDFFFFC17E045E03BC075E0A63320E363384DCF2B038E8013E00A70D9FD7DE4BED34CABD7267A6D5333B953BAEED92DE086FBDC029AF18E0DE9AA35B750E3FE3E735E28735DBEC9C34C742886D35C1ABD74ED7CD1781A2EB01FC7B4C6'
$Code &= '599503CB5C37AEF136EDEB5326EF33D16BCD68368DA7749FCAFDBF5A45E0DB556B1B827286A25B7F4F4632D1217A9EF55D231B4B0CD20B5AA4B4AD6FA289FE9F78A315FDDF00A1682F11641AAC0E0000000049454E44AE426082'
$Code = Binary($Code)
$hFileDllOut = FileOpen($sPicN, 2)
FileWrite($hFileDllOut, $Code)
FileClose($hFileDllOut)
EndFunc ;==>_CreatePic
Func SetBitmap($hGui, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGui, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2011-11-24 16:45:52
发表于 2011-11-24 17:35:21