Detecter la couleur d'un pixel sur l'écran

dim r,g,b
' color_pixel_red(n,x,y)   retourne la composante primaire rouge d'un pixel de l'objet système désigné par son numéro N.
' color_pixel_green(n,x,y) retourne la composante primaire vert  d'un pixel de l'objet système désigné par son numéro N.
' color_pixel_blue(n,x,y)  retourne la composante primaire bleue d'un pixel de l'objet système désigné par son numéro N.

2d_pen_color 123,150,96 : 2d_line 100,100,200,100
r = color_pixel_red(0,150,100)
g = color_pixel_green(0,150,100)
b = color_pixel_blue(0,150,100)
message "Les composantes de couleur du point (150,100) sont :"+chr$(13)+str$(r) + "  " + str$(g) + "  "+str$(b)

rem ============================================================================
rem         Exemple d utilisation de PICK.DLL de Nardo26
rem ============================================================================
LABEL clic,FinProg
dim r,v,b
alpha 10 : top 10,350 : left 10,100 : font_bold 10
2d_fill_color rnd(255),rnd(255),rnd(255) : 2d_circle 300,200,100
2d_rectangle 10,20,50,300   : 2d_flood 11,21,255,255,0
2d_rectangle 210,20,250,300 : 2d_flood 11,21,0,255,0
2d_circle 300,200,50: 2d_flood 300,200,0,255,255
DLL_ON "c:\users\acer\desktop\pick.dll" : ' Adapter le chemin
ON_CLOSE 0,FinProg
TIMER 1:TIMER_INTERVAL 1,100
ON_TIMER 1,clic

END
rem ============================================================================
clic:
  Pick()
return
rem ============================================================================
SUB Pick()
  DIM_local Pick_Coordonnee$, Pick_x,Pick_y,Pick_retour% ,t$

  Pick_Coordonnee$=STRING$(20," ")
  Pick_retour%=dll_call1("GetMouseXY",ADR(Pick_Coordonnee$))
  Pick_x = VAL(LEFT$(Pick_Coordonnee$,INSTR(Pick_Coordonnee$,":")-1))
  Pick_y = VAL(MID$(Pick_Coordonnee$,INSTR(Pick_Coordonnee$,":")+1,200))
  Pick_Coordonnee$=STRING$(20," ")
  Pick_retour%=dll_call3("GetColorXY",Pick_x,Pick_y,ADR(Pick_Coordonnee$))

  CAPTION 0,"Coordonnées "+str$(Pick_x)+" x "+str$(Pick_y)+" couleur :"+Pick_Coordonnee$
  r = hex(left$(Pick_Coordonnee$,2))
  v = hex(mid$(Pick_Coordonnee$,3,2))
  b = hex(mid$(Pick_Coordonnee$,5,2))
  
  t$ = "Déplacez la souris où vous voulez, même en dehors de cette fenêtre"+chr$(13)+chr$(13)
  t$ = t$ + "Coordonnées de la souris : "+str$(Pick_x)+" x "+str$(Pick_y) +chr$(13)
  t$ = t$ + "Couleur du pixel :R = "+str$(r) + "  V = " + str$(v) + "   B = "+str$(b)
  
  caption 10,t$

END_SUB
rem ============================================================================

FinProg:
  DLL_OFF
TERMINATE
rem ============================================================================

print hex("CE")
print hex("FA")
print hex("DA")