老话题:自己编写只截窗口客户区的截屏软件(VB2010)

简介: 现在能实现截屏的软件很多,就不一一列举了,连WIN7都自带截屏软件,甚至OFFICE2010开始都有截屏的功能。   截屏软件虽多,无外乎三种截屏方式:全屏截图、窗口截图、自定义矩形截图。   其中,窗口截图用的比较多,下面就是一个窗口截图的示例:   但有时我们仅仅希望截取窗口的客户区,如下图所示:   这样的软件并不多,折中的办法是用自定义矩形截图,但是要调整矩形并不是一件很容易的事。

现在能实现截屏的软件很多,就不一一列举了,连WIN7都自带截屏软件,甚至OFFICE2010开始都有截屏的功能。

 

截屏软件虽多,无外乎三种截屏方式:全屏截图、窗口截图、自定义矩形截图。

 

其中,窗口截图用的比较多,下面就是一个窗口截图的示例:

image

 

但有时我们仅仅希望截取窗口的客户区,如下图所示:

image

 

这样的软件并不多,折中的办法是用自定义矩形截图,但是要调整矩形并不是一件很容易的事。

 

于是,基于码农的精神,自给自足。

于是上网搜了搜解决方案。有两个

1、基于Win API函数的PrintWindow函数

2、基于Graphics对象的CopyFromScreen方法

两种方法各有优缺点

 

PrintWindow函数是把指定Hwnd的窗口的内容绘制到指定的Hdc中,基于后台完成。甚至指定的窗口最小化时,也能把窗口正常时的内容绘制到Hdc中。估计原理是,发出一个绘制命令,系统便绘制了窗口内容。不过,这个方法有很大的局限性,若窗口内容中有用DirectX等非GDI方法时,截取的图像是一片黑。

 

CopyFromScreen方法实际上是把屏幕上的内容截取到Bitmap对象。优点是经过系统优化,可以截取含有DirectX等非GDI方法的内容。缺点是由于截取的是屏幕,故指定的窗口不能最小化,还需要自己计算要截取的范围。

 

由于要截取含有DirectX等非GDI方法的内容。故本文采用的是CopyFromScreen方法。

 

问题就是如何计算指定窗口的客服区的范围。

需要利用如下的Win API函数:

FindWindowByCaption:根据指定的标题文本找寻窗口,返回窗口的句柄Hwnd

GetWindowRect:获得指定Hwnd的窗口的区域,返回True表示获得成功,在参数lpRect里获得窗口的区域。

GetClientRect:获得指定Hwnd的窗口的客户区区域,返回非0表示成功,在参数lpRect里获得窗口的客户区的区域。但是该区域的X和Y分量都是0,也就是只能获得该区域的宽和高,而不能获得该区域在屏幕上的位置。

ClientToScreen:把客户区的坐标转换为屏幕坐标。该函数配合GetClientRect函数可以获得窗口的客户区区域(包括X和Y分量,即该区域在屏幕上的位置)

 

具体的获得窗口的客户区的区域的过程如下:

1、用GetClientRect获得窗口的客户区区域

2、用ClientToScreen函数获得客户区的(0,0)坐标在屏幕上的坐标,也是客户区在屏幕上的偏移位置。

3、把偏移量添加到步骤1中的区域,那就是获得完整的客户区区域(包括X和Y分量,即该区域在屏幕上的位置)

 

再引入两个辅助Win API函数:

OpenIcon:把指定Hwnd的窗口还原为正常(也就是把最小化的窗口还原成正常窗口)

BringWindowToTop:把指定Hwnd的窗口显示在顶部,不被其他窗口覆盖

 

 


    Public  Shared  Function SnapWindowByCaption(Caption As  String, Optional OnlyClient As  Boolean = False, Optional AutoRestore As  Boolean = False, Optional AutoBringToTop As  Boolean = False) As  Bitmap
        Dim Hwnd As  IntPtr = FindWindowByCaption(0, Caption)
        If Hwnd = 0 Then  Return  Nothing

        Dim R As  New  RECT(0, 0, 0, 0)

        GetWindowRect(Hwnd, R)

        If R.Width = 0 Then
            If AutoRestore = True  Then
                OpenIcon(Hwnd)
                GetWindowRect(Hwnd, R)
            Else
                Return  Nothing
            End  If
        End  If

        If AutoBringToTop = True  Then BringWindowToTop(Hwnd)

        Dim P As  New  WinPOINT(0, 0)

        If OnlyClient = True  Then
            GetClientRect(Hwnd, R)
            ClientToScreen(Hwnd, P)
            R.X += P.X
            R.Y += P.Y
        End  If

        Dim w As  Integer = R.Width
        Dim h As  Integer = R.Height
        Dim bmp As  Bitmap = New  Bitmap(w, h)
        Dim g As  Graphics = Graphics.FromImage(bmp)

        g.CopyFromScreen(R.X, R.Y, 0, 0, New  Size(w, h))

        Return bmp
    End  Function

