后台捕获进程获取窗体名的问题

Question

        Dim sProcesses() As System.Diagnostics.Process
        Dim sProcess As System.Diagnostics.Process
        Dim s, System_Pid, System_Name, System_Title As String
        Try
            sProcesses = System.Diagnostics.Process.GetProcesses()
            s = ""
            s = vbCrLf & "Procss Info " & vbCrLf

            For Each sProcess In sProcesses
                System_Pid = sProcess.Id          ‘进程PID值
                System_Name = sProcess.ProcessName()          '进程名
               System_Title = sProcess.MainWindowTitle          '进程窗体名称

                's = sProcess.Id & Space(5) & sProcess.ProcessName() & Space(5) & sProcess.MainWindowTitle
            Next
            ComboBox1.Items.Add(System_Pid & Space(5) & s)
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "错误")
        End Try
       

这样可以捕获出进程的窗体名称，但是WORD是单进程，多个界面，通过这样的方法无法获取所有打开的WORD的窗体名称，有什么方法可以获取所有的WORD的窗体名称？

Answer 1

这个我觉得你应该去OFFICE板块问问，看有没有什么接口能够用来获取打开文件的名称。

Answer 2

 

EnumWindows,GetWindowThreadProcessId,GetWindowText就可以完成了