Bildschirm per TCP senden

Dustin

Ich bhabe mal inzwischen etwas weitergemacht aber es funktioniert immer noch nicht richtig.

1. GUICtrlCreatePic kann nur bmp darstellen wenn ich das richtig aus der hilfe rausgelesen hab.

2. Ich habe mal manuell verucht eine jpg zu kopieren mit rechtsklick->öfnen mit->Editor und das bei der anderen jpg auch und dann Strg+a kopiert und bei dem anderen eingefügt. ergebnis: nix windows bildanzeige kann das bild net öffnen.

3. die zahl in dem tooltip endert sich immer minimal aber das bild was mit _ScreenCapture_Capture gemacht wird endert sich nich das iss immer mein desktop bevor Server.exe die GUI sichtbar macht.

mein aktueller code:
Server:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
HotKeySet("{ESC}", "_Exit")

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

TCPStartup()

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

$IP = InputBox("IP-Adresse", "ZU verbindende IP-Adresse eingeben.")

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

$MainSocket = TCPListen($IP, 1911, 128)

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

;Auf Client warten
Do
$Socket = TCPAccept($MainSocket)
Until $Socket >= 0

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

;Auf daten @DesktopHeight und @DesktopWidth vom clienten warten
Do
$Settings = TCPRecv($Socket, 16384)
Sleep(25)
Until $settings <> ""
$Setting = StringSplit($settings, "|")

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

;GUI erstellen
GUICreate("", $Setting[1], $Setting[2], 0, 0, $WS_POPUP)
$GPic = GUICtrlCreatePic("", 0, 0, $Setting[1], $Setting[2])
GUISetState()

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

;Auf Nachricht warten und anzeigen
$show = 0
While True
$message = TCPRecv($Socket, 16384)
Sleep(25)
If $message <> "" Then
If StringLeft($message,14) = "****ANFANG****" Then ;beim anfang file löschen
FileDelete(@ScriptDir & "\Pics.jpg")
ElseIf StringRight($message,14) = "******ENDE****" Then ;beim ende show = 1 und nachricht löschen
$show = 1
$message = StringTrimRight($message,14)
EndIf
$FOB = FileOpen(@ScriptDir & "\Pics.jpg", 1)
FileWrite($FOB, $message)
FileClose($FOB)
If $show = 1 Then
GUICtrlSetImage($GPic, @ScriptDir & "\Pics.jpg")
$show = 0
EndIf
$message = ""
EndIf
WEnd

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

Client:

Spoiler anzeigen

[autoit]

#include <ScreenCapture.au3>

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

HotKeySet("{ESC}", "_Exit")

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

_ScreenCapture_SetJPGQuality(25)

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

TCPStartup()

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

InputBox("Deine IP Adresse", "Sende diese Nummer am Dustin per ICQ. Diese Nummer brauche ich damit das programm fumktioniert. Noch nicht auf OK klicken!!!", @IPAddress1)

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

;Mit Server verbinden
$Socket = TCPConnect("192.168.0.9", 1911)
If $Socket = -1 Then
TrayTip("Fehler:", "Konnte nicht verbunden werden." & @CRLF & "Error code: " & @error, 5)
Sleep(5000)
Exit
EndIf

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

TCPSend($Socket, @DesktopWidth & "|" & @DesktopHeight)

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

While True
;Bildschirm kopieren und senden
_ScreenCapture_Capture(@ScriptDir & "\Picc.jpg")
Sleep(20)
$FOB = FileOpen(@ScriptDir & "\Picc.jpg", 0)
TCPSend($Socket, "****ANFANG****")
Sleep(50)
$Bytes = 0
While 1

$Pic = FileRead($FOB,16384)
If @error = -1 Then ExitLoop
$Bytes += TCPSend($Socket, $Pic)
Sleep(20)

WEnd
ToolTip($Bytes, 0, 0)
FileClose($FOB)
TCPSend($Socket,"******ENDE****")
WEnd

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

qon

Hmm, also GuiCtrlCreatePic geht jedenfalls auch bei JPG's
Und auch bei einer niedrigen Qualität.
Bei meinem script würde es ja funktionieren wenn ers per TCP versenden würde, ich weiss allerdings nicht, warum ers nich versendet.
Wenn ichs in einem kleineren Script teste funzt es mit TCPsend.

Dustin

hmm hat mein pc was gegen mich oder was?

ich habe noch was entdekt und zwar dass ich das pic in der GUI zeige und gleichzeitig wird es dann auch noch gelöscht das sollte doch eigentlich nicht gehen oder?

McPoldy

