Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB5, VB6 | 17.02.05 |
NET SEND: Nachrichtendienst auslesen Ermittelt aus dem Fenster des Nachrichtendienstes die Nachrichtenzeile | ||
Autor: Günter Gardill | Bewertung: | Views: 14.688 |
ohne Homepage | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit diesem Tipp lässt beim Empfang einer Nachricht über den Nachrichtendienst die übermittelten Informationen auslesen und bspw. in die Zwischenablage kopieren.
Option Explicit ' benötigte API-Deklarationen Private Declare Function GetWindowText Lib "user32.dll" _ Alias "GetWindowTextA" ( _ ByVal hwnd As Long, _ ByVal lpString As String, _ ByVal cch As Long) As Long Private Declare Function FindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVal lpClassName As Any, _ ByVal lpWindowName As Any) As Long Private Declare Function FindWindowEx Lib "user32" _ Alias "FindWindowExA" ( _ ByVal hWndParent As Long, _ ByVal hWndChildAfter As Long, _ ByVal lpszClass As String, _ ByVal lpszWindow As String) As Long
Private Function NDLesen() As String Dim sWindowText As String DIm nLen As Long Dim wndRoot As Long Dim wndSub As Long Dim pos1 As Long Dim pos2 As Long ' Fenster mit Caption "Nachrichtendienst" suchen wndRoot = FindWindow(0&, "Nachrichtendienst ") If wndRoot <> 0 Then ' untergeordnetes Control ermitteln wndSub = FindWindowEx(wndRoot, 0, "static", vbNullString) sWindowText = Space$(1000) ' Fenstertext des Controls ermitteln nLen = GetWindowText(wndSub, sWindowText, Len(sWindowText)) ' ermitteln Ende der Überschrift (Uhrzeit) pos1 = InStr(sWindowText, ":") pos2 = InStr(pos1 + 1, sWindowText, ":") NDLesen = Mid$(sWindowText, pos2 + 7) End If End Function
Aufrufbeispiel:
Ist eine Nachricht vorhanden, soll diese per CommandButton-Click in die Zwischenablage kopiert werden.
Private Sub Command1_Click() Dim sText As String sText = NDLesen() If Len(sText) > 0 Then ' Nachricht in Clipboard übernehmen Clipboard.Clear Clipboard.SetText sText End If End Sub