//SI PAS ThreadEtat("modulo_info_ip") = threadEnCours ALORS

//ThreadExécute("modulo_info_ip",threadNormal,MODULO_STATISTICHE_IP)

//FIN

MODULO_STATISTICHE_IP()

CAS EXCEPTION:

RETOUR

// Traitement automatique des exceptions : exécuter le bloc de code CAS EXCEPTION:

Procedure MODULO_STATISTICHE_IP()

// CODICE BY SERGIO CIONINI (sergiocionini@libero.it)

C, L sont entier

datum22, Line, Header, Day, Datum, GMTTime sont chaînes

SI InternetConnecté = Vrai ALORS

ExécuteTraitement(GetDateTimeByHTTP.btn_info_ip,trtClic)

GetDateTimeByHTTP.TXT_IP_RETE=NetAdresseIP()

GetDateTimeByHTTP.TXT_NOME_PC=NetNomMachine()

GetDateTimeByHTTP.txt_mac_address=NetAdresseMAC()

HTTPJauge(GetDateTimeByHTTP.Jauge_modulo_ip)

SI HTTPRequête(SansEspace(GetDateTimeByHTTP.Edit_HTTP_Site)) ALORS

GetDateTimeByHTTP.Edit_HTTP_Result = HTTPDonneRésultat(httpEntête)

Header = GetDateTimeByHTTP.Edit_HTTP_Result

C = ChaîneOccurrence(Header,RC)

POUR L = 1 A C

Line = ExtraitChaîne(Header,L,RC)

SI Gauche(Line,5) = "Date:" ALORS

Day = Milieu(Line,7,3)

Datum = Milieu(Line,11,12)

GMTTime = Milieu(Line,24,8)

datum22 = Milieu(Datum,9,4)

SELON Milieu(Datum,5,3)

CAS "Jan": datum22 += "01"
CAS "Feb": datum22 += "02"
CAS "Mar": datum22 += "03"
CAS "Apr": datum22 += "04"
CAS "May": datum22 += "05"
CAS "Jun": datum22 += "06"
CAS "Jul": datum22 += "07"
CAS "Aug": datum22 += "08"
CAS "Sep": datum22 += "09"
CAS "Oct": datum22 += "10"
CAS "Nov": datum22 += "11"
CAS "Dec": datum22 += "12"

AUTRE CAS

datum22 += "01"
FIN

datum22 += Milieu(Datum,2,2)

GetDateTimeByHTTP.Edit_HTTP_Date = datum22

GetDateTimeByHTTP.Edit_HTTP_Time = Gauche(GMTTime,2)+Milieu(GMTTime,4,2)+Milieu(GMTTime,7,2)

FIN

FIN

SINON

Info("Server occupato - riprovare piu tardi")

FIN

SINON

Info("Manca la connessione internet")

FIN


CAS EXCEPTION:

RETOUR