Auf ein Control von einem anderen Programm zugreifen

  • VB.NET

Es gibt 28 Antworten in diesem Thema. Der letzte Beitrag () ist von xaverl.

    Ich kann bisher nur Inhalt hinzufügen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal nVirtKey As Keys) As Short
    4. Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    5. Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal lpszClass As String, ByVal lpszWindow As String) As Integer
    6. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    8. Private Const WM_CHAR As Integer = &H102
    9. Private hwnd As IntPtr
    10. Private f As IntPtr
    12. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. hwnd = FindWindow(vbNullString, "Unbenannt - Editor")
    14. f = FindWindowEx(hwnd, 0, "Edit", vbNullString)
    15. End Sub
    17. Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    18. SendMessage(f, WM_CHAR, Asc(e.KeyChar), 0)
    19. End Sub
    20. End Class


    getestet mit dem Editor. Aber ich will es eigentl. genau anders rum!

    Lg Leon

    Aaaach, heut gibts sources umsonst, was soll der Geiz...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Declare Function SendMessageByString Lib "user32.dll" Alias _
    4. "SendMessageA" _
    5. (ByVal hwnd As IntPtr, _
    6. ByVal uMsg As Int32, _
    7. ByVal wParam As IntPtr, _
    8. ByVal lParam As String) As Integer
    10. Private Const WM_SETTEXT As Int32 = &HC
    11. Private Const WM_GETTEXT As Int32 = &HD
    13. Private Declare Function SendMessageByInt Lib "user32.dll" Alias _
    14. "SendMessageA" _
    15. (ByVal hwnd As IntPtr, _
    16. ByVal uMsg As Int32, _
    17. ByVal wParam As Int32, _
    18. ByVal lParam As Int32) As Integer
    20. Private Const WM_GETTEXTLENGTH As Int32 = &HE
    22. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    23. (ByVal lpClassName As String, _
    24. ByVal lpWindowName As String) As IntPtr
    26. Private Declare Function FindWindowEx Lib "user32.dll" Alias _
    27. "FindWindowExA" _
    28. (ByVal hWnd1 As IntPtr, _
    29. ByVal hWnd2 As IntPtr, _
    30. ByVal lpsz1 As String, _
    31. ByVal lpsz2 As String) As IntPtr
    33. <Runtime.InteropServices.DllImport("user32.dll")> _
    34. Private Shared Function SendMessage( _
    35. ByVal hWnd As IntPtr, _
    36. ByVal Msg As Integer, _
    37. ByVal wParam As Integer, _
    38. ByVal lParam As System.Text.StringBuilder) _
    39. As Integer
    40. End Function
    42. Public Function GetHandle(ByVal ClassName As String) As IntPtr
    43. Dim hwnd As IntPtr = FindWindow(ClassName, Nothing)
    44. hwnd = FindWindowEx(hwnd, IntPtr.Zero, "Edit", Nothing)
    46. If (Not hwnd.Equals(IntPtr.Zero)) Then
    47. Return hwnd
    48. Else
    49. Return IntPtr.Zero
    50. End If
    51. End Function
    53. Public Sub SetNewText(ByVal hwnd As IntPtr, ByVal txt As String)
    54. If (Not hwnd.Equals(IntPtr.Zero)) Then
    55. Call SendMessageByString(hwnd, WM_SETTEXT, IntPtr.Zero, txt)
    56. End If
    57. End Sub
    59. Public Function GetNewText(ByVal hwnd As IntPtr) As String
    60. If (Not hwnd.Equals(IntPtr.Zero)) Then
    61. Dim SB As New System.Text.StringBuilder
    62. Dim BufferSize As Integer = 32768
    63. SB.EnsureCapacity(BufferSize)
    65. SendMessage(hwnd, WM_GETTEXT, BufferSize, SB)
    66. Return SB.ToString
    67. Else
    68. Return ""
    69. End If
    70. End Function
    72. Public Function GetTextLength(ByVal hwnd As IntPtr) As Integer
    73. If (Not hwnd.Equals(IntPtr.Zero)) Then
    74. Dim Length As Integer = SendMessageByInt(hwnd, WM_GETTEXTLENGTH, 0, _
    75. 0)
    76. If Length > 0 Then
    77. Return Length
    78. Else
    79. Return 0
    80. End If
    81. End If
    82. End Function
    84. Private Sub Button1Click(ByVal sender As System.Object, ByVal e As _
    85. System.EventArgs) Handles Button1.Click
    86. Dim hwnd As IntPtr = GetHandle("Notepad")
    87. If (Not hwnd.Equals(IntPtr.Zero)) Then
    88. 'Call SetNewText(hwnd, "http://www.visual-basic5.de")
    89. MsgBox(GetNewText(hwnd))
    90. Else
    91. MessageBox.Show("Notepad not found...", "Info")
    92. End If
    94. End Sub
    96. End Class


    credits visual-basic5.de
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Hallo,

    ich kämpfe mich mit einem ähnlichen Problem rum wie Halfbax.
    Ich habe versucht den Code von bla auf mich umzuschreiben (Visual Studio 2010) und das SetText habe ich weggelassen.

    Jetzt bekomme ich immer die Messagebox angezeigt Notepad not found.
    Jetzt wollt ich euch fragen ob er dann den Frame nicht findet, aus dem ich Daten haben will?

    Danke

    Ich will die Daten aus einem anderen Programm auslesen und verwende natürlich die Classennamen von diesem Programm.
    Ich poste dir schnell deinen Code so wie ich ihn momentan habe.
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    3. 'Private Const WM_SETTEXT As Integer = &HC
    4. Private Const WM_GETTEXT As Integer = &HD
    6. Private iHwndForm As IntPtr
    7. 'Fensterhanlde ermitteln
    8. Private iHwndFrame As IntPtr
    9. Private Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal uMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    10. Private Const WM_GETTEXTLENGTH As Integer = &HE
    11. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    12. Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
    13. <Runtime.InteropServices.DllImport("user32.dll")>
    14. Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As System.Text.StringBuilder) As Integer
    16. End Function
    17. Public Function GetHandle(ByVal ClassName As String) As IntPtr
    18. Dim hwnd As IntPtr = FindWindow("Migg", "ThunderRT6FormDC")
    19. hwnd = FindWindowEx(hwnd, 0, "ThunderRT6Frame", "Messungsergebnis")
    20. If (Not hwnd.Equals(IntPtr.Zero)) Then
    21. Return hwnd
    22. Else
    23. Return 0
    24. End If
    25. End Function
    27. 'Public Sub SetNewText(ByVal hwnd As IntPtr, ByVal txt As String)
    28. ' If (Not hwnd.Equals(IntPtr.Zero)) Then
    29. ' Call SendMessageByString(hwnd, WM_SETTEXT, 0, txt)
    30. ' End If
    31. 'End Sub
    32. 　
    33. Public Function GetNewText(ByVal hwnd As IntPtr) As String
    34. If (Not hwnd.Equals(IntPtr.Zero)) Then
    35. Dim SB As New System.Text.StringBuilder
    36. Dim BufferSize As Integer = 32768
    37. SB.EnsureCapacity(BufferSize)
    38. SendMessage(hwnd, WM_GETTEXT, BufferSize, SB)Return SB.ToString
    39. Else
    40. Return ""
    41. End If
    42. End Function
    44. Public Function GetTextLength(ByVal hwnd As IntPtr) As Integer
    45. If (Not hwnd.Equals(IntPtr.Zero)) Then
    46. Dim Length As Integer = SendMessageByInt(hwnd, WM_GETTEXTLENGTH, 0, 0)
    47. If Length > 0 Then
    48. Return Length
    49. Else
    50. Return 0
    51. End If
    52. End If
    53. End Function
    55. Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    56. ''Fenster Handle ermitteln
    57. 'iHwndForm = FindWindow(vbNullString, "Migg")
    58. ''Button Handle ermitteln
    59. 'iHwndFrame = FindWindowEx(iHwndForm, 0, "ThunderRT6Frame", "Messungsergebnis")
    60. 'MsgBox(GetNewText("Messungsergebnis"))
    61. 　
    62. 　Dim hwnd As IntPtr = GetHandle("Messungsergebnis")
    63. If (Not hwnd.Equals(IntPtr.Zero)) Then
    64. 'Call SetNewText(hwnd, "http://www.visual-basic5.de")
    65. MsgBox(GetNewText(hwnd))
    66. Else
    67. MessageBox.Show("Wo sind die verdammten Zahlen")
    68. End If
    69. End Sub
    70. End Class

    Nach langen rumprobieren bin ich jetzt auf das Problem gestoßen.
    Es ist das FindWindowEx da ich damit nur direkte ChildWindows ansprechen kann und der Frame den ich ansprechen will ist jetzt eine Hirachieebene drunter. Weiß jemand mit welcher Funktion man "vererbte Childwindows" ansprechen kann.

    Danke

    VB.NET-Quellcode

    1. Private Sub Button1Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim hwnd As IntPtr '= GetHandle("Messungsergebnis")
    3. Dim childwindow1, childwindow2 As intptr
    4. hwnd = FindWindow("ThunderRT6FormDC", "Migg")
    5. childwindow1 = FindWindowEx(hwnd, 0, "ThunderRT6PictureBoxDC", "")
    6. childwindow2 = FindWindowEx(childwindow1, 0, "ThunderRT6Frame", "Messungsergebnis")
    7. 'If (Not hwndFrame.Equals(IntPtr.Zero)) Then
    8. DataGridView1.Rows(0).Cells(0).Value = (GetNewText(childwindow2))


    Ich hab jetzt bei meinem hwnd und bei meinem childwindow1 einen Wert.
    Bei meinem childwindow2 erhalte ich immer noch keinen Wert.

    Mein Problem ist jetzt, dass ich von den ThunderRT6PictureBoxDC 4 Stück habe und die die ich brauch ist die 3. aber ich denke mein Programm steuert immer die 1. an. Über den WindowNamen kann ich es leider nicht ansteuern weil alle 4 Pictureboxen keinen Namen haben.

    ich glaube, wenn es die 3. Picturebox ist, dann musst du 3 mal findwindowex machen. Bin mir aber nicht sicher. Also quasi:

    VB.NET-Quellcode

    1. childwindow1 = FindWindowEx(hwnd, 0, "ThunderRT6PictureBoxDC", "")
    2. childwindow1 = FindWindowEx(hwnd, 0, "ThunderRT6PictureBoxDC", "")
    3. childwindow1 = FindWindowEx(hwnd, 0, "ThunderRT6PictureBoxDC", "")
    5. childwindow2 = FindWindowEx(childwindow1, 0, "ThunderRT6Frame", "Messungsergebnis")
    Für ein Mindestmaß an Rechtschreibung, Interpunktion und Majuskeln!

    Ich habs gerade ausprobiert und es geht leider nicht.
    Jetzt hab ich mal eine Frage:

    VB.NET-Quellcode

    1. HWND WINAPI FindWindowEx(in_opt HWND hwndParent, in_opt HWND hwndChildAfter, in_opt LPCTSTR lpszClass, in_opt LPCTSTR lpszWindow);


    Da heißt es jetzt in der msdn Beschreibung das der Teil "in_opt HWND hwndChildAfter" wenn er null ist in mit dem ersten Childwindow beginnt. Kann ich dem jetzt irgendwie sagen beginn erst mit dem dritten?

    Das erste Fenster findest Du mit

    VB.NET-Quellcode

    1. _hwndInput = FindWindowEx(_hwndMain, IntPtr.Zero, "edit", "")

    das nächste mit

    VB.NET-Quellcode

    1. _hwndInput2 = FindWindowEx(_hwndMain, _hwndInput, "edit", "")

    das übernächste mit

    VB.NET-Quellcode

    1. _hwndInput3 = FindWindowEx(_hwndMain, _hwndInput2, "edit", "")

    usw.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende