Question

谁有VB截图程序的源代码？

谁有VB截图程序的源代码？类似QQ截图那样子的，右键单击能显示弹出菜单、底部显示工具栏，和截图大小的。

Answer 1

Option Explicit '--------------------工程创建时间 2011年6月26日 ------------' '-----------代码说明---------' '通过截图获取 美女来找茬 游戏中两图画面 ，拷贝到控件 接下来保存到磁盘。 '载入画面 For 语句读取两图相同坐标值 进行颜色比对 。不同时 进行操作 '--------------------The End--------------------------------' Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function PrintWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcBlt As Long, ByVal nFlags 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 My_Hwnd, My_GDC, My_ImDC As Long Private Sub Command1_Click() 'Timer1.Enabled = True '把游戏画面载入控件 并实现连续播放。形成连续效果 GetIn '获取必要信息 PicOne ' 获取截图 ' Picture1.Picture = LoadPicture("C:\1.jpg") '自定义画面 PicCmp 'Cmp End Sub Private Function GetIn() My_Hwnd = FindWindow(vbNullString, "QQ幻想世界") If My_Hwnd = 0 Then MsgBox "获取游戏句柄失败！", vbCritical, "警告" End If My_GDC = GetDC(My_Hwnd) If My_GDC = 0 Then MsgBox "获取游戏DC句柄失败！", vbCritical, "警告" End If PrintWindow My_Hwnd, PicHide.hDC, 0 End Function Private Function PicOne() BitBlt Picture1.hDC, -8, -187, 509, 1000, My_GDC, 0, 0, vbSrcCopy PicHide.Refresh SavePicture Picture1.Image, "C:\1.JPG" End Function 以前写的 截图并保存在 C盘 修改下就可以用.
麻烦采纳，谢谢!

Answer 2

如果是直接调用QQ截图的dll可以吗