unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ScktComp, StdCtrls, ExtCtrls, IdBaseComponent, IdComponent,
   IdTCPConnection, IdTCPClient, IdHTTP;

type
   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     Bevel1: TBevel;
     Label1: TLabel;
     Server: TServerSocket;
     Memo1: TMemo;
     ListBox1: TListBox;
     Label2: TLabel;
     Label3: TLabel;
     Button3: TButton;
     Bevel2: TBevel;
     Edit1: TEdit;
     Button4: TButton;
     Timer1: TTimer;
     Label4: TLabel;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure ServerClientConnect(Sender: TObject;
       Socket: TCustomWinSocket);
     procedure ServerClientDisconnect(Sender: TObject;
       Socket: TCustomWinSocket);
     procedure ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);
     procedure Button4Click(Sender: TObject);
     //procedure Timer1Timer(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     //procedure ServerAccept(Sender: TObject; Socket: TCustomWinSocket);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   i:Integer;
   idhttp1:Tidhttp;
   guard:String;

implementation

{$R *.dfm}
{
function getip: string;
var
len, ip: string;
num:integer;
begin
try
idhttp1:= Tidhttp.Create(nil);
ip:= idhttp1.get('http://www.myip.ru/get_ip.php');
len:=ip;
num:=pos('<TD bgcolor=white align=center valign=middle>',len)+45;
delete(len,1,num);
len:=copy(ip, num, pos('<',len));
ip:= len;
Result:=ip;
idhttp1.Free;
except exit;
end;
end;
  }
procedure TForm1.Button1Click(Sender: TObject);
begin
Server.Port:=20000;
Server.Open;
Button2.Enabled:=true;
Button1.Enabled:=false;
If Server.Active=true then begin
Label1.Caption:='Run:'+IntToStr(Server.Port);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Server.Close;
Label1.Caption:='';
Button1.enabled:=true;
Button2.enabled:=false;
end;

procedure TForm1.ServerClientConnect(Sender: TObject;
   Socket: TCustomWinSocket);
begin
i:=i+1;
For i:=0 to Server.Socket.ActiveConnections-1 do
Server.Socket.connections[i].sendtext('#ip');
end;

procedure TForm1.ServerClientDisconnect(Sender: TObject;
   Socket: TCustomWinSocket);
begin
i:=i+1;
end;

procedure TForm1.ServerClientRead(Sender: TObject;
   Socket: TCustomWinSocket);
   var
   mes:string;
begin
mes:=Socket.ReceiveText;
if copy(mes,1,5)='#ip0 ' then begin
Delete(mes,1,5);
Listbox1.Items.add(mes);
Mes:='';
end;
Memo1.Lines.Insert(0,mes);
For i:=0 to Server.Socket.ActiveConnections-1 do
Server.Socket.Connections[i].SendText(mes);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Listbox1.Clear;
For i:=0 to Server.Socket.ActiveConnections-1 do
Server.Socket.Connections[i].SendText('#ip');
end;
{
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Guard:=getip;
if Label4.caption<>guard then
Label4.Caption:=guard;
end;
  }
procedure TForm1.Button3Click(Sender: TObject);
begin
For i:=0 to Server.Socket.ActiveConnections-1 do
Server.Socket.Connections[i].SendText(edit1.text);
end;

end.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdHTTP, ScktComp, jpeg, ExtCtrls;

type
   TForm1 = class(TForm)
     Button1: TButton;
     GroupBox1: TGroupBox;
     Label1: TLabel;
     Edit1: TEdit;
     Label2: TLabel;
     Edit2: TEdit;
     GroupBox2: TGroupBox;
     Memo1: TMemo;
     Button2: TButton;
     Edit4: TEdit;
     IdHTTP1: TIdHTTP;
     Image1: TImage;
     Client: TClientSocket;
     procedure Button1Click(Sender: TObject);
     procedure ClientError(Sender: TObject; Socket: TCustomWinSocket;
       ErrorEvent: TErrorEvent; var ErrorCode: Integer);
     procedure Button2Click(Sender: TObject);
    // procedure ClientRead(Sender: TObject; Socket: TCustomWinSocket);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;
   idhttp1:Tidhttp;

implementation

