开发者社区> 橘子红了呐> 正文
阿里云
为了无法计算的价值
打开APP
阿里云APP内打开

老话题:自己编写只截窗口客户区的截屏软件(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,如需转载请自行联系原作者



版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
JSR310新日期API(完结篇)-生产实战
前面通过五篇文章基本介绍完JSR-310常用的日期时间API以及一些工具类,这篇博文主要说说笔者在生产实战中使用JSR-310日期时间API的一些经验。
166 0
EMAS发布最新隐私协议,为客户信息安全保驾护航
公民个人信息不容侵犯,数据显示,近年来工信部持续开展APP侵权整治活动,开展了六批次集中抽检,检查了76万款APP,通报748款违规APP,下架了245款拒不整改的APP。移动研发平台EMAS高度重视个人信息的保护,在客户使用EMAS服务时,将根据法律法规要求并参照行业最佳实践为客户个人信息安全提供充分保障。现EMAS最新隐私协议已发布,将全方面为客户的信息安全提供保障。
1159 0
重磅下载 | Java 开发者必备手册《Spring Cloud Alibaba 从入门到实战》,阿里双11同款!
Spring Cloud Alibaba 脱胎于阿里中间件团队内部,经受了阿里多年海量业务场景的考验,是目前最成熟、功能最丰富也最有前景的 Spring Cloud 实现。相信在未来 Spring Cloud Alibaba 获得更多开发者的亲睐与应用,这也将成为 Java 开发者必不可少的技能之一。
110453 0
3402
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
低代码开发师(初级)实战教程
立即下载
阿里巴巴DevOps 最佳实践手册
立即下载
冬季实战营第三期:MySQL数据库进阶实战
立即下载