UC知道VB 程序里自动抓个屏幕放掉剪切板里
来源：百度知道 编辑：UC知道 时间：2024/06/06 23:36:29
Private Sub Command8_Click()
'SendKeys "{PRTSC}"
'PostMessage hwnd, WM_KEYDOWN, VK_F1, 0& '按下F1键
'PostMessage hwnd, WM_UP, VK_F1, 0& '释放F1键
'keybd_event &H44, 0, 0, 0 ' 按下
'keybd_event &H44, 0, 2, 0 ' 弹起
'Sleep 200
Picture2.Picture = Clipboard.GetData()
Picture1.PaintPicture Picture2.Picture, 0, 0, 588, 500, 14, 11, 588, 500
为了实现让程序自动按一下抓屏幕。我试验了以上注释掉的几种方法。都不成功。我该怎么办拉
解决了加50分
一楼大哥。你这方法我是会的。
但是我就是想让程序模拟一下按抓屏幕键。
然后从剪切板里调图。
'SendKeys "{PRTSC}"
'PostMessage hwnd, WM_KEYDOWN, VK_F1, 0& '按下F1键
'PostMessage hwnd, WM_UP, VK_F1, 0& '释放F1键
'keybd_event &H44, 0, 0, 0 ' 按下
'keybd_event &H44, 0, 2, 0 ' 弹起
'Sleep 200
Picture2.Picture = Clipboard.GetData()
Picture1.PaintPicture Picture2.Picture, 0, 0, 588, 500, 14, 11, 588, 500
为了实现让程序自动按一下抓屏幕。我试验了以上注释掉的几种方法。都不成功。我该怎么办拉
解决了加50分
一楼大哥。你这方法我是会的。
但是我就是想让程序模拟一下按抓屏幕键。
然后从剪切板里调图。
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
On Error Resume Next
keybd_event 44, 0, 0, 0
keybd_event 44, 0, 2, 0
Picture1.Picture = Clipboard.GetData()
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End Sub
有时需要按2下。。
上面的可以实现，但如果能按Picture1的大小自动缩放就好了！
学习了