Beiträge von Freaky

Freaky

Hallo
ich war zu faul ein neuen Thread aufzumachen und schreibe hier einfach mal rein (past ja auch zu Thema ^^)

So, ich möchte in meinem Chat auf ein Benutzer links klicken und das ich dann nur an ihn was schreibe und wenn ich angechrieben wurde und ich im anderen Chat bin, das eine Zahl mehr bei Post steht, und ich möchte ein Chat für alle machen also das alles beim Server reingeht

Mein Problem ist jetzt (endlich fange ich damit an ^^), wie kriege ich hin das er nur auf ein Benutzer was schikt ? ich kriege es nur hin das er zu dem selben schikt

Client

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <String.au3>
#RequireAdmin

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $iSocket, $iRecv, $iPacketlaenge, $login = 0

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Client", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, FileRead("serverip.ini"))
$Button2 = GUICtrlCreateButton("Login", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Login Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iSend = _packet("Name: " & @ComputerName, GUICtrlRead($Input1))
TCPSend($iSocket, $iSend)
Case $Button2
$iSocket = TCPConnect(_GUICtrlIpAddress_Get($IPAddress1), 100)
If @error Then
MsgBox(0, "Fehler", "Server läuft ist nicht.")
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
$login = 1
EndIf
EndSwitch
If $login = 1 Then
Server_Recv($iSocket)
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Server_Recv($iSocket)
$iRecv &= BinaryToString(TCPRecv($iSocket, 2048, 1))
$iPacketlaenge = StringInStr($iRecv, @CRLF & @CRLF, 1)
If $iPacketlaenge Then
$sPacket = StringLeft($iRecv, $iPacketlaenge - 1)
$iRecv = StringTrimLeft($iRecv, $iPacketlaenge + 3)
$rPacket = Server_Packet_Split($sPacket)
If $rPacket == "Accept" Then
TCPSend($iSocket, _packet("Connection", "True: " & @ComputerName))
GUICtrlSetData($Edit1, "Connected: True" & @CRLF & GUICtrlRead($Edit1))
Else
If $rPacket <> False Then GUICtrlSetData($Edit1, $rPacket & @CRLF & @CRLF & GUICtrlRead($Edit1))
EndIf
EndIf
EndFunc ;==>Server_Recv

[/autoit] [autoit][/autoit] [autoit]

Func Server_Packet_Split($iPacket)
Local $iTime, $iAktion, $iMsg, $iText
$iTime = _StringBetween($iPacket, "time=[", "]=")
$iAktion = _StringBetween($iPacket, "aktion=[", "]=")
$iMsg = _StringBetween($iPacket, "msg=[", "]=")
If $iAktion[0] = "Connection" Then Return $iMsg[0]
If $iAktion[0] = "Ping" Then Sleep(10)
If StringInStr($iAktion[0], "Name: ") Then
$iText = $iTime[0] & " " & StringReplace($iAktion[0], "Name: ", "") & @CRLF & $iMsg[0]
Return $iText
EndIf
EndFunc ;==>Server_Packet_Split

[/autoit] [autoit][/autoit] [autoit]

Func _packet($iAktion, $iMsg = "")
$iPacket = "time=[" & @HOUR & ":" & @MIN & ":" & @MIN & "]=" & @CRLF & _
"aktion=[" & $iAktion & "]=" & @CRLF & _
"msg=[" & $iMsg & "]=" & @CRLF & @CRLF
Return $iPacket
EndFunc ;==>_packet

[/autoit]

Server

[autoit]

#include <Array.au3>
#include <ArrayMore.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <GuiListView.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $iSocket, $iClient_Socket[1][2], $login = 0, $iRecv = "", $sItem[2]
$sItem[0] = "Alle|0|"
$iClient_Socket[0][0] = 0

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("Computername |Post", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat mit: Alle", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
$Button2 = GUICtrlCreateButton("Server starten", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Server Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

GUICtrlCreateListViewItem ("Alle|0",$ListView1)
_GUICtrlListView_SetItemSelected ($ListView1,0)

[/autoit] [autoit][/autoit] [autoit]

$iTimer = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iSend = _packet("Name: Server", GUICtrlRead($Input1))
TCPSend($sItem[1], $iSend)
Case $Button2
$iSocket = TCPListen(@IPAddress1, 100, 100)
If $iSocket = -1 Then
MsgBox(0, "Fehler", "Server konte nicht gestartet werden.")
Exit
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
FileDelete("serverip.ini")
FileWrite("serverip.ini", @IPAddress1)
EndIf
$login = 1
EndSwitch
If $login = 1 Then
_Client_Suche($iSocket)
For $i = 1 To $iClient_Socket[0][0]
Client_Recv($iClient_Socket[$i][0])
Next
If TimerDiff($iTimer) >= 5000 Then
_Client_Ping()
$iTimer = TimerInit()
EndIf
EndIf

[/autoit] [autoit][/autoit] [autoit]

If $sItem[0] <> GUICtrlRead (GUICtrlRead ($ListView1)) <> 0 Then
$sItem[0] = GUICtrlRead (GUICtrlRead ($ListView1))
$string = StringSplit ($sItem[0],"|")
For $i = 1 To $iClient_Socket[0][0]
If $iClient_Socket[$i][1] = $string[1] Then
$sItem[1] = $iClient_Socket[$i][0]
ExitLoop
EndIf
Next
GUICtrlSetData ($Group2,"Chat mit: " & $string[1])
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Client_Suche($iSocket)
Local $sClient
$sClient = TCPAccept($iSocket)
If $sClient <> -1 Then
;_ArrayAdd($iClient_Socket, $sClient)
_Array2DAdd($iClient_Socket, $sClient & "|")

[/autoit] [autoit][/autoit] [autoit]

$iClient_Socket[0][0] += 1
TCPSend($sClient, _packet("Connection", "Accept"))
Do
$iRecv = TCPRecv($sClient, 1024)
Until $iRecv <> ""
EndIf
EndFunc ;==>_Client_Suche

[/autoit] [autoit][/autoit] [autoit]

Func _packet($iAktion, $iMsg = "")
$iPacket = "time=[" & @HOUR & ":" & @MIN & ":" & @MIN & "]=" & @CRLF & _
"aktion=[" & $iAktion & "]=" & @CRLF & _
"msg=[" & $iMsg & "]=" & @CRLF & @CRLF
Return $iPacket
EndFunc ;==>_packet

[/autoit] [autoit][/autoit] [autoit]

Func _Client_Ping()
For $i = 1 To $iClient_Socket[0][0]
TCPSend($iClient_Socket[$i][0], _packet("Ping", "test"))
If @error Then
For $j = 0 To $iClient_Socket[0][0]
$gItem = _GUICtrlListView_GetItem($ListView1, $j - 1)
If $gItem[3] = $iClient_Socket[$j][1] Then
_GUICtrlListView_DeleteItem($ListView1, $j)
ExitLoop
EndIf
Next
GUICtrlSetData($Edit1, $iClient_Socket[$i][1] & " is disconnected..." & @CRLF & @CRLF & GUICtrlRead($Edit1))
_ArrayDelete($iClient_Socket, $i)
$iClient_Socket[0][0] -= 1
EndIf
Next
EndFunc ;==>_Client_Ping

[/autoit] [autoit][/autoit] [autoit]

Func Client_Recv($iSocket)
$iRecv &= BinaryToString(TCPRecv($iSocket, 2048, 1))
$iPacketlaenge = StringInStr($iRecv, @CRLF & @CRLF, 1)
If $iPacketlaenge Then
$sPacket = StringLeft($iRecv, $iPacketlaenge - 1)
$iRecv = StringTrimLeft($iRecv, $iPacketlaenge + 3)
$rPacket = Client_Packet_Split($sPacket)
If StringInStr($rPacket, "True: ") Then
GUICtrlSetData($Edit1, StringReplace($rPacket, "True: ", "") & " is connected..." & @CRLF & @CRLF & GUICtrlRead($Edit1))
GUICtrlCreateListViewItem(StringReplace($rPacket, "True: ", ""), $ListView1)
$iClient_Socket[UBound($iClient_Socket) - 1][1] = StringReplace($rPacket, "True: ", "")
ElseIf $rPacket <> False Then
GUICtrlSetData($Edit1, $rPacket & @CRLF & @CRLF & GUICtrlRead($Edit1))
EndIf
EndIf
EndFunc ;==>Client_Recv

[/autoit] [autoit][/autoit] [autoit]

Func Client_Packet_Split($iPacket)
Local $iTime, $iAktion, $iMsg, $iText
$iTime = _StringBetween($iPacket, "time=[", "]=")
$iAktion = _StringBetween($iPacket, "aktion=[", "]=")
$iMsg = _StringBetween($iPacket, "msg=[", "]=")
If $iAktion[0] = "Connection" Then Return $iMsg[0]
If $iAktion[0] = "Ping" Then Sleep(10)
If StringInStr($iAktion[0], "Name: ") Then
$iText = $iTime[0] & " " & StringReplace($iAktion[0], "Name: ", "") & @CRLF & $iMsg[0]
Return $iText
EndIf
EndFunc ;==>Client_Packet_Split

[/autoit]

Freaky

Ich meine das hier:

[autoit]

$var[1][0] = "a"
$var[1][1] = "c"
$var[2][0] = "a"
$var[2][1] = "c"
$var[3][0] = "a"
$var[3][1] = "c"
$var[4][0] = "a"
$var[4][1] = "c"

[/autoit]

so jetzt will ich $var[3] raus haben

Freaky

Wie kann ich jetzt mein Array löschen ?
bzw. wie wende ich _Array2DDelete richtig an ?

Freaky

OMG genaundas wa das was ich vergessen habe

Edit:
Wie kann ich jetzt mein Array löschen ?
bzw. wie wende ich _Array2DDelete richtig an ?

Freaky

Hallo,
ich möchte in ein 2D Array sachen eintragen, aber zuerst will ich noch 1 Sache eintragen danach im laufenden verlauf das zweite und nach ner Zeit die ganze Array löschen.

Wie bekomme ich das hin ?
Ich kriege es nur hin, beide Sachen sofort einzutragen aber nicht später eins hinzuzufügen

Freaky

Bei mir hat es erst funktioniert als ich (der Server) mein PC ins Netz bzw. Lokale Netzwerk freigegeben habe.

Freaky

Ah danke habe mich wohl verschrieben

Jetzt klapt es aber das senden über den Button1 funktioniert trozdem irgent wie nicht

Freaky

Danke für das Video, mache das grade halbwegs nach, habe aber irgent ein Fehler das der Client nichts bekommt vom TCPSend

Client

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#RequireAdmin

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $iSocket, $iRecv, $iPacketlaenge, $login=0

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Client", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, FileRead("serverip.ini"))
$Button2 = GUICtrlCreateButton("Login", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Login Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
TCPSend ($iSocket,GUICtrlRead ($Input1))
Case $Button2
$iSocket = TCPConnect (_GUICtrlIpAddress_Get ($IPAddress1),100)
If @error Then
MsgBox (0,"Fehler","Server läuft ist nicht.")
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
$login = 1
EndIf
EndSwitch
If $login = 1 Then
Server_Recv ($iSocket)
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Server_Recv($iSocket)
$iRecv &= BinaryToString (TCPRecv ($iSocket,2048,1))
$iPacketlaenge = StringInStr ($iRecv,@CRLF & @CRLF,1)
If $iPacketlaenge Then
$sPacket = StringLeft ($iRecv,$iPacketlaenge-1)
$iRecv = StringTrimLeft ($iRecv,$iPacketlaenge+3)
MsgBox (0,"",$sPacket & @CRLF & $iRecv)
GUICtrlSetData ($Edit1,$sPacket & @CRLF & GUICtrlRead ($Edit1))
EndIf
EndFunc

[/autoit]

Server

[autoit]

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $iSocket, $iClient_Socket[1]
$iClient_Socket[0] = 0

[/autoit] [autoit][/autoit] [autoit]

TCPStartup()

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("Computername ", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
$Button2 = GUICtrlCreateButton("Server starten", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Server Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = 1 To $iClient_Socket[0]
$test = TCPSend ($iClient_Socket[$i],GUICtrlRead ($Input1))
Next
Case $Button2
$iSocket = TCPListen(@IPAddress1, 100, 100)
If $iSocket = -1 Then
MsgBox(0, "Fehler", "Server konte nicht gestartet werden.")
Exit
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
FileDelete("serverip.ini")
FileWrite("serverip.ini", @IPAddress1)
EndIf
EndSwitch
_Client_Suche($iSocket)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Client_Suche($iSocket)
Local $sClient
$sClient = TCPAccept($iSocket)
If $sClient <> -1 Then
_ArrayAdd($iClient_Socket, $sClient)
$iClient_Socket[0] += 1
$test = TCPSend ($iSocket,_packet ("Connection","Accept"))
EndIf
EndFunc ;==>_Client_Suche

[/autoit] [autoit][/autoit] [autoit]

Func _Client_Rec($iSocket)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_Client_Rec

[/autoit] [autoit][/autoit] [autoit]

Func _packet($iAktion,$iMsg ="")
$iPacket = "time=[" & @HOUR & ":" & @MIN & ":" & @MIN & "]=" & @CRLF & _
"aktion=[" & $iAktion & "]=" & @CRLF & _
"msg=[" & $iMsg & "]=" & @CRLF & @CRLF
Return $iPacket
EndFunc ;==>_packet

[/autoit]

Freaky

Hallo,
ich schreibe momentan ein Chat über TCP. Das Problem ist ich kann was an den Server schiken, aber der Server nicht zurück zum Client.

Client

[autoit]

#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $socket, $connect = 0, $TempSocket, $socket2, $zahl = 0

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Client", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$ListView2 = GUICtrlCreateListView("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, FileRead("serverip.ini"))
$Button2 = GUICtrlCreateButton("Login", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Login Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
TCPSend($socket, "#Exit:" & @ComputerName)
TCPCloseSocket($socket)
TCPShutdown()
Exit
Case $Button1
TCPSend($socket, GUICtrlRead($Input1))
Case $Button2
TCPStartup()
$socket = TCPConnect(_GUICtrlIpAddress_Get($IPAddress1), 65432)
If $socket = -1 Then
GUICtrlSetData($Label, "Server läuft nicht.")
MsgBox(0, "Fehler", "Server läuft nicht.")
Else
$socket2 = TCPListen(_GUICtrlIpAddress_Get($IPAddress1), 65431, 100)
TCPSend ($socket,"listen")
Do
$TempSocket = TCPAccept($socket2)
Until $TempSocket <> -1
TCPSend($socket, "gefunden")
Do
TCPSend($socket, "#Name:" & @ComputerName)
$rec = TCPRecv($socket2, 2048)
Until $rec <> "ok"
TCPSend($socket, "#Name:" & @ComputerName)
GUICtrlSetData($Label, "Erfolgreich eingelogt.")
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
$connect = 1
EndIf
EndSwitch
If $connect = 1 Then
$rec = TCPRecv($socket2, 2048)
If $rec <> "" Then
GUICtrlCreateListViewItem(@HOUR & ":" & @MIN & "|Server|" & $rec, $ListView2)
EndIf
EndIf
WEnd

[/autoit]

Server

[autoit]

#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
Global $sClient[1][2], $socket

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("Computername", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$ListView2 = GUICtrlCreateListView("Zeit|Computername|Text ", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
$Button2 = GUICtrlCreateButton("Server starten", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Server Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$benutzer = GUICtrlRead (GUICtrlRead ($ListView1))
If $benutzer <> "" Then
For $i = 0 To UBound ($sClient)-1
If $benutzer = $sClient[$i][1] & "|" Then
For $j = 1 To 10
TCPSend ($sClient[$i][0],GUICtrlRead ($Input1))
Sleep (100)
Next
MsgBox (0,"","Gesendet")
EndIf
Next
Else
MsgBox (0,"Fehler","Bitte ein benutzer auswählen")
EndIf
Case $Button2
TCPStartup()
$socket = TCPListen(@IPAddress1, 65432, 100)
If $socket = -1 Then
GUICtrlSetData($Label, "Port Falsch.")
MsgBox(0, "ERROR", "Port Falsch")
Else
TCPSend($socket, "#Name:" & @ComputerName)
GUICtrlSetData($Label, "Server gestartet")
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
FileDelete("serverip.ini")
FileWrite("serverip.ini", @IPAddress1)
EndIf
EndSwitch
$TempSocket = TCPAccept($socket)
If $TempSocket <> -1 Then
ReDim $sClient[UBound ($sClient)+1][4]
$sClient[UBound($sClient)-2][0] = $TempSocket
Do
$rec = TCPRecv($sClient[UBound($sClient)-2][0], 2048)
Until $rec = "listen"
Do
$sClient[UBound($sClient)-2][3] = TCPConnect (@IPAddress1,65431)
Until $sClient[UBound($sClient)-2][3] <> -1
Do
$rec = TCPRecv($sClient[UBound($sClient)-2][0], 2048)
Until $rec <> ""
EndIf
For $i = 0 To UBound($sClient) - 1
$rec = TCPRecv($sClient[$i][0], 2048)
If $rec <> "" Then
If StringInStr($rec, "#Name:") Then
Do
TCPSend ($sClient[$i][0],"ok")
$rec2 = TCPRecv($sClient[$i][0], 2048)
Until $rec2 <> "back"
$sClient[$i][1] = StringReplace($rec, "#Name:", "")
GUICtrlCreateListViewItem ($sClient[$i][1],$ListView1)
MsgBox (0,"","senden")
TCPSend ($sClient[$i][0],"test")
ElseIf StringInStr($rec, "#Exit:") Then
;_GUICtrlListView_GetItemCount
Else
GUICtrlCreateListViewItem (@HOUR & ":" & @MIN & "|" & $sClient[$i][1] & "|" & $rec,$ListView2)
;MsgBox(0, $sClient[$i][1], $rec)
EndIf
EndIf
Next
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ Local $start = TimerInit()
;~ Do
;~ $ConnectedSocket = TCPAccept($socket)
;~ Until $ConnectedSocket <> -1 Or (TimerDiff($start) > 25000)
;~ $sClient[0][0] = $ConnectedSocket

[/autoit]

Freaky

Glaube ich nicht weil wie gesagt ich das alles in Live HTTP Headers eingeben kann und komme ohne Probleme auf die Seite

Freaky

Es funktioniert auch, nur ich komme auf diese Seite: https://customer.cc.at.paysafecard.com/psccustomer/ (aufjedenfall das Aussehen) und nicht auf diese hier: https://customer.cc.at.paysafecard.com/psccustomer/GetWelcomePanelServlet

Freaky

Und wieso kann ich über die Win HTTP Befehle ebenfals nicht auf die Seite kommen ?

Spoiler anzeigen

[autoit]

#include <WinHTTP.au3>
#include <WinHTTPConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $hw_open, $hw_connect, $h_openRequest

[/autoit] [autoit][/autoit] [autoit]

$hw_open = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 ( .NET CLR 3.5.30729)")
$hw_connect = _WinHttpConnect($hw_open, "customer.cc.at.paysafecard.com", $INTERNET_DEFAULT_HTTPS_PORT)

[/autoit] [autoit][/autoit] [autoit]

$seite = _pscbesuchen("/psccustomer/GetWelcomePanelServlet")
MsgBox (0,"",$seite)

[/autoit] [autoit][/autoit] [autoit]

Func _pscbesuchen($connect, $flag = 1)
$h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", $connect, "HTTP/1.1", _
$WINHTTP_NO_REFERER, $WINHTTP_DEFAULT_ACCEPT_TYPES, $WINHTTP_FLAG_SECURE)
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
$header = _WinHttpQueryHeaders($h_openRequest)
If _WinHttpQueryDataAvailable($h_openRequest) Then
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest, $flag)
Until @error <> 0
EndIf
Return $data
EndFunc ;==>_pscbesuchen

[/autoit]

Freaky

Wenn es an einem Computer sein soll, dann kannst du es über TCP machen oder über Fielewrite und Fileread

Freaky

Aber die WinHTTP UDF kann doch auch auf HTTPS connecten wieso geht das so nicht ?

Freaky

Ich erwarte die ganze Seite, ich kriege aber was vollkommend anderes.

Freaky

Ich kriege ja jetzt was zurück, das Problem ist, ich kriege nicht die eigentlich Seite zurück nur wenn ich das bei Live HTTP Headers reinkopiere, dann komm ich auf die Seite ohne Probleme

Freaky

Das hilft mir aber kein Stück weiter

Freaky

Und wie macht es dann InetRead ?

/Edit:
Und wie macht es dann die WinHTTP UDF ?

Freaky

Und wie soll ich es dann anstellen ?
Ich möchte nur mein Script fertig haben und tada noch mehr Probleme

Freaky

Ok danke funktioniert jetzt, aber ich werde nicht auf die richtige Seite geleitet

Was könnte Falsch sein ?

Beiträge von Freaky

(TCP/IP Tutorial ) verbindung schlägt immer fehl

_Array2D Frage bzw. Problem

_Array2D Frage bzw. Problem

_Array2D Frage bzw. Problem

_Array2D Frage bzw. Problem

(TCP/IP Tutorial ) verbindung schlägt immer fehl

TCP Chat > TCPSend kommt nicht an (glaube ich)

TCP Chat > TCPSend kommt nicht an (glaube ich)

TCP Chat > TCPSend kommt nicht an (glaube ich)

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

Chatbox-UDF für Chatscripting

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht

TCP Seite besuchen geht nicht