|
发表于 2025-4-5 12:39:17
|
显示全部楼层
江西省景德镇市
.版本 2
.支持库 HtmlView
.支持库 BmpOperate
.程序集 窗口程序集_启动窗口
.程序集变量 hWnd, 整数型
.程序集变量 hDC, 整数型
.程序集变量 hMemDC, 整数型
.程序集变量 hBitmap, 整数型
.程序集变量 rect, 矩形结构
.子程序 _按钮_截图_被单击
hWnd = 超文本浏览框1.取窗口句柄 ()
hDC = GetDC (hWnd)
GetClientRect (hWnd, rect)
宽度 = rect.右边 - rect.左边
高度 = rect.底边 - rect.顶边
hMemDC = CreateCompatibleDC (hDC)
hBitmap = CreateCompatibleBitmap (hDC, 宽度, 高度)
SelectObject (hMemDC, hBitmap)
BitBlt (hMemDC, 0, 0, 宽度, 高度, hDC, 0, 0, #SRCCOPY)
' 保存为BMP文件
保存位图到文件 (hBitmap, "C:\\截图.bmp")
' 清理资源
SelectObject (hMemDC, hBitmap)
DeleteObject (hBitmap)
DeleteDC (hMemDC)
ReleaseDC (hWnd, hDC)
' 提示保存成功
信息框 (“截图已保存到 C:\截图.bmp”, 0, , )
.数据类型 矩形结构, , 公开
.成员 左边, 整数型
.成员 顶边, 整数型
.成员 右边, 整数型
.成员 底边, 整数型
.DLL命令 GetDC, 整数型, "user32.dll", "GetDC"
.参数 hWnd, 整数型
.DLL命令 ReleaseDC, 整数型, "user32.dll", "ReleaseDC"
.参数 hWnd, 整数型
.参数 hDC, 整数型
.DLL命令 CreateCompatibleDC, 整数型, "gdi32.dll", "CreateCompatibleDC"
.参数 hdc, 整数型
.DLL命令 CreateCompatibleBitmap, 整数型, "gdi32.dll", "CreateCompatibleBitmap"
.参数 hdc, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.DLL命令 SelectObject, 整数型, "gdi32.dll", "SelectObject"
.参数 hdc, 整数型
.参数 hgdiobj, 整数型
.DLL命令 BitBlt, 逻辑型, "gdi32.dll", "BitBlt"
.参数 hdcDest, 整数型
.参数 xDest, 整数型
.参数 yDest, 整数型
.参数 nWidth, 整数型
.参数 nHeight, 整数型
.参数 hdcSrc, 整数型
.参数 xSrc, 整数型
.参数 ySrc, 整数型
.参数 dwRop, 整数型
.DLL命令 DeleteObject, 逻辑型, "gdi32.dll", "DeleteObject"
.参数 hObject, 整数型
.DLL命令 GetClientRect, 逻辑型, "user32.dll", "GetClientRect"
.参数 hWnd, 整数型
.参数 lpRect, 矩形结构, 传址
|
|