Hi Leutz,
ich hatte vor einen Chat Clienten zu bauen,
die GUI's und alles werden auch denke ich kein Problem sein, allerdings hängts bei mir beim Grundgerüst, hab schon viel gesucht aber nichts gefunden.
Hier mein Serverscript:
Spoiler anzeigen
#include <file.au3>
#include <inet.au3>
$ip = _getip()
$port = "6667"
TCPStartUp()
$MainSocket = TCPListen($ip, $port, 128 )
If $MainSocket = -1 or @error Then
msgbox(0,"Error!",$mainsocket & " | " & @error)
Exit
EndIf
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
ExitLoop
EndIf
Wend
While 1
$Message=TCPRecv($ConnectedSocket,128)
Sleep(25)
If $Message<>"" Then
_filewritelog(@scriptdir & "\serverlog.log",$Message)
TCPsend($ConnectedSocket,"Erhalten: " & $Message)
EndIf
WEnd
mein Client:
Spoiler anzeigen
#include <inet.au3>
$messagewait = 0
$ip = _getip()
$port = "6667"
Hotkeyset("{end}","_isendmessage")
TCPStartUp()
$MainSocket=TCPConnect($ip, $port)
If $MainSocket = -1 Then Exit
msgbox(0,"","connected",1)
func _isendmessage()
$Message=InputBox("Sending message","Enter the message you wish to send to your computer")
if @error Then
msgbox(0,"error","error")
Exit
EndIf
TCPSend($MainSocket,$Message)
do
$msg = Tcprecv($mainsocket,12
sleep(20)
$messagewait = $messagewait + 1
until $msg <> "" or $messagewait > 25
If $msg = "Erhalten: " & $Message then
msgbox(0,"Erhalten",$msg)
Else
msgbox(0,"NICHT ERHALTEN","Nachricht konnte nicht gesendet werden!")
EndIf
$messagewait = 0
EndFunc
while 1
sleep(50)
WEnd
Im Lan Funktioniert das ganze auch, allerdings im internet nicht.
Egal welche I-Net IP ( oder meine eigene inetip ) ich eingebe es kommt immer Error.
Habs auch einem Kumpel gegeben da ist das selbe.
Der Code ist bis jetzt nur für Testzwecke und die Grundfunktionen.
Wenn da jemand was weiss wäre das geil
mfG qon, und gute nacht