HI, ich habe grade zwar ein recht ruckeliges bild bekommen aber immer hin

so war das Skript vorher:

Code

While True
$message = TCPRecv($Socket, 16384)
Sleep(25)
If $message <> "" Then
    If StringLeft($message,14) = "****ANFANG****" Then            ;beim anfang file löschen
        FileDelete(@ScriptDir & "\Pics.jpg")
    ElseIf StringRight($message,14) = "******ENDE****" Then        ;beim ende show = 1 und nachricht löschen
        $show = 1
        $message = StringTrimRight($message,14)
EndIf
    $FOB = FileOpen(@ScriptDir & "\Pics.jpg", 1)
    FileWrite($FOB, $message)
    FileClose($FOB)


If $show = 1 Then
        GUICtrlSetImage($GPic, @ScriptDir & "\Pics.jpg")
        $show = 0
    EndIf
    $message = ""
EndIf
WEnd

Alles anzeigen

so hab ich ihn

Code

While True
$message = TCPRecv($Socket, 16384)
Sleep(25)
If $message <> "" Then
    If StringLeft($message,14) = "****ANFANG****" Then            ;beim anfang file löschen
        FileDelete(@ScriptDir & "\Pics.jpg")
    ElseIf StringRight($message,14) = "******ENDE****" Then        ;beim ende show = 1 und nachricht löschen
        $show = 1
        $message = StringTrimRight($message,14)
Else
    $FOB = FileOpen(@ScriptDir & "\Pics.jpg", 1)
    FileWrite($FOB, $message)
    FileClose($FOB)
    EndIf
If $show = 1 Then
        GUICtrlSetImage($GPic, @ScriptDir & "\Pics.jpg")
        $show = 0
    EndIf
    $message = ""
EndIf
WEnd

Alles anzeigen

Ich habe also nur die if um ein else erweitert und das endif nach unten gesetzt. ich hatte mich gewundert das auf einmal inder pics datei *****ANFANG***** drinnen stand weil es wurde die bild datei immer beschrieben, egal ob nun die bild daten oder der anfang und ende wert gekommen sind.

progandy

So, ich hab nochmal weitergemacht:

Server

[autoit]

#include <GUIConstants.au3>
#include <String.au3>

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

HotKeySet("{ESC}", "_Exit")

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

;GUI erstellen
;$Gui = Guicreate("Life-Desktop",@desktopwidth-200,@desktopheight-200)
;$GPic = GUICtrlCreateGraphic(0, 0)

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

TCPStartup()

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

$IP = InputBox("IP-Adresse", "IP des Servers")

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

$MainSocket = TCPListen($IP, 1911, 128)
SplashTextOn("Au3 Life-Desktop","Warten auf Client" & @CRLF & "Abbruch mit [ESC]")
;Auf Client warten
Do
$Socket = TCPAccept( $MainSocket)
Until $Socket >= 0
$hex_AnfangStr = _StringToHex("****ANFANG****")
$hex_EndeStr = _StringToHex("******ENDE****")
;Auf daten @DesktopHeight und @DesktopWidth vom clienten warten
Do
$Settings = TCPRecv($Socket, 16384)
Sleep(25)
Until $settings <> ""
$Setting = StringSplit($settings, "|")
;FileDelete(@ScriptDir & "\Pic.jpg")
;GUI erstellen
If @DesktopHeight-20 <= Number($Setting[2]) Then $Setting[2] = Int($Setting[2] * 0.8)
If @DesktopWidth-20 <= Number($Setting[1]) Then $Setting[1] = Int($Setting[1] * 0.8)
$GUI = GUICreate("", $Setting[1], $Setting[2])
$GPic = GUICtrlCreatePic(@ScriptDir & "\Pic.jpg", 0, 0, $Setting[1], $Setting[2])
SplashOff()
GUISetState()
Dim $tempmsg
;Auf Nachricht warten und anzeigen
While True
$show = 0
$message = TCPRecv($Socket, 16384,1)
Sleep(25)
If $tempmsg <> "" Then $message = "Ox" & $tempmsg & StringTrimLeft($message,2)
$tempmsg = ""
If $message <> "" Then
ConsoleWrite(StringLeft($message,4) & @LF)
If StringInStr($message,$hex_EndeStr,1) Then
$show = 1
Sleep(20)
$tempmsg = StringSplit($message,$hex_EndeStr,1)
$message = $tempmsg[1]
If $tempmsg[0] > 1 Then
$tempmsg = $tempmsg[2]
Else
$tempmsg = ""
EndIf
Sleep(20)
EndIf
If StringLeft($message,StringLen($hex_AnfangStr)+2) = "0x" & $hex_AnfangStr Then
$message = StringTrimLeft($message,StringLen($hex_AnfangStr)+2)
;MsgBox(0, $hex_AnfangStr, StringLeft($message,50))
FileDelete(@ScriptDir & "\Pic.jpg")
EndIf
$FOB = FileOpen(@ScriptDir & "\Pic.jpg", 17)
FileWrite($FOB, $message)
FileClose($FOB)
If $show Then
Sleep(20)
GUICtrlSetImage($GPic, @ScriptDir & "\Pic2.jpg")
GUICtrlSetImage($GPic, @ScriptDir & "\Pic.jpg")
Sleep(20)
EndIf
$message = ""
EndIf
If GUIGetMsg() = $GUI_EVENT_CLOSE Then _Exit()
WEnd

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

