$H Windows.ph
Declare bereich#,x&,y&,z&,p&,text$
Def GetSysColor(1) !"USER32","GetSysColor"
SetTrueColor 1
Proc CatchImage
Struct GdiplusStartupInput = GdiplusVersion&,DebugEventCallback&,SuppressBackgroundThread&,SuppressExternalCodecs&
Var GDIP& = ImportDll("Gdiplus.dll","")
Var OLE& = ImportDll("Ole32.dll","")
Var Kernel& = ImportDll("Kernel32.dll","")
Declare gdpsi#,gdiplusToken&,ImageObject&,GraphicObject&,pStream&,RetVal&
Parameters MemPointer&,Size&
'GDIPlus starten
Dim gdpsi#,GdiplusStartupInput
gdpsi#.GdiplusVersion& = 1
gdpsi#.DebugEventCallback& = 0
gdpsi#.SuppressBackgroundThread& = 0
gdpsi#.SuppressExternalCodecs& = 0
GdiplusStartup(ADDR(gdiplusToken&),gdpsi#,0)
Dispose gdpsi#
'Speicher bereitstellen
Var m_hBuffer& = GlobalAlloc(2,Size&)
Var pBuffer& = GlobalLock(m_hBuffer&)
RtlMoveMemory(pBuffer&,MemPointer&,Size&)
GlobalUnlock(m_hBuffer&)
'Stream erzeugen
CreateStreamOnHGlobal(m_hBuffer&,1,Addr(pStream&))
GdipCreateBitmapFromStream(pStream&,Addr(ImageObject&))
'hBitmap erzeugen
GdipCreateHBITMAPFromBitmap(ImageObject&,Addr(RetVal&),0)
'aufräumen
Var Command& = Long(pStream&,0)
call(Long(Command&,8),pStream&)'IStream.Release
GlobalFree(m_hBuffer&)
GdipDisposeImage(ImageObject&)
GdipDeleteGraphics(GraphicObject&)
GdiplusShutdown(gdiplusToken&)
FreeDll GDIP&
FreeDll OLE&
FreeDll Kernel&
Return RetVal&
EndProc
Declare mem#
Dim mem#,5796
Clear mem#
Long mem#,0=1196314761,169478669,218103808,1380206665,-1493106688,-1526726656,772,796789248,20,1414287408,117901381,-728196198
Long mem#,48=724358356,-117770200,2841891
Long mem#,88=629672448,136,1497919497,184549491,184549395,-1711275757,6300,1145640726,-629648319,-1622434339,-2028782942,83302513
Long mem#,136=-765182111,-80422661,-1560863455,-893387278,280581467,1037607598,-103915917,-946774311,-1788877638,-1559411520,-1802811219
Long mem#,180=-1935307755,1223903390,531004230,189438168,263240462,-614054529,-755072335,-486862994,-890923278,483362495,-1358614817
Long mem#,224=1421342698,-1355732313,952783268,1880527676,502748099,1040547125,1245475788,463515640,1682533910,168179454,-1105672970
Long mem#,268=416769853,-494788952,16682488,1109272634,-768965591,1674216371,124759157,-1125182370,2053238864,-184261083,-17529079
Long mem#,312=671732678,-1804047814,1078750010,891296629,796000372,-1610090589,1885135544,743458766,836340352,-173706647,-1404013413
Long mem#,356=521018314,-1267858858,-1418377130,63438321,876379836,446656239,559875038,1724077068,-2136379594,1607289258,-118961831
Long mem#,400=-944729080,-158171083,-626978338,-127574806,1345352990,1455405905,-1325634662,709215174,-608451747,-672818691,-1592936963
Long mem#,444=-1173389804,-1126196449,-1510237019,669787001,1060743410,1726858560,1431731743,-1242712363,1845377505,-597465681,-992157521
Long mem#,488=1779507549,835186319,1583756064,-1792208304,-1746009807,913418306,-36285675,-436486952,-1903992499,-122624207,1371767842
Long mem#,532=-1739363137,1482053654,1351383080,8720924,348445352,-1324058082,-181337368,1730831131,110183677,623873104,130137866
Long mem#,576=2045589396,-288254849,569726069,1350186318,401475975,-1644684873,-166537408,1685389437,-1745990555,-74602502,-36782743
Long mem#,620=1804930802,-109077712,-1779280964,-983946570,1736693297,346379810,-1639947893,-267105384,-584157397,1660359759,884961322
Long mem#,664=-387314180,-761168867,962053999,-147182816,471618611,1664081034,1675673546,162125706,1789275810,-1984332057,2093085737
Long mem#,708=-2137501382,1854966258,1854569755,-1834643297,-609565586,1041020775,-1707563299,81166065,198268072,-369760002,662869634
Long mem#,752=1043658837,-1320395296,1393375313,-1281900358,987201150,581140105,-1242214160,-894822790,1009289908,-492631340,-418762608
Long mem#,796=-721124370,2024569060,-1973793581,-2098070653,1847250441,-1769899086,-1421995582,-40299507,2069050608,347202109,1235204393
Long mem#,840=685759685,-1036996737,1576671108,-828770796,341285117,2095665081,1151411777,1156954442,6988014,1806187434,22478075,73421140
Long mem#,888=982864153,-449755803,-249835320,-1627765424,1408566353,692322810,1654042404,-1985370742,781515177,662182532,98607757
Long mem#,932=-1841802476,-1475947049,-1684822421,-388159182,-266097905,706670105,-899181697,-1083960514,1736888911,362199979,1452305925
Long mem#,976=1223887669,-1572177085,-1238851825,1920261441,-455462863,-900973968,-1683671341,-1757488505,146302873,-886224174,1570378930
Long mem#,1020=-2053593437,488193258,-351988648,831067335,1915235065,1339944511,171394624,-624987223,-301112133,266139287,-1674444730
Long mem#,1064=1494208842,1346884247,-1572781004,834914344,-962061815,-876943038,1788959614,-988866824,1254001169,-942881824,-270421863
Long mem#,1108=1244152430,624822804,308471954,843883721,74582494,-1842174382,406811692,1158045236,-994146182,-1032083969,1506771132
Long mem#,1152=-1186421575,-293242981,-1663733945,-32234614,1522739875,1115892874,-1791197549,-974428630,-128549118,1601829129,-126185369
Long mem#,1196=1819693203,-1680070653,690728022,1733815483,1426486950,1158401195,-2118088090,1388766624,-1747675607,1966154473,1106052949
Long mem#,1240=-1250290688,-200586621,-1474218760,1286093292,1889909919,-112589081,675458708,-1948966774,-832806231,1942655787,1391821256
Long mem#,1284=1233473354,-64395244,-972413400,-1274461691,169506964,-1736721840,-2134724406,1275247357,-2142662031,-179544192,1312942087
Long mem#,1328=308547705,764568847,1785353433,-760740672,70161541,-158041334,614115622,-1861302673,-1998245396,1947196711,1042911112
Long mem#,1372=963421982,-1144737461,-1189369231,-437077772,-1165456210,532355768,533159751,-594551798,390284984,-589595450,-446786801
Long mem#,1416=-381145123,-1191329156,-367550023,-646801207,-1472000817,1282209838,1394026521,-711438556,308959563,1732154949,1465230249
Long mem#,1460=337815613,-615266181,-1435401337,547670040,942436518,-764888960,1750243481,-265040172,-1127944186,-696633861,312887003
Long mem#,1504=-293317322,1687765927,-1700772667,-2114847844,-71372293,1024328593,111493584,-1744893050,-873107650,1336076808,1597875456
Long mem#,1548=1093482878,-975877119,617226004,199661646,16186297,-550767286,-1656485360,704849372,330071787,1509654990,-807604601
Long mem#,1592=634388801,631798328,-1638883049,-899537377,-609540918,-1881238269,-1007213143,-832758492,1193169361,-1904398461,-761831674
Long mem#,1636=-1619817555,-131054552,-1019146018,446537455,1077235845,-1804649883,-2024193688,1993727193,1037212455,-919424364,-533198298
Long mem#,1680=-432199636,934062534,-5203208,-724607715,-1615324093,777229565,570709876,1020255238,2143371807,1843270583,1564048746
Long mem#,1724=-1307751446,-814407670,1709628655,2086850962,297046824,648659525,839378579,-779928375,970701343,-1607991422,-2025744400
Long mem#,1768=1192739270,1682787907,2081726683,1103931744,-1794938275,-1572625295,1426931035,886555131,1807805756,2082234439,745044009
Long mem#,1812=-1297424522,219954882,1218850494,1038554401,1281473427,1046090353,1394281126,827530468,-1789222427,-747304731,591833606
Long mem#,1856=1280302478,1709266116,1234448722,1435812879,-1906388503,1444255020,240345235,1123816147,-81158008,-646273647,1264565199
Long mem#,1900=137102702,-1365144363,-1603375835,1489580594,-595241270,-347877153,-1252866526,-1521432272,2024271043,639600959,-1447875998
Long mem#,1944=-123398701,-351662409,-324580767,1834569799,-1450605408,2027187642,-30244096,1324656148,1810802982,-1825618373,401780660
Long mem#,1988=1444358598,748943139,-884917869,73919618,1501482413,-396276176,-858203548,531826712,665127456,682064434,-1826048392
Long mem#,2032=1198429370,390767001,-1774230324,43131578,-1504504725,-971583956,-1632738135,-1273278774,1150494559,-576236608,-957430312
Long mem#,2076=1206332308,-348482255,1317717923,-932775855,-103331140,1346185955,773563156,907059900,-2062215258,-1591247697,1850937460
Long mem#,2120=-734070169,1759416602,-1283955235,88895987,-2122887206,-1350991387,-1700731693,1923058350,-27418305,1993909780,737724398
Long mem#,2164=-1414865110,846702972,-1601515284,1403317059,1541264023,2091398707,-1083073767,1969148308,1653352599,185896362,1351864933
Long mem#,2208=2109134189,-1977166680,-1473732702,114570738,2039563412,1709138263,-1569862938,1889693280,556967458,1444022412,-1478137663
Long mem#,2252=-941404832,-1829690168,-2100194706,1595935682,-836302741,-57038732,1352106180,-312975116,344629518,1490457580,398580452
Long mem#,2296=1369264949,-488368420,16370395,301375818,1960856873,466202499,1237666470,-1945916643,-2058255796,297554542,1370624808
Long mem#,2340=-381118302,1653592133,699899070,1210170397,1345169385,1273328877,-1701501971,2060442578,325004020,1608431160,-1216752999
Long mem#,2384=2053849369,377181756,-1934962602,404790895,1307793930,2124628072,925420930,-497673089,-1393753074,1919726075,-260295898
Long mem#,2428=1820461474,-1747659154,-974652130,1154560508,-1686857338,-1564694760,-2104850616,-572881540,-1653736547,-1133929825,1537536392
Long mem#,2472=1196452391,-1821116584,-829063826,-745380633,1160384126,821293096,-407416666,454190619,1063787138,-2081862607,1518786506
Long mem#,2516=-1490434335,-316306691,505727511,208297524,-71289088,1533781996,1437678669,617344665,1162450494,1354476127,1823401483
Long mem#,2560=1394326710,-627879725,-51582097,-139470269,-1488017574,-1300127820,-596839358,-792181617,-1529002243,1119976756,-84033398
Long mem#,2604=1858274323,921253970,1959545238,1085151235,-748163344,-1482018824,1861984716,-1465848046,-824571618,-2025160657,-1979392944
Long mem#,2648=-2055783573,1848009046,-1798955510,1425351301,-147508253,-21285296,-341233103,256293091,-917062698,-1119276428,-800336542
Long mem#,2692=928863649,-1591530538,-786171171,-52321655,-1360359012,803007391,681857271,-2114869316,422910459,1067283620,-1306908515
Long mem#,2736=-757572204,1265857695,-755655453,-1192340786,-1840470612,-65996489,361217235,-1464250832,2052608181,-1189821236,1894338436
Long mem#,2780=-369973456,-186756796,-1513539740,1829693940,827528861,-40065947,-459661283,88559163,-11364370,1647138886,-1819454875
Long mem#,2824=1257970824,830992318,673241205,-1820927346,936204904,-1683698440,928886033,914501801,-1228153771,-1143757522,-254142075
Long mem#,2868=1067406517,1645152058,-451876662,-1274377756,1545005194,-632712595,-1081907082,-1265424470,-1949169825,-515907233,-585862002
Long mem#,2912=1364109437,1699511984,-960327516,1408480203,703963297,630655165,2121175941,-1239971202,-706811127,30621555,-1304633805
Long mem#,2956=-1963088044,-1108537719,-171715986,-403866156,392250482,980182804,-1043641178,2129422062,-356436119,-1279873614,-382223801
Long mem#,3000=2009760502,72863354,1307349867,-1757864675,-1674691400,-1752304742,-292002994,-819323032,380923123,-712821541,-203709204
Long mem#,3044=-610817200,-1928388794,223036286,-765155680,1030741195,696171475,1305640788,1025961837,1204507918,-1609606953,1346126076
Long mem#,3088=1386594921,-1456499323,1409610005,492045557,1411087045,-577240105,1934403120,-382239904,551528190,943663589,386464175
Long mem#,3132=-1041330201,64465055,1700018553,65798123,1551155280,-2062601659,1430011161,1985000931,-1141447742,1980042074,-1211204718
Long mem#,3176=1418387777,-1458722544,-737610431,2081506661,-171092319,-1800032426,-1672133576,1850797481,623291179,-549082371,-190830699
Long mem#,3220=1868907209,-1616718217,-1405508566,-1547758973,-26166742,-978114502,2072275797,1347654631,732441333,-1368913255,-1696685973
Long mem#,3264=508143799,1343596558,-1847563058,1929886388,-2063042055,83906163,-239959946,869492226,51254640,1096246432,-123500035
Long mem#,3308=-872622160,551136416,-2097635108,-1594604590,-1589496466,-1492778835,1535030708,-1471490768,1150773455,678100761,1121812927
Long mem#,3352=-232461144,961772875,-1759321792,1430597468,-1990858343,1197437922,671282455,-202539103,-932473674,-464904458,-617802825
Long mem#,3396=-332921991,-1463424932,-288838670,-295772232,335642424,689799524,1120867475,1349896876,-581946764,-1593190090,93230886
Long mem#,3440=-1380591373,-541331560,-1979269794,1406679847,687941505,629336176,-1758790469,1360468641,1225151415,770076450,-1624070587
Long mem#,3484=1904144315,1158045638,1646200026,-1478169964,1591213138,-921077275,-1842075543,181573766,-776153210,1465048682,-1354550468
Long mem#,3528=2000649243,-36913270,-1593192736,-2088310646,24907730,-1455550474,1550120965,-1116742514,-1192413816,692320211,679056655
Long mem#,3572=-2110066956,1349463323,947594362,1822435240,716500527,1609367206,801424644,299107180,1388356426,197888542,264852364
Long mem#,3616=-2027976276,1255847346,168475979,-1186590665,-759903615,1606292513,-99343426,-734989976,-1718406475,1606088685,2044907599
Long mem#,3660=66218448,-1743788452,407525583,332669259,1164360342,-224216818,-1284528931,852642004,777251990,488713322,1388739220
Long mem#,3704=746679149,1025351188,696050011,732617620,-1572010635,1604982392,1227071438,-1399115158,58523467,-445995180,-2108683010
Long mem#,3748=673841341,-1875482402,-1505848166,2034350072,-1593049672,1736672636,-1797033676,505975135,1322234896,2120719376,-1605465426
Long mem#,3792=-1385571074,-325029889,1890083622,-206752942,1465602189,-1101471556,-1202714276,-50123595,1839453737,-1934566781,-2060876020
Long mem#,3836=405359530,1893199395,1891764184,-1116510117,1155754504,1848551734,-1194346389,-1793361568,1844081393,2090232728,904057881
Long mem#,3880=-583592389,-300246719,551959181,1086681506,831843518,2078746294,916544403,-1053843347,-261788419,1175799355,1140448309
Long mem#,3924=1880443617,-932742838,1116594564,1346109261,-147154055,1350892051,835885140,1322344329,-1339796567,1554328454,-925797778
Long mem#,3968=297217517,2129476938,1921768258,-148590399,-349454988,2123953790,-454915231,-1462958646,-1553835130,-636380271,-101275594
Long mem#,4012=256012709,2003577287,-342968252,952041980,-1420506534,-245977675,528754002,-1866092499,-277046896,-285560882,-130204012
Long mem#,4056=1138373322,647241896,-363735733,2069878186,2016078803,1237466298,493411868,73283118,288104292,1039164350,-612951073
Long mem#,4100=-401280509,1655525502,-1428868874,1157807776,-1374577181,-1138191508,1608243326,-2116204138,-1840331311,1877751837,312192490
Long mem#,4144=712941724,-425957584,-1248184839,-350709693,-399899265,1214488548,577336369,444855563,1531988612,193226341,-1085583711
Long mem#,4188=-339116515,1888849739,-850835752,-1600915704,-1739853972,-1646711279,-1224154761,-1345533426,352632752,-1879850518,1097697026
Long mem#,4232=1669527191,-215941318,1742741285,-1224158310,-637933030,2104716281,1959498781,-6452399,1963273364,-1008052214,-987682442
Long mem#,4276=352672252,-1578638433,-1095074518,1438894618,1295232557,-188067119,-344145730,1483636384,1122468167,2037962612,1566004273
Long mem#,4320=1201372618,896540856,566597332,-617956793,696599319,-1302003291,58583554,-188922540,-1600392521,-648835114,1571115251
Long mem#,4364=1270183054,266276421,-190225611,190589033,-1526797476,1978337819,-1588859734,1712633758,867074953,-620501171,783188489
Long mem#,4408=-1113181561,-26305618,1549443207,-232845624,-1390880489,-1765068220,1962989067,-1075540359,880431895,-1244288437,282686933
Long mem#,4452=-617155116,1557401914,-1814307585,-1348814958,989065143,-1177074008,1029890397,1357518443,1931447009,-107283058,-1506811607
Long mem#,4496=1136250961,1559920687,-420240121,1855799757,1797636853,1544170736,-2085792825,-797258262,6256389,674948549,1088198282
Long mem#,4540=-150803915,1935488367,-560829848,-75305733,223333837,-495683936,1966569815,2079487990,-1214426083,1031295710,627694494
Long mem#,4584=-184100204,-1117013677,-1021080812,-1599393952,-147156944,-731124797,-1815804833,130648318,-1313408297,-1833314425,-1429647117
Long mem#,4628=-1443575828,-1376971701,1410956734,1313808687,767152479,-836322295,-1309439258,-694336996,-2019822427,-68740806,-92104542
Long mem#,4672=-321637329,704965826,-1577418690,-58911628,722813465,-861904736,500792178,158954759,705785556,-2085374050,-1057359678
Long mem#,4716=1971575845,-1018162194,1548995795,-1013552532,1168331809,224586461,972485332,138468977,-400198475,2128606749,1243004266
Long mem#,4760=2121743212,800052251,1119275650,1411448757,-1167611552,-381358386,-1444276609,-2087295381,1073582923,725593408,-380607001
Long mem#,4804=1905388776,2064894949,-1469659658,2080281829,1001166143,1898003496,-1326471890,1247926470,-1376387201,-1380046613,968151793
Long mem#,4848=920461811,-2037277357,987338953,1090839402,146656478,-996967901,1580922796,435958760,-2143189262,-31817554,1351827451
Long mem#,4892=-1369377480,2120595778,-1254638166,-1551453361,-294191157,-646884025,-989175970,-1905877706,-1469723267,1021968996,903176832
Long mem#,4936=-78254482,-673889777,739203574,-1973921869,-1054976539,-1907413983,-752240652,-863201962,-1327473243,-1033527586,-218761403
Long mem#,4980=507115348,178667869,917455469,406843479,-1759943430,-468674051,2104982926,1102107384,-1174429715,-406513295,-442885699
Long mem#,5024=756884711,1245872067,66612630,-1783597680,1247366750,-1110238642,-1863652499,1688580851,-790826692,552723627,-411564241
Long mem#,5068=-521982543,2085888349,1736845855,-613281811,2009552068,1354474144,375598258,532181999,-1834501801,-484103141,747834220
Long mem#,5112=-1962851529,-970401948,839567741,-225004584,447222352,1545536915,1070814144,121575186,2139116389,-1168074518,-1393154112
Long mem#,5156=451218652,514669422,-1785123502,1343481253,507178771,-1707529886,1596288029,1075528960,1244401605,-290127726,-895439987
Long mem#,5200=-28242333,1019222174,713162746,554603683,1013255786,1241508170,1651104296,-756349198,-113538673,629834783,2003699480
Long mem#,5244=-782415353,-96587535,-1079860953,630761831,-1961766792,-456168823,1610270916,-1169550158,1165734691,-1303965059,1351351881
Long mem#,5288=423102226,316044107,197556236,440240495,-61600522,-1939693513,-1564935305,-1149314059,-649036646,-103158153,1576609833
Long mem#,5332=-2053320112,840194843,-417339188,1499324341,-229036391,-1125212009,142225983,307049951,-1351171370,-917767369,749207334
Long mem#,5376=841910917,-1504634030,1127872970,-11329719,-1688366076,1571136236,-1689786578,-713720844,1392427865,-972885854,-697457255
Long mem#,5420=-1671012811,-1769393649,266293966,1667523877,773307818,-1313955797,-1921755981,1158289343,-971338637,2057512344,527892202
Long mem#,5464=-267005718,2128987335,1154092918,-1790660755,-850639643,-1925644916,2014902124,-736790376,1222310817,-640618972,1790002365
Long mem#,5508=-899944536,-904092811,90097112,647011349,-579338633,-1590967373,994171812,-2052065005,16581690,-274597479,-1645185160
Long mem#,5552=1819323123,108979345,-1545643610,1970604760,-1325301311,934624979,-1261279881,1149089752,-580278945,-646390212,1510831368
Long mem#,5596=-1367240657,2003204094,1154018565,-73353676,1049809157,114970069,-1320972683,1772001051,-1879060169,-1863555049,-2106706721
Long mem#,5640=-1473380992,-1311432772,685610040,-984654667,1666233432,-664850522,-155547937,1305583835,1156609285,-546665499,1127437715
Long mem#,5684=-851363842,390184809,2008358484,1045704774,-581724871,-746587305,-196019886,-329529876,-258276699,-1210750786,-1129822723
Long mem#,5728=604928851,-940402165,1878514825,532172097,715084613,1569974019,2144412996,-1988537652,-1436033311,1525525600,-91843712
Long mem#,5772=-659973089,1593958378,86,1313163520,1614982724,130
Declare hBild&
hBild& = CatchImage(mem#,sizeof(mem#))
Dispose mem#
Window 0,0
' *** Bild anzeigen
DrawPic hBild&, 0,0, 1
Window %BmpX,%BmpY + 56
While 1
waitinput
Case %key=2:Break
Endwhile
'*** Bild freigeben
'
DeleteObject hBild&
END
(942)
Deutsch
English
Français
Español
Italia