2491
社区成员
请都市夜猫老师看一下截屏打印的问题
* 这段代码是网上找的，据说是都市夜猫老师的代码，请帮看一下代码没有执行的原因，我主要是想实现打印鼠标点击图片就直接打印，请老师指点！
DECLARE INTEGER FindWindow IN user32 STRING lpClassName,STRING lpWindowName
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
Declare SHORT GetWindowRect IN user32 INTEGER hwnd, STRING @ lpRect
DECLARE Long GetWindowDC IN WIN32API Long hWnd
DECLARE Long ReleaseDC IN WIN32API Long hWnd, Long hDc
DECLARE Long CreateCompatibleDC IN WIN32API Long hDc
DECLARE Long DeleteDC IN WIN32API Long hDc
DECLARE Long CreateCompatibleBitmap IN WIN32API Long hDc, Long nWidth, Long nHeight
DECLARE Long BitBlt IN WIN32API Long hDestDC, Long nXDest, Long nYDest, Long nWidth, Long nHeight, Long hSrcDC, Long nXSrc, Long nYSrc, Long dwRop
DECLARE Long SelectObject IN WIN32API Long hDc, Long hObject
DECLARE Long DeleteObject IN WIN32API Long hObject
DECLARE Long GdiplusStartup IN gdiplus Long @ token, String @ inputbuf, Long @ outputbuf
DECLARE Long GdiplusShutdown IN gdiplus Long token
DECLARE Long GdipCreateBitmapFromHBITMAP IN gdiplus Long hbitmap, Long hpalette, Long @ hGpBitmap
DECLARE Long GdipDisposeImage IN gdiplus Long image
DECLARE Long GdipSaveImageToFile IN gdiplus Long nImage, String FileName, String clsIdEncoder, Long encoderParams
**以上的API 不是全部用上 只是复制进来，懒得删除了！
DECLARE INTEGER PrintWindow IN user32 INTEGER,INTEGER ,INTEGER
#define SRCCOPY 0x00CC0020 LOCAL cFileExtName, cEncoder, iInputBuf, iResult
LOCAL hDesktopDc, hVDc, hBitmap, hToken, hGdipBitmap
m.hWnd=FindWindow("Notepad",NULL) &&截取一个文本窗口试一试
tcFile=LOWER('d:\aaa.JPG') &&jpg 格式图像
m.cFileExtName =LOWER( JUSTEXT( m.tcFile ))
lpRect = REPLI (Chr(0), 16)
GetWindowRect (m.hWnd, @lpRect)
lnWidth=ctob(SUBS(lpRect,9,4),'4rs')-ctob(SUBS(lpRect,1,4),'4rs')&&窗口宽度
lnHeight=ctob(SUBS(lpRect,13,4),'4rs')-ctob(SUBS(lpRect,5,4),'4rs')&&窗口高度
m.hDesktopDc = GetDC( m.hWnd )
m.hVdc = CreateCompatibleDC( m.hDesktopDc )
m.hBitmap = CreateCompatibleBitmap( m.hDesktopDc,lnWidth,lnHeight )
ABC=SelectObject( m.hVdc, m.hBitmap )
i=PrintWindow(m.hWnd,m.hVdc,0)
SelectObject( m.hVdc, ABC )
*BitBlt( m.hVdc, 0,0,lnWidth,lnHeight, m.hDesktopDc,0,0, SRCCOPY )
m.hToken = 0
m.iInputBuf = 0h01 + REPLICATE( CHR(0),15 )
m.iResult = -1
IF ( 0 == GdiplusStartup( @ m.hToken, @ m.iInputBuf, 0 ))
m.hGdipBitmap = 0
IF ( 0 == GdipCreateBitmapFromHBITMAP( ;
m.hBitmap, 0, @ m.hGdipBitmap ))
m.cEncoder = ICASE( ;
'jpg' == m.cFileExtName, 0h01, ;
'gif' == m.cFileExtName, 0h02, ;
'tif' == m.cFileExtName, 0h05, ;
'png' == m.cFileExtName, 0h06, 0h00 ) ;
+ 0hF47C55041AD3119A730000F81EF32E
m.iResult = GdipSaveImageToFile( ;
m.hGdipBitmap, ;
STRCONV( m.tcFile+CHR(0), 5 ), ;
m.cEncoder, 0 )
GdipDisposeImage( m.hGdipBitmap )
ENDIF
GdiplusShutdown( m.hToken )
ENDIF
DeleteObject( m.hBitmap )
DeleteDC( m.hVdc )
ReleaseDC( 0, m.hDesktopDc )
DECLARE INTEGER FindWindow IN user32 STRING lpClassName,STRING lpWindowName
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
Declare SHORT GetWindowRect IN user32 INTEGER hwnd, STRING @ lpRect
DECLARE Long GetWindowDC IN WIN32API Long hWnd
DECLARE Long ReleaseDC IN WIN32API Long hWnd, Long hDc
DECLARE Long CreateCompatibleDC IN WIN32API Long hDc
DECLARE Long DeleteDC IN WIN32API Long hDc
DECLARE Long CreateCompatibleBitmap IN WIN32API Long hDc, Long nWidth, Long nHeight
DECLARE Long BitBlt IN WIN32API Long hDestDC, Long nXDest, Long nYDest, Long nWidth, Long nHeight, Long hSrcDC, Long nXSrc, Long nYSrc, Long dwRop
DECLARE Long SelectObject IN WIN32API Long hDc, Long hObject
DECLARE Long DeleteObject IN WIN32API Long hObject
DECLARE Long GdiplusStartup IN gdiplus Long @ token, String @ inputbuf, Long @ outputbuf
DECLARE Long GdiplusShutdown IN gdiplus Long token
DECLARE Long GdipCreateBitmapFromHBITMAP IN gdiplus Long hbitmap, Long hpalette, Long @ hGpBitmap
DECLARE Long GdipDisposeImage IN gdiplus Long image
DECLARE Long GdipSaveImageToFile IN gdiplus Long nImage, String FileName, String clsIdEncoder, Long encoderParams
**以上的API 不是全部用上 只是复制进来，懒得删除了！
DECLARE INTEGER PrintWindow IN user32 INTEGER,INTEGER ,INTEGER
#define SRCCOPY 0x00CC0020 LOCAL cFileExtName, cEncoder, iInputBuf, iResult
LOCAL hDesktopDc, hVDc, hBitmap, hToken, hGdipBitmap
m.hWnd=FindWindow("Notepad",NULL) &&截取一个文本窗口试一试
tcFile=LOWER('d:\aaa.JPG') &&jpg 格式图像
m.cFileExtName =LOWER( JUSTEXT( m.tcFile ))
lpRect = REPLI (Chr(0), 16)
GetWindowRect (m.hWnd, @lpRect)
lnWidth=ctob(SUBS(lpRect,9,4),'4rs')-ctob(SUBS(lpRect,1,4),'4rs')&&窗口宽度
lnHeight=ctob(SUBS(lpRect,13,4),'4rs')-ctob(SUBS(lpRect,5,4),'4rs')&&窗口高度
m.hDesktopDc = GetDC( m.hWnd )
m.hVdc = CreateCompatibleDC( m.hDesktopDc )
m.hBitmap = CreateCompatibleBitmap( m.hDesktopDc,lnWidth,lnHeight )
ABC=SelectObject( m.hVdc, m.hBitmap )
i=PrintWindow(m.hWnd,m.hVdc,0)
SelectObject( m.hVdc, ABC )
*BitBlt( m.hVdc, 0,0,lnWidth,lnHeight, m.hDesktopDc,0,0, SRCCOPY )
m.hToken = 0
m.iInputBuf = 0h01 + REPLICATE( CHR(0),15 )
m.iResult = -1
IF ( 0 == GdiplusStartup( @ m.hToken, @ m.iInputBuf, 0 ))
m.hGdipBitmap = 0
IF ( 0 == GdipCreateBitmapFromHBITMAP( ;
m.hBitmap, 0, @ m.hGdipBitmap ))
m.cEncoder = ICASE( ;
'jpg' == m.cFileExtName, 0h01, ;
'gif' == m.cFileExtName, 0h02, ;
'tif' == m.cFileExtName, 0h05, ;
'png' == m.cFileExtName, 0h06, 0h00 ) ;
+ 0hF47C55041AD3119A730000F81EF32E
m.iResult = GdipSaveImageToFile( ;
m.hGdipBitmap, ;
STRCONV( m.tcFile+CHR(0), 5 ), ;
m.cEncoder, 0 )
GdipDisposeImage( m.hGdipBitmap )
ENDIF
GdiplusShutdown( m.hToken )
ENDIF
DeleteObject( m.hBitmap )
DeleteDC( m.hVdc )
ReleaseDC( 0, m.hDesktopDc )
...全文
请发表友善的回复…
发表回复
sych11 2020-09-29
Declare Integer GetDefaultPrinter In winspool.drv String @pszBuffer, Integer @pcchBuffer
DECLARE LONG GdipCreateFromHDC IN GDIPLUS LONG hdc, LONG @graphics
DECLARE INTEGER FindWindow IN user32 STRING lpClassName,STRING lpWindowName
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
Declare SHORT GetWindowRect IN user32 INTEGER hwnd, STRING @ lpRect
DECLARE Long GetWindowDC IN WIN32API Long hWnd
DECLARE Long ReleaseDC IN WIN32API Long hWnd, Long hDc
DECLARE Long CreateCompatibleDC IN WIN32API Long hDc
DECLARE Long DeleteDC IN WIN32API Long hDc
DECLARE Long CreateCompatibleBitmap IN WIN32API Long hDc, Long nWidth, Long nHeight
DECLARE Long BitBlt IN WIN32API Long hDestDC, Long nXDest, Long nYDest, Long nWidth, Long nHeight, Long hSrcDC, Long nXSrc, Long nYSrc, Long dwRop
DECLARE Long SelectObject IN WIN32API Long hDc, Long hObject
DECLARE Long DeleteObject IN WIN32API Long hObject
DECLARE Long GdiplusStartup IN gdiplus Long @ token, String @ inputbuf, Long @ outputbuf
DECLARE Long GdiplusShutdown IN gdiplus Long token
DECLARE Long GdipCreateBitmapFromHBITMAP IN gdiplus Long hbitmap, Long hpalette, Long @ hGpBitmap
DECLARE Long GdipDisposeImage IN gdiplus Long image
DECLARE Long GdipSaveImageToFile IN gdiplus Long nImage, String FileName, String clsIdEncoder, Long encoderParams
DECLARE LONG CreateDC IN win32api STRING @cDriver, STRING @cDevice, STRING cOutput,STRING cInitData
DECLARE INTEGER StartDoc IN win32api INTEGER hdc, STRING @ lpdi
DECLARE INTEGER EndDoc IN win32api INTEGER hdc
DECLARE INTEGER StartPage IN win32api INTEGER hdc
DECLARE INTEGER EndPage IN win32api INTEGER hdc
DECLARE LONG GdipDrawImage IN GDIPLUS LONG graphics, LONG nImage, SINGLE x, SINGLE y
**以上的API 不是全部用上 只是复制进来，懒得删除了！
DECLARE INTEGER PrintWindow IN user32 INTEGER,INTEGER ,INTEGER
#define SRCCOPY 0x00CC0020 LOCAL cFileExtName, cEncoder, iInputBuf, iResult
LOCAL hDesktopDc, hVDc, hBitmap, hToken, hGdipBitmap
m.hWnd=FindWindow("Notepad",NULL) &&截取一个文本窗口试一试
m.hWnd=_vfp.hwnd
tcFile=LOWER('d:\aaa.JPG') &&jpg 格式图像
m.cFileExtName =LOWER( JUSTEXT( m.tcFile ))
lpRect = REPLI (Chr(0), 16)
GetWindowRect (m.hWnd, @lpRect)
lnWidth=ctob(SUBS(lpRect,9,4),'4rs')-ctob(SUBS(lpRect,1,4),'4rs')&&窗口宽度
lnHeight=ctob(SUBS(lpRect,13,4),'4rs')-ctob(SUBS(lpRect,5,4),'4rs')&&窗口高度
m.hDesktopDc = GetDC( m.hWnd )
m.hVdc = CreateCompatibleDC( m.hDesktopDc )
m.hBitmap = CreateCompatibleBitmap( m.hDesktopDc,lnWidth,lnHeight )
ABC=SelectObject( m.hVdc, m.hBitmap )
i=PrintWindow(m.hWnd,m.hVdc,0)
SelectObject( m.hVdc, ABC )
*BitBlt( m.hVdc, 0,0,lnWidth,lnHeight, m.hDesktopDc,0,0, SRCCOPY )
m.hToken = 0
m.iInputBuf = 0h01 + REPLICATE( CHR(0),15 )
m.iResult = -1
IF ( 0 == GdiplusStartup( @ m.hToken, @ m.iInputBuf, 0 ))
m.hGdipBitmap = 0
IF ( 0 == GdipCreateBitmapFromHBITMAP( m.hBitmap, 0, @ m.hGdipBitmap ))
IF "5.0"$OS()
lcDriver="WINSPOOL"
ELSE
lcDriver=NULL
ENDIF
nBufsize = 250
prtname = Replicate(Chr(0), nBufsize)
GetDefaultPrinter(@prtname, @nBufsize)
prtname = STREXTRACT(prtname, "", Chr(0))
hprnDC = CreateDC(lcDriver, prtname, NULL, null)
lcDocInfo = Chr(20) + Repli(Chr(0), 19)
StartDoc(hPrnDC, @lcDocInfo)
StartPage(hprndc)
graphics=0
GdipCreateFromHDC(hprndc, @graphics)
GdipDrawImage(graphics,m.hGdipBitmap,0,0)
EndPage(hPrnDC)
EndDoc(hPrnDC)
GdipDisposeImage( m.hGdipBitmap )
ENDIF
GdiplusShutdown( m.hToken )
ENDIF
DeleteObject( m.hBitmap )
DeleteDC( m.hVdc )
ReleaseDC( 0, m.hDesktopDc )
这个可以直接打印
kmyz_yyl 2020-09-28
谢谢！
我原本设想不经过打印窗口实现直接打印，由于技术有限没能实现那种方法，最后也采用了=ShellExecute(0, "print",tcfile,null, "",1)这个函数来实现。
sych11 2020-09-24
DECLARE INTEGER FindWindow IN user32 STRING lpClassName,STRING lpWindowName
DECLARE INTEGER GetDC IN user32 INTEGER hwnd
Declare SHORT GetWindowRect IN user32 INTEGER hwnd, STRING @ lpRect
DECLARE Long GetWindowDC IN WIN32API Long hWnd
DECLARE Long ReleaseDC IN WIN32API Long hWnd, Long hDc
DECLARE Long CreateCompatibleDC IN WIN32API Long hDc
DECLARE Long DeleteDC IN WIN32API Long hDc
DECLARE Long CreateCompatibleBitmap IN WIN32API Long hDc, Long nWidth, Long nHeight
DECLARE Long BitBlt IN WIN32API Long hDestDC, Long nXDest, Long nYDest, Long nWidth, Long nHeight, Long hSrcDC, Long nXSrc, Long nYSrc, Long dwRop
DECLARE Long SelectObject IN WIN32API Long hDc, Long hObject
DECLARE Long DeleteObject IN WIN32API Long hObject
DECLARE Long GdiplusStartup IN gdiplus Long @ token, String @ inputbuf, Long @ outputbuf
DECLARE Long GdiplusShutdown IN gdiplus Long token
DECLARE Long GdipCreateBitmapFromHBITMAP IN gdiplus Long hbitmap, Long hpalette, Long @ hGpBitmap
DECLARE Long GdipDisposeImage IN gdiplus Long image
DECLARE Long GdipSaveImageToFile IN gdiplus Long nImage, String FileName, String clsIdEncoder, Long encoderParams
Declare INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
**以上的API 不是全部用上 只是复制进来，懒得删除了！
DECLARE INTEGER PrintWindow IN user32 INTEGER,INTEGER ,INTEGER
#define SRCCOPY 0x00CC0020 LOCAL cFileExtName, cEncoder, iInputBuf, iResult
LOCAL hDesktopDc, hVDc, hBitmap, hToken, hGdipBitmap
m.hWnd=FindWindow("Notepad",NULL) &&截取一个文本窗口试一试
m.hWnd=_vfp.hwnd
tcFile=LOWER('d:\aaa.JPG') &&jpg 格式图像
m.cFileExtName =LOWER( JUSTEXT( m.tcFile ))
lpRect = REPLI (Chr(0), 16)
GetWindowRect (m.hWnd, @lpRect)
lnWidth=ctob(SUBS(lpRect,9,4),'4rs')-ctob(SUBS(lpRect,1,4),'4rs')&&窗口宽度
lnHeight=ctob(SUBS(lpRect,13,4),'4rs')-ctob(SUBS(lpRect,5,4),'4rs')&&窗口高度
m.hDesktopDc = GetDC( m.hWnd )
m.hVdc = CreateCompatibleDC( m.hDesktopDc )
m.hBitmap = CreateCompatibleBitmap( m.hDesktopDc,lnWidth,lnHeight )
ABC=SelectObject( m.hVdc, m.hBitmap )
i=PrintWindow(m.hWnd,m.hVdc,0)
SelectObject( m.hVdc, ABC )
*BitBlt( m.hVdc, 0,0,lnWidth,lnHeight, m.hDesktopDc,0,0, SRCCOPY )
m.hToken = 0
m.iInputBuf = 0h01 + REPLICATE( CHR(0),15 )
m.iResult = -1
IF ( 0 == GdiplusStartup( @ m.hToken, @ m.iInputBuf, 0 ))
m.hGdipBitmap = 0
IF ( 0 == GdipCreateBitmapFromHBITMAP( ;
m.hBitmap, 0, @ m.hGdipBitmap ))
m.cEncoder = ICASE( ;
'jpg' == m.cFileExtName, 0h01, ;
'gif' == m.cFileExtName, 0h02, ;
'tif' == m.cFileExtName, 0h05, ;
'png' == m.cFileExtName, 0h06, 0h00 ) ;
+ 0hF47C55041AD3119A730000F81EF32E
m.iResult = GdipSaveImageToFile( ;
m.hGdipBitmap, ;
STRCONV( m.tcFile+CHR(0), 5 ), ;
m.cEncoder, 0 )
GdipDisposeImage( m.hGdipBitmap )
ENDIF
GdiplusShutdown( m.hToken )
IF m.iResult =0
=ShellExecute(0, "print",tcfile,null, "",1)
endif
ENDIF
DeleteObject( m.hBitmap )
DeleteDC( m.hVdc )
ReleaseDC( 0, m.hDesktopDc )
这个可以打印
sych11 2020-09-24
没明白是打印截屏还是打印屏幕上的图片文件，反正最终都是打印文件，所以ShellExecute是最快捷的解决方式
zoumian888 2020-09-18
如果要实现点击就打印，还要将以上打印按钮的代码用到TIMER事件中，让TIMER事件在后台检测鼠标的范围，如果在打开的"Notepad"范围，并且执行CLICK事件时执行截屏打印操作。
zoumian888 2020-09-18
你的程序我调试了一下，发现以上代码没有问题，代码是用来生成截屏文件的，不是用来打印截屏的，运行以上代码能正常生成截屏文件'd:\aaa.JPG'，如果你要达到点击就打印的功能，显然以上代码还远远不够，最起码要有一个打开"Notepad"文件，然后再设计一个截屏的按钮，将按钮代码写上上面的代码，同时在代码的后面应该再加上将'd:\aaa.JPG'图片文件打印出来的代码。
kmyz_yyl 2020-07-20
那一句已经改为 m.hWnd=thisform.hWnd，主要原因是代码没有任何反应，也不报错
antony521 2020-07-20
m.hWnd=FindWindow("Notepad",NULL) &&截取一个文本窗口试一试
这一句窗口名与你要截取的相对应
kmyz_yyl 2020-07-18
用了一个ShellExecute笨办法先暂时过渡一下，期待各位大师的指点！
夜猫中学VIP培训班HOOK系列教程 教程名称：夜猫中学VIP培训班HOOK系列教程教程目录： 【】1.动态链接库的编写与调用【】2.dll的注入方法【】3.hook系列之_hook讲解【】4.hook如何实现【】5.a.hook某单机游戏数据(分析)【】5.b.hook某单机游戏数据...
夜猫一机一码加解密2.0.rar 打开夜猫一机一码加密端2.0 选择一个任意要加密的文件 拖入加密文件。。。 点击加密文件按钮 加密完成：加密测试.txt---Enc_加密测试.txt 下面是解密步骤 打开夜猫一机一码解密端1.0 拖入解密文件 生成机器码，复制...
夜猫一机一码加解密1.0.rar 打开夜猫一机一码加密端1.0 选择一个任意要加密的文件 拖入加密文件。。。 点击加密文件按钮 加密完成：加密测试.txt---Enc_加密测试.txt 下面是解密步骤 打开夜猫一机一码解密端1.0 拖入解密文件 生成机器码，复制...
夜猫雷电群控2.0.4.2.exe 单独操作某个模拟器请选中模拟器点右键。（比如选中某个模拟器右键-截图-查看挂机状态。） 并且可以时刻监控模拟器状态，白屏或者无响应什么的会自动重启模拟器的。 很简单的一个临时小工具，有需要的朋友可以用用！
高仿夜猫影视电影网站 v2.5 感谢您使用夜猫影视免费影视系统，下面是安装说明。安装说明运行环境上传整个源码包到您的空间或服务器(修改相应目录权限)第2步//你的域名/install.php(照提示安装,需要拥有一个MYSQL数据库)第3步//你的域名/admin)...
高仿夜猫影视电影网站 v2.5.rar 感谢您使用夜猫影视免费影视系统，下面是安装说明。 安装说明 运行环境:php5.1以上 mysql4.0以上 第1步:上传整个源码包到您的空间或服务器(修改相应目录权限) 第2步:在地址栏中输入http://你的**/install.php...
夜猫影视公益404错误页面 v1.0 在此简简单单的写两句 本404页面源码包括HTML5效果以及爱心公益代码！ 最近，发现公益404页面很受欢迎，所以写了这套404页面代码！ 但是我想说,404页面哪怕在华丽都是虚的,所以我希望
高仿夜猫影视电影网站 v2.5.zip 感谢您使用夜猫影视免费影视系统，下面是安装说明。 安装说明 运行环境:php5.1以上 mysql4.0以上 第1步:上传整个源码包到您的空间或服务器(修改相应目录权限) 第2步:在地址栏中输入http://你的域名/install....
(Java)网络爬虫 by 夜猫.zip (Java)网络爬虫 by 夜猫.zip：简单的爬虫应用，使用了jsoup-1.11.2.jar包，对http://kaijiang.500.com进行了测试
