PureBasic

Code : Tout sélectionner

Tchat.php :

<?php
if(!is_file('Tchat.txt'))
{
	$Tchat=array();
	file_put_contents('Tchat.txt', serialize($Tchat));
}
if(isset($_GET['Action']))
{
	if($_GET['Action']=='Post' AND isset($_GET['Pseudo']) AND isset($_GET['Message']))
	{
		$Tchat=unserialize(file_get_contents('Tchat.txt'));
		$Tchat[time()]=$_GET['Pseudo'].':'.$_GET['Message'];
		file_put_contents('Tchat.txt', serialize($Tchat));		
	}
	elseif($_GET['Action']=='Refresh')
	{
		$Tchat=unserialize(file_get_contents('Tchat.txt'));
		ksort($Tchat);
		foreach($Tchat as $Time => $Message)
		{
			echo $Message.'<br/>';
		}
	}
}
?>

Code : Tout sélectionner

Votre fichier .pb
DelayRefresh=3 ; frequence d'actualisation du tchat en secondes

Enumeration
  #Fenetre
  #Editeur
  #Message  
  #Pseudo  
  #Police
EndEnumeration

Procedure.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
    isLoop.b=1
    INET_RELOAD.l = $80000000
    hInet.l=0
    hURL.l=0
    Bytes.l=0
    Buffer.s=Space(2048)
    RES.s=""   
   
    hInet = InternetOpen_("", OpenType, ProxyAndPort, "", 0)
    hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0)
   
    Repeat
        InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes)
        If Bytes = 0
            isLoop=0
        Else
            RES = RES + Left(Buffer, Bytes)
        EndIf
    Until isLoop=0
   
    InternetCloseHandle_(hURL)
    InternetCloseHandle_(hInet)
    ProcedureReturn RES
EndProcedure

Procedure.s Get(Url.s)
    ProcedureReturn Url2Text2(Url,1,"")
  EndProcedure
  
Procedure Refresh(Delay)

  Repeat
    Try$=Get("http://URLDUSCRIPT.fr/Tchat.php?Action=Refresh")
    Affichage$=ReplaceString(Try$,"<br/>",Chr(10))
    SetGadgetText(#Editeur,Affichage$)
    Delay(Delay*1000)
  ForEver

EndProcedure

OpenWindow(#Fenetre, 0, 0, 600, 560,"Yrahen", #PB_Window_SystemMenu)
LoadFont(#Police, "Tahoma", 14) 
SetGadgetFont(#PB_Default, FontID(#Police)) 
EditorGadget(#Editeur, 10, 10, 580, 490,#PB_Editor_ReadOnly|#PB_Editor_WordWrap)
StringGadget(#Message, 190, 510, 400, 40, "")
StringGadget(#Pseudo, 10, 510, 170, 40, "")
AddKeyboardShortcut(#Fenetre, #PB_Shortcut_Return, 15)

CreateThread(@Refresh(), DelayRefresh)

   Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  
      End
    ElseIf Event=#PB_Event_Menu And EventMenu()=15
      Pseudo$=GetGadgetText(#Pseudo)      
      Message$=GetGadgetText(#Message)      
      try$=Get("http://URLDUSCRIPT.fr/Tchat.php?Action=Post&Pseudo="+Pseudo$+"&Message="+Message$)
      SetGadgetText(#Message,"")
    EndIf

  ForEver

Code : Tout sélectionner

#include <stdio.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <signal.h>

char buffer[512];
int ma_socket;

void main ( void )
{
int client_socket;
struct sockaddr_in mon_address, client_address;
int mon_address_longueur, lg;

bzero(&mon_address,sizeof(mon_address));
mon_address.sin_port = htons(2000);
mon_address.sin_family = AF_INET;
mon_address.sin_addr.s_addr = htonl(INADDR_ANY);

/* creation de socket */
if ((ma_socket = socket(AF_INET,SOCK_STREAM,0))== -1)
{
  printf("la creation rate\n");
  exit(0);
}
signal(SIGINT,fin);
/* bind serveur - socket */
bind(ma_socket,(struct sockaddr *)&mon_address,sizeof(mon_address));

/* oreille socket */
listen(ma_socket,5);

/* accept connect */
mon_address_longueur = sizeof(client_address);
while(1)
{
  client_socket = accept(ma_socket,
                         (struct sockaddr *)&client_address,
                         &mon_address_longueur);

  if (fork() == 0)
  {
    close(ma_socket);

    lg = read(client_socket,buffer, 512);
    printf("le serveur a recu: %s\n",buffer);
    sprintf(buffer,"%s du serveur",buffer);
    write(client_socket,buffer, 512);
    shutdown(client_socket,2);
    close(client_socket);
    exit(0);
  }
}
shutdown(ma_socket,2);
close(ma_socket);
}

Code : Tout sélectionner

#include <stdio.h>
#include <errno.h>
#include <signal.h>

#include <netdb.h>
#include <netinet/in.h>
#include <sys/socket.h>

#define SERVEURNAME "*.*.*.*" // adresse IP du serveur

int to_server_socket = -1;

void main ( void )
{

char *server_name = SERVEURNAME;
struct sockaddr_in serverSockAddr;
struct hostent *serverHostEnt;
long hostAddr;
long status;
char buffer[512];

bzero(&serverSockAddr,sizeof(serverSockAddr));
hostAddr = inet_addr(SERVEURNAME);
if ( (long)hostAddr != (long)-1)
  bcopy(&hostAddr,&serverSockAddr.sin_addr,sizeof(hostAddr));
else
{
  serverHostEnt = gethostbyname(SERVEURNAME);
  if (serverHostEnt == NULL)
  {
    printf("gethost rate\n");
    exit(0);
  }
  bcopy(serverHostEnt->h_addr,&serverSockAddr.sin_addr,serverHostEnt->h_length);
}
serverSockAddr.sin_port = htons(30000);
serverSockAddr.sin_family = AF_INET;

/* create socket */
if ( (to_server_socket = socket(AF_INET,SOCK_STREAM,0)) < 0)
{
  printf("create socket client loupee\n");
  exit(0);
}
/* req connect */
if(connect( to_server_socket,
            (struct sockaddr *)&serverSockAddr,
            sizeof(serverSockAddr)) < 0 )
{
  printf("Connection loupee\n");
  exit(0);
}
/* Send and read */
write(to_server_socket,"Holla Toto",4);
read(to_server_socket,buffer,512);
printf(buffer);
/* close connect */
shutdown(to_server_socket,2);
close(to_server_socket);
}