Question

通过VB的BitBlt API来实现 窗口局部区域截图

我想将这个代码写成一个函数形式，保存为DLL文件

自己用SavePicture方法可以保存图片但是，保存为DLL的时候报错说未定义什么

我想各位帮忙想想通过什么方法能保存为图片
此问题通过交换方法已经解决了，3楼给的方法就是我说的那方法不过用到了插件

故无法生成DLL吧，不过还是非常感谢

Answer 1

这个问题我以前也弄过，后来卡在你这个问题同样的地方没弄下去，现在看到你的问题，很有感触，准备再弄一下看看，没想到成功了哈，下面是代码，实现了后台截图并且保存，可以用到一些游戏脚本里面哈。

首席准备2个Picture窗口和一个按钮，然后就是下面的代码，有问题请补充问题，我们交流哈哈
Option Explicit
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 Sub Command1_Click()
Dim a
a = PrintWindow(395116, Picture1.hDC, 0)
BitBlt Picture2.hDC, 0, 0, 300, 300, Picture1.hDC, 0, 0, vbSrcCopy
SavePicture Picture2.Image, "c:\aaa.bmp"
End Sub
注意，2个Picture窗口的AutoRedraw属性必须设置成真

第一个Picture后台获取整张图片，第二个用来获取需要的大小

Answer 2

准备写按键的后台截图插件吧