Messenger mit Antwortfunktion ?

Hallo Leute,
ich habe mal eine Frage. Eigentlich ist es eine kleine Spielerei: und zwar haben wir ein kleine Programm geschrieben, worüber man ganz einfach übers Netzwerk kommunizieren kann.
Das heißt beim Empfänger geht also ein Fenster mit einem Text auf.
Nun meine Frage, kann man in dieses Fenster, dass da auf geht, eine Art Antwort-Button einfügen?
Denn momentan muß man das Skript jedes mal neu aufrufen um zu antworten.
Hier der Mini-Quelltext:

message = InputBox("Message: ", „Foo-Messenger“)
If NOT message = „“ Then
WScript.CreateObject(„WScript.Shell“).run("net send 1.1.1.1 " & message)
End If

Danke schon mal, ich hoffe euch fällt da was ein.

Hallo,

Nun meine Frage, kann man in dieses Fenster, dass da auf geht,
eine Art Antwort-Button einfügen?

Leider geht das nicht, da du eine Standard-Funktion (nämlich net send) benutzt…

Eine Möglichkeit ist glaube ich die Message Queue, aber damit kenne ich mich nicht wirklich aus…