1、截屏；2、识别

Dim proc As new Process
proc.File = ApplicationPath & "capture.exe"
proc.WaitForClose = True
proc.Start
If ClipBoard.GetImage IsNot Nothing Then
    ClipBoard.GetImage.save("d:\\test.jpg")
    msgbox("保存到了d盘")
End If

截取部分图片的代码如下，你再处理一下截取哪个区域的即可。

Dim img = getimage("d:\\test.jpg")
Dim bmp As new bitmap(100, 100) \'宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = 10 \'开始坐标
Dim y As Integer = 20 \'开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\\test001.jpg")
bmp.dispose

Dim img = getimage("d:\\test.jpg")
Dim bmp As new bitmap(100, 100) \'宽高
Dim g = graphics.fromimage(bmp)
Dim x As Integer = 10 \'开始坐标
Dim y As Integer = 20 \'开始坐标
Dim w As Integer = bmp.width
Dim h As Integer = bmp.height
g.DrawImage(img, new Rectangle(0, 0, w, h), new Rectangle(x, y, w, h), GraphicsUnit.Pixel)

bmp.save("d:\\test001.jpg")
bmp.dispose

有点甜老师  X Y都是固定值啊？有没有办法直接在窗体中获得鼠标的XY值 自动填入呢？

下面的代码 可以获得鼠标当前XY  怎么获取为我想选择的XY区域  的值呢？

Dim dp As new Point()

dp.X = Windows.Forms.Cursor.Position.X

dp.Y = Windows.Forms.Cursor.Position.Y

dp = e.Form.BaseForm.PointToClient(dp)

msgbox(dp.x & " " & dp.y)

或者是在窗体中实现鼠标拖动选择一个固定区域 然后就进行识别   

可以反复实现选择区域 进行多次识别

mark 截取图片

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鼠标框选效果 (1).table

1、pdf你可以转换成图片

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0

2、pdf你可以直接读取

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83249&skin=0