Client

[autoit]

#include <ScreenCapture.au3>

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

HotKeySet("{ESC}", "_Exit")

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

_ScreenCapture_SetBMPFormat(0)

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

TCPStartup()

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

$IP = InputBox("Deine IP Adresse", "Gib die IP ein, an die du deine Screenshots senden willst.", "127.0.0.1")

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

;Mit Server verbinden
For $i = 1 To 5
$Socket = TCPConnect($IP, 1911)
If $Socket = -1 Then
TrayTip("Fehler:", "Konnte nicht verbunden werden." & @CRLF & "Versuch " & $i & "von 5" & @CRLF & "Error code: " & @error, 5)
Sleep(5000)
Else
ExitLoop
EndIf
Next
If $Socket = -1 Then Exit
TCPSend($Socket, @DesktopWidth & "|" & @DesktopHeight)

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

While 1
;Bildschirm kopieren und senden
_ScreenCapture_SetJPGQuality(30)
_ScreenCapture_Capture(@scriptdir & "\lifescreen.jpg",0,0,@desktopwidth,@desktopheight,True)
TCPSend($Socket,"****ANFANG****")
Sleep(20)
$bytes = 0
$FOB = FileOpen(@scriptdir & "\lifescreen.jpg", 16)
While 1

$Pic = FileRead($FOB,16384)
If @error = -1 Then ExitLoop
$bytes += TCPSend($Socket, $Pic)

WEnd
FileClose($FOB)
Sleep(20)
TCPSend($Socket,"******ENDE****")
ToolTip($bytes)
Sleep(500)
WEnd

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

Sleep(5000)

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

Dustin

danke für eure hilfe progandy und McPoldy.
ich habe noch ein paar sachen geendert und jetzt klappts zumindest bei mir auf dem PC

Server

[autoit]

#include <GUIConstants.au3>
#include <String.au3>

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

HotKeySet("{ESC}", "_Exit")

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

TCPStartup()

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

$IP = InputBox("IP-Adresse", "Zu verbindende Ip angeben", @IPAddress1)

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

$MainSocket = TCPListen($IP, 1911, 128)
;Auf Client warten
Do
$Socket = TCPAccept($MainSocket)
Until $Socket >= 0
$hex_AnfangStr = _StringToHex("****ANFANG****")
$hex_EndeStr = _StringToHex("******ENDE****")

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

;Auf daten @DesktopHeight und @DesktopWidth vom clienten warten
Do
$Settings = TCPRecv($Socket, 16384)
Sleep(25)
Until $settings <> ""
$Setting = StringSplit($settings, "|")

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

;GUI erstellen
GUICreate("", $Setting[1], $Setting[2], 0, 0, $WS_POPUP)
$GPic = GUICtrlCreatePic("", 0, 0, $Setting[1], $Setting[2])
GUISetState()
Dim $tempmsg
;Auf Nachricht warten und anzeigen
While True
$show = 0
$message = TCPRecv($Socket, 16384,1)
Sleep(25)
If $tempmsg <> "" Then $message = "Ox" & $tempmsg & StringTrimLeft($message,2)
$tempmsg = ""
If $message <> "" Then
ConsoleWrite(StringLeft($message,4) & @LF)
If StringInStr($message,$hex_EndeStr,1) Then
$show = 1
Sleep(20)
$tempmsg = StringSplit($message,$hex_EndeStr,1)
$message = $tempmsg[1]
If $tempmsg[0] > 1 Then
$tempmsg = $tempmsg[2]
Else
$tempmsg = ""
EndIf
EndIf
If StringLeft($message,StringLen($hex_AnfangStr)+2) = "0x" & $hex_AnfangStr Then
$message = StringTrimLeft($message,StringLen($hex_AnfangStr)+2)
FileDelete(@ScriptDir & "\Pics.jpg")
EndIf
$FOB = FileOpen(@ScriptDir & "\Pics.jpg", 17)
FileWrite($FOB, $message)
FileClose($FOB)
If $show Then
GUICtrlSetImage($GPic, "")
FileCopy(@ScriptDir & "\Pics.jpg", @ScriptDir & "\Pics2.jpg", 1)
GUICtrlSetImage($GPic, @ScriptDir & "\Pics2.jpg")
EndIf
$message = ""
EndIf
If GUIGetMsg() = $GUI_EVENT_CLOSE Then _Exit()
WEnd

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

