.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,"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,"");
string w = " ";
IntPtr ptr = Marshal.StringToHGlobalAnsi(w);
if (SendMessage(hEdit,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;}

相关文章

Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强...
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办...
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace...
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用...
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选...
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As Dat...