Programs4All

I've got a problem. I just tried out the NomadMemory UDF, and it seemed to work; _MemoryWrite() returned 1. But When I tested out in the program, or watched in CheatEngine, the value didn't change? Do you know why? The program is hackable, I know that, because I developed it just to hack it..

I've done that. Now I'm standing infront of a new Problem . How can i receive TCP Messages with the Client? I Dont get it right now, because i dont want to use my old ChageSocket Function, that you can see on the top of the page... Is it able to Receive with TCPConnet (,) ?

I dont. I just put them together in one box here. Oh, and its possible. I scriptet a TCPChat with Server and Client in one script, and all worked.

And I just see, that AutoIt gets the wrong data from the File. So at Fileread, it gets a mess. The wrong mess. xD

Doesn't work... I receive a File, that gets an error message from Windows: "Photo Gallery can't open this photo or video. The file may be unsupportet, damaged or corrupted." Where is my problem? ;Server: #include <TCP.au3> #include <ScreenCapture.au3> TCPStartup () $iClient_PIP = @IPAddress1 $iPort = 1234 $iSocket = TCPConnect($iClient_PIP,$iPort) _ScreenCapture_Capture(@DesktopDir&"\DRServer.jpg") $hScreenFile = FileOpen(@DesktopDir&"\DRServer.jpg") $sScreenToSend = FileRead($hScreenFile) TCPSend($iSocket,$sScreenToSend) ;Client: #include <TCP.au3> #include <File.au3> $iPort = 1234 TCPStartup() $Main_Socket = TCPListen(@IPAddress1,$iPort) Do $Accept = TCPAccept($Main_Socket) Until $Accept <> -1 Local $Data While 1 $Received = TCPRecv($Accept, 2048, 1) If @error and @Error <> -1 Then ExitLoop $Data &= $Received WEnd _FileCreate(@DesktopDir&"\Picture Received.jpg") FileWrite(@DesktopDir&"\Picture Received.jpg",$Data)

I started with programming a kind of DesktopRemote. For that, i need a live Desktop View. I want to realize that, with sending jpg screenshots per TCP. ;Server (Controlled) : #include <TCP.au3> #include <ScreenCapture.au3> $iClient_PIP = @IPAddress1 $iPort = 1234 _ScreenCapture_Capture(@DesktopDir&"\DRServer.jpg") $hScreenFile = FileOpen(@DesktopDir&"\DRServer.jpg") $sScreenToSend = FileRead($hScreenFile) SendIP($iClient_PIP,$iPort,$sScreenToSend) ;Client (Controller) : #include <TCP.au3> $iPort = 1234 $iScreenReceived = ReceiveIP(@IPAddress1,$iPort) FileWrite(@DesktopDir&"\Picture Received.jpg",$iScreenReceived) My #Include <TCP.au3> File: #include <IE.au3> #include <String.au3> Func IP () $IE = _IECreate("wieistmeineip.de",0,0) $IP = _StringBetween(_IEBodyReadHTML($IE),'<div class="title"><strong>','</strong></div>')[0] Return $IP EndFunc $OwnIP = IP () $Main_Socket = 0 Func ChangeSocket ($IP_Address,$IP_Port) TCPShutdown () $Main_Socket = 0 TCPCloseSocket($Main_Socket) TCPStartup () $Main_Socket = TCPListen($IP_Address,$IP_Port) EndFunc Func SendIP ($IP_Addre,$IP_Por,$Data) ChangeSocket ($IP_Addre,$IP_Por) $New_Socket = TCPConnect($IP_Addre,$IP_Por) $TCP_SEND = TCPSend($New_Socket,$Data) If $TCP_SEND < 1 Then MsgBox(0,"Error","Data couldn't be sent."&@CRLF&"Maybe the Receiver is offline."&@CRLF&"Maybe the IPAddress does not exist.") Return -1 Else Return 1 EndIf ChangeSocket($OwnIP,$IP_Por) EndFunc Func ReceiveIP ($IP_Add,$IP_Po) ChangeSocket($IP_Add,$IP_Po) Do $Accept = TCPAccept($Main_Socket) Until $Accept <> -1 Do $Received = TCPRecv($Accept,10000000000000000000000000000) Until $Received <> "" Return $Received EndFunc It works, but the Picture that arrives isn't completed. How can i fix that? (For first i just want to send 1 Screenshot.)

I changed it a bit, to make it comfortable for German Users: $structSystemPowerStatus = DllStructCreate("byte ACLineStatus; byte BatteryFlag; byte BatteryLifePercent; byte Reserved1; dword BatteryLifeTime; dword BatteryFullLifeTime") $x = 0 $p = 100 While 1 $ret = DllCall("kernel32.dll", "int", "GetSystemPowerStatus", "ptr", DllStructGetPtr($structSystemPowerStatus)) $nOnBattery = DllStructGetData($structSystemPowerStatus, "ACLineStatus") $nBatteryLife = DllStructGetData($structSystemPowerStatus, "BatteryLifePercent") If $nBatteryLife < $p -5 Then MsgBox(48, "Batterie Status", "Der Akku ist nur noch zu "&$nBatteryLife&"% gefüllt!") $p = $nBatteryLife EndIf If $nOnBattery == 0 Then If $x = 1 Or $x = 0 Then MsgBox(48, "Nicht angeschlossen!", "Der Computer ist nicht angeschlossen, und läuft über den Akku. ("&$nBatteryLife&"%)") $x = 2 EndIf Else If $x = 2 Or $x = 0 Then MsgBox(48, "Angeschlossen!", "Der Computer ist angeschlossen. ("&$nBatteryLife&"%)") $x = 1 EndIf EndIf WEnd