ich hab mir mal den chat aus dem tutorial kopiert
hier mal der server
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $szIPADDRESS = "???" ;wenn ich der server bin denn muss hier meine ip hin oder?u
Dim $nPORT = 33891
TCPStartUp()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$MainSocket = TCPListen($szIPADDRESS, $nPORT)
[/autoit] [autoit][/autoit] [autoit]If $MainSocket = -1 Then Exit
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $GOOEY = GUICreate("My Server (IP: " & $szIPADDRESS & ")",300,200)
Dim $edit = GUICtrlCreateEdit("",10,10,280,180)
GUISetState()
Dim $ConnectedSocket = -1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1
Dim $szIP_Accepted = SocketToIP($ConnectedSocket)
[/autoit] [autoit][/autoit] [autoit]Dim $msg, $recv
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$recv = TCPRecv( $ConnectedSocket, 2048 )
If @error Then ExitLoop
If $recv <> "" Then GUICtrlSetData($edit, _
$szIP_Accepted & " > " & $recv & @CRLF & GUICtrlRead($edit))
WEnd
If $ConnectedSocket <> -1 Then TCPCloseSocket( $ConnectedSocket )
[/autoit] [autoit][/autoit] [autoit]TCPShutDown()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func SocketToIP($SHOCKET)
Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")
Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _
"ptr",DLLStructGetPtr($sockaddr),"int_ptr",DLLStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
[/autoit] [autoit][/autoit] [autoit]Return $aRet
EndFunc
hier mal der client
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]TCPStartUp()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $szServerPC = @IPAddress1; ist das z.B max-......?oder die ip
[/autoit] [autoit][/autoit] [autoit]Dim $szIPADDRESS = TCPNameToIP($szServerPC);Hier wird der Name zur IP umgewandelt
Dim $nPORT = 33891 ;ist es egal welcher port??
Dim $ConnectedSocket = -1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $szData
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If @error Then
MsgBox(4112,"Error","TCPConnect failed with WSA error: " & @error)
Else
[/autoit] [autoit][/autoit] [autoit]While 1
$szData = InputBox("Data for Server",@LF & @LF & "Enter data to transmit to the SERVER:")
If @error Or $szData = "" Then ExitLoop
TCPSend($ConnectedSocket,$szData)
If @error Then ExitLoop
WEnd
EndIf
kann mir bitte jemand erklären was ich falsch mache??
Ich kann auf einem rechner den server starten und mit dem client schreiben aber wenn ich dann prob mit meinem laptop den server öffnen will passiert nichts warum
Oder können wir bitte einen ganz neuen einfachen chat erstellen
P.S.Kann sich bitte jemand die zeit nehmen und mir helfen?