最后说点题外话,本文中的Win API函数的申明都来在下面的网站,网站非常强大

http://www.pinvoke.net/index.aspx

相关文章
|
5月前
|
UED
软件开发常见流程,好的用户体验,智能引导助手,介绍软件相关操作,会画个键盘,对键盘的相关键进行标注,效果动态展示图怎样画????弄一个图标,相关介绍
软件开发常见流程,好的用户体验,智能引导助手,介绍软件相关操作,会画个键盘,对键盘的相关键进行标注,效果动态展示图怎样画????弄一个图标,相关介绍
|
4月前
|
C# 开发者 Windows
震撼发布:全面解析WPF中的打印功能——从基础设置到高级定制,带你一步步实现直接打印文档的完整流程,让你的WPF应用程序瞬间升级,掌握这一技能,轻松应对各种打印需求,彻底告别打印难题!
【8月更文挑战第31天】打印功能在许多WPF应用中不可或缺,尤其在需要生成纸质文档时。WPF提供了强大的打印支持,通过`PrintDialog`等类简化了打印集成。本文将详细介绍如何在WPF应用中实现直接打印文档的功能,并通过具体示例代码展示其实现过程。
374 0
|
存储 小程序 前端开发
【易售小程序项目】小程序私聊页面完善(带尾巴聊天气泡组件封装、滑至顶端获取历史聊天数据逻辑优化)【后端基于若依管理系统开发】
【易售小程序项目】小程序私聊页面完善(带尾巴聊天气泡组件封装、滑至顶端获取历史聊天数据逻辑优化)【后端基于若依管理系统开发】
67 0
|
数据库 Windows
艾伟:基于.NET平台的Windows编程实战(三)—— 项目的创建及主界面的设计
第一步:创建一个新的Windows项目 打开VS2005,点击“文件”-->“新建”-->“项目”,在弹出的对话框里,在左边选择“Windows”,在右边选择“Windows应用程序”,并在下面的名称里输入“QuestionnaireSystem”,选择相应的保存位置后,点“确定”,如下图3-1所示:                                  图3-1  这样一个新的Windows项目就创建好了。
755 0
|
数据库 Windows
艾伟_转载:基于.NET平台的Windows编程实战(三)—— 项目的创建及主界面的设计
第一步:创建一个新的Windows项目 打开VS2005,点击“文件”-->“新建”-->“项目”,在弹出的对话框里,在左边选择“Windows”,在右边选择“Windows应用程序”,并在下面的名称里输入“QuestionnaireSystem”,选择相应的保存位置后,点“确定”,如下图3-1所示:                                  图3-1  这样一个新的Windows项目就创建好了。
826 0
|
索引 Windows
一起谈.NET技术,Silverlight 游戏开发小技巧:实现街霸4的选人界面
  上一篇只是一个引子,用来说明Projection的基本操作,游戏研发都是用这些小的基本功能慢慢组合出来,其实这一篇仍然是Projection,但是我们将会做一个比较复杂的应用使用silverlight的Projection,玩过街霸4,可能对它的选人界面印象深刻,但是做起来却不容易,因为要请美术...
979 0
|
C# Windows
从淘宝 UWP 的新功能 -- 比较页面来谈谈 UWP 的窗口多开功能
原文:从淘宝 UWP 的新功能 -- 比较页面来谈谈 UWP 的窗口多开功能 前言 之前在 剁手党也有春天 -- 淘宝 UWP ”比较“功能诞生记 这篇随笔中介绍了一下 UWP 淘宝的“比较”新功能呱呱坠地的过程。
1160 0