51Testing软件测试论坛

标题: 如何获取指定像素点的色彩值 [打印本页]

作者: mgs2-007 时间: 2011-4-21 10:08
标题: 如何获取指定像素点的色彩值
请教如何用vbs获取指定坐标的像素点色彩值，谢谢

作者: shanfeng1419 时间: 2011-4-25 08:39
能说的详细点么

作者: mgs2-007 时间: 2011-4-25 11:24
换个问题获取static文本框的背景色。

作者: lyscser 时间: 2011-4-25 13:29
考：
http://www.advancedqtp.com/knowledge-base/qtips/win32-id66/get-pixel-color/

Dim hDC, hWndDim iX, iY
'Declare win32 and gdi32 functions
Extern.Declare MicLong, "GetPixel", "gdi32″, "",MicLong, MicLong, MicLong
Extern.Declare MicLong, "GetDC", "user32″,"", MicLong
Extern.Declare micLong,"ReleaseDC","user32″,"",micLong,micLong
'Attach to the desktop graphical context
hWnd = cLng(0)
hDC = Extern.GetDC(hWnd)
iX = 10 'Change this to your relevant X coordinate
iY = 10 'Change this to your relevant Y coordinate
'Get the pixel color code
Print Extern.GetPixel (hDC, iX,iY)
'Release the graphical context
Extern.ReleaseDC hWnd, hDC

复制代码

作者: mgs2-007 时间: 2011-4-26 10:32
hWnd = cLng(0)

hDC = Extern.GetDC(hWnd)

这两行是获取屏幕设备吧。
我想要的可能会是被QTP遮盖住的软件的某个控件的颜色

作者: lyscser 时间: 2011-5-9 15:50

hWnd = cLng(0)

hDC = Extern.GetDC(hWnd)

这两行是获取屏幕设备吧。
我想要的可能会是被QTP遮盖住 ...
mgs2-007 发表于 2011-4-26 10:32

获取指定位置的颜色值

xorg = Browser("网易电子邮箱").Page("网易电子邮箱").Frame("index").Image("260x300").GetROProperty("abs_x")
yorg = Browser("网易电子邮箱").Page("网易电子邮箱").Frame("index").Image("260x300").GetROProperty("abs_y")

width = Browser("网易电子邮箱").Page("网易电子邮箱").Frame("index").Image("260x300").GetROProperty("width")
height = Browser("网易电子邮箱").Page("网易电子邮箱").Frame("index").Image("260x300").GetROProperty("height")

xnow = xorg + width/2
ynow = yorg + height/2

Extern.Declare micLong, "GetPixel","gdi32","",micLong,micLong,micLong
Extern.Declare micLong, "GetDC", "user32","",micLong
Extern.Declare micLong,"ReleaseDC","user32","",micLong, micLong

hWnd = cLng(0)
hDC = Extern.GetDC(hWnd)
Print Extern.GetPixel (hDC, xnow,ynow)
Extern.ReleaseDC hWnd, hDC

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)