Verfügbare Informationen zu "Netzwerk-Chat"
Qualität des Beitrags: Beteiligte Poster: daos06 Forum: DAFLO programming Forum Forenbeschreibung: Forum für die Mitglieder der Programmierer-Gruppe DAFLO programming aus dem Unterforum: RapidBatch Antworten: 3 Forum gestartet am: Samstag 05.08.2006 Sprache: deutsch Link zum Originaltopic: Netzwerk-Chat Letzte Antwort: vor 17 Jahren, 6 Monaten, 27 Tagen, 23 Stunden, 39 Minuten
Alle Beiträge und Antworten zu "Netzwerk-Chat"
Re: Netzwerk-Chat
daos06 - 12.08.2006, 19:59Netzwerk-Chat
Noch nicht ganz fertig getestet, aber es dürfte funktionieren!
Code: include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
rem Netzwerkchat
rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '220|100|501|454'
letdialog 'myDialog', 'caption', ' Netzwerkchat'
letdialog 'myDialog', 'menu', 'event:Chat speichern|-|Hilfe|Info|Beenden;'
letdialog 'myDialog:event', 'EVENT_CLICK', '0'
letdialog 'myDialog', 'statusbar', ' Viel Spaß beim chatten'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'EDIT_LINEWRAP', '50|20|400|275'
letdialog 'myDialog:myWidget1', 'enabled', '0'
letdialog 'myDialog:myWidget1', 'readonly', '0'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog:myWidget7', 'BUTTON', '180|320|125|30'
letdialog 'myDialog:myWidget7', 'enabled', '0'
letdialog 'myDialog:myWidget7', 'caption', 'Neue Nachricht'
newdialog 'myDialog:bEvent', 'BUTTON', '1|1|1|1'
letdialog 'myDialog:bEvent', 'VISIBLE', [false]
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
ext [ret] = [_rbUtil2], 'rbxIpcOpenLocalMailslot', 'myChat'
if [ret] ! [true]
rbxGetLastErrorText [err]
echo 'Fehler beim Öffnen des Mailslots' # [new_line] # [err] # ' (' # [errorcode] # ')'
endif
getdialog [hwnd] = 'myDialog:bEvent', 'HWND'
rem Button (myDialog:Event) als Eventhandler definieren
ext [ret] = [_rbUtil2], 'rbxSetEventButton', [hwnd]
If [ename] = ''
inputbox [ename] = 'Name', 'Wie möchten Sie heißen?', 'Karl'
endif
repeat
rundialog [event] = '0'
If [event] = 'click_myDialog:bEvent'
ext [RetVal] = [_rbUtil2], 'rbxGetNextEvent'
if [RetVal] = 'mail_recv'
rem Nachricht wurde empfangen
rem Nachricht wurde empfangen
ext [eingna] = [_rbUtil2], 'rbxIpcReadLocalMailslot'
gettok [Absender] = [eingna], [new_line], '1'
gettok [Nachricht] = [eingna], [new_line], '2'
If [Liste] ! ''
[Liste] # [new_line] # [Absender] # ': ' # [Nachricht]
else
[Liste] = [Absender] # ': ' # [Nachricht]
endif
letdialog 'myDialog:myWidget1', 'Text', [Liste]
endif
endif
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
rem Anklicken des Menüpunktes "Beenden"
if [event] = 'click_myDialog:event_Beenden'
confirm [quit] = 'Möchten Sie den Chat beenden?'
If [quit] = [true] halt
endif
rem !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
If [event] = 'click_myDialog:myWidget7'
inputbox [text] = 'Neue Nachricht', 'Geben Sie hier ihre Nachricht ein', ''
rem Daten zur Nachricht
[Msg2] # [ename] # [new_line]
[Msg2] # [text]
rem Nachricht an den lokalen Rechner senden
ext [RetVal] = [_rbUtil2], 'rbxIpcWriteRemoteMailslot', 'myChat', '', [Msg2]
if [RetVal] ! [true]
echo 'Fehler beim Senden'
else
echo 'Nachricht gesendet'
endif
If [Liste] = ''
[Liste] = [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [wmailtext]
else
[Liste] = [wmailtext] # [new_line] # [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [Liste]
endif
endif
until [event] = 'close_myDialog'
end
Re: Netzwerk-Chat
daos06 - 02.09.2006, 20:30
Jetzt, ists ganz fertig. Hat sogar die Funktion, dass man einen Ringtone einschalten kann, der immer dann ertönt, wenn ein Nachricht eintrifft.
Code: include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
confirm [quit] = 'Möchten Sie den Signalton bei einer eingehenden Nachricht aktivieren?'
If [quit] = [true] [ringtone] = [true]
rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '220|100|501|454'
letdialog 'myDialog', 'caption', ' Netzwerkchat'
letdialog 'myDialog:event', 'EVENT_CLICK', '0'
letdialog 'myDialog', 'statusbar', ' Viel Spaß beim chatten'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'EDIT_LINEWRAP', '50|20|400|275'
letdialog 'myDialog:myWidget1', 'enabled', '0'
letdialog 'myDialog:myWidget1', 'readonly', '0'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog:myWidget7', 'BUTTON', '180|320|125|30'
letdialog 'myDialog:myWidget7', 'enabled', '0'
letdialog 'myDialog:myWidget7', 'caption', 'Neue Nachricht'
newdialog 'myDialog:bEvent', 'BUTTON', '1|1|1|1'
letdialog 'myDialog:bEvent', 'VISIBLE', [false]
rem Versuch menü-Baum
[menü] # '&Datei:Info|Problemmeldung|-|Chat speichern|beenden;;'
letdialog 'myDialog', 'menu', [menü]
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
ext [ret] = [_rbUtil2], 'rbxIpcOpenLocalMailslot', 'myChat'
if [ret] ! [true]
rbxGetLastErrorText [err]
echo 'Fehler beim Öffnen des Mailslots' # [new_line] # [err] # ' (' # [errorcode] # ')'
endif
getdialog [hwnd] = 'myDialog:bEvent', 'HWND'
rem Button (myDialog:Event) als Eventhandler definieren
ext [ret] = [_rbUtil2], 'rbxSetEventButton', [hwnd]
If [ename] = ''
inputbox [ename] = 'Name', 'Wie möchten Sie heißen?', 'Karl'
endif
repeat
rundialog [event] = '0'
If [event] = 'click_myDialog:bEvent'
ext [RetVal] = [_rbUtil2], 'rbxGetNextEvent'
if [RetVal] = 'mail_recv'
If [ringtone] = [true]
[sound] = [windir] # '\media\ringin.wav'
ext [evt] = [_rbUtil2], 'rbxPlaySound', [sound], 'NoWait', 'NoLoop'
endif
rem Nachricht wurde empfangen
rem Nachricht wurde empfangen
ext [eingna] = [_rbUtil2], 'rbxIpcReadLocalMailslot'
gettok [Absender] = [eingna], [new_line], '1'
gettok [Nachricht] = [eingna], [new_line], '2'
If [Liste] ! ''
[Liste] # [new_line] # [new_line] # [Absender] # ': ' # [Nachricht]
else
[Liste] = [Absender] # ': ' # [Nachricht]
endif
letdialog 'myDialog:myWidget1', 'Text', [Liste]
reset [eingna]
reset [Absender]
reset [Nachricht]
endif
endif
If [event] = 'click_myDialog:myWidget7'
inputbox [text] = 'Neue Nachricht', 'Geben Sie hier ihre Nachricht ein', ''
If [text] ! ''
rem Daten zur Nachricht
[Msg2] # [ename] # [new_line]
[Msg2] # [text]
rem Nachricht an den lokalen Rechner senden
ext [RetVal] = [_rbUtil2], 'rbxIpcWriteRemoteMailslot', 'myChat', '', [Msg2]
if [RetVal] ! [true]
echo 'Fehler beim Senden'
else
echo 'Nachricht gesendet'
endif
If [Liste] = ''
[Liste] = [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [Liste]
else
[Liste] = [Liste] # [new_line] # [new_line] # [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [Liste]
endif
reset [Msg2]
reset [text]
endif
endif
rem Menü auswahl
If [event] = 'click_myDialog:Menu_Info'
[Echo_Title] = 'INFORMATION'
echo 'Netzwerkchat 1.0' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer, FLODA-programming' # [new_line] # [new_line] # 'Dieses Programm wurde am 21.08.2006 von Daniel Ostheimer fertiggestellt.' # [new_line] # [new_line] # 'Zu der Entwicklung wurde die Sprache RapidBatch 5.0.6 verwendet.'
endif
If [event] = 'click_myDialog:Menu_Problemmeldung'
[Echo_Title] = 'Problemmeldung'
echo 'Falls der Netzwerkchat nicht richtig funktioniert oder irgendwelche andere Probleme auftreten, können Sie diese per E-Mail an mich weiterleiten. Ich werde versuchen die Probleme zu lösen und alles zu Ihrer Zufriedenheit stellen.' # [new_line] # [new_line] # 'mailto: FLODAprogramming@yahoo.de'
endif
If [event] = 'click_myDialog:Menu_Chat speichern'
savebox [savefile] = 'Wo möchten Sie den Chat speichern?', 'TXT (*.txt)|*.txt'
writefile [savefile], [Liste]
endif
If [event] = 'click_myDialog:Menu_beenden'
halt
endif
until [event] = 'close_myDialog'
end
Re: Netzwerk-Chat
daos06 - 29.09.2006, 22:25
Großer Fehler wurde bereinigt (aber noch nicht getestet)
Jetzt auch noch mit Kanal-Funktion.
Code: include 'rbUtil2.rb'
rem Pfad zu rbUtil2.rbx festlegen (auf Verz. des Skripts)
rbUtil2ModulePath ''
rem rbUtil2 laden und initialisieren
rbUtil2Initialize [ret]
rem Bei Fehler: Abbruch
if [ret] ! [true]
echo 'Fehler beim Laden von rbUtil2'
halt
endif
confirm [quit] = 'Möchten Sie den Signalton bei einer eingehenden Nachricht aktivieren?'
If [quit] = [true] [ringtone] = [true]
rem --- creating code for widget "myDialog"
newdialog 'myDialog', 'DIALOG', '220|100|501|514'
letdialog 'myDialog', 'caption', ' Netzwerkchat'
letdialog 'myDialog:event', 'EVENT_CLICK', '0'
letdialog 'myDialog', 'statusbar', ' Viel Spaß beim chatten'
letdialog 'myDialog', 'style', 'single'
rem --- creating code for widget "myWidget1"
newdialog 'myDialog:myWidget1', 'EDIT_LINEWRAP', '50|80|400|275'
letdialog 'myDialog:myWidget1', 'enabled', '0'
letdialog 'myDialog:myWidget1', 'readonly', '0'
rem --- creating code for widget "myWidget6"
newdialog 'myDialog:myWidget7', 'BUTTON', '180|380|125|30'
letdialog 'myDialog:myWidget7', 'enabled', '0'
letdialog 'myDialog:myWidget7', 'caption', 'Neue Nachricht'
newdialog 'myDialog:bEvent', 'BUTTON', '1|1|1|1'
letdialog 'myDialog:bEvent', 'VISIBLE', [false]
newdialog 'myDialog:label', 'label', '20|20|120|25'
letdialog 'myDialog:label', 'caption', 'Sie sind gerade im Kanal'
newdialog 'myDialog:Kanal', 'input', '160|15|160|25'
letdialog 'myDialog:Kanal', 'readonly', '0'
rem Versuch menü-Baum
[menü] # 'Datei:Info|Problemmeldung|-|Chat speichern|beenden;Kanal:Kanal erstellen|Kanal laden|Öffentlicher Kanal;'
letdialog 'myDialog', 'menu', [menü]
rem --- make the dialog window visible
letdialog 'myDialog', 'visible', [true]
ext [ret] = [_rbUtil2], 'rbxIpcOpenLocalMailslot', 'myChat'
if [ret] ! [true]
rbxGetLastErrorText [err]
echo 'Fehler beim Öffnen des Mailslots' # [new_line] # [err] # ' (' # [errorcode] # ')'
endif
getdialog [hwnd] = 'myDialog:bEvent', 'HWND'
rem Button (myDialog:Event) als Eventhandler definieren
ext [ret] = [_rbUtil2], 'rbxSetEventButton', [hwnd]
repeat
listbox [Entscheidung] = 'Was wollen Sie nun tun?', 'Neuer Kanal erstellen|Kanal laden|Öffentlicher Kanal'
if [Entscheidung] = 'Neuer Kanal erstellen'
rem --- creating code for widget "nKanal"
newdialog 'nKanal', 'DIALOG', '220|100|364|240'
letdialog 'nKanal', 'caption', 'Neuer Kanal'
letdialog 'nKanal', 'style', 'SINGLE'
rem --- creating code for widget "myWidget1"
newdialog 'nKanal:myWidget1', 'LABEL', '30|30|105|35'
letdialog 'nKanal:myWidget1', 'caption', 'Wie soll der neue Kanal heißen?'
rem --- creating code for widget "myWidget2"
newdialog 'nKanal:myWidget2', 'INPUT', '145|30|195|25'
rem --- creating code for widget "myWidget3"
newdialog 'nKanal:myWidget3', 'LABEL', '30|115|105|35'
letdialog 'nKanal:myWidget3', 'caption', 'Wie soll das Passwort lauten?'
rem --- creating code for widget "myWidget4"
newdialog 'nKanal:myWidget4', 'INPUT', '145|115|195|25'
rem --- creating code for widget "myWidget5"
newdialog 'nKanal:myWidget5', 'OPTION', '30|85|100|20'
letdialog 'nKanal:myWidget5', 'caption', 'Passwort setzen'
letdialog 'nKanal:myWidget5', 'checked', [false]
rem --- creating code for widget "myWidget6"
newdialog 'nKanal:myWidget6', 'GROUP', '20|70|330|95'
letdialog 'nKanal:myWidget6', 'caption', 'Passwort'
rem --- creating code for widget "myWidget7"
newdialog 'nKanal:myWidget7', 'BUTTON', '120|175|100|25'
letdialog 'nKanal:myWidget7', 'caption', 'Ok'
rem --- make the dialog window visible
letdialog 'nKanal', 'visible', [true]
repeat
rundialog [event] = '0'
until [event] = 'click_nKanal:myWidget7'
getdialog [Kanalname] = 'nKanal:myWidget2', 'Text'
getdialog [checkt] = 'nKanal:myWidget5', 'CHECKED'
If [checkt] = [true]
getdialog [Kanalpasswort] = 'nKanal:myWidget2', 'Text'
else
[Kanalpasswort] = 'nichtvorhanden'
endif
letdialog 'nKanal', 'visible', [false]
endif
if [Entscheidung] = 'Kanal laden'
inputbox [Kanalname] = 'Kanal laden', 'Geben Sie den Namen des Kanals ein', 'Hier der Kanalname'
pwdbox [Kanalpasswort] = 'Kanal laden', 'Geben Sie das Passwort des Kanals ein', ''
endif
If [Entscheidung] = 'Öffentlicher Kanal'
[Kanalname] = 'öfendlick'
[Kanalpasswort] = 'leer'
endif
until [Entscheidung] ! ''
If [Kanalname] ! 'öfendlick'
letdialog 'myDialog:Kanal', 'Text', [Kanalname]
else
letdialog 'myDialog:Kanal', 'Text', 'Öffentlicher Kanal'
endif
repeat
inputbox [ename] = 'Name', 'Wie möchten Sie heißen?', 'Karl'
until [ename] ! ''
repeat
rundialog [event] = '0'
If [event] = 'click_myDialog:bEvent'
ext [RetVal] = [_rbUtil2], 'rbxGetNextEvent'
if [RetVal] = 'mail_recv'
If [ringtone] = [true]
[sound] = [windir] # '\media\ringin.wav'
ext [evt] = [_rbUtil2], 'rbxPlaySound', [sound], 'NoWait', 'NoLoop'
endif
rem Nachricht wurde empfangen
rem Nachricht wurde empfangen
ext [eingna] = [_rbUtil2], 'rbxIpcReadLocalMailslot'
gettok [Kanalnamee] = [eingna], [new_line], '1'
gettok [Kanalpassworte] = [eingna], [new_line], '2'
gettok [Nachricht] = [eingna], [new_line], '4'
gettok [Absender] = [eingna], [new_line], '3'
If [Kanalnamee] = [Kanalname] & [Kanalpassworte] = [Kanalpasswort]
If [Liste] ! ''
[Liste] # [new_line] # [new_line] # [Absender] # ': ' # [Nachricht]
else
[Liste] = [Absender] # ': ' # [Nachricht]
endif
letdialog 'myDialog:myWidget1', 'Text', [Liste]
reset [eingna]
reset [Absender]
reset [Nachricht]
reset [Kanalnamee]
reset [Kanalpassworte]
endif
endif
endif
If [event] = 'click_myDialog:myWidget7'
inputbox [text] = 'Neue Nachricht', 'Geben Sie hier ihre Nachricht ein', ''
If [text] ! ''
rem Daten zur Nachricht
[Msg2] # [Kanalname] # [new_line]
[Msg2] # [Kanapasswort] # [new_line]
[Msg2] # [ename] # [new_line]
[Msg2] # [text]
rem Nachricht an den lokalen Rechner senden
ext [RetVal] = [_rbUtil2], 'rbxIpcWriteRemoteMailslot', 'myChat', '*', [Msg2]
if [RetVal] ! [true]
echo 'Fehler beim Senden'
else
echo 'Nachricht gesendet'
endif
If [Liste] = ''
[Liste] = [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [Liste]
else
[Liste] = [Liste] # [new_line] # [new_line] # [ename] # ': ' # [text]
letdialog 'myDialog:myWidget1', 'Text', [Liste]
endif
reset [Msg2]
reset [text]
endif
endif
rem Menü auswahl
If [event] = 'click_myDialog:Menu_Info'
[Echo_Title] = 'INFORMATION'
echo 'Netzwerkchat 1.0' # [new_line] # [new_line] # 'copyright © 2006 by Daniel Ostheimer, FLODA-programming' # [new_line] # [new_line] # 'Dieses Programm wurde am 21.08.2006 von Daniel Ostheimer fertiggestellt.' # [new_line] # [new_line] # 'Zu der Entwicklung wurde die Sprache RapidBatch 5.1 verwendet.'
endif
If [event] = 'click_myDialog:Menu_Problemmeldung'
[Echo_Title] = 'Problemmeldung'
echo 'Falls der Netzwerkchat nicht richtig funktioniert oder irgendwelche andere Probleme auftreten, können Sie diese per E-Mail an mich weiterleiten. Ich werde versuchen die Probleme zu lösen und alles zu Ihrer Zufriedenheit stellen.' # [new_line] # [new_line] # 'mailto: FLODAprogramming@yahoo.de'
endif
If [event] = 'click_myDialog:Menu_Chat speichern'
savebox [savefile] = 'Wo möchten Sie den Chat speichern?', 'TXT (*.txt)|*.txt'
writefile [savefile], [Liste]
endif
If [event] = 'click_myDialog:Menu_beenden'
halt
endif
until [event] = 'close_myDialog'
end
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum DAFLO programming Forum
DAFLO verschönert den XP Desktop.... - gepostet von daos06 am Dienstag 28.11.2006
Design - gepostet von Belerofon am Donnerstag 28.12.2006
Ähnliche Beiträge wie "Netzwerk-Chat"
Chat - [DoC] Chrigu (Sonntag 20.05.2007)
chat - SailorSatrun (Mittwoch 09.08.2006)
Der Chat-Eingang - Lacroix (Sonntag 09.12.2007)
Hier ist der Chat - darksamus (Donnerstag 02.03.2006)
HEXPAD CHAT - back in black (Freitag 05.11.2004)
CHAT - Anonymous (Freitag 22.12.2006)
RAW Houseshow Tour 02.-03.07.2008 "Chile, Peru usw" - JM Hardy (Freitag 04.07.2008)
Chat, teil 2 - apocalypto (Montag 02.07.2007)
RPG-Chat-Channel??? - BadPad (Freitag 06.04.2007)
Chat - atreju (Samstag 06.01.2007)