Help On getting Beyluxe Text

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

 

2 thoughts on “Help On getting Beyluxe Text

  1. @UnclePaeng wrote:

    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).

    That is what is written to your Textbox1.Text??

Leave a Reply

You must Register or Login to comment on Help On getting Beyluxe Text