2 .exen Binden

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Marcus Gräfe.

    Bei mir kommen 2 fehler :_
    syntaxfehler bei

    VB.NET-Quellcode

    1. ByVal e As System.EventArgs) Handles Button1.Click

    Panel container wurde nicht klar deklariert!

    VB.NET-Quellcode

    1. SetApplicationAsChild(APP_NAME, PanelContainer)

    Mein kompletter quelltext siehst so aus!

    VB.NET-Quellcode

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

    @l3x4nd3r schrieb:

    Bei mir kommen 2 fehler :_
    syntaxfehler bei

    VB.NET-Quellcode

    1. ByVal e As System.EventArgs) Handles Button1.Click

    Panel container wurde nicht klar deklariert!

    VB.NET-Quellcode

    1. SetApplicationAsChild(APP_NAME, PanelContainer)

    Mein kompletter quelltext siehst so aus!

    VB.NET-Quellcode

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


    1.fehler:

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click _
    2. ByVal e As System.EventArgs) Handles Button1.Click


    Dort wo der _ ist, den haste vergessen!

    2. Fehler, du hast kein Panel auf der Form ;)

    Probiers damit:

    VB.NET-Quellcode

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


    Nurnoch ein Panel auf die Form ziehen, dan sollte es qehen (habs nicht getestet, ist freikopf )

    agund schrieb:

    Wieso Binden???
    Du kannst die EXE auch nachträglich oder zu einem Zeitpunkt deiner Wahl einfach starten.

    Mit Shell(C:/....exe)

    kann du jederzeit externe Programme mit deinem Programm starten.
    Er will damit eigentlich 2 dateien binden z.B server.exe mit ner stub damit die server.exe beim ausführen der Stub geöffnet wird, das es im endeffekt ein virus sein soll ;)

    Eigentlich der Link habe ich schon gepostet, dort steht beschrieben wie man mit dem Code sich bedient. Als erweiterung kannst du deine Fenster anordnen, damit du überblick behälst.

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

    Da das hier verdächtig nach Virusprogrammierung riecht, schließe ich den Thread hiermit. Gelöscht wird er nicht, denn vielleicht hast du (@Threadersteller) ja wirklich "gute" Absichten. Da die Lösung schon gepostet wurde, sollte eine Schließung in dem Fall kein Problem darstellen.
    Besucht auch mein anderes Forum:
    Das Amateurfilm-Forum

Facebook
Telefonspende