Reading Text from External Application

Dear Thuyavan

Thank you very much for your reply

What I have written code is reading text from other application, but inother language. I have pasted myCode ,please advise me what I have missed and the code is correct ornot .

Note:Itsreading fromNotepad ,howeverI am trying toreadingthe text from Notepad++ and other application developed in Java or other then VB.net

Written code

Public Class Form2
'Private dblWordID As Double
Private Const WM_GETTEXT As Integer = &HD
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg
As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
"user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr,
ByVal childAfter As IntPtr,
ByVal lclassName As String,
ByVal windowTitle As String) As IntPtr
End Function
Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
"User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>
Private Shared Function SetForegroundWindow(ByVal point As IntPtr) As Integer
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Hwnd As IntPtr = FindWindow(Nothing, "*new 1 - Notepad++ [Administrator]")
'Alloc memory for the buffer that recieves the text
Dim Handle As IntPtr = Marshal.AllocHGlobal(100)
'send WM_GWTTEXT message to the notepad window
Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, 50, Handle)
'copy the characters from the unmanaged memory to a managed string
Dim Text As String = Marshal.PtrToStringUni(Handle)
'Display the string using a label
Label1.Text = Text
'Find the Edit control of the Running Notepad
Dim ChildHandle As IntPtr = FindWindowEx(Hwnd, IntPtr.Zero, "Edit", Nothing)
'Alloc memory for the buffer that recieves the text
Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)
'Send The WM_GETTEXT Message
Dim NumText1 As Integer = SendMessage(ChildHandle, WM_GETTEXT, 200, Hndl)
'copy the characters from the unmanaged memory to a managed string
Dim Text1 As String = Marshal.PtrToStringUni(Hndl)
'Display the string using a label
Label2.Text = Text1
End sub
End class

Output

2 Replies

Know the answer? Post it — somebody with the same question will find it here.

Thuyavan Ganesan7y ago
Accepted answer
Hi,

Please have a look at the step by step procedure for How to Read External Program Text from other program

https://social.technet.microsoft.com/wiki/contents/articles/32895.vb-net-external-program-text-read.aspx
Antony kumar7y ago
Dear Thuyavan

Thank you very much for your reply

What I have written code is reading text from other application, but inother language. I have pasted myCode ,please advise me what I have missed and the code is correct ornot .

Note:Itsreading fromNotepad ,howeverI am trying toreadingthe text from Notepad++ and other application developed in Java or other then VB.net

Written code
Public Class Form2

'Private dblWordID As Double

Private Const WM_GETTEXT As Integer = &HD

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg

As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

"user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>

Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr,

ByVal childAfter As IntPtr,

ByVal lclassName As String,

ByVal windowTitle As String) As IntPtr

End Function

Declare Auto Function FindWindow Lib "user32.dll" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

"User32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>

Private Shared Function SetForegroundWindow(ByVal point As IntPtr) As Integer

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Hwnd As IntPtr = FindWindow(Nothing, "*new 1 - Notepad++ [Administrator]")

'Alloc memory for the buffer that recieves the text

Dim Handle As IntPtr = Marshal.AllocHGlobal(100)

'send WM_GWTTEXT message to the notepad window

Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, 50, Handle)

'copy the characters from the unmanaged memory to a managed string

Dim Text As String = Marshal.PtrToStringUni(Handle)

'Display the string using a label

Label1.Text = Text

'Find the Edit control of the Running Notepad

Dim ChildHandle As IntPtr = FindWindowEx(Hwnd, IntPtr.Zero, "Edit", Nothing)

'Alloc memory for the buffer that recieves the text

Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)

'Send The WM_GETTEXT Message

Dim NumText1 As Integer = SendMessage(ChildHandle, WM_GETTEXT, 200, Hndl)

'copy the characters from the unmanaged memory to a managed string

Dim Text1 As String = Marshal.PtrToStringUni(Hndl)

'Display the string using a label

Label2.Text = Text1

End sub

End class
Output