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

简介:

现在能实现截屏的软件很多,就不一一列举了,连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  StringOptional OnlyClient  As  Boolean =  FalseOptional AutoRestore  As  Boolean =  FalseOptional AutoBringToTop  As  Boolean =  FalseAs  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.cnblogs.com/grenet/p/3929937.html,如需转载请自行联系原作者



相关文章
|
9月前
|
Web App开发 JSON 前端开发
猿大师办公助手可实现微软Office Word文档在线安全预览,并且禁止编辑、拷贝、截屏、录屏、保存、导出、打印等!
现在,随着数字化进程渗透到到各行各业,数据安全已经成为了数字化革命中的重要组成部分,而在线Office成在OA、ERP、文档系统中得到了广泛的应用,为我国的信息化事业也做出了巨大贡献。随着操作系统、浏览器及Office软件的不断升级和更新换代,加上国家对信息化、数字化系统要求的不断提升,一些厂家的WebOffice控件产品不断被淘汰出局,而现存的几个产品也存在以下几个问题
320 0
|
C++
winForm开发问题,vs的bug,Datagridview始终不能编辑!
如果更改Datagridview启用编辑为不选中 则项目在生成时会将Datagridview的Columns的ReadOnly更改为true 再次启用 DataGridView的编辑,但Datagridview的Columns的ReadOnl...
1017 0
|
安全 数据可视化 网络协议
Excel用户的福音:不用写代码就能开发一个带界面的程序!
2015年,微软内部一个项目悄悄开始开发,主要目的是解决「Excel用户」不想编程,重复劳动多,下班晚等问题。2021年,这个项目终于来了,让不会写代码的你也能驯化计算机!
146 0
Excel用户的福音:不用写代码就能开发一个带界面的程序!
SAP C4C里收藏了的客户,在什么地方能够快捷打开
SAP C4C里收藏了的客户,在什么地方能够快捷打开
88 0
SAP C4C里收藏了的客户,在什么地方能够快捷打开
|
C# Windows
艾伟_转载:用C#设计Windows应用程序模板
 通常windows应用程序都有相似的特征:控件、菜单、工具条、状态栏等等。每次我们开始作一个新的windows应用程序时都是以相同的事情开始:建立项目,添加控件和事件处理器。如果我们有一个模板,那么我们就可以节约大量的时间了。
807 0
巧用生活号icon菜单和功能扩展区,更快传达你的服务!
01 你用icon菜单了吗?   还在使用单一的文字菜单? 想要表达内容太多,只能深深藏进二级菜单? 那么,建议你试试icon菜单。 简单直白,你所能提供的服务 一.目.了.然 | 杭州市民卡,利用icon菜单,所有服务一目了然,菜单点击数据直线上升;  02 功能扩展区启用了吗?   用图文推送来宣传活动?吸引点击? 可是,图文很快就会被覆盖。
441 0
|
C# Windows
从淘宝 UWP 的新功能 -- 比较页面来谈谈 UWP 的窗口多开功能
原文:从淘宝 UWP 的新功能 -- 比较页面来谈谈 UWP 的窗口多开功能 前言 之前在 剁手党也有春天 -- 淘宝 UWP ”比较“功能诞生记 这篇随笔中介绍了一下 UWP 淘宝的“比较”新功能呱呱坠地的过程。
1115 0
|
Windows C#
UWP开发砸手机系列(二)—— “讲述人”识别自定义控件Command
原文:UWP开发砸手机系列(二)—— “讲述人”识别自定义控件Command   上一篇我们提到如何让“讲述人”读出自定义的CanReadGrid,但“讲述人”仍然无法识别CanReadGrid上绑定的Command。
1494 0

热门文章

最新文章