PureBasic

pour info , j'ai mis a jour the Colorer pour la version 4.20
avec bien sur ajout des nouvelles fonction a colorer

Dispo sur mon site.

Il faudrait mettre ton site dans signature

Frenchy Pilou a écrit :Il faudrait mettre ton site dans signature

et le bouton [www] en bas de chaqu'un de mes messages, il sert a quoi a ton avis ??

Effectivement

C'est le syndrome de la lettre volée d'Edgar Poe!

On a tout sous les yeux mais on ne le voit pas

@Dobro, une personne vient de se plaindre sur mon site que Colorer ne marchait pas : http://rx14.info/public/index.php?a=Colorer

j'ai repondu

je lance un appel a ceux qui ont telecharger The Colorer

l'avez vous essayé ??

testez le ici dans ce topic s'il vous plait

je commence :

InitNetwork ()

  Header$ = GetHTTPHeader ( "http://www.purebasic.com/index.php3" )

   Repeat
    Index+1
    Line$ = StringField (Header$, Index, #LF$ )
     Debug Line$
   Until Line$ = ""

ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
         ;/ Author : Pille
        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
ProcedureDLL.s Url2Text(Url.s)
         ProcedureReturn Url2Text2(Url,1, "" )
EndProcedure

apparement ça marche bien ... Merci Ar-s