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

  • 问题

  •         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的窗体名称?
    2008年6月19日 7:30

答案

全部回复