Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0337: Daten zwischen Prozessen austauschen

 von 

Beschreibung 

Windows bietet viele Möglichkeiten, Nachrichten zwischen Prozessen und Fenstern auszutauschen, neben DDE, Winsock etc. ist dies ebenso ein recht interessantes und vor allem schnelles Verfahren. Es beruht auf einer Nachricht, die bei Erscheinen unter anderem einen Zeiger auf die übermittelten Daten mitbringen kann.

Dieser Tipp funktioniert entweder nur in kompilierter Form oder benötigt eine DLL/OCX-Datei. Diese Binärdateien sind dem Tipp hinzugefügt worden, um seinen Funktionsumfang darstellen zu können. Vor dem Upload wurden sie auf Viren geprüft.

Schwierigkeitsgrad:

Schwierigkeitsgrad 3

Verwendete API-Aufrufe:

CallWindowProcA (CallWindowProc), RtlMoveMemory (CopyMemory), FindWindowA (FindWindow), SendMessageA (SendMessage), SetWindowLongA (SetWindowLong)

Download:

Download des Beispielprojektes [9,77 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektgruppe Gruppe1.vbg -------------
'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command3"
' Steuerelement: Schaltfläche "Command2"
' Steuerelement: Schaltfläche "Command4"
' Steuerelement: Textfeld "Text1"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias _
        "FindWindowA" (ByVal lpClassName As String, ByVal _
        lpWindowName As String) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias _
        "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, _
        ByVal cbCopy As Long)

Private Declare Function SendMessage Lib "user32" Alias _
         "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
         ByVal wParam As Long, lParam As Any) As Long

Private Type COPYDATASTRUCT
    dwData As Long
    cbData As Long
    lpData As Long
End Type

Const WM_COPYDATA As Long = &H4A

Private Sub Form_Load()
    Call StartProcess
End Sub

Private Sub Command1_Click()
    Call SendData(1, Text1.Text)
End Sub

Private Sub Command2_Click()
    Call SendData(2)
End Sub

Private Sub Command3_Click()
    Call SendData(3)
End Sub

Private Sub Command4_Click()
    Call StartProcess
End Sub

Private Function SendData(Mode&, Optional Data$) As Boolean
    Dim DesthWnd As Long, B(0 To 255) As Byte
    Dim CD As COPYDATASTRUCT
    
    DesthWnd = FindWindow(vbNullString, "Destination")
    If DesthWnd = 0 Then
        MsgBox ("Das Zielfenster wurde nicht gefunden" & vbCrLf & _
                "Bitte Starten sie erst das andere Projekt!")
    Else
        CD.dwData = Mode
        Select Case Mode
            Case 1: SendData = True 'String senden
                Call CopyMemory(B(0), ByVal Data, Len(Data))
                CD.cbData = Len(Data) + 1
                CD.lpData = VarPtr(B(0))
                
            Case 2: SendData = True 'MsgBox anzeigen lassen
            Case 3: SendData = True 'Anderen Prozeß sich selbst
                                    'schließen lassen
        End Select
        
        If SendData Then Call SendMessage(DesthWnd, WM_COPYDATA, _
                                        Me.hwnd, CD)
    End If
End Function

Private Sub StartProcess()
    Call Shell(App.Path & "\Project2.exe", vbNormalNoFocus)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------
'------------- Anfang Projektdatei Project2.vbp -------------
'--------- Anfang Formular "Form2" alias Form2.frm  ---------
' Steuerelement: Textfeld "Text1"
' Steuerelement: Beschriftungsfeld "Label1"
Option Explicit

Private Sub Form_Load()
    Call Init(Me.hWnd)
End Sub
      
Private Sub Form_Unload(Cancel As Integer)
    Call Terminate(Me.hWnd)
End Sub
'---------- Ende Formular "Form2" alias Form2.frm  ----------
'--------- Anfang Modul "Module2" alias Module2.bas ---------


Private Declare Sub CopyMemory Lib "kernel32" Alias _
        "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, _
        ByVal cbCopy As Long)

Private Declare Function CallWindowProc Lib "user32" Alias _
         "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _
         hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _
         ByVal lParam As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias _
        "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As _
        Long, ByVal dwNewLong As Long) As Long

Type COPYDATASTRUCT
    dwData As Long
    cbData As Long
    lpData As Long
End Type

Const GWL_WNDPROC As Long = -4&
Const WM_COPYDATA As Long = &H4A

Dim PrevWndProc As Long

Public Sub Init(hWnd As Long)
    PrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, _
                              AddressOf WindowProc)
End Sub

Public Sub Terminate(hWnd As Long)
    Call SetWindowLong(hWnd, GWL_WNDPROC, PrevWndProc)
End Sub

Private Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
    
    If Msg = WM_COPYDATA Then
        Dim aa As String, B(0 To 255) As Byte
        Dim CD As COPYDATASTRUCT
        
        Call CopyMemory(CD, ByVal lParam, Len(CD))
        
        Select Case CD.dwData
        
        Case 1: Call CopyMemory(B(0), ByVal CD.lpData, CD.cbData)
                aa = StrConv(B, vbUnicode)
                aa = Left$(aa, InStr(1, aa, Chr$(0)) - 1)
                Form2.Text1.Text = Form2.Text1.Text & aa & vbCrLf
                
        Case 2: MsgBox ("MsgBox des Zielprozesses!")
        
        Case 3: Call Terminate(Form2.hWnd)
                Unload Form1
        End Select
    End If
          
    WindowProc = CallWindowProc(PrevWndProc, hWnd, Msg, wParam, lParam)
End Function
'---------- Ende Modul "Module2" alias Module2.bas ----------
'-------------- Ende Projektdatei Project2.vbp --------------
'-------------- Ende Projektgruppe Gruppe1.vbg --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 17 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.