VB中,一个简单的问题.高手帮帮

来源：百度知道 编辑：UC知道 时间：2024/05/22 14:41:09
怎样在VB中实现单击Command按钮后,触发Alt + Print screen组合键.
也就是Command按后实现对窗口的抓图,复制到剪切板中。
高手帮帮，给个码。一定给分。
模拟触发Alt + Print screen组合键
如果第一个问题没人回答我,回答第二个问题也可以.
在VB中如何检测一个窗口是否正在运行,比如窗口名为"与 小丽 聊天中".
如果检测的不是窗口是一个文件夹呢?

第一个问题一楼讲了.我就不说了.
我答第二个检测窗口,看下面:

模块:
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public CapTxt As String

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim sSave As String, Ret As Long
Ret = GetWindowTextLength(hwnd)
sSave = Space(Ret)
GetWindowText hwnd, sSave, Ret + 1
CapTxt = CapTxt & "|" & sSave
CapTxt1 = Str$(hwnd) + " " + sSave
EnumWindowsProc = True
End Function

窗体:
Private Sub Form_Load()
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
D