.Net遍历窗口

'需要导入3个命名空间导入方法为,在文件最前面写以下内容
'VB.NET code
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Threading

'以下方法测试通过。有效。获得文本框内容。
'VB.NET code
    <DllImport("user32.dll", EntryPoint:="FindWindowEx")> _
    Public Shared Function FindWindowEx(ByVal hWnd1 As IntPtr,_
     ByVal hWnd2 As Integer, ByVal lpsz1 As String, _
     ByVal lpsz2 As String) As Integer
    End Function
    <DllImport("User32 ")>
    Public Shared Function SendMessage(ByVal hWnd As Integer, _
     ByVal Msg As Integer, ByVal wParam As Integer, _
     ByVal lParam As IntPtr) As Boolean
    End Function

    Public Const WM_GETTEXT As Integer = &HD
    Private Shared Sub Test04()
        Dim running As Boolean = True
        Dim process_array As Process() = Process.GetProcesses()
        For Each p As Process In process_array
            If p.MainWindowTitle.IndexOf("记事本") <> -1 Then
                Dim hEdit As Integer = FindWindowEx(p.MainWindowHandle, 0, "Edit", "")
                Dim w As String = " "
                Dim ptr As IntPtr = Marshal.StringToHGlobalAnsi(w)
                If SendMessage(hEdit, WM_GETTEXT, 100, ptr) Then
                    MessageBox.Show(Marshal.PtrToStringAnsi(ptr))
                End If
            End If
        Next
    End Sub


using System.Runtime.InteropServices;
using System.Text;
using System.Threading;

 
[DllImport("user32.dll", EntryPoint = "FindWindowEx")]
public static extern int FindWindowEx(IntPtr hWnd1,
                                      int hWnd2, string lpsz1,
                                      string lpsz2);
[DllImport("user32.dll", EntryPoint = "GetWindowText")]
public static extern int GetWindowText(int hwnd, StringBuilder
                                       lpString, int cch);
[DllImport("User32 ")]
public static extern bool SendMessage(int hWnd,
                                      int Msg, int wParam,
                                      IntPtr lParam);

public const int WM_GETTEXT = 0xD;
private static void Test04()
{
    bool running = true;
    new Thread(() =>
    {
        while (running)
        {
            Process[] process_array = Process.GetProcesses();
            foreach (Process p in process_array)
            {
                if (p.MainWindowTitle.IndexOf("记事本") != -1)//找到了
                {
                    int hEdit = FindWindowEx(p.MainWindowHandle, 0, "Edit", "");
                    string w = " ";
                    IntPtr ptr = Marshal.StringToHGlobalAnsi(w);
                    if (SendMessage(hEdit, WM_GETTEXT, 100, ptr))

                        Console.WriteLine(Marshal.PtrToStringAnsi(ptr));
                }
            }
            int tick = Environment.TickCount;
            while (running && Environment.TickCount - tick < 10000)
            {
                Thread.Sleep(10);
            }
        }
        Console.WriteLine("run over");
    }).Start();
    while (Console.ReadLine().ToLower() != "quit") ;
    running = false;
}

阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/jiftlixu/article/details/5649240
个人分类: .Net开发
想对作者说点什么? 我来说一句

VB遍历桌面所有的窗口和句柄

2012年04月18日 70KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