Détecter une couleur sur l'écran

Salut...
Je ne sais pas si ce que je veux faire ce fait sous VB. Bon :) J'aimerais faire un programme qui detecte une couleur particuliere sur l'écran (et non seulement dans la form)

Par exemple, j'aimerais trouver ou il y a du rouge qui est affiché sur l'écran et faire une action :) Je ne suis vraiment pas sur si VB peut aller aussi proche de la machine pour ca :) ETK... Si ya quelqu'un qui sait comment faire ca SVP:) Me répondre :)

Il doit exister un API qui donne les couleurs afficher sur lecran.. ou un api qui quest ce qui est sur l'écran :)

Alexis

KIfKif
Cet exemple est donné dans l'aide de VB5
Private Sub Form_Click ()
Dim LeftColor, MidColor, Msg, RightColor ' Déclare les variables.
AutoRedraw = -1 ' Active la propriété AutoRedraw.
Height = 3 * 1440 ' Définit une hauteur de 3
' pouces.
Width = 5 * 1440 ' Définit une largeur de 5
' pouces.
BackColor = QBColor(1) ' Définit un arrière-plan
' bleu.
ForeColor = QBColor(4) 'Définit un premier plan
' rouge.
Line (0, 0)-(Width / 3, Height), , BF ' Zone rouge.

ForeColor = QBColor(15) ' Définit un premier plan
' blanc.
Line (Width / 3, 0)-((Width / 3) * 2, Height), , BF
LeftColor = Point(0, 0) ' Recherche la couleur de
' la zone de gauche,
MidColor = Point(Width / 2, Height / 2) ' de la
' zone du milieu
RightColor = Point(Width, Height) ' et de la
' zone de droite.
Msg = "Le numéro de la couleur de " & _

"la zone rouge située à gauche de "
Msg = Msg & "la feuille est " & LeftColor & _
". La couleur "
Msg = Msg & "de la zone blanche située " & _
"au centre est "
Msg = Msg & MidColor & ". La couleur de " & _
"la zone bleue "
Msg = Msg & "située à droite est " & RightColor & _
"."
MsgBox Msg ' Affiche le message.
End Sub

-------------------------------
Réponse au message :
-------------------------------

> Salut...
> Je ne sais pas si ce que je veux faire ce fait sous VB. Bon :) J'aimerais faire un programme qui detecte une couleur particuliere sur l'écran (et non seulement dans la form)
>
> Par exemple, j'aimerais trouver ou il y a du rouge qui est affiché sur l'écran et faire une action :) Je ne suis vraiment pas sur si VB peut aller aussi proche de la machine pour ca :) ETK... Si ya quelqu'un qui sait comment faire ca SVP:) Me répondre :)
>
> Il doit exister un API qui donne les couleurs afficher sur lecran.. ou un api qui quest ce qui est sur l'écran :)
>
> Alexis
>

Bonjour,

Je me permets de remonter ce poste, car étant moi aussi interessé par une fonction pour detecter une couleur à l'écran, j'ai testé votre méthode

Je suis débutant et j'ai eu une erreur lors de l'exécution de ce code :

"Line 2
Dim LeftColor, MidColor, RightColor ' Déclare les variables.
Error: Unterminated string."

Je ne sais abosulment pas ce que signifie cette erreur :( Si quelqu'un pouvait m'aider, ca serait sympa !

Merci d'avance,
Alex