VB有什么函数可以替代GetDC(0)这个函数,实现同样的功能?

Carlven2012 2014-07-31 02:15:29
因为我自己以前的截图代码,现在新系统下,发现了一个问题,就是当按下截图热键时,QQ的界面和聊天窗口会立即自动隐藏起来,就造成根本抓不下来QQ界面及其聊天窗口。 网上下载了很多这类的截图代码,和我的大同小异,都不行。感觉好像QQ在拦截API函数GetDC(0) 似的。 另我的系统是Win7 64位的,SSD硬盘做的系统,QQ版本是QQ5.5(11447),我的代码如下:

Dim hDCtmp As Long, w As Long, h As Long
w = Screen.Width / 15
h = Screen.Width / 15
hDCtmp = GetDC(0)
BitBlt Picture1.hdc, 0, 0, w, h, hDCtmp, 0, 0, vbSrcCopy
ReleaseDC 0, hDCtmp
...全文
292 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
Tiger_Zhao 2014-08-01
  • 打赏
  • 举报
回复
引用 7 楼 PctGL 的回复:
qq 窗口如果有透明度的话,需要对 bitblt 的最后一个参数改造,否则无法截取透明窗口,大概是 vbSrcCopy and &H40000000 要么是 &H80000000 lz可以去msdn查查,以前vbgood 做放大镜的擂台赛时提到过这个问题
分析问题经验值最重要,一开始就猜错就是无用功。
Carlven2012 2014-07-31
  • 打赏
  • 举报
回复
引用 7 楼 PctGL 的回复:
qq 窗口如果有透明度的话,需要对 bitblt 的最后一个参数改造,否则无法截取透明窗口,大概是 vbSrcCopy and &H40000000 要么是 &H80000000 lz可以去msdn查查,以前vbgood 做放大镜的擂台赛时提到过这个问题
哎呀,怎么没想到这个情况呢。谢谢。 按你说的,果然成功了。应该是下面这样: Call BitBlt(Picture1.hDC, 0, 0, w, h, hDCtmp, 0, 0, vbSrcCopy Or &H40000000)
PctGL 2014-07-31
  • 打赏
  • 举报
回复
qq 窗口如果有透明度的话,需要对 bitblt 的最后一个参数改造,否则无法截取透明窗口,大概是 vbSrcCopy and &H40000000 要么是 &H80000000 lz可以去msdn查查,以前vbgood 做放大镜的擂台赛时提到过这个问题
Carlven2012 2014-07-31
  • 打赏
  • 举报
回复

谢谢楼上热心的朋友,我试着在Form_Load时就GetDC(0),然后在按钮事件中将图BitBlt在Picture1里面,结果还是一样,QQ的聊天窗口就跟透明人一样。如上图
笨狗先飞 2014-07-31
  • 打赏
  • 举报
回复

Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private DC As Long

Private Sub Form_Click()
BitBlt Me.hDC, 0, 0, Screen.Width \ 15, Screen.Height \ 15, DC, 0, 0, vbSrcCopy
End Sub

Private Sub Form_Load()
DC = GetDC(0)
End Sub
笨狗先飞 2014-07-31
  • 打赏
  • 举报
回复
GetDC和BitBlt 不要同时用 程序初始化的时候就把getdc(0)读进来,我就不信QQ窗口想躲你一辈子
Carlven2012 2014-07-31
  • 打赏
  • 举报
回复
直接按 PrintScr 键,屏幕上的所有窗口(含QQ界面和聊天窗口)都可以抓下来,无问题。 就是GetDC(0)这个代码抓不了QQ界面,怎么办?
bcrun 2014-07-31
  • 打赏
  • 举报
回复
对啊,一般截屏那部分代码应该是在后台执行的啊。取到了数据之后才有自己程序的Form.Show什么的。
Tiger_Zhao 2014-07-31
  • 打赏
  • 举报
