Cmd in Vb 2010 einbinden

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von MarvinMario.

    Cmd in Vb 2010 einbinden

    Hallo Liebe VB-Paradies Nutzer,
    Ich habe eine kleine frage nämlich ich möchte gerne in meiner Form das cmd starten also es soll in meiner Form laufen bzw. wen ich angenommen auf einen Button klicke dann soll sich in der form cmd öffne so das ich dort etwas eintippen kann z.B. "ipconfig" und es dann ausführt.
    Ich hoffe ihr könnt mir helfen. :D
    Danke im Vorras :)
    MFG Marvin-Mario

    Cmd hat keine grafische Schnittstelle, sonst ginge dieser Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    5. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    6. Public Shared Function ShowWindow( _
    7. ByVal hWnd As IntPtr, _
    8. ByVal nCmdShow As Integer) As Boolean
    9. End Function
    11. ' Die Api Funktion SetParent setzt ein neues Eltern-Fenster für ein
    12. ' bestimmtes Kind-Fenster.
    13. '
    14. ' Rückgabewert:
    15. ' Wenn der Aufruf erfolgreich war wird das Handle des Eltern-Fensters
    16. ' zurückgegeben sonst 0.
    17. ' Übergabewerte:
    18. ' hWndChild: Handle des Kind-Fensters.
    19. ' hWndNewParent: Handle des Eltern-Fensters.
    20. <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    21. Public Shared Function SetParent( _
    22. ByVal hWndChild As IntPtr, _
    23. ByVal hWndNewParent As IntPtr) As IntPtr
    24. End Function
    26. ' Das Fenster wird maximiert angezeigt.
    27. Public Const SW_MAXIMIZE As Int32 = 3
    28. ' (SW_...) usw.
    31. Private Sub SetApplicationAsChild(ByVal CallingApplication As String, _
    32. ByVal p As System.Windows.Forms.Panel)
    34. ' Fehlerbehandlung einschalten.
    35. Try
    36. ' Process starten ( ... notepad.exe ... ).
    37. Dim hProcess As System.Diagnostics.Process = _
    38. System.Diagnostics.Process.Start(CallingApplication)
    39. ' Siehe (... WaitForInputIdle ...)
    40. hProcess.WaitForInputIdle()
    41. ' Parent Fenster setzen.
    42. Form1.SetParent(hProcess.MainWindowHandle, p.Handle)
    43. 'Fenster anzeigen.
    44. Form1.ShowWindow(hProcess.MainWindowHandle, Form1.SW_MAXIMIZE)
    45. Catch ex As Exception
    46. ' Fehlerbeschreibung bei auftretenden Fehler anzeigen.
    47. MessageBox.Show(ex.Message.ToString(), "Info")
    48. End Try
    49. End Sub
    51. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    53. ' Dateiname des Editors
    54. Const APP_NAME As String = "notepad"
    57. ' Prozedur mit dem Dateiname <APP_NAME> und das benötigte Anzeigefenster aufrufen.
    58. SetApplicationAsChild(APP_NAME, Panel1)
    59. End Sub
    60. End Class

    TheVBTutorialsVB schrieb:

    Du könntest auch einfach eine TextBox ins Formular machen und dann die CMD mit diesem Wert starten.

    Wen cmd aber zum beispiel geapert ist geht das nicht!

    LaMiy ich habe das nicht ganz verstanden ich habe den code bei mir eingefügt habe einen panel und einen Button hinzugefügt es funzt trozdem nicht.
    Ich meinte so etwas wie auf dem bild zu sehen!



    Das bild bitte speicher ich glaube sonst sieht man es nicht.

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

Facebook
Telefonspende