Client

[autoit]

#include <ScreenCapture.au3>

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

HotKeySet("{ESC}", "_Exit")

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

TCPStartup()

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

$IP = InputBox("Deine IP Adresse", "Gib die IP ein, an die du deine Screenshots senden willst.", @IPAddress1)

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

;Mit Server verbinden
For $i = 1 To 5
$Socket = TCPConnect($IP, 1911)
If $Socket = -1 Then
TrayTip("Fehler:", "Konnte nicht verbunden werden." & @CRLF & "Versuch " & $i & "von 5" & @CRLF & "Error code: " & @error, 5)
Sleep(5000)
Else
ExitLoop
EndIf
Next
If $Socket = -1 Then Exit
TCPSend($Socket, @DesktopWidth & "|" & @DesktopHeight)

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

While 1
;Bildschirm kopieren und senden
_ScreenCapture_SetJPGQuality(25)
_ScreenCapture_Capture(@scriptdir & "\Picc.jpg",0,0,@desktopwidth,@desktopheight,True)
TCPSend($Socket,"****ANFANG****")
Sleep(20)
$bytes = 0
$FOB = FileOpen(@scriptdir & "\picc.jpg", 16)
While 1

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

$Pic = FileRead($FOB,16384)
If @error = -1 Then ExitLoop
$bytes += TCPSend($Socket, $Pic)

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

WEnd
FileClose($FOB)
Sleep(20)
TCPSend($Socket,"******ENDE****")
ToolTip($bytes)
Sleep(500)
WEnd

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

Sleep(5000)

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

thx Progandy

progandy

man screibt:

Code

[spoiler=NAME][/spoiler]

Dustin

achso hab vergessen die nächste frage zu sellen

also es funktioniert zwar auf meinem pc verbunden mit meinem pc also wenn bei beiden scripts 127.0.0.1 als IP angegeben wird.
problem es funktioniert noch nicht mal in unserem lokalen netztwerk und erst recht nich zu einem pc außerhalb unseres netzwerks.
dann kommt immer TCP/IP-error 10060 also timeout.
muss man da ne Portfreigabe beim router machen oder von beiden die online IP angeben oder beides.

progandy

Alos:

Code

Server: 
	IP: _GetIP()
	Portfreigabe/Weiterleitung: JA
Client:
	IP: IP des Servers
	Portfreigabe/weiterleizung: NEIN

Dustin

also wenn ich das richtig verstandenhabe bei beiden _GetIP() und dann die IP´s austauschen.
und ne portfreigabe für die IP die bei mir bei _GetIP() rauskommt.

habs jetzt so gemacht funktioniert aber noch immer nich.

so langsam weis ich net mehr was noch falsch sein könnte.

Carsten8

im Server nicht _GetIP() sondern die WAN IP

Dustin

Hiiilfe was iss ne WAN IP
also ich habs jetzt auf beide arten probiert also einmal der Client verbindet sich auf den server mit meiner _GetIP() und der server verbindet sich mit dem client auf die @IPAdress1 von mir.
jeweils mit ner portfreigabe von port 1911 auf IPAdress1 und _GetIP() also jeweils zweimal ausprobiert. weiterleitung hab ich net gefunden.

progandy

Sry das muss so sein:
Server: Netzwerk-IP, meist @IPAdress1
... TCPListen( @IPAdress1,PORT)
msgBox(0,"Dem Client schicken!",_GetIP())

Client: Internet-IP des Servers (_GetIP() auf dem Server)
... TCPConnect(SERVERADDRESS,PORT)

Also weiterleitun brauchst du auch net.. bloß manchmal heißt portfreigabe auch weiterleitung...

Carsten8

genau Dustin hast du ICQ? Kannst mich gern mal anschreibn

Dustin

Es Funktioniert!!!!

Meine aktuelle version: (mit portfreigabe auf meine @IPAdress1 port 1911)

Server

[autoit]

#include
#include
#include

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

HotKeySet("{ESC}", "_Exit")

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

