51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2435|回复: 5
打印 上一主题 下一主题

[原创] 如何获取指定像素点的色彩值

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-4-21 10:08:59 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请教如何用vbs获取指定坐标的像素点色彩值,谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

  • TA的每日心情
    擦汗
    2017-2-4 09:49
  • 签到天数: 145 天

    连续签到: 1 天

    [LV.7]测试师长

    2#
    发表于 2011-4-25 08:39:37 | 只看该作者
    能说的详细点么
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    3#
     楼主| 发表于 2011-4-25 11:24:21 | 只看该作者
    换个问题获取static文本框的背景色。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2011-4-25 13:29:58 | 只看该作者
    考:
    http://www.advancedqtp.com/knowledge-base/qtips/win32-id66/get-pixel-color/


    1. Dim hDC, hWndDim iX, iY
    2. 'Declare win32 and gdi32 functions
    3. Extern.Declare MicLong, "GetPixel", "gdi32″, "",MicLong, MicLong, MicLong
    4. Extern.Declare MicLong, "GetDC", "user32″,"", MicLong
    5. Extern.Declare micLong,"ReleaseDC","user32″,"",micLong,micLong
    6. 'Attach to the desktop graphical context
    7. hWnd = cLng(0)
    8. hDC = Extern.GetDC(hWnd)
    9. iX = 10 'Change this to your relevant X coordinate
    10. iY = 10 'Change this to your relevant Y coordinate
    11. 'Get the pixel color code
    12. Print Extern.GetPixel (hDC, iX,iY)
    13. 'Release the graphical context
    14. Extern.ReleaseDC hWnd, hDC
    复制代码
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2011-4-26 10:32:23 | 只看该作者
    hWnd = cLng(0)

    hDC = Extern.GetDC(hWnd)

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

    使用道具 举报

    该用户从未签到

    6#
    发表于 2011-5-9 15:50:09 | 只看该作者
    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
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-6 08:48 , Processed in 0.073294 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表