so... jetzt gehts in die endphase ( vorerst )
ToDo- List ist fast abgearbeitet ... Gibts sont noch was was ich einfügen könnte ?
so... jetzt gehts in die endphase ( vorerst )
ToDo- List ist fast abgearbeitet ... Gibts sont noch was was ich einfügen könnte ?
Hab selber mal ein Chatprogramm geschrieben (Hat aber leider nicht so ganz gefunzt ). Ich überlasse dir mal ein paar von meinen Ideen. Dazu brauchst du nur einen Benutzer bei ohost.de oder verglichbarem:
Server auslesen:
;!!!!!!!!!!!!!!!!!
Global $open = _FTP_Open("ohost")
Global $ohost_name = "?"
Global $ohost_benutzer = "?"
Global $ohost_pass = "?"
;!!!!!!!!!!!!!!!!!
_GetIP()
If @error Then
Do
_GetIP()
Sleep(10000)
Until Not @error
EndIf
$msgn = MsgBox (4,"Server erstellen?","Wollen sie einen Server erstellen?")
If $msgn == 6 Then _serverstart()
If $msgn == 7 Then
$conn = _FTP_Connect($open,$server,$ohost_benutzer,$ohost_pass)
If @error Then
For $i = 1 To 10
$conn = _FTP_Connect($open,$server,$ohost_benutzer,$ohost_pass)
If Not @error Then ExitLoop
Next
If @error Then
MsgBox(0,"","Verbindungsfehler")
Exit
EndIf
EndIf
InetGet("http://" & $ohost_name & ".ca.ohost.de/Chatprog/IPs.ini",@TempDir & "\IPs.ini")
$IPs = IniReadSection(@TempDir & "\IPs.ini","IPs")
$Names = IniReadSection(@TempDir & "\IPs.ini","Names")
If @error Then
_initserv()
Else
_initclient()
EndIf
EndIf
Die Funktionen:
Func _initclient()
$Form1 = GUICreate("Verbinden mit Server", 323, 110, 192, 124)
$Label1 = GUICtrlCreateLabel("Verbinden mit:", 16, 24, 106, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("Server", 144, 24, 145, 25,$CBS_DROPDOWNLIST)
For $i = 1 To $Names[0][0]
GUICtrlSetData($Combo1,$i & ": " & $Names[$i][1])
Next
$Button1 = GUICtrlCreateButton("OK", 40, 72, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Abbrechen", 184, 72, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
;FileDelete(@TempDir & "\IPs.ini")
Exit
Case $nMsg = $Button2
;FileDelete(@TempDir & "\IPs.ini")
Exit
Case $nMsg = $Button1
$comb = GUICtrlRead($Combo1)
If $comb == "Server" Then
MsgBox(0,"!","Wählen sie einen Server aus!")
Else
GUIDelete($Form1)
$split = StringSplit($comb,":")
_Chatprog($IPs[$split[1]][1])
FileDelete(@TempDir & "\IPs.ini")
EndIf
EndSelect
WEnd
EndFunc
Func _initserv()
$msgb = MsgBox(3,"!","Keiner Online! Wollen sie einen Eigenen Server starten?")
If $msgb == 7 Then Exit
If $msgb == 6 Then _serverstart()
EndFunc
Func _serverstart()
;...
EndFunc
Func _Chatprog($ip)
;...
EndFunc
hm...
das is ne gute idee...
aber was ist wenn ein server abstürzt und immernoch eingetragen ist, und sich dann immer und immer wieder einträgt ?
Mir ist grad bei meinem prog ein fehler aufgefallen ein seeehr großer ... also muss ich den erst ma beheben -.-
Hab deswegen noch ein programm geschrieben, dass alle Verbindungen überprüft und die löscht, mit denen man sich nicht mehr verbinden kann... Ich glaub das ist beim PC neuinstallieren/formatieren verloren gegangen :pinch:
joa ... ich werd das jetzt so ähnlich machen
Client lädt eine liste runter und überprüft ob die server aktiv sind ( anpingen ) und sucht sich die richtigen raus.
Das mit der serverliste dann mit php ... ftp is mir zu unsicher
Hm... das wird aber nicht funktionieren ... was wenn der Server sich anpingen lässt, aber kein chatserver läuft
Wenn ich wirderum eine ping funktion, die das ausschließt in mein prog. einbaue lässt sich der server flooden ....
So jetzt gehts zum Design, wobei ich euren Rat brauche:
hm.. ich bau einfach beides ein
für vista+ user gibts jetzt stylische msgboxen sry @xp user, aber mir is nix wirklich schönes für xp UND vista+ eingefallen
schaut richtig gut aus
cool cool
muss zugeben... ich hab mir für kien projekt so viel mühe gegeben
alles soll perfekt sein
edit: auser smilies -.-
das design steht fest ... ( wenn ihrs denn gut findet )
bilder im 1. post
Bitte um Feedback
Greez
es ist so weit ... release nr. 1
wär nett wenn jemand es übers internet für mich testet
Danke an alle die mitgeholfen haben
bitte bugs un meinungen auflisten
ich brauchte unbedingt einen host für einen "offiziellen" server
der server zieht kaum traffic und cpu auslastung gegen 0, von arbeitsspeicher ganz zu schweigen
Greez
Bitte den Server NICHT eintragen lassen, wenn keine Ports geöffnet sind!!!
ähm bei den source dateien kommt ne 404 page
bitte prüfe nochmal ob die datein aufn server sind
war nen falscher link
Öhm... Funktioniert nicht wirklich?
Ich meine, das Verbinden u.s.w. funktioniert alles.
Hab mich mal Admin gemacht und gleich /say <Nachricht> ausprobiert.
Muss da die Nachricht die man schreiben will in <> geschrieben werden?
Weil habs nur anders ausprobiert ( /say Test ) ... das hat nicht geklappt.
Dann beim Server schließen gibt's 'nen AutoIt-Error (Variable used without being declared) und
beim Client schließen kommt eine MsgBox (Es ist ein Schwerwiegender Fehler aufgetreten)...
Würd' mir das ganze ja mal anschauen, aber der Link zum Sourcecode funktioniert ja nicht.
der link zum sourcecode funktioniert /edit: omg ich hab server und client klein geschrieben
ja es muss /say <blablabla>
das restliche ist mir auch schon aufgefallen ... komischerweise tritt es nur auf, wenn man schon einmal mit einerm server verbunden hat / schon mal verbunden wurde
Greez