listi.net

checkscreen - checks for values at a mouse position


Function checkscreen(x, y, sValue, s)
' x coord
' y coord
' sValue to check
' s - value that was found at x, y
clickstring = "dc test," & x & "," & y & ",,1,"
processClickstring clickstring
Delay 1
DoubleClick
Delay 3
Sendkeys "^C", False
Delay 1
s = GetClipBoardText()
Debug.pring s
if s = sValue Then
   checkscreen = True
Else
   checkscreen = False
End If 
End Function