Question

怎样根据程序进程名获得窗口标题

进程名:ppstram.exe,怎样根据程序进程名获得PPS窗口标题?
各位大侠帮帮我啊
h = FindWindow(vbNullString, "PPS影音"), 但这是固定值,怎样取到"PPS影音"这个变量啊?
VB中获得一个PPS的窗口值,但PPS的窗口值播放时是在变化的, 如放啥这个值就显示啥比如放"功夫(黄圣依)"这个值就是"功夫(黄圣依)"而不是"PPS影音"了

Answer 1

我用以下的程序获取PPLIVE的标题结果一直是pplive，但是我将类名换成了PPLIVE上面显示的内容后寻找到的窗口句柄又不一样了，用第二次找到的句柄就能显示窗体标题了，于是我想到了一个方法，先用spy++找到你正在播放的视频的类名和标题名称，这样就能得到一个准确的句柄了，讲这个句柄赋值给以个全局变量，然后用getwindowtext函数就能获取这个句柄对应的标题了：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Sub Command1_Click()
Dim handle As Long, str As String
handle = FindWindow("pplivegui", vbNullString)
str = String(100, Chr(0))
GetWindowText handle, str, 100
Print str
End Sub

Answer 2

如果你已经获得了一个PPS的窗口值，那就可以通过一个Timer1控件来不断获取窗口标题了：
Private Sub Timer1_Timer()
Dim k As Long, aClass As String,GetWinText As String
aClass = Space$(254)
k = GetWindowText(Hwd, aClass, 254)
GetWinText = StrConv(LeftB(StrConv(aClass, vbFromUnicode), k), vbUnicode)
End Sub

附：GetWindowText声明如下：
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long