TCPStartup()

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

InputBox("IP-Adresse", "An Client schicken.", _GetIP())

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

$MainSocket = TCPListen(@IPAddress1, 1911, 128)
;Auf Client warten
Do
$Socket = TCPAccept($MainSocket)
Until $Socket >= 0
$hex_AnfangStr = _StringToHex("****ANFANG****")
$hex_EndeStr = _StringToHex("******ENDE****")

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

;Auf daten @DesktopHeight und @DesktopWidth vom clienten warten
Do
$Settings = TCPRecv($Socket, 16384)
Sleep(25)
Until $settings <> ""
$Setting = StringSplit($settings, "|")

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

;GUI erstellen
GUICreate("", $Setting[1], $Setting[2], 0, 0, $WS_POPUP)
$GPic = GUICtrlCreatePic("", 0, 0, $Setting[1], $Setting[2])
GUISetState()
Dim $tempmsg
;Auf Nachricht warten und anzeigen
While True
$show = 0
$message = TCPRecv($Socket, 16384,1)
Sleep(25)
If $tempmsg <> "" Then $message = "Ox" & $tempmsg & StringTrimLeft($message,2)
$tempmsg = ""
If $message <> "" Then
ConsoleWrite(StringLeft($message,4) & @LF)
If StringInStr($message,$hex_EndeStr,1) Then
$show = 1
Sleep(20)
$tempmsg = StringSplit($message,$hex_EndeStr,1)
$message = $tempmsg[1]
If $tempmsg[0] > 1 Then
$tempmsg = $tempmsg[2]
Else
$tempmsg = ""
EndIf
EndIf
If StringLeft($message,StringLen($hex_AnfangStr)+2) = "0x" & $hex_AnfangStr Then
$message = StringTrimLeft($message,StringLen($hex_AnfangStr)+2)
FileDelete(@ScriptDir & "\Pics.jpg")
EndIf
$FOB = FileOpen(@ScriptDir & "\Pics.jpg", 17)
FileWrite($FOB, $message)
FileClose($FOB)
If $show Then
GUICtrlSetImage($GPic, "")
FileCopy(@ScriptDir & "\Pics.jpg", @ScriptDir & "\Pics2.jpg", 1)
GUICtrlSetImage($GPic, @ScriptDir & "\Pics2.jpg")
Sleep(50)
EndIf
$message = ""
EndIf
If GUIGetMsg() = $GUI_EVENT_CLOSE Then _Exit()
WEnd

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

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc

[/autoit]

Client

[spoiler]#include <ScreenCapture.au3>
#include <INet.au3>

HotKeySet("{ESC}", "_Exit")

TCPStartup()

$IP = InputBox("Deine IP Adresse", "Trage die Nummer die Dustin dir gibt hier ein.")

;Mit Server verbinden
For $i = 1 To 5
$Socket = TCPConnect($IP, 1911)
If $Socket = -1 Then
TrayTip("Fehler:", "Konnte nicht verbunden werden." & @CRLF & "Versuch " & $i & "von 5" & @CRLF & "Error code: " & @error, 5)
Sleep(5000)
Else
ExitLoop
EndIf
Next
If $Socket = -1 Then Exit
TCPSend($Socket, @DesktopWidth & "|" & @DesktopHeight)

While 1
;Bildschirm kopieren und senden
_ScreenCapture_SetJPGQuality(20)
FileDelete(@scriptdir & "\picc.jpg")
_ScreenCapture_Capture(@scriptdir & "\Picc.jpg",0,0,@desktopwidth,@desktopheight,True)
TCPSend($Socket,"****ANFANG****")
Sleep(20)
$bytes = 0
$FOB = FileOpen(@scriptdir & "\picc.jpg", 16)
While 1

$Pic = FileRead($FOB,16384)
If @error = -1 Then ExitLoop
$bytes += TCPSend($Socket, $Pic)

WEnd
FileClose($FOB)
Sleep(20)
TCPSend($Socket,"******ENDE****")
ToolTip($bytes)
Sleep(50)
WEnd

Sleep(5000)

Func _Exit()
TCPCloseSocket($Socket)
TCPShutdown()
Exit
EndFunc[/AutoIt]

Es funktioniert jetzt zwar aber es erscheint nur ca. ein bild pro sekunde ich hab schon was probiert dass der server ne nachricht schickt wenn er fertig ist ist dardurch ist es aber nicht schneller geworden. kann mir da noch einer helfen weil ich hab da schon einen timer eingesetzt und der brauch für einen durchlauf nur ca. 32ms also sollte das doch sehr viel scneller gehen oder?