getcolor.bas

来自「电气控制仿真软件」· BAS 代码 · 共 9 行

extern int=GetDC( int ) in User32.dll
extern void=ReleaseDC( int, int ) in User32.dll
extern int=GetPixel( int, int, int ) in Gdi32.dll
hdc = getdc( 0 )
p=Point( 0, 0 )
GetCursorPos( p )
n=GetPixel( hdc, p.x, p.y )
ReleaseDC( 0, hdc )
trace( hex( n ) )