Andere Anwendung einfangen

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Andere Anwendung einfangen

    Hallo an alle!

    Ich habe versucht ein Programm (externes) in einer Visual Basic Form einzufangen:

    VB.NET-Quellcode

    1. ' COM-Interop einbinden.
    2. Imports System.Runtime.InteropServices
    4. Public Class Form1
    6. ''' <summary>
    7. ''' Die Klasse beinhaltet die benötigten Api-Funktionen und Konstanten.
    8. ''' </summary>
    9. Public Class Win32Api
    11. ' Die Api Funktion ShowWindow zeigt ein Fenster auf verschiedene Art an.
    12. '
    13. ' Rückgabewert:
    14. ' Ungleich 0 wenn das Fenster vor dem Funktionsaufruf
    15. ' sichtbar war, sonst 0.
    16. ' Übergabewerte:
    17. ' hWnd: Handle des Fensters.
    18. ' nCmdShow: Konstante zum anzeigen des Fensters.
    19. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    20. Public Shared Function ShowWindow( _
    21. ByVal hWnd As IntPtr, _
    22. ByVal nCmdShow As Integer) As Boolean
    23. End Function
    25. ' Die Api Funktion SetParent setzt ein neues Eltern-Fenster für ein
    26. ' bestimmtes Kind-Fenster.
    27. '
    28. ' Rückgabewert:
    29. ' Wenn der Aufruf erfolgreich war wird das Handle des Eltern-Fensters
    30. ' zurückgegeben sonst 0.
    31. ' Übergabewerte:
    32. ' hWndChild: Handle des Kind-Fensters.
    33. ' hWndNewParent: Handle des Eltern-Fensters.
    34. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    35. Public Shared Function SetParent( _
    36. ByVal hWndChild As IntPtr, _
    37. ByVal hWndNewParent As IntPtr) As IntPtr
    38. End Function
    40. ' Das Fenster wird maximiert angezeigt.
    41. Public Const SW_MAXIMIZE As Int32 = 3
    42. ' (SW_...) usw.
    44. End Class
    46. ''' <summary>
    47. ''' Die Prozedur startet die übergebene Anwendung und setzt sie in die aufrufende Form.
    48. ''' </summary>
    49. ''' <param name="CallingApplication">bspw. notepad.exe</param>
    50. ''' <param name="p">Panel-Control, in das die Anwendung eingebettet werden soll</param>
    51. Private Sub SetApplicationAsChild(ByVal CallingApplication As String, _
    52. ByVal p As System.Windows.Forms.Panel)
    54. ' Fehlerbehandlung einschalten.
    55. Try
    56. ' Process starten ( ... notepad.exe ... ).
    57. Dim hProcess As System.Diagnostics.Process = _
    58. System.Diagnostics.Process.Start(CallingApplication)
    59. ' Siehe (... WaitForInputIdle ...)
    60. hProcess.WaitForInputIdle()
    61. ' Parent Fenster setzen.
    62. Win32Api.SetParent(hProcess.MainWindowHandle, p.Handle)
    63. 'Fenster anzeigen.
    64. Win32Api.ShowWindow(hProcess.MainWindowHandle, Win32Api.SW_MAXIMIZE)
    65. Catch ex As Exception
    66. ' Fehlerbeschreibung bei auftretenden Fehler anzeigen.
    67. MessageBox.Show(ex.Message.ToString(), "Info")
    68. End Try
    69. End Sub
    71. Private Sub Button1_Click(ByVal sender As System.Object, _
    72. ByVal e As System.EventArgs) Handles Button1.Click
    74. ' Dateiname des Editors
    75. Const APP_NAME As String = "notepad.exe"
    76. ' Prozedur mit dem Dateiname <APP_NAME> und das benötigte Anzeigefenster aufrufen.
    77. SetApplicationAsChild(APP_NAME, PanelContainer)
    78. End Sub
    79. End Class


    Als erstes, hab ich keine Ahnung wie ich "COM-Interop" einbinden kann, denn es existiert nicht in meiner Liste.
    Und zweitens, funktioniert nur das notepad und keine anderen Programme (Taschenrechner, etc.). Diese werden nicht eingefangen, sondern werden normal geöffnet.

    Ich hoffe, jemand kann mir mal wieder helfen!


    LG
    Alpha11833



    Edit: Bei manchen Programmen (wie Bildschirmlupe) gibts folgende Fehlermeldung: "Fehler bei der Waitforinputidle. Möglicherweise hat der Prozess keine grafische Schnittstelle."

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Alpha11833“ ()

    Du brauchst keinen weiteren Verweis.
    Calc.exe wird bei mir eingefangen.
    Gib mal dem WaitForInputIdle() ein paar Millisekunden Latenzzeit mit:

    VB.NET-Quellcode

    1. hProcess.WaitForInputIdle(250)
    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!

    Alpha11833 schrieb:

    Ist doch ein Panel, indem das Programm kommt oder?
    Korrekt.
    Was für ein Programm willst Du denn einfangen?
    Ist Die aufgefallen, dass eine Form ein ParentChanged-Event hat, ein Programm kann also verhindern, dass es eingefangen wird. :S
    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!

    Ja, ok dann eben den Windows Rechner (calc.exe)

    LG

    Edit: Außerdem sagen Skatspieler überlicher Weise nicht "Karte", da sie keine anfordern können.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Alpha11833“ ()

    Alpha11833 schrieb:

    calc.exe
    Unter XP geht es, unter W7 geht es nicht. :S
    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!

    RodFromGermany schrieb:

    Unter XP geht es, unter W7 geht es nicht. :S
    Präzisierung:
    XP-32: Ja,
    W7-32, W7-64: Nein.
    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!

    Alpha11833 schrieb:

    Außerdem sagen Skatspieler überlicher Weise nicht "Karte", da sie keine anfordern können.

    OT: Das sagt der Skatspieler, wenn der, der die nächste Karte auszuspielen hat, wie gebannt auf sein Blatt starrt und nicht entscheiden kann, welche er ausspielen soll. So gesehen wieder OnTopic, da auch hier im Forum manche Poster ihre Karte(n) nur sehr zögerlich ausspielen (sprich, alle relevanten Informationen mitteilen), was es den Antwortenden dann mitunter sehr erschwert, vernünftige Antworten zu geben.

    sams schrieb:

    Was muss ich machen damit es mit "Excel" auch funktioniert?

    RodFromGermany schrieb:

    Ist Die aufgefallen, dass eine Form ein ParentChanged-Event hat, ein Programm kann also verhindern, dass es eingefangen wird. :S
    Sams.Excel entwickeln.
    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