VB 5/6-Tipp 0337: Daten zwischen Prozessen austauschen
von ActiveVB
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: | Verwendete API-Aufrufe: CallWindowProcA (CallWindowProc), RtlMoveMemory (CopyMemory), FindWindowA (FindWindow), SendMessageA (SendMessage), SetWindowLongA (SetWindowLong) | Download: |
'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-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
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.