回复
你用直接按 PrintScr 键能否截图(进了剪贴板)?
如果能,就根本不是你说的问题。
可能热键激活了你的程序,QQ在失去焦点时自动隐藏了。
你应该考虑不让你的程序抢焦点。
API之网络函数1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetConnectionDialog 启动一个标准对话框,以便建立同网络资源的连接 WNetDisconnectDialog 启动一个标准对话框,以便断开同网络资源的连接 WNetEnumResource 枚举网络资源 WNetGetConnection 获取本地或已连接的一个资源的网络名称 WNetGetLastError 获取网络错误的扩展错误信息 WNetGetUniversalName 获取网络中一个文件的远程名称以及/或者UNC(统一命名规范)名称 WNetGetUser 获取一个网络资源用以连接的名字 WNetOpenEnum 启动对网络资源进行枚举的过程 2. API之消息函数 BroadcastSystemMessage 将一条系统消息广播给系统中所有的顶级窗口 GetMessagePos 取得消息队列中上一条消息处理完毕时的鼠标指针屏幕位置 GetMessageTime 取得消息队列中上一条消息处理完毕时的时间 PostMessage 将一条消息投递到指定窗口的消息队列 PostThreadMessage 将一条消息投递给应用程序 RegisterWindowMessage 获取分配给一个字串标识符的消息编号 ReplyMessage 答复一个消息 SendMessage 调用一个窗口的窗口函数,将一条消息发给那个窗口 SendMessageCallback 将一条消息发给窗口 SendMessageTimeout 向窗口发送一条消息 SendNotifyMessage 向窗口发送一条消息 3. API之文件处理函数 CloseHandle 关闭一个内核对象。其中包括文件、文件映射、进程、线程、安全和同步对象等 CompareFileTime 对比两个文件的时间 CopyFile 复制文件 CreateDirectory 创建一个新目录 CreateFile 打开和创建文件、管道、邮槽、通信服务、设备以及控制台 CreateFileMapping 创建一个新的文件映射对象 DeleteFile 删除指定文件 DeviceIoControl 对设备执行指定的操作 DosDateTimeToFileTime 将DOS日期和时间值转换成一个 win32 FILETIME 值 FileTimeToDosDateTime 将一个 win32 FILETIME 值转换成DOS日期和时间值 FileTimeToLocalFileTime 将一个FILETIME结构转换成本地时间 FileTimeToSystemTime 根据一个FILETIME结构的内容,装载一个SYSTEMTIME结构 FindClose 关闭由FindFirstFile函数创建的一个搜索句柄 FindFirstFile 根据文件名查找文件 FindNextFile 根据调用FindFirstFile函数时指定的一个文件名查找下一个文件 FlushFileBuffers 针对指定的文件句柄,刷新内部文件缓冲区 FlushViewOfFile 将写入文件映射缓冲区的所有数据都刷新到磁盘 GetBinaryType 判断文件是否可以执行 GetCompressedFileSize 判断一个压缩文件在磁盘上实际占据的字节数 GetCurrentDirectory 在一个缓冲区中装载当前目录 GetDiskFreeSpace 获取与一个磁盘的组织有关的信息,以及了解剩余空间的容量 GetDiskFreeSpaceEx 获取与一个磁盘的组织以及剩余空间容量有关的信息 GetDriveType 判断一个磁盘驱动器的类型 GetExpandedName 取得一个压缩文件的全名 GetFileAttributes 判断指定文件的属性 GetFileInformationByHandle 这个函数提供了获取文件信息的一种机制 GetFileSize 判断文件长度 GetFileTime 取得指定文件的时间信息 GetFileType 在给出文件句柄的前提下,判断文件类型 GetFileVersionInfo 从支持版本标记的一个模块里获取文件版本信息
摘要:VB源码,图形处理,VB恶搞程序,屏幕抖动   再分享一个Vb恶搞程序,屏幕抖动下雪,下雪API声明(摘录):   GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄   GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值   释放由GetDC()获取的设备场景句柄,否则可能造成系统锁死   定义“区域”数据结构,但实际上并没有用到,因为仅需在函数InvalidateRect中传递一个空的RECT参数   Dim rect1 As RECT   Private Const ScrnWidth = 1024 ‘屏幕宽度(单位:像素)   Private Const ScrnHight = 768 ‘屏幕高度(单位:像素)   Private Const SnowCol = &HFEFFFE ‘雪花颜色   Private Const SnowColDown = &HFFFFFF ‘积雪颜色   Private Const SnowColDuck = &HFFDDDD ‘深色积雪颜色   Private Const SnowNum = 500 ‘同一时间飘动的雪花数量   Dim hDC1 As Long ‘存储桌面窗口设备句柄   Dim pData(SnowNum) As POINTAPI ‘存储每个雪花的位置信息   Dim pColor(SnowNum) As Long ‘存储画出雪花前屏幕原来的颜色   Dim Vx As Integer ‘雪花总体水平飘行速度   Dim Vy As Integer ‘雪花总体垂直下落速度   Dim PVx As Integer ‘单个雪花实际水平飘行速度   Dim PVy As Integer ‘单个雪花实际垂直飘行速度   确定当前位置没有与另一个雪花重叠,否则返回0,用于防止由于不同雪花重叠造成雪花乱堆,分别获取ColorCmp与对比点的蓝、绿、红部分的差值,画出一帧,即重画所有雪花位置一次,设置新的位置,i Mod 3用于将雪花分为三类采用不同速度,以便形成层次感。   注意,测试时候如果要停止程序,请在任务栏右键直接关闭程序字符串即可。

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