{$R *.dfm}
{
function getip: string;
var
len, ip: string;
num:integer;
begin
try
idhttp1:= Tidhttp.Create(nil);
ip:= idhttp1.get('http://www.myip.ru/get_ip.php');
len:=ip;
num:=pos('<TD bgcolor=white align=center valign=middle>',len)+45;
delete(len,1,num);
len:=copy(ip, num, pos('<',len));
ip:= len;
Result:=ip;
idhttp1.Free;
except exit;
end;
end;
  }

procedure TForm1.Button1Click(Sender: TObject);   //подключиться
begin
If Edit1.text='' then
Showmessage('Значение "Порт" не указано.');
If Edit2.text='' then
showmessage('Значение "Адрес" не указано.');
if Client.active=false then begin
Client.Port:=20000;
Client.Open;
Button1.Caption:='Подключиться';
end
else
begin
Client.Close;
Button1.Caption:='Отключиться';
end;
end;

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
   ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if ErrorCode=10061 then begin
Showmessage('Невозможно подключиться. Хост не найден или настройки подключения не верны. Код: '+IntToStr(ErrorCode));
ErrorCode:=0;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Client.Socket.SendText(Edit4.text);
Edit4.text:='';
end;
{
procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
mes:string;
begin
mes:=Socket.ReceiveText;
if copy(mes,1,4)='#ip' then begin
SOcket.SendText('#ip0 '+getip);
Delete(mes,1,4);
end;
Memo1.lines.add(mes);
end;}

end.

//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   SERVER  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

#include "stdafx.h"
#include  <WinSock2.h>
#include <Windows.h>
#include <atlsocket.h>
#include <atltypes.h>
#include <iostream>
#include <string.h>
#include <string>

#pragma comment(lib, "Ws2_32.lib")

using namespace std;

int _tmain(int argc, _TCHAR* argv[])
{   
   //Launching winsock
   WSADATA wsaDATA;
   WSAStartup(MAKEWORD(2,2),&wsaDATA);

   //creation of the socket
   int s=socket(AF_INET,SOCK_STREAM,0);

   SOCKADDR_IN sin;
   sin.sin_family=AF_INET;
   sin.sin_port=htons(5005);
   sin.sin_addr.s_addr=INADDR_ANY;
     
   //fixing the connection
   bind(s,(LPSOCKADDR)&sin,sizeof(sin));

   listen(s,SOMAXCONN);

   SOCKADDR_IN from;
   int fromlen=sizeof(from);
   SOCKET s1 = accept(s,(struct sockaddr*)&from, &fromlen);

    char str[60] = "";
   recv(s1, str, sizeof(str), 0 );   

   for (int i=0; i<sizeof(str); i++){
    cout<<str[i];
   };
    cout<<endl;

    if (str == "h"){
     cout<<"HUINYA"<<endl;
    };
     
    //////////////////////////////////
    cout<<"\n input str:"<<endl;

   string st;
   cin>>st;

   const char *st1 = st.c_str(); // string ->> const char*

      send( s1, st1,sizeof(st1), 0 );   
    //////////////////////////////

   // EXIT
   closesocket(s);
   closesocket(s1);
   WSACleanup();

   return 0;
}   

#include "stdafx.h"
#include <WinSock2.h>

#include <string.h>
#include <string>
#include <iostream>
using namespace std;
#pragma comment(lib,"shell32.lib")
#include <Shellapi.h>
#include <Windows.h>
#pragma comment(lib,"Ws2_32.lib")

//<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< CLIENT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

int _tmain(int argc, _TCHAR* argv[])
{
    int result;
   WSADATA wsaDATA;

   WSAStartup(MAKEWORD(2,2),&wsaDATA);

   int s = socket(AF_INET,SOCK_STREAM,0);

   SOCKADDR_IN sin;
   sin.sin_family=AF_INET;
   sin.sin_port=htons(5005);
   sin.sin_addr.S_un.S_addr=inet_addr("178.177.102.39");

   connect(s,(struct sockaddr*)&sin,sizeof(struct sockaddr));

   cout<<"\n input str:"<<endl;

   string st;
   cin>>st;

   const char *str = st.c_str(); // string ->> const char*
     

      send( s, str,sizeof(str), 0 );   

     
   do{
     
   char strrec[60] = "";

     result = recv(s,strrec, sizeof(strrec), 0 ) ;   
    cout<<strrec;

    if (strrec == "t") {
    ShellExecute(0,L"open",0,0,L"Shell:::{7007ACC7-3202-11D1-AAD2-00805FC1270E}",SW_SHOW);
    };

   } while (result > 0 );
      
     

   closesocket(s);
   WSACleanup();

   return 0;
}