VB6 Programmieren - Befehl auf anderen PC ausführe

Hi,

du kannst das über eine DirectX Netzwerkverbindung lösen:

Typ deklarieren:

Public Type TDXChatMessage
VariableEins As Integer
VariableZwei As Byte
VariableDrei As Long
TextLength As Integer
VariableText As String
End Type

Variablen deklarieren:
Implements DirectXEvent 'For incoming messages
Dim DX As New DirectX7 'Main DirectX7 object
Dim DP As DirectPlay4 'Main DirectPlay object
Dim EnumSess As DirectPlayEnumSessions 'Enumerate sessions
Dim EnumConn As DirectPlayEnumConnections 'Enumerate connections
Dim Sess As DirectPlaySessionData 'DirectPlay sessionData object
Dim Addr As DirectPlayAddress 'DirecPlay address object
Dim Msg As DirectPlayMessage 'DirectPlay message object
Dim User As String 'Name of user
Dim UserID As Long 'DirectPlay assigned Player ID
Dim FromID As Long 'ID of user the message was from
Dim ToID As Long 'ID of user the message was sent to
Dim FromName As String 'Name of message sender
Dim MsgType As Long 'Type of message
Dim MsgNum As Long 'Number of messages in the queue
Dim DXevent As Long 'DX event
Dim I As Byte 'Used for indexing
Const MSG_CHATTEXT = 0 'Message type constant
Dim channeloffset As Integer

Dim nachricht As TDXChatMessage

Verbidnungsfunktionen:
Private Sub ConnectToServer()
InitConn 'Initialize connection
On Error GoTo FAILED 'Error handling
Set EnumSess = DP.GetDPEnumSessions(Sess, 0, DPENUMSESSIONS_AVAILABLE)
Set Sess = EnumSess.getItem(1) 'Select 1st session

' Verbunden mit als Text: Sess.GetSessionName

Call DP.Open(Sess, DPOPEN_JOIN) 'Join the session
CreateUser 'Create a user
Exit Sub
FAILED:
MsgBox ("Server nicht gefunden...") 'Display session error
Unload Me
End Sub

Private Sub FormLoad()
User="Client"
Set DP = DX.DirectPlayCreate("") 'Create DirectPlay object
Set EnumConn = DP.GetDPEnumConnections("", DPCONNECTION_DIRECTPLAY)
For I = 1 To EnumConn.GetCount 'Get number of service providers
cmbSP.AddItem EnumConn.GetName(I) 'Add them to the combobox
Next I: cmbSP.ListIndex = 3 'Set service providers to TCP/IP
End Sub

Sub InitConn()
cmbSP.Visible = False
Set Addr = EnumConn.GetAddress(cmbSP.ListIndex + 1) 'Set selected provider
Call DP.InitializeConnection(Addr) 'Initialize actual connection
Set Sess = DP.CreateSessionData 'Get session object
Sess.SetGuidApplication "{BE91FD97-6DD0-4035-B12F-2E7FEE5D6BC8}" 'GUID
End Sub

Sub CreateUser()
On Error GoTo FAILED 'Session or player creation errors
DXevent = DX.CreateEvent(Me) 'Create DX event for msgs
UserID = DP.CreatePlayer(User, "", DXevent, 0) 'Create player & get ID
Exit Sub
FAILED:
MsgBox ("Verbindung mit Server abgebrochen.")
End Sub

Public Sub SendMessage()
Set Msg = DP.CreateMessage

nachricht.VariableEins = 1
nachricht.VariableZwei = 2
nachricht.VariableDrei = 3
nachricht.TextLength = 4
nachricht.Text = "Test"

Msg.SetMessageData nachricht, LenB(nachricht)
' Msg.writeLong 0 'Assign it as ChatText type
' DP.Send UserID, DPID_ALLPLAYERS, DPSEND_GUARANTEED, Msg
DP.SendEx UserID, DPID_ALLPLAYERS, DPSEND_GUARANTEED, Msg, 0, 0, 0 'Send
End Sub

'*****************************************************************************
' Purpose: Incoming Message Event
'*****************************************************************************
Private Sub DirectXEvent_DXCallback(ByVal eventid As Long)
MsgNum = DP.GetMessageCount(UserID) 'Get number of messages waiting
Do While MsgNum > 0 'Process messages sequentially
Set Msg = DP.Receive(FromID, ToID, DPRECEIVE_ALL)
MsgType = Msg.readLong() 'Get message type
MsgNum = MsgNum - 1 'Decrement message count
If FromID = DPID_SYSMSG Then 'System message check
Select Case MsgType 'Determine system message type
Case DPSYS_DESTROYPLAYERORGROUP
MsgBox ("Verbindung zum Server abgebrochen") 'Somebody left message
cmbSP.Visible = False
DP.DestroyPlayer (UserID)
DX.DestroyEvent (DXevent)
DP.Close
MsgBox ("Netzwerkverbindungen zum Server abgebrochen") 'Somebody left message
Case DPSYS_CREATEPLAYERORGROUP
'MsgBox ("[A user has joined.]") 'Somebody joined message
Case DPSYS_HOST
'MsgBox ("[Hosting migrated to you.]") 'New host message
End Select 'Not system sent
Else
FromName = DP.GetPlayerFriendlyName(FromID) 'Get name of sending user
Select Case MsgType 'Application message type
Case MSG_CHATTEXT 'Chat text
MsgBox (FromName & ": " & Msg.readString) 'Display message
End Select
End If
Loop
End Sub

Es gibt irgendwo im Netz ne bessere Ausführung des ganzen... musst mal nach DirectX7-Netzwerkchat und VisualBasic suchen - da habe ich den Ansatz her. Du kannst beide Seiten als Server und Client fungieren lassen - das ist dann einstellbar über den DirectX Dialog.

Der Code oben Funktioniert super (wenn man ihn sich bisschen zurecht bastelt - habe ihn aus nem bestehenden Projekt nur schnell extrahiert) und ist schön schnell.

Unter Umständen muss das DirectX7-Objekt erst in Windows registriert werden - das habe ich aber auch damals über Google gefunden.

Viel Erfolg!

Man kann aber auch das WinSock-Control von VB6 benutzen - in der Hilfe (MSDN) gibt es Beispiele für UDP und TCP. Kommt je nach Aufgabe mit weniger Code und Abhängigkeiten aus.

Stefan

Hallo Mathieu,

es spricht natürlich nichts gegen Deine Initiative, im Gegenteil - vielen Dank. Schön wäre es aber, wenn wir entsprechend unserer Philisophie auch immer eine komplette Freeware-Palette unterstützen könnten.

Vielleicht kannst Du Dein Plugin so allgemein designen, dass man es auch für dieses früher mal geplante VJ-Tool-Projekt einsetzen kann:

http://dmxcontrol.de/wiki/Projekt_Integration_VJ-Tool

Gruss Frank