VB.NET Sendmessage Tutorial gesucht.

  • VB.NET
  • .NET (FX) 4.0

    VB.NET Sendmessage Tutorial gesucht.

    Hallo,

    Ich würde ganz gerne das Programm fdKlinika mit einen zusätzlichen vb.net Programm zwecks Automatisierung (Macro ähnlich) über SendMessage von meinen Visual Basic Programm aus Steuern. Jetzt ist für mich natürlich die Frage. Kennt jemand ein gutes Tutorial für SendMessage.

    Wichtig ist neben Grundlegenden ein ListView auslesen und beschreiben zu können. Und eine Textbox / RichTextbox diese aber in ein Groupview versteckt / eingebettet ist.

    Ich habe schon etwas Gegoogelt und bin scheinbar nicht so weit gekommen, hier ist mein Coode:

    VB.NET-Quellcode

    1. ​
    2. Imports System.Runtime.InteropServices
    3. Imports System.Text
    4. Public Class fdConnector
    5. Private Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" _
    6. (ByVal hWnd As IntPtr, _
    7. ByVal uMsg As Integer, _
    8. ByVal wParam As Integer, _
    9. ByVal lParam As StringBuilder) As Integer
    10. Private Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" _
    11. (ByVal hWnd As IntPtr, _
    12. ByVal uMsg As Integer, _
    13. ByVal wParam As Integer, _
    14. ByVal lParam As Integer) As Integer
    15. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" _
    16. (ByVal handle As IntPtr, ByVal uMsg As Integer, _
    17. ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
    18. Const WM_SETTEXT As Integer = &HC
    19. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    20. Private Shared Function FindWindow( _
    21. ByVal lpClassName As String, _
    22. ByVal lpWindowTitle As String) As IntPtr
    23. End Function
    24. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    25. Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
    26. ByVal childAfter As IntPtr, _
    27. ByVal lpClassName As String, _
    28. ByVal lpWindowTitle As String) As IntPtr
    29. End Function
    30. Protected KliDDE As IntPtr = fdConnector.FindWindow("MSCTFIME UI", "KliDDE")
    31. Protected KliDDE_LogServer = fdConnector.FindWindowEx(Me.KliDDE, IntPtr.Zero, "Button", Nothing)
    32. Protected KliDDE_LogInterface = fdConnector.FindWindowEx(Me.KliDDE_LogServer, IntPtr.Zero, "RICHEDIT", "Protokoll")
    33. Const WM_GETTEXT As Integer = &HD
    34. Const WM_GETTEXTLENGTH As Integer = &HE
    35. Public Function GetLogText() As String
    36. If (Not Me.KliDDE.Equals(IntPtr.Zero)) Then
    37. Dim length As Integer = SendMessageByInt(Me.KliDDE, WM_GETTEXTLENGTH, 0, 0)
    38. If length > 0 Then
    39. Dim SB As New StringBuilder(length)
    40. Dim Result As Int32 = SendMessageByString(Me.KliDDE, WM_GETTEXT, length + 1, SB)
    41. If Result <> 0 Then
    42. Return SB.ToString()
    43. Else
    44. Return String.Empty
    45. End If
    46. Else
    47. Return "Kein Text vorhanden"
    48. End If
    49. Else
    50. Return "Handle nicht gefunden"
    51. End If
    52. End Function
    53. End Class


    Vielen Danck an alle schonmal in vorraus :)

    LG, Herbrich

Facebook
Telefonspende