Hi Guys,
I am new here and definitely a noob and not sound in vb,
I needed help on getting text from beyluxe currently
Im trying to work out with this code below which doesnt seem to work( it only returns this
Ġ:WindowsMicrosoft.NetassemblyGAC_MSILSystem.Xmlv4.0_4.0.0.0__b77a5c561934e089System.Xml.dll
followed by weird characters that i dont understand if i keep on clicking the button).
Any Help will be Highly Appreciated.
Thanks a Lot
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Hwnd As IntPtr = FindWindow("TroomWindow", vbNullString)
Dim Handle As IntPtr = Marshal.AllocHGlobal(100)
Dim NumText As Integer = SendMessage(Hwnd, WM_GETTEXT, 50, Handle)
Dim Text As String = Marshal.PtrToStringUni(Handle)
Me.Text = Text
Dim ChildHandle As IntPtr = FindWindowEx(Hwnd, IntPtr.Zero, "TRichView", Nothing)
Dim Hndl As IntPtr = Marshal.AllocHGlobal(200)
NumText = SendMessage(ChildHandle, WM_GETTEXT, 200, Hndl)
Text = Marshal.PtrToStringUni(Hndl)
TextBox1.Text = Text
End Sub