Frage deutsch
~~~~~~~~~~~~~~~~
Wie werte ich mit NET SEND empfangene Nachrichten in QB aus?
Wie kann ich Nachrichten abfangen, so das sie statt in einem Windows Fenster in meinen Programm angezeigt werden (Vielleicht gibt es dafür eine Variable?).
 

Question English
~~~~~~~~~~~~~~~~
How to process messages recieved with NET SEND?
 

Antwort
~~~~~~~~~~~~~~~~
[ von ChemicalWarfare ( ChemicalWarfare*web.de ) im QB-Forum, 7.5.2005 ]
.
Rufe NET send per SHELL-Befehl wie folgt auf:
shell "net send >temp.txt"
 
Mit der "Eingabeumleitung" >temp.txt wird der empfangene Text in die Datei >temp.txt statt auf den Bildschirm ausgegeben. Dann öffnest Du in Deinem QB-Programm >temp.txt und wertest den Inhalt dieser Datei aus, etwa so:
 
sub exec(cmd as string, var as string)
shell cmd + ">temp"
open "temp" for input as #1
do until eof(1)
var = var + input$(1, #1)
loop
close
shell "del temp"
end sub

[ The QBasic-MonsterFAQ --- Start Page: www.antonis.de/faq ]