Windows可以通过按下PrintScreen键来截取整个屏幕,按下Alt+printScreen来截取当前窗口,因此可以通过在程序中模拟键盘动作来接图。使用API函数就行了。
解决方案 »
- Picturebox加载 控件后 总是看不全
- 怎么为自己的程序安装一个DLLHOOK使其他的DLL无法插入我们的进程以得到保护自己程序的目的?
- 如何获得定长的混合字符串
- 己知一个程序读串口1,能不能用工具实现再读串口1中的数据?
- 把填入文本框,列表框,单选框等等的数据,怎么样的放入access中!
- 一个关于语音转换软件的运行中出现的问题!!!100分求助!!!
- ■◆bmp->avi的转换◆■
- 如何把DataGrid的DataSource属性设置为一个 RecordSet对象,而不是ADODC控件
- 关于ADODC控件的刷新问题.....
- vb打包后,文件大得吓死人,怎么办?有位大侠说createinstall 好用,可是如何用,愿全部分数送上!!!
- 谁能帮帮我?!!!
- 请问如何VB6用编一个自动登陆Win2000 Server的程序?
看来我没说清楚,SORRY,我的意思是如何用VB程序截取屏幕画面。
各位有知道的请告诉小弟一声。
sx = Screen.Width \ Screen.TwipsPerPixelX
sy = Screen.Height \ Screen.TwipsPerPixelY
BitBlt picCopy.hDC,0,0,sx,sy,hDC,0,0,vbSrcCopy
ReleaseDC 0,hDC可以再补充一些内容,让效果更好。
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long
Dim dd As Long
'将picture1的AutoRedraw改为truePrivate Sub Command1_Click()
dd = GetDC(0)
BitBlt Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, dd, 0, 0, &HCC0020
InvalidateRect Picture1.hwnd, 0&, True
End Sub