Hi ihr Autoitler,
habe vor nen eigenen Messenger zu machen. Kann mir hier mal jemand nen Quellcode geben???
L.g. Zocker-SZ
Hi ihr Autoitler,
habe vor nen eigenen Messenger zu machen. Kann mir hier mal jemand nen Quellcode geben???
L.g. Zocker-SZ
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...
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
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
$Verbindungen[$x][0] = -1
$Verbindungen[$x][1] = -1
Next
While 1
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
WEnd
und hier ein passender Client
#include <EditConstants.au3>
TCPStartup()
$sNick = InputBox("Nickname", "Wie willst du im Chat heißen?")
If @error Then Exit
If StringStripWS($sNick, = "" Then Exit
$sIP = InputBox("Server IP", "Bitte Server IP eingeben")
If @error Then Exit
$sSock = TCPConnect($sIP, 5000)
[/autoit] [autoit][/autoit] [autoit]If @error Then
MsgBox(16, "Error", "Verbindungsfehler!")
Exit
EndIf
TCPSend($sSock, $sNick)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Client", 625, 443, 192, 124)
$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
$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)