vb.net找图并点击的简单介绍

用vb.net实现查找显示图片？

IO.Directory.GetFiles

网站建设哪家好，找成都创新互联！专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了游仙免费建站欢迎大家使用！

获取指定目录中的所有文件，比对文件名就行了。如果包括多层子目录，需要递归

vb.net中,如何点击按钮调出选择文件窗口选中图片并在picturebox中显示出来?

button , OpenFileDialog , PictureBox , textbox 控件，我把图片显示在 picturebox 中，而路

径存放在 textbox 中，不知道这样行不行。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim filename As String

OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"

OpenFileDialog1.FilterIndex = 1

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

filename = OpenFileDialog1.FileName

Else

End

End If

If Not (PictureBox1.Image Is Nothing) Then

PictureBox1.Image.Dispose()

PictureBox1.Image = Nothing

End If

'PictureBox1.Image = System.Drawing.Image.FromFile(filename)

去掉注释后就显示图片

TextBox1.Text = filename

End Sub

picturebox中只记录文件存放的路径，我找了一个 ImageLocation 函数

PictureBox1.ImageLocation = filename 不过还是会显示图片

用VB编写在指定窗体内自动找色，找图，找到以后鼠标自动移动上去点击一下！

你是在用VB写挂吧？呵呵。不要用这种LJ思路做挂。对于网络游戏，你要学会封包的操作。网上有很多有关的。你可以看一下。对于单机游戏。那更是没得说。只要改一下内存就行了。可以说太容易了。

如果你非要找图的话。这里有点资料。

'下面是屏幕找色实例，请根据实际情况进行验证。

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

API函数GetPixel就可以得到颜色值了，但找图难度太高，往往通过对指定的几个像素的颜色来判断。并且问题的表述也不是很清楚。

建议你多看一些有关的教程。看样你是初做挂吧。我也在学习这方面的知识。

对于鼠标的操作之类的API网上太多了。随便一搜索就行了。

声明在这里给你写了Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

这是移动的函数。如果要点击就是要用sendmessage函数了。你可以自己看一下

VB.NET2008我想要实现如下图的效果，点击左边的菜单，右边主体内容换个了窗口，怎么实现？ 用什么实现 50

可以做一个基窗体作为父窗体，父窗体上有左边的菜单栏

然后所有画面都继承这个父窗体，然后所有页面都会有父窗体左边菜单栏了，每个页面内容自己加控件就行 就会显示都右边的

不知你是否理解 不理解可追问 。。。

VB 屏幕找图并单击

呵呵，是不是类似于按键精灵找图的脚本？

这个程序你经常要用的话，建议你找到老版本的按键精灵，使用VB来查看里面的dll，研究一下，很简单的。

我搜集了资料，目前还没有着手研究。如果你需要老版本的按键精灵，请在百度里给我发信息