Reading Text from External Application

Question

Dear SYEDSHANU -

I need your help regarding, reading the text from another application using VB.net .

i have run your application, however, your application is reading only from your application, but not reading from other application.

please help me how to read the text from other application in VB.net

thanks

Thuyavan Ganesan · 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 kumar · Answer

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