ich möchte mir den Destop anzeigen lassen eines Remoterechners
Auf remote:
Spoiler anzeigen
#include<screencapture.au3>
[/autoit] [autoit][/autoit] [autoit];##### Einstellungen ######
$conctionip = "127.0.0.1"
TCPStartup()
$iSocket = TCPListen($conctionip, 80)
While 1
Do
$iClientSocket = TCPAccept($iSocket)
Until $iClientSocket > 0
ConsoleWrite("Habe einen Client auf Socket: " & $iClientSocket & @CRLF & @CRLF)
_ScreenCapture_SetJPGQuality(15)
_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()
Gui zum anzeigen:
Spoiler anzeigen
#include <ie.au3>
$gui= Guicreate("Remote",@DesktopWidth,@DesktopHeight-50)
$objIE = ObjCreate("Shell.Explorer.2")
GUICtrlCreateObj($objIE,100,100,@DesktopWidth-200,@DesktopHeight-400)
GUISetState()
$objIE.navigate("http://127.0.0.1/")
While True
$guimsg = GUIGetMsg()
Switch $guimsg
Case -3
Exit
EndSwitch
wend
[/autoit] [autoit][/autoit] [autoit][/autoit]Problem ist wenn ich z.B. 127.0.0.1 eintippe wenn der server auch bei mir läuft kommt unter FF das bild aber unter IE
eindownload für die Bilddatei deren Name dann 127-0-0-1 ist ohne bild ändung was ist am Serverfalsch bzw functioniert nicht mit IE
ich hoffe ihr könnt mir Helfen
Mfg
Buphx