Text an ein Fenster senden - hier notepad

    • VB.NET

    Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von aloz.

      Text an ein Fenster senden - hier notepad

      hallo gemeinde,

      eine - von mehreren methoden texte an ein fenster zu senden.
      hier wird die zwischenablage benutzt.

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As IntPtr) As Integer
      4. Private Declare Function GetForegroundWindow Lib "user32" () As Integer
      5. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
      6. Private Const WM_SETFOCUS As Int32 = &H7
      8. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      9. Process.Start("Notepad.exe")
      10. End Sub
      12. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      13. Dim p As Process = Process.GetProcessesByName("Notepad")(0)
      14. Clipboard.SetText(Me.TextBox1.Text)
      15. Me.Text = "in den vordergrundbringen"
      16. SetForegroundWindowEx(p.MainWindowHandle)
      17. Me.Text = "text senden"
      18. SendKeys.SendWait("^v")
      19. End Sub
      21. 'quelle: http://www.microsoft.com/germany/msdn/library/visualtools/vb6/FensterInDenDesktopVordergrundBringen.mspx?mfr=true
      22. ' Verwenden Sie die Funktion SetForegroundWindowEx statt der
      23. ' API Funktion SetForegroundWindow ausschließlich, wenn das
      24. ' betroffene Fenster tatsächlich in den Vordergrund gebracht
      25. ' werden muss.
      26. Private Function SetForegroundWindowEx(ByVal hWndWindow As Long) As Boolean
      27. ' Dient dem Setzen des Vordergrundfensters mit der Funktion
      28. ' SetForegroundWindow, die sich unter neueren Windows-Versionen
      29. ' anders verhält als unter Windows 95 und Windows NT 4.0.
      30. ' Der Rückgabewert ist True, wenn das Fenster erfolgreich in den
      31. ' Vordergrund gebracht werden konnte.
      32. Dim lThreadForeWin As Long ' Thread-ID für das aktuelle Vordergrundfenster
      33. Dim lThreadWindow As Long ' Thread-ID für das in hWndWindow spezifizierte
      34. ' Fenster, das in den Vordergrund des Desktops
      35. ' gebracht werden soll.
      36. ' Falls das Fenster dem gleichen Thread wie das aktuelle
      37. ' Vordergrundfenster angehört, ist kein Workaround erforderlich:
      38. lThreadWindow = GetWindowThreadProcessId(hWndWindow, 0)
      39. lThreadForeWin = GetWindowThreadProcessId(GetForegroundWindow(), 0)
      40. If lThreadWindow = lThreadForeWin Then
      41. ' Vordergrundfenster und zu aktivierendes Fenster gehören zum
      42. ' gleichen Thread. SteForegroundWindow allein reicht aus:
      43. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
      44. Else
      45. ' Das Vordergrundfenster gehört zu einem anderen Thread als das
      46. ' Fenster, das neues Vordergrundfenster werden soll. Mittels
      47. ' AttachThreadInput erhaten wir kurzzeitig Zugriff auf die
      48. ' Eingabeverarbeitung des Threads des Vordergrundfensters,
      49. ' so dass SetForegroundWindow wie erwartet arbeitet:
      50. SetForegroundWindowEx = CBool(SetForegroundWindow(hWndWindow))
      51. End If
      52. End Function
      53. End Class

      gruss

      mikeb69

    Facebook
    Telefonspende