重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
IO.Directory.GetFiles
网站建设哪家好,找成都创新互联!专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了游仙免费建站欢迎大家使用!
获取指定目录中的所有文件,比对文件名就行了。如果包括多层子目录,需要递归
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写挂吧?呵呵。不要用这种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来查看里面的dll,研究一下,很简单的。
我搜集了资料,目前还没有着手研究。如果你需要老版本的按键精灵,请在百度里给我发信息