vb.net屏幕找图 在vbs窗口显示图片
如何 用 VB 在规定的范围 找图,找色..源码
'下面是屏幕找色实例,请根据实际情况进行验证。
宣州网站建设公司创新互联建站,宣州网站设计制作,有大型网站制作公司丰富经验。已为宣州上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的宣州做网站的公司定做!
Option Explicit
'定义一个POINTAPI
Private Type POINTAPI
x As Long
y As Long
End Type
'定义一个找色区域
Private Type RECT
Left As Long '区域坐标x
Top As Long '区域坐标y
Right As Long '区域宽
Bottom As Long '区域高
End Type
'Windows API 声明
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
'测试颜色函数,给定屏幕任意找色区域值,返回坐标位置
Private Function ifColor(x As RECT, ByVal color As Long) As POINTAPI
On Error Resume Next
Dim nTmpColor As Long, i As Long, j As Long
For i = x.Left To x.Left + x.Right
For j = x.Top To x.Top + x.Bottom
nTmpColor = GetPixel(GetDC(0), i, j)
If color = nTmpColor Then
ifColor.x = i
ifColor.y = j
Exit Function
End If
DoEvents
Next
Next
End Function
Private Sub Command1_Click() '全屏幕找色,时间花费较长
Dim t As POINTAPI, m As RECT
With m
.Top = 0
.Left = 0
.Bottom = Screen.Height / Screen.TwipsPerPixelY
.Right = Screen.Width / Screen.TwipsPerPixelX
End With
t = ifColor(m, 1447073)
Debug.Print t.x, t.y
End Sub
Private Sub Command2_Click() '某区域找色,时间花费少
Dim t As POINTAPI, m As RECT
With m
.Top = 300
.Left = 300
.Bottom = 100
.Right = 100
End With
t = ifColor(m, RGB(0, 125, 125))
Debug.Print t.x, t.y
End Sub
VB 屏幕找图并单击
呵呵,是不是类似于按键精灵找图的脚本?
这个程序你经常要用的话,建议你找到老版本的按键精灵,使用VB来查看里面的dll,研究一下,很简单的。
我搜集了资料,目前还没有着手研究。如果你需要老版本的按键精灵,请在百度里给我发信息
用vb.net实现查找显示图片?
IO.Directory.GetFiles
获取指定目录中的所有文件,比对文件名就行了。如果包括多层子目录,需要递归
vb怎么找图
要想实现这个,很复杂.因为这个不是图片对比,而是要在屏幕区域搜索和原始图像相似的区域.不好弄.
新闻名称:vb.net屏幕找图 在vbs窗口显示图片
网站路径:http://myzitong.com/article/hjepph.html