Hi ihr Autoitler,
habe vor nen eigenen Messenger zu machen. Kann mir hier mal jemand nen Quellcode geben???
L.g. Zocker-SZ 
Eingener messenger
-
Zocker-SZ -
12. Mai 2010 um 15:22 -
Geschlossen -
Erledigt
-
-
Das ist die Projekt Section, und da werden Quellcodes geschrieben !!!
Lern TCP, dann kannstes auch tun
-
habe vor nen eigenen Messenger zu machen. Kann mir hier mal jemand nen Quellcode geben???
Siehst du den Wiederspruch?
-
Eigener Messenger , Quellcode geben?
das ist kein eigener... -
Also:
1. Das muss man alles selber machen, sonst checkt man am Skript nicht die Bohne.
2. Benutzte kein TCP sondern einfache PHP-Dateien. [Standart ist ja das man keinen Server zuhause stehen hat ]
3. Dir gibt eh keiner ein vollständiges Skript
. Brauchs du aber auch nicht zu erwarten.
4. Wenn dann suche doch mal im Forum nach Skript-Snippts die du dann zusammen "basteln" kannst.Hoffe du verstehst das.
PS: Ich habe auch mit einem Freund schon einen IM gemacht ohne TCP nur mit PHP. -
2. Benutzte kein TCP sondern einfache PHP-Dateien. [Standart ist ja das man keinen Server zuhause stehen hat
]Ich habe aber nen eigenen Server
-
Unfair!
Wie viel kostet der denn im Monat? - Sry muss einfach fragen.
Und sage bitte noch sonstige Daten davon: Traffic,GB... -
- Offizieller Beitrag
Was ist das denn jetzt für ein Thread?
Wohin soll ich den verschieben? Nach "Hilfe und Unterstützung", nach "Jobbörse" oder nach "OffTopic"?
-
Ich habe aber nen eigenen Server
Is doch wunderbar. Mit tcp nen kleinen Multi Chat server bauen Connecten fertig
hier hab mal kurz nen kleinen server gebaut
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
TCPStartup()
Global Const $IP = @IPAddress3
Global Const $Port = 5000$Socket = TCPListen($IP, $Port, 100)
[/autoit] [autoit][/autoit] [autoit]Dim $Verbindungen[100][2]
[/autoit] [autoit][/autoit] [autoit]For $x = 0 To UBound($Verbindungen) -1
[/autoit] [autoit][/autoit] [autoit]
$Verbindungen[$x][0] = -1
$Verbindungen[$x][1] = -1
NextWhile 1
[/autoit]
For $x = 0 To UBound($Verbindungen) -1
If $Verbindungen[$x][0] = -1 Then
$Verbindungen[$x][0] = TCPAccept($Socket)
If $Verbindungen <> -1 Then
$Timer = TimerInit()
Do
$Resv = TCPRecv($Verbindungen[$x][0],1024)
Until $Resv <> "" Or TimerDiff($Timer) >= 2000
If $Resv <> "" Then
$Verbindungen[$x][1] = $Resv
Else
TCPCloseSocket($Verbindungen[$x][0])
$Verbindungen[$x][0] = -1
$Verbindungen[$x][1] = -1
EndIf
EndIf
EndIf
$Resv = TCPRecv($Verbindungen[$x][0], 99999)
If @error And $Verbindungen[$x][0] <> -1 Then
TCPCloseSocket($Verbindungen[$x][0])
$Verbindungen[$x][0] = -1
$Verbindungen[$x][1] = -1
EndIf
If $Resv <> "" Then
For $y = 0 To UBound($Verbindungen) -1
If $Verbindungen[$y][0] <> -1 Then
TCPSend($Verbindungen[$y][0], $Verbindungen[$x][1] & ":" & $Resv)
EndIf
Next
EndIf
Next
WEndund hier ein passender Client
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
TCPStartup()$sNick = InputBox("Nickname", "Wie willst du im Chat heißen?")
[/autoit] [autoit][/autoit] [autoit]
If @error Then Exit
If StringStripWS($sNick,
= "" Then Exit$sIP = InputBox("Server IP", "Bitte Server IP eingeben")
[/autoit] [autoit][/autoit] [autoit]
If @error Then Exit$sSock = TCPConnect($sIP, 5000)
[/autoit] [autoit][/autoit] [autoit]If @error Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(16, "Error", "Verbindungsfehler!")
Exit
EndIfTCPSend($sSock, $sNick)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Client", 625, 443, 192, 124)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$List = GUICtrlCreateList("", 8, 8, 609, 344)
$Edit = GUICtrlCreateEdit("", 8, 360, 513, 65, $ES_MULTILINE, 0)
GUICtrlSetData(-1, "Edit")
$Send = GUICtrlCreateButton("Senden", 536, 360, 81, 33)
GUISetState(@SW_SHOW)While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Send
$tmp = GUICtrlRead($Edit)
If StringStripWS($tmp, <> "" Then
TCPSend($sSock, $tmp)
GUICtrlSetData($Edit, "")
Else
MsgBox(64, "Chat Client", "Mann kann keine Nachrichten ohne Inhalt senden.")
EndIf
EndSwitch
$resv = TCPRecv($sSock, 8255)
If $resv <> "" Then GUICtrlSetData($List, $resv, 1)
WEnd -
Ahha. So und jetzt hat er sogar noch was er will..
-
Ich hab sowas bei mir liegen. Es kommen öfter welche bei mir an und haben fragen wegen Tcp
@Zocker-SZ: Aber ich hoffe das du denn nicht behaubtest das du das geschrieben hättest.
-
@Zocker-SZ: Aber ich hoffe das du denn nicht behaubtest das du das geschrieben hättest.Lol, ... Keine Antwort ...
-
Tja, das passiert heit wenn man so Skripte Leuten gibt, die (denkt euch was nettes aus
) sind.
Tja, das ist eben der Dank von so dankbaren Leuten.
-
Ich würde damit aufhören. Er soll es wenigstens selber versuchen
-
Wenn du einen Messenger bauen willst, google mal _TocLib.au3
-
@Pinguin94: Lol, geiler Titel (musste mal sein)
