Enumeration 
  #Window_0
EndEnumeration 

Enumeration 
  #PopupMenu_0
EndEnumeration 

Enumeration
  #StatusBar_0
EndEnumeration 

Enumeration 
  #arial
EndEnumeration 

Enumeration 
  #Image
EndEnumeration 

Global Port = 6832 
Global ConnectionID 
Global conect
Global adduser$
Global ConnectTimer


adduser$=Chr(159) 
UsePNGImageDecoder() ; Поддержка открытия рисунков в PNG формате.
UsePNGImageEncoder() ; Поддержка сохранения рисунков в PNG формате.

InitNetwork()

Declare Connect_Server()

Procedure TimerConnected()
  Shared ConnectTimer
  ConnectTimer+1
  conect=0
  
  SetWindowTitle(#Window_0, ""+Str(ConnectTimer))
  If ConnectTimer>=60
    ConnectTimer=0
    KillTimer_(WindowID(#Window_0), 2)
    ; Goto ren ; Это слишком грубо и может вызвать ошибки, связанные со стеком!
    Connect_Server()
  EndIf
EndProcedure

Procedure Open_Client() 
  If OpenWindow(#Window_0, 0, 0, 404, 200, "NetControl (Client)",#PB_Window_SystemMenu |#PB_Window_MinimizeGadget|#PB_Window_TitleBar |#PB_Window_ScreenCentered) 
;     hBrush1 = CreateSolidBrush_(RGB($00,$00,$00))  
;     SetClassLong_(WindowID(#Window_0), #GCL_HBRBACKGROUND, hBrush1) 
    ImageGadget(#Image, 0 ,0, 404, 200, CatchImage(#Image, ?BackImg)) : DisableGadget(#Image, #True)
    If CreateStatusBar(#StatusBar_0, WindowID(#Window_0)) 
      AddStatusBarField(#PB_Ignore)
      StatusBarText(#StatusBar_0, 0, "Сервер отключен...Ожидается соединение", #PB_StatusBar_Center) 
    EndIf 
    CreatePopupMenu(#PopupMenu_0) ; А где создание пунктов меню?
  EndIf 
EndProcedure 

Procedure Connect_Server()
  ;ren:
  If ReadFile(1, "config.cfg")
    
    If ConnectionID ; Нужно разрывать связь когда она уже не нужна
      CloseNetworkConnection(ConnectionID)
      ConnectionID = 0
      conect=0
    EndIf
    
  ConnectionID = OpenNetworkConnection(ReadString(1),Port)
  If ConnectionID
    KillTimer_(WindowID(#Window_0), 2)
    StatusBarText(0, 0, "Клиент успешно подключен...", #PB_StatusBar_Center)
    conect=1
  Else
    conect=0
    SetTimer_(WindowID(#Window_0), 2, 1000, @TimerConnected())
  EndIf
    StatusBarText(0, 0, "Нет файла "+Chr(34)+"config.cfg"+Chr(34)+"!", #PB_StatusBar_Center)
  EndIf
  
  If conect=1
    text$=adduser$+Hostname()+">"
    SendNetworkString(ConnectionID,text$)
  EndIf
EndProcedure 

Procedure CommanServer(name_consol$)
  ;Делаем скриншот рабочего стола, и пересылаем файл серверу
  If name_consol$="snapshot"
    CaptureFullScreen() ; Создание скриншота всего экрана
    name_screen$="SnapShot.png"
    SaveCapture(name_screen$,#PB_ImagePlugin_PNG,0) ; Сохренение скриншота в виде рисунка в формате png
    SendNetworkString(ConnectionID,"s")
    SendNetworkFile(ConnectionID,name_screen$)
    DeleteFile(name_screen$)
  EndIf
  ;
  If name_consol$="scandisc"
    
  EndIf
  ;Получаем список запущенных программ клиента и пересылаем серверу
  If name_consol$="runprogramms"
    EnumProcessInit()
    name_file$="RunProgramm.txt"
    CreateFile(0,name_file$)
    Repeat
      Temp.s=EnumProcess()
      WriteStringN(0,Temp ,#PB_UTF8)
    Until Temp=""
    CloseFile(0)
    SendNetworkString(ConnectionID,"r")
    SendNetworkFile(ConnectionID,name_file$)
    DeleteFile(name_file$)
  EndIf
  ;Отключаем клиента от сервера и переходим в режим ожидания
  If name_consol$="quit"
    CloseNetworkConnection(ConnectionID)
    StatusBarText(#StatusBar_0, 0, "Сервер отключен...Ожидается соединение", #PB_StatusBar_Center)
    SetTimer_(WindowID(#Window_0), 2, 1000, @TimerConnected())
  EndIf
  
  ;Завершаем программу клиента
  If name_consol$="exit"
    End
  EndIf
  
EndProcedure

Procedure HelloServer_Timer() ; Раз в 20 секунд стучимся к серверу по портам 9000, 9001 и 9002.
  Protected Port, Connect
  
  For Port = 9000 To 9002
    Connect = OpenNetworkConnection("Тут нужно указать адрес сервера", Port)
    If Connect
      ; Здесь если нужно, что-то передаем серверу.
      CloseNetworkConnection(Connect)
    EndIf
  Next 
  
EndProcedure

Open_Client()
Connect_Server()

SetTimer_(WindowID(#Window_0),4, 20000, @HelloServer_Timer() )

Repeat 
  Event=WaitWindowEvent(10)
  
  If conect=1
    If NetworkClientEvent(ConnectionID)=#PB_NetworkEvent_Data
      *mem=AllocateMemory(10000); Память под данные
      If *mem
        ReceiveNetworkData(ConnectionID,*mem,10000) ; Считывание данных отправленных сервером
        name_consol$=PeekS(*mem)
        CommanServer(name_consol$)
        FreeMemory(*mem)
      EndIf
    EndIf
    
    If NetworkClientEvent(ConnectionID)=#PB_NetworkEvent_File
      ReceiveNetworkFile(ConnectionID,"Update.exe") ; Считывание файла от сервера
    EndIf
    
  EndIf
  
  
Until Event= #PB_Event_CloseWindow 
If ConnectionID
  CloseNetworkConnection(ConnectionID)
EndIf
End

DataSection
  BackImg:
  IncludeBinary "Image.png" ; В папку с исходником кидаем рисунок "Image.png" являющийся фоном для окна. Он нужен только для компиляции, а для EXE не требуется.
EndDataSection