Das hier funktioniert bei mir schonmal aufm localhost.
Ist quick and dirty
Spoiler anzeigen
#include<screencapture.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]TCPStartup()
$iSocket = TCPListen("127.0.0.1", 1337)
While 1
Do
$iClientSocket = TCPAccept($iSocket)
Until $iClientSocket > 0
ConsoleWrite("Habe einen Client auf Socket: " & $iClientSocket & @CRLF & @CRLF)
_ScreenCapture_Capture("Screen.jpg")
$sData=FileRead("Screen.jpg")
$sHeader = "HTTP/1.1 200 OK" & @CRLF & _
"Content-Type: image/jpg" & @CRLF & _
"Content-Length: " & StringLen($sData) & @CRLF & _
"Connection: close" & @CRLF & @CRLF & $sData
ConsoleWrite("Habe einen Screenshot erstellt.")
$hTimer = TimerInit()
Do
$sRecv = TCPRecv($iClientSocket, 1024)
Until $sRecv <> "" Or TimerDiff($hTimer) > 500
If TimerDiff($hTimer) < 500 Then
Do
$sRecv &= TCPRecv($iClientSocket, 1024)
Until StringInStr($sRecv, @CRLF & @CRLF)
ConsoleWrite("Habe Daten vom Browser empfangen: " & $sRecv & @CRLF & @CRLF)
EndIf
TCPSend($iClientSocket, $sHeader)
ConsoleWrite("Habe Daten versendet." & @CRLF & @CRLF)
TCPCloseSocket($iClientSocket)
WEnd
TCPShutdown()
Das als Server starten und dann per Browser auf die IP verbinden.
Das könnte man noch so umstellen das es im LAN läuft aber auch via Internet