Contenu d'un web gadget

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

bon ! tu ne reponds toujours pas a ma question !!

estce que quelqu'un veux bien essayer ça :


  ;/ Author : Pille
; Proxy like this : "192.168.0.1:8080"

ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
     ; 1 INTERNET_OPEN_TYPE_DIRECT Resolves all host names locally.
     ; 0 INTERNET_OPEN_TYPE_PRECONFIG Retrieves the proxy Or direct configuration from the registry.
     ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.
     ; 3 INTERNET_OPEN_TYPE_PROXY Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT.
    
    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


;/ Test
  #Site = "http://google.com"
MessageRequester ( #Site ,Url2Text( #Site ))



et me dire si vous voyez le code source d'une page html ??

si vous ne voyez que des petit carré, dites le moi aussi
Merci ! ....
:?
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

@DOBRO

Eh bah moi, j'ai fait aussi vite que j'ai pu pour me jeter sur le code de pille, et l'essayer, mais BROSSDEN a été + rapide que moi. :(

Je t'ai répondu 2 POST avant .....

A ton service :wink:
ImageLe bonheur est une route...
Pas une destination

PureBasic Forum Officiel - Site PureBasic
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

Kwai chang caine a écrit :@DOBRO

Eh bah moi, j'ai fait aussi vite que j'ai pu pour me jeter sur le code de pille, et l'essayer, mais BROSSDEN a été + rapide que moi. :(

Je t'ai répondu 2 POST avant .....

A ton service :wink:
Merci , :D

tu me confirme que j'ai un problemme avec ma connection !! :D

Merci :D
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

J'ai trouvé le problem !!

ça ne viens pas de ma connection mais de JAPBE !!!

Gnozal nous a ajouté une option dans les preferences

si on désactive "Activer les Hotspots pour les url"
le code ci dessous ne marche pas !! :?

par contre si on active cette option , meme si l'option attenante
"Toujours visible" est décoché le code marche tres bien

ce code se connecte sur la française des jeux et recupere les numero de l'euromillion (ça va me servir pour updater mon prg "Euro million")
les chiffres sont inscrit en bas de page du gadget editeur !! :D

je vais en parler de ce pas a Gnozal


;/ Author : Pille
; Proxy like this : "192.168.0.1:8080"
Global Site.s= "http://www.fdjeux.com/jeux/euromillions ... tirage.php"
;Global Site.s="http://michel.dobro.free.fr/index.htm"



ProcedureDLL.s Url2Text2(Url.s, OpenType.b,ProxyAndPort.s)
     ; 1 INTERNET_OPEN_TYPE_DIRECT Resolves all host names locally.
     ; 0 INTERNET_OPEN_TYPE_PRECONFIG Retrieves the proxy Or direct configuration from the registry.
     ; 4 INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY Retrieves the proxy Or direct configuration from the registry And prevents the use of a startup Microsoft JScript Or Internet Setup (INS) file.
     ; 3 INTERNET_OPEN_TYPE_PROXY Passes requests To the proxy unless a proxy bypass list is supplied And the name To be resolved bypasses the proxy. In this Case, the function uses INTERNET_OPEN_TYPE_DIRECT.
    
    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

Procedure.s recup_loto() ; toute la page web est dans "Url2Text(#Site)"
    
    Position = FindString (Url2Text(Site.s), "<DIV CLASS=" + Chr ($22)+ "numero" ,1) ; on va filtrer les ligne de text
    ligne$= Mid (Url2Text(Site.s),Position,220) ; pour trouver nos chiffres
     For i= 1 To Len (ligne$)
        car$= Mid (ligne$,i,1)
         If Asc (car$)>47 And Asc (car$)<57 ; si on tombe sur des chiffres
            car2$=car2$+car$ ; on garde
         Else
            car2$=car2$+ "" ; sinon on ecrit rien
         EndIf
         If car$= "<"
            car2$=car2$+ ","
         EndIf
     Next i
     ; ***** petite bidouilles pour virer les virgules en trop ***********
    car2$= ReplaceString ( car2$, ",," , "," )
    car2$= Right (car2$, Len (car2$)-1)
    car2$= ReplaceString ( car2$, ",," , "" )
     ; ****************************************************
     ProcedureReturn car2$
EndProcedure



;/ Test
 
MessageRequester (Site.s,Url2Text(Site.s))
OpenWindow (0,10,10,800,600, "resultat" , #PB_Window_SystemMenu )
CreateGadgetList ( WindowID (0))
EditorGadget (2, 10, 10, 800,580)
AddGadgetItem (2, -1, Url2Text(Site.s))
AddGadgetItem (2, -1, "les chiffres de l'euro million : " +recup_loto())
Repeat
    Event= WindowEvent ()
    
Until Event = #PB_Event_CloseWindow

Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

correction d'un petit bug sur la routine ci-dessus

en effet je ne recuperai pas le "0" car mon test ne partait que du caractere ascii 49 !! :?

voila c'est corrigé , du coup cela a corrigé le Bug sur mon programme d'euro million

alors pour ceux qui s'en serve , n'oubliez pas de recuperer la derniere version :D
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

J'ai éssayé le code de GNOZAL donné par DROOPY qui copy le texte d'une page HTML et il me remonte une erreur : Invalide memory access :cry:

Que ce soit en v3.94 ou 4.10
Quelqu'un sait il pourquoi ?

Code : Tout sélectionner

; 
; Get HTML Text In WebGadget 
; 
; NOT COMPATIBLE WITH FREAK'S WebGadgetExtras.pb 
; 
Interface IHTMLDocument2_FIXED 
  QueryInterface(a,b) 
  AddRef() 
  Release() 
  GetTypeInfoCount(a) 
  GetTypeInfo(a,b,c) 
  GetIDsOfNames(a,b,c,d,e) 
  Invoke(a,b,c,d,e,f,g,h) 
  get_Script(a) 
  get_all(a) 
  get_body(a) 
  get_activeElement(a) 
  get_images(a) 
  get_applets(a) 
  get_links(a) 
  get_forms(a) 
  get_anchors(a) 
  put_title(a) 
  get_title(a) 
  get_scripts(a) 
  put_designMode(a) 
  get_designMode(a) 
  get_selection(a) 
  get_readyState(a) 
  get_frames(a) 
  get_embeds(a) 
  get_plugins(a) 
  put_alinkColor(a) 
  get_alinkColor(a) 
  put_bgColor(a) 
  get_bgColor(a) 
  put_fgColor(a) 
  get_fgColor(a) 
  put_linkColor(a) 
  get_linkColor(a) 
  put_vlinkColor(a) 
  get_vlinkColor(a) 
  get_referrer(a) 
  get_location(a) 
  get_lastModified(a) 
  put_URL(a) 
  get_URL(a) 
  put_domain(a) 
  get_domain(a) 
  put_cookie(a) 
  get_cookie(a) 
  put_expando(a) 
  get_expando(a) 
  put_charset(a) 
  get_charset(a) 
  put_defaultCharset(a) 
  get_defaultCharset(a) 
  get_mimeType(a) 
  get_fileSize(a) 
  get_fileCreatedDate(a) 
  get_fileModifiedDate(a) 
  get_fileUpdatedDate(a) 
  get_security(a) 
  get_protocol(a) 
  get_nameProp(a) 
  write(a) 
  writeln(a) 
  open(a,b1,b2,b3,b4,c1,c2,c3,c4,d1,d2,d3,d4,e) 
  close() 
  clear() 
  queryCommandSupported(a,b) 
  queryCommandEnabled(a,b) 
  queryCommandState(a,b) 
  queryCommandIndeterm(a,b) 
  queryCommandText(a,b) 
  queryCommandValue(a,b) 
  execCommand(a,b,c,d) 
  execCommandShowHelp(a,b) 
  createElement(a,b) 
  put_onhelp(a1,a2,a3,a4) 
  get_onhelp(a) 
  put_onclick(a1,a2,a3,a4) 
  get_onclick(a) 
  put_ondblclick(a1,a2,a3,a4) 
  get_ondblclick(a) 
  put_onkeyup(a1,a2,a3,a4) 
  get_onkeyup(a) 
  put_onkeydown(a1,a2,a3,a4) 
  get_onkeydown(a) 
  put_onkeypress(a1,a2,a3,a4) 
  get_onkeypress(a) 
  put_onmouseup(a1,a2,a3,a4) 
  get_onmouseup(a) 
  put_onmousedown(a1,a2,a3,a4) 
  get_onmousedown(a) 
  put_onmousemove(a1,a2,a3,a4) 
  get_onmousemove(a) 
  put_onmouseout(a1,a2,a3,a4) 
  get_onmouseout(a) 
  put_onmouseover(a1,a2,a3,a4) 
  get_onmouseover(a) 
  put_onreadystatechange(a1,a2,a3,a4) 
  get_onreadystatechange(a) 
  put_onafterupdate(a1,a2,a3,a4) 
  get_onafterupdate(a) 
  put_onrowexit(a1,a2,a3,a4) 
  get_onrowexit(a) 
  put_onrowenter(a1,a2,a3,a4) 
  get_onrowenter(a) 
  put_ondragstart(a1,a2,a3,a4) 
  get_ondragstart(a) 
  put_onselectstart(a1,a2,a3,a4) 
  get_onselectstart(a) 
  elementFromPoint(a,b,c) 
  get_parentWindow(a) 
  get_styleSheets(a) 
  put_onbeforeupdate(a1,a2,a3,a4) 
  get_onbeforeupdate(a) 
  put_onerrorupdate(a1,a2,a3,a4) 
  get_onerrorupdate(a) 
  toString(a) 
  createStyleSheet(a,b,c) 
EndInterface 

Interface IHTMLElement_FIXED 
  QueryInterface(a,b) 
  AddRef() 
  Release() 
  GetTypeInfoCount(a) 
  GetTypeInfo(a,b,c) 
  GetIDsOfNames(a,b,c,d,e) 
  Invoke(a,b,c,d,e,f,g,h) 
  setAttribute(a,b,c) 
  getAttribute(a,b,c) 
  removeAttribute(a,b,c) 
  put_className(a) 
  get_className(a) 
  put_id(a) 
  get_id(a) 
  get_tagName(a) 
  get_parentElement(a) 
  get_style(a) 
  put_onhelp(a1,a2,a3,a4) 
  get_onhelp(a) 
  put_onclick(a1,a2,a3,a4) 
  get_onclick(a) 
  put_ondblclick(a1,a2,a3,a4) 
  get_ondblclick(a) 
  put_onkeydown(a1,a2,a3,a4) 
  get_onkeydown(a) 
  put_onkeyup(a1,a2,a3,a4) 
  get_onkeyup(a) 
  put_onkeypress(a1,a2,a3,a4) 
  get_onkeypress(a) 
  put_onmouseout(a1,a2,a3,a4) 
  get_onmouseout(a) 
  put_onmouseover(a1,a2,a3,a4) 
  get_onmouseover(a) 
  put_onmousemove(a1,a2,a3,a4) 
  get_onmousemove(a) 
  put_onmousedown(a1,a2,a3,a4) 
  get_onmousedown(a) 
  put_onmouseup(a1,a2,a3,a4) 
  get_onmouseup(a) 
  get_document(a) 
  put_title(a) 
  get_title(a) 
  put_language(a) 
  get_language(a) 
  put_onselectstart(a1,a2,a3,a4) 
  get_onselectstart(a) 
  scrollIntoView(a) 
  contains(a,b) 
  get_sourceIndex(a) 
  get_recordNumber(a) 
  put_lang(a) 
  get_lang(a) 
  get_offsetLeft(a) 
  get_offsetTop(a) 
  get_offsetWidth(a) 
  get_offsetHeight(a) 
  get_offsetParent(a) 
  put_innerHTML(a) 
  get_innerHTML(a) 
  put_innerText(a) 
  get_innerText(a) 
  put_outerHTML(a) 
  get_outerHTML(a) 
  put_outerText(a) 
  get_outerText(a) 
  insertAdjacentHTML(a,b) 
  insertAdjacentText(a,b) 
  get_parentTextEdit(a) 
  get_isTextEdit(a) 
  click() 
  get_filters(a) 
  put_ondragstart(a1,a2,a3,a4) 
  get_ondragstart(a) 
  toString(a) 
  put_onbeforeupdate(a1,a2,a3,a4) 
  get_onbeforeupdate(a) 
  put_onafterupdate(a1,a2,a3,a4) 
  get_onafterupdate(a) 
  put_onerrorupdate(a1,a2,a3,a4) 
  get_onerrorupdate(a) 
  put_onrowexit(a1,a2,a3,a4) 
  get_onrowexit(a) 
  put_onrowenter(a1,a2,a3,a4) 
  get_onrowenter(a) 
  put_ondatasetchanged(a1,a2,a3,a4) 
  get_ondatasetchanged(a) 
  put_ondataavailable(a1,a2,a3,a4) 
  get_ondataavailable(a) 
  put_ondatasetcomplete(a1,a2,a3,a4) 
  get_ondatasetcomplete(a) 
  put_onfilterchange(a1,a2,a3,a4) 
  get_onfilterchange(a) 
  get_children(a) 
  get_all(a) 
EndInterface 
; 
Procedure.l GetBSTRLength(bstr) 
  Length = WideCharToMultiByte_(#CP_ACP, 0, bstr, -1, 0, 0, 0, 0) 
  ProcedureReturn Length 
EndProcedure 
; 
Procedure.l ReadBSTRMem(*Buffer, bstr, Length) 
  Length = WideCharToMultiByte_(#CP_ACP, 0, bstr, -1, *Buffer, Length, 0, 0)    
  ProcedureReturn Length 
EndProcedure 
; 
Procedure WebGadget_GextHTMLText(WebGadget.l) 
  Protected WebObject.IWebBrowser2, HTMLDoc.IHTMLDocument2_FIXED, DocDispatch.IDispatch, HTMLElement.IHTMLElement_FIXED 
  WebObject = GetWindowLong_(GadgetID(WebGadget), #GWL_USERDATA) 
  
  If WebObject\get_document(@DocDispatch) = #S_OK 
    If DocDispatch\QueryInterface(?IID_IHTMLDocument2, @HTMLDoc) = #S_OK 
      If HTMLDoc\get_body(@HTMLElement) = #S_OK 
        If HTMLElement\get_innerHTML(@bstr_code) = #S_OK 
          
          bstr_len = GetBSTRLength(bstr_code) 
          If bstr_len 
            *Buffer = AllocateMemory(bstr_len) 
            If *Buffer 
              If ReadBSTRMem(*Buffer, bstr_code, bstr_len) ; Get HTML code in *Buffer 
                Debug PeekS(*Buffer) ; [warning string size limitation, better use memory functions !] 
              EndIf 
              FreeMemory(*Buffer) 
            EndIf 
          EndIf 
          
          SysFreeString_(bstr_code) 
        EndIf 
      EndIf 
      DocDispatch\Release() 
    EndIf 
  EndIf 
  ProcedureReturn 
  
EndProcedure 

DataSection 
IID_IHTMLDocument2: ; {332C4425-26CB-11D0-B483-00C04FD90119} 
Data.l $332C4425 
Data.w $26CB, $11D0 
Data.b $B4, $83, $00, $C0, $4F, $D9, $01, $19        
EndDataSection 


OpenWindow(0,0,0,600,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") 
CreateGadgetList(WindowID(0)) 
WebGadget(0,10,10,580,280,"http://www.purebasic.com") 
Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow 

Debug PeekS(WebGadget_GextHTMLText(0))
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Et bien moi j'ai bataillé plusieurs jour mais j'arrive bien à manipuler les contenu web maintenant.

Voici la version Light de mon bbcode générator qui a pour but de créer des fiches de films en allant récupérer les données sur allociné

Il transforme le tout ensuite pour y afficher la fiche dans un forum en y insérant les balises BBcode :P

C'est sûrement optimisable mais c'est fonctionnel.

Code : Tout sélectionner

; BBcode Generator : codé par Ar-S / LDV MULTIMEDIA
; PB V4.02 - freeware :)
Enumeration
  #ARS
  #Titre
  #BT_Ferme
  #Image
  #Affiche
  #Text_Signe
  #Text_langue
  #Text_titre
  #Text_url
  #Image_titre
  #BTgenerer
  #Image_Image_21
EndEnumeration
;{ Mes globals
Global Titre_Tooltip
Global Langue_Tooltip
Global Image_Tooltip
Global MDP_Tooltip
Global BBC_Img$="[img]"
Global BBC_ImgFin$="[/img]"+Chr(10)+Chr(10)
Global BBC_Code$="[code]"
Global BBC_CodeFin$="
"+Chr(10)+Chr(10)
Global BBC_Titre$="[img]http://arspics.free.fr/bbcg/movie.jpg[/img]"+Chr(10)
Global v$="BBcode Generator V1.10.07 - Movie Edition"
Global avantDesc$="<td valign="+Chr(34)+"top"+Chr(34)+" style="+Chr(34)+"padding:10 0 0 0"+Chr(34)+"><div align="+Chr(34)+"justify"+Chr(34)+"><h4>"
Global apresDesc$="</h4></div></td>"
Global DebutNumFilm$="/film/fichefilm_gen_cfilm="
Global FinNumFilm$=".html"
Global DebutNum$="http://www.allocine.fr/film/fichefilm_gen_cfilm="
Global FinNum$=".html"
Global DebNumAuteur$="href="+Chr(34)+"/personne/fichepersonne_gen_cpersonne="
Global FinNumAuteur$="</a>"
Global DebDate$="Date de sortie : <b>"
Global FinDate$="</b>"
Global DebNumgenre$="Genre : <a href="+Chr(34)+"/film/alaffiche_genre_gen_genre="
Global FinNumGenre$="&genretxt="
Global FinGenre$=".html"+Chr(34)
Global DebNumRea$="Réalisé par <a class="+Chr(34)+"link1"+Chr(34)+" href="+Chr(34)+"/personne/fichepersonne_gen_cpersonne="
Global FinNumRea$="html"+Chr(34)+">"
Global FinRea$="</a>"
Global DebDuree$="<h4>Durée : "
Global FinDuree$=".&nbsp;"
Url$="http://www.allocine.fr"
Site.s=Url$
NumFilm$="0"
;}
;{
DataSection ;>
Image_Image_21:
Data.l $E0FFD8FF,$464A1000,$01004649,$64000002,$00006400,$1100ECFF,$6B637544,$00010079,$00000004,$FF00004B,$410E00EE,$65626F64
Data.l $00C06400,$FF010000,$008400DB,$02020203,$02030202,$03050302,$05050303,$04030304,$05050605,$06050505,$07070608,$08060707
Data.l $0A0A0908,$0C08090A,$0C0C0C0C,$0E0E0E0C,$10100E0E,$10101010,$10101010,$04040301,$0C060606,$120C0808,$120E0C0E,$10101014
Data.l $10111410,$10101010,$10101111,$10101010,$10101011,$10101010,$10101010,$10101010,$10101010,$10101010,$10101010,$00C0FF10
Data.l $1B000811,$01030301,$11020011,$01110301,$9A00C4FF,$07000000,$00000101,$00000000,$00000000,$04030000,$08070605,$00010102
Data.l $01010302,$00000000,$00000000,$00000000,$04020103,$00100605,$03030301,$04040402,$01070404,$02000000,$11040301,$12000605
Data.l $31132107,$A1082241,$51148332,$81824261,$621533C1,$71263423,$44B37252,$11171654,$01020200,$05020303,$01030204,$00000000
Data.l $03020100,$04122111,$F0514131,$91716113,$B181D1C1,$E1A13222,$051423F1,$0C00DAFF,$02000103,$00110311,$7AD5003F,$17678B00
Data.l $DD9A85DB,$F669CB29,$B8CF189F,$D842B4CB,$AD10D960,$54B4A80A,$C92A4DF3,$CC821761,$19C73392,$39BB3772,$B8D71A9C,$BB751989
Data.l $6A42B425,$25A6DB5C,$1B16D93A,$38B742AE,$4A4D705F,$D57AD08A,$544422B0,$C8BAE24F,$76B0C4EC,$6A0A5DA7,$5ACA380E,$AFBFE4A7
Data.l $C96D891C,$EED93830,$0D962005,$36991CD6,$B4370EE9,$06479AC4,$469E06AA,$7C9AE20B,$7272FCA7,$BB854BE5,$78A0E425,$D9BD91CB
Data.l $BDD6E0CC,$ADCB48C4,$13A22DD9,$31DDE652,$B0C8D629,$B91572DD,$6A82FBC2,$D6835654,$221281AD,$D2157FA2,$0E96981D,$4DA1EBA4
Data.l $4B19C741,$979AFC54,$EC31CA1E,$E6B517F7,$ED849BF8,$3BD9F0AA,$6C05DC10,$B2C90495,$A15497A8,$C6B6A60A,$EA224759,$7D71739D
Data.l $09DCE650,$1AF0062E,$1272A7A6,$239D3170,$E12F4AD9,$BB1DC8A9,$B8234B06,$E8F869C1,$D9A600CA,$F8684B37,$5F0A6CE8,$9A71EEDC
Data.l $DD1AB7F1,$F2697C32,$AB0C2A85,$82E80362,$35BB4DA8,$776DDCA6,$2530F422,$95EA5415,$E759D7E9,$DC8D703D,$543BE33A,$23BAD065
Data.l $D3C2EDBA,$22BAB86A,$1E89CD2E,$4115A243,$35A17543,$D2AAAA44,$B1E9F8AB,$586C197A,$E5105F93,$BDD94AB7,$A6F8A902,$4C2C94AD
Data.l $54B4A2A2,$47C0EAA2,$CBD63CF3,$E4E7D883,$3CD2D757,$4A0E632B,$DAF5F298,$68B943DB,$02BE649E,$4BD36B9E,$468BB09C,$CE084F2E
Data.l $DDCFFD78,$C508B947,$E9AFD89A,$C62398C5,$A6696463,$C69CEB15,$CB7B5485,$45255BB5,$404795EA,$A612E53F,$FEF2CEF5,$AAFE4F27
Data.l $87746B74,$A9FB2C58,$578B2BE2,$9C8B3998,$488C65A7,$646A6CB7,$F3E26254,$8951241E,$8D717FD3,$8A8E8256,$E5EB4497,$FD65720B
Data.l $0E8B3DDE,$EB955F3B,$7D9069EC,$4C63D1C9,$7AC0217A,$D0E36043,$C6CD265D,$5B15910C,$15886822,$8A2A7A45,$7A5A6BAA,$9E24991C
Data.l $946EE381,$A946BC61,$8ADC68F9,$A90E2385,$4F75A228,$03E4D414,$15950412,$F0D31A24,$420194D1,$A56C91C9,$90D1F317,$A07C3B0E
Data.l $3F1DEA0D,$1240191D,$41E7380C,$A303194D,$5269EB8C,$07329A4E,$E890C06D,$9A6A6CEF,$F204C88D,$559BC845,$4DABE8E1,$1820490E
Data.l $3900FFF8,$DB3A39C7,$FD62B878,$12AE58DA,$DF06376D,$11191340,$68CD565C,$21157406,$4AA8BB5D,$4545699D,$8F69C65A,$264199B2
Data.l $A22692FB,$B4D1F23C,$BE1AFEAA,$A2C78350,$D1D1C2BE,$6474FCA7,$345E3100,$194D27AA,$9B6C8303,$5D94A45D,$00E81C48,$C90B0268
Data.l $4A02A38A,$9FA4FEA7,$F7AC25FB,$B55100FF,$32F3757F,$FE611C7F,$DA1B79E5,$C56433CE,$C1A1766E,$589925AB,$1728629C,$CB0DC35B
Data.l $C96DDE70,$8480C364,$A19ECAE7,$AF6F1A15,$8A93E45A,$59EFA896,$6EB55165,$BA7CE15A,$572E5A1A,$0DC799C7,$CCC59FC3,$D9B46F7F
Data.l $766BBDA0,$224368C4,$CA68FCD6,$3AF11527,$A1177097,$5FEEAA12,$74ADE256,$73E2BFC9,$B970AE2C,$9FF3EE6E,$8EA7993A,$7200FF30
Data.l $67ED8DBC,$B762B219,$D5E0503B,$4EACCC92,$AD0B1431,$B8E586E1,$B2E4366F,$7342C061,$8A504FE5,$ADD7378D,$2D152757,$CAB2D351
Data.l $B5DC6AA3,$3474F9C2,$78CE4336,$44DB8F2D,$58E2428E,$8ADF1669,$D6DA6E42,$BD10EA3A,$DC2A9E6D,$1249E256,$D76D6EA9,$77D57A07
Data.l $5DCB5D75,$68FC76DA,$9BC6A573,$AEEF12BB,$23EE957C,$2F97E7ED,$9797DD58,$BD577EB3,$ADAECBC3,$08C0BC46,$E896DBA8,$EC8BE028
Data.l $D08F9103,$4D5151E2,$5587EDB0,$898A2F1A,$985C3636,$150527D7,$59CCA785,$5F79DE9D,$7890399E,$1DC90C0F,$ED78ADC6,$39D33DAA
Data.l $B52261C8,$0DBA512A,$9B9D6DAF,$D0915054,$7A22A1A0,$28A84A89,$56B65C2B,$F72B8C10,$9E5ECE5A,$EE5B40BF,$B7689F17,$CB0DB948
Data.l $FC65BA27,$3692777D,$BB0BEC8B,$C9B6E9BD,$129B016E,$B245D1A3,$71515002,$4F278936,$9342C39B,$1A7C0C4F,$4A982DE5,$9DAF985D
Data.l $503EE51F,$B67FBBE7,$B9BE3CDE,$07C65B8C,$F5AAACF7,$7D244C19,$6C0F19B1,$53490814,$0805256A,$97FA1177,$DC53E868,$11A667B2
Data.l $B2C66E85,$C4FBDC57,$F01EE799,$64D3FEB5,$26196ECD,$2FE81D3D,$F1F72CDF,$0281D76D,$2112246B,$0A81D8BE,$B509D189,$AF9290A8
Data.l $B5AA89CC,$7C8D6A89,$E8B2425E,$DBF324E5,$745F2CF6,$E37AD99C,$F18F0F8C,$DEEC76BC,$6A2C333D,$4732372C,$6C0BDD80,$B2B22336
Data.l $2501411F,$A5D19DDC,$B69B5611,$592AEAA6,$193CBD49,$2CABE3A8,$FC137D93,$39300AFE,$BDB88C2F,$D778CE1A,$36F9EF9D,$FB5E6E57
Data.l $29D4BBD6,$AABC6BC7,$111C3675,$798E80A3,$68D19929,$62A5F8AB,$D0519DE7,$CAB636D9,$C6F0DB31,$B3C4EC86,$709467BC,$E22157DB
Data.l $BB6B4726,$8C1CCBA3,$DFB15654,$5E74EE38,$F1B20DBD,$0F3DD8D6,$DC7E753F,$D7197CDC,$079773DE,$662293F8,$1F6C973A,$BECD94B6
Data.l $5A936C1F,$1DFEA5DC,$DBA46BDB,$F93F1BD5,$3ECB7BE9,$C64D23BD,$87C91E81,$18DB60D8,$6E8941EC,$1156D486,$DB363611,$4E342200
Data.l $A629119D,$6EC5D0D7,$29F9BC77,$7999E77C,$1ACB1D6F,$16EFF1B4,$A310699E,$6ACECE0B,$E426C750,$6B125C77,$82D60A69,$EAAF5522
Data.l $1DB3ACD2,$5CD5144D,$102C6596,$0CDECBAC,$69B687FB,$B463B57C,$BF6400FF,$554C793B,$91519D86,$05D33416,$45039E7C,$0983E85E
Data.l $3D22AABA,$4F2194CE,$CB8DDD52,$6370B169,$29E7A8EE,$9C00FFAC,$6F79E314,$4C985916,$0CB937A6,$C1726E86,$48BB9F24,$E4D2CE53
Data.l $5576F581,$597944A5,$2474F455,$9EA2BF4D,$CF332F9D,$E38C6A43,$F1EDC8A6,$99434BFC,$CF4CC6FD,$B959AFBD,$3FB8056B,$BDC6BB6B
Data.l $03B9ADDA,$41E5F736,$91919A15,$D9D051F9,$2BBBB771,$D1F944DC,$75D13A7F,$06BB3777,$8DD1787A,$AEBAEAF8,$E5FCC5FD,$5A38CD61
Data.l $E6F01C2B,$9A9F7467,$DF5B67DA,$4ACA59BC,$25E6858D,$825E16C8,$564554C4,$03E50ED9,$AA4A4BD6,$54A996D4,$D33865DA,$EDEDE78C
Data.l $FED75F5B,$73D77D4F,$91D9CA95,$C66E7CE1,$137D9C54,$F785B529,$6519CB25,$1189DEF7,$630621D4,$6EE61F0B,$D2D36C33,$EADB55A8
Data.l $2AABDC14,$0AFC496E,$EEA9F8F1,$19675C97,$69253FFD,$1557738D,$6849A6F0,$98E738CA,$6374792F,$9B6CC490,$4B62C81B,$BC60F238
Data.l $B2EF83E0,$3A08884D,$6F98AAC8,$7CA5F042,$75968394,$3957C946,$C78AB3AD,$853E8D95,$9113EEAF,$0F19F972,$9678DE09,$CC50ECEE
Data.l $837D8CEE,$11432227,$6E70B724,$C6FB4639,$70DFB8E3,$50425D05,$45F58A2A,$59544545,$C568DBDE,$CF29AAC5,$FB33CE72,$65429F3E
Data.l $6CAF2C2A,$5C977BFC,$CB3D99AE,$52D39E35,$5D24122F,$1B526A88,$686B5769,$E90C441D,$94A2A4E2,$4C53D04A,$32F3A56D,$51B27B39
Data.l $78AB48C2,$7FF984E3,$7C2DC63A,$9BDCC8EB,$AFDDB67B,$F0EC93C8,$B120CE2C,$ABAA390E,$C1CD853B,$68AF53B5,$7A055104,$A8AE9292
Data.l $2C1BFAF2,$5A2753BD,$49AED38A,$2C171907,$2CC75965,$E5254771,$22E6C992,$C842A4DB,$1DBD6F6D,$967DDBE6,$81A2B785,$94186138
Data.l $A1C54C45,$5719EE14,$52512072,$6A81C693,$C51955AD,$B36F6377,$674D260B,$05F400FF,$76E8DA4C,$704F16AB,$9267768C,$9C5CCD2B
Data.l $44CA2635,$9E681DA7,$24B692EE,$543506A4,$66B5E2EB,$C9DC22EC,$5A581062,$66A3A6AF,$AFE46229,$3C64AE76,$6ECC789D,$6C01B678
Data.l $1BB7FD9E,$EC1DD9B2,$82B0FABE,$A8AAF34A,$1593BEA2,$552D09A9,$F5A07644,$4D529697,$9CB0B071,$2E716499,$FEF1906D,$1CB7D766
Data.l $2523EDEA,$BB63B43B,$85449960,$56E49223,$2C7EE3C1,$864AE4CD,$14BBB2D2,$E8342A7D,$66851A3E,$36421711,$25C5EED7,$0307A48E
Data.l $9B3FB9C7,$B0983739,$CED55929,$97638CCB,$E4BCEFB8,$2D3D2F69,$1EE92B77,$C321091B,$03F59865,$F55B0437,$52AD08AA,$2CB79894
Data.l $558D9B0C,$3F2B4A42,$96BD1AE9,$5814DAFE,$B190E35D,$90956D9A,$C571EEF2,$9A77506C,$AAD292F9,$A5B68EBF,$97278D83,$5049DD93
Data.l $C90F0268,$03764D6C,$78A509C9,$80E661DC,$6C9CCC13,$44AB1285,$A4E7AB4E,$5686B2DA,$A26C92D2,$00FFA538,$0F473875,$108BB8D8
Data.l $B26DBBE3,$FF5FB04D,$6F5D7500,$DD35A411,$DDB9F990,$CCCCD148,$A527A176,$5AA99250,$71659D7E,$CAD73ACB,$E676CB89,$C2635AF4
Data.l $38C23DC1,$710A7F8E,$6641AC04,$7AFBFE95,$FBC66572,$17514471,$626B4BA7,$ED5A6F88,$2A6E224A,$50492D29,$AB64446B,$C8D931CA
Data.l $A26F62DF,$FF525C20,$239CBA00,$455CEC87,$B6DD7188,$2FD826D9,$AEBA00FF,$1AD288B7,$DC7CC8EE,$E668A4EE,$93503B66,$5449A8D2
Data.l $964E3FAD,$BE6C96E3,$B75B4E54,$1ED3A237,$9B6D0916,$6F58A3DB,$A738DD03,$EA1DB921,$F3E3544E,$62B37B72,$36B259B5,$6B481B12
Data.l $B1894655,$64EA5224,$BA834A8A,$EA53C788,$BB2D9765,$3F2DBB14,$4A2E0C41,$B16E79F7,$3FDA385B,$26725A1F,$6F31ACED,$98C7938F
Data.l $8F9E66DC,$E9683B1D,$DBC1F3B4,$D3536C35,$285F88B6,$A1062AAA,$E3926836,$7A72EF4D,$506417F6,$398B2B79,$E261EE29,$DD4B34DB
Data.l $6A6BEBD6,$33E395D3,$4ACA165C,$3FAD8832,$69234216,$485014BC,$9D628256,$6A147513,$AD4A8993,$E7F651AE,$6284CEA2,$BECE234E
Data.l $30FB72E8,$CE2E5EF2,$29D6C701,$DAE7DC8D,$2E3F40CE,$54A425E9,$AA8A4D10,$6A94B4A9,$442802A8,$A444B2BE,$257939C6,$70195D59
Data.l $929F6479,$8DABFCAD,$6F7EF4F2,$E79038E2,$1DE171E4,$B964ED9A,$1B378B20,$12DC3979,$D850D26D,$EE4A2FE8,$C54FA74A,$57E0D808
Data.l $1D1C7C8F,$EBF57476,$962354D6,$E7B3FBE1,$1774129C,$B33878F1,$4B57EC2A,$82298F1E,$A436789B,$AE1B2801,$C834EDC8,$12A15C51
Data.l $758A1011,$368CBA4E,$3D3E55C7,$B745A956,$CD85258F,$6490711C,$CD8B7030,$2913B59B,$DDB79CC1,$712F2B6C,$417159C5,$C967E4BE
Data.l $E2D84292,$05A488B6,$F57C9DE4,$666ABC2E,$39A390A7,$D7CBFA67,$00FF42DC,$CEDDFB2E,$8CF66336,$CB8ACF0A,$65259074,$E665CC2E
Data.l $33BF6E59,$A57ADD41,$FFD13E4F,$4A9ED200,$9A234B8D,$2DE7C5E2,$D1EC1FAF,$D8C1F524,$EBEA4691,$81164D4F,$B2193B26,$05799369
Data.l $66609337,$78A908E1,$272A9122,$15A1EB9A,$8CA57284,$F281D0E9,$250F1B2E,$36894BB7,$3D874B32,$22DC2297,$651D51AD,$AA2451D1
Data.l $F4A24575,$A88BEA54,$8489729C,$EC9A64DC,$466E3654,$56C227F7,$2C545898,$6127375E,$2D5296F6,$489CE699,$B5228697,$09996954
Data.l $0A204255,$5BB61002,$A5BE5290,$D7DCE65A,$FC3FEBC0,$8CDB6AF7,$88FC79BD,$BAEFF9EE,$EC69697E,$84E3084F,$319738E3,$923CD728
Data.l $F4B833EB,$838AEE78,$9301CD8A,$8A5E5442,$9227910D,$1A92FA8A,$56D4F5DC,$76D76BCA,$48365FEF,$ADDB0739,$B70D8E91,$F29165F0
Data.l $B7B31D6E,$DBDC0D32,$8DEE3F45,$2EF73991,$1919F900,$A42FA20A,$9AE08916,$EECE5397,$B5E5EBE2,$F716F66E,$BADAFB36,$0EECB8B0
Data.l $C90DB238,$25671A51,$DB50A219,$6377051F,$CDD754B2,$53150951,$3ECD4BCC,$47F9C8D2,$FC49D58B,$F0E39E84,$8EE4658E,$A4E0B415
Data.l $5E2619CB,$9B7CABCC,$A136C299,$1347F1B0,$514A0C47,$25F515B4,$5584D057,$4A4F0054,$92875735,$0BD7F738,$FA91969C,$DD8F44F7
Data.l $729627D6,$C7791F46,$DC7ABB30,$825C33AE,$EBC868E4,$F2486F4C,$CCBF789B,$D213C07C,$645AE22B,$3BFCCCA0,$52AA5D63,$4BEE86E8
Data.l $3988F3C3,$58CB075E,$9BC7681C,$B7F436E1,$4AE0B285,$7A456791,$04EBB232,$268864EB,$0B6A38D9,$B55E955D,$587B144F,$AE3E86CF
Data.l $65943F44,$FBF55BFD,$2757DB20,$2BE4D17B,$5823B6E5,$80049B7D,$7A3BEDCB,$2578CABB,$48B6EDA3,$366DDB46,$68A2A6FB,$B5898A8A
Data.l $F1D0C957,$4CA442D4,$E51A1A97,$F31CFCCB,$E69C1B1E,$77C5B1FC,$B3D87A8C,$34B9E2A1,$EEE5A56B,$22F60CF3,$B811EC03,$A780F388
Data.l $A15D0544,$6978BAB8,$C61535DB,$D38C30BA,$7DCDBEEE,$F1990FCB,$1B8CF938,$1358BE95,$DF916E90,$E6433085,$0505DF46,$7053AD21
Data.l $A6F9A9D6,$18E5389D,$94849BEB,$2BE614BC,$C1B2FB9B,$12676BB1,$196DC2C0,$D0CCB65D,$FF64B2C1,$01117000,$6894B462,$01AF34A5
Data.l $AAA70821,$AAF25283,$FCDA5CF5,$8D8FAD8E,$A66DF367,$74FB7AFD,$0566F017,$2567F8CB,$C9613672,$FE3F17AA,$8D153C86,$8B6C8E7D
Data.l $016C1D32,$1798960D,$946DD015,$8829D84E,$C51745D4,$08652874,$633AE8BA,$8E6DF608,$0CF0DF5E,$F2B10EE3,$B5259943,$21EF2D60
Data.l $97B37593,$F1BB8779,$3A34339D,$F3A36632,$F2171D78,$457915D3,$6A465779,$73447609,$4773BD19,$DB75ABB7,$2ABCE30D,$5D886F36
Data.l $8374BF27,$1DC6B715,$A4ECDCC2,$3B3600FF,$028EA89B,$A2812212,$57FAA02A,$ABA6EDF4,$5E75EE41,$486A9B93,$3B6EE270,$21B77BE5
Data.l $CD17F7CB,$DCB41851,$DC568698,$628A1443,$E68EC0E2,$417123F4,$5C54114D,$95889B3E,$A06DB74C,$505E858E,$618C2E8B,$76A7C3ED
Data.l $61B73D4A,$C82B96B9,$E493D13C,$B7B2DFD6,$13181766,$E655522C,$D996FB1C,$D8C57D59,$DE8691D9,$1A34F4E0,$1B9DA7D7,$2247705C
Data.l $45B8CAE8,$C12FFC76,$CF496B73,$80068006,$C4A64E12,$D6EA6FAF,$08000D9F,$B753A234,$F5FCABF4,$53B83D50,$F5B7576A,$AC864FAB
Data.l $44699007,$57E96FA7,$1DA0EAF9,$5D65FA2F,$E1C353BF,$DB9200AB,$B3D37AB7,$E35777F4,$CF5D80AA,$76377D6F,$DFEDAE3E,$18070C0D
Data.l $94D2E99F,$3E3CF8A7,$2708103A,$7B0DEF6D,$EF76531F,$A180A586,$A73F54BA,$D4F02BFC,$9BCEE501,$EB6F7753,$406AF957,$E96CDA16
Data.l $FE55FADB,$B502847A,$E580D5F1,$3F7C91CF,$18808677,$C7FDED5D,$1BFEB55F,$49357CF7,$A7403D12,$D9DFA66F,$40A8E75F,$B59D3E71
Data.l $D6EA6FAF,$80300D9F,$FADA6E9B,$BF4A5F7B,$F20055CF,$C9A7DCA7,$F5BBCE5F,$F7690720,$EA7EF209,$1701D0EE,$DD4DB53D,$FC5AAB9F
Data.l $0DA20034,$FD365D3B,$A8E3D33A,$3ECD7240,$DB4FBEE0,$0D90DA5D,$AE32FD93,$A9E1DFDF,$B53D0401,$9E3E762A,$50758DEF,$0B3BAD15
Data.l $7BFE78F2,$D7182075,$ED4F3FF4,$D40074F9,$FFEF3E9B,$96BF1A00,$0386DAED,$E900FFB3,$FDF0B4D2,$52C32F5F,$F437F280,$9FFD6D7A
Data.l $0640C72F,$001A406A
Data.b $FF,$D9
EndDataSection ;<
;}
UseJPEGImageDecoder()
Procedure GadgetBalloonToolTip(WindowNumber.l, GadgetNumber.l, Text.s)
Protected Tooltip.l, Balloon.TOOLINFO
Tooltip = CreateWindowEx_(0, "ToolTips_Class32", "", #WS_POPUP | #TTS_NOPREFIX | #TTS_BALLOON, 0, 0, 0, 0, WindowID(WindowNumber), 0, GetModuleHandle_(0), 0)
SendMessage_(Tooltip, #TTM_SETTIPTEXTCOLOR, GetSysColor_(#COLOR_INFOTEXT), 0)
SendMessage_(Tooltip, #TTM_SETTIPBKCOLOR, GetSysColor_(#COLOR_INFOBK), 0)
SendMessage_(Tooltip, #TTM_SETMAXTIPWIDTH, 0, 180)
Balloon\cbSize = SizeOf(TOOLINFO)
Balloon\uFlags = #TTF_IDISHWND | #TTF_SUBCLASS
Balloon\hwnd = GadgetID(GadgetNumber)
Balloon\uId = GadgetID(GadgetNumber)
Balloon\lpszText = @Text
SendMessage_(Tooltip, #TTM_ADDTOOL, 0, @Balloon)
ProcedureReturn Tooltip
EndProcedure

Procedure ChangeGadgetBalloonToolTip(Tooltip.l, GadgetNumber.l, Text.s)
Protected Balloon.TOOLINFO
Balloon\cbSize = SizeOf(TOOLINFO)
Balloon\uFlags = #TTF_IDISHWND | #TTF_SUBCLASS
Balloon\hwnd = GadgetID(GadgetNumber)
Balloon\uId = GadgetID(GadgetNumber)
Balloon\lpszText = @Text
SendMessage_(Tooltip, #TTM_ADDTOOL, 0, @Balloon)
EndProcedure

Procedure FreeBalloonTooltip(Tooltip.l)
DestroyWindow_(Tooltip.l)
EndProcedure
;
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_ARS()
If OpenWindow(#ARS, 455, 87, 402, 559, v$,#PB_Window_SystemMenu)
HideWindow(#ARS, 0)
If CreateGadgetList(WindowID(#ARS))
StringGadget(#Titre, 5, 89, 200, 20, "")
ButtonGadget(#BTgenerer, 5, 120, 395, 30, "Cliquez ici pour générer la fiche du film")
ButtonGadget(#BT_Ferme, 380, 1, 20, 20, "x")
ImageGadget(#Image_titre, 74, 2, 260, 30, CatchImage(#Image_Image_21, ?Image_Image_21))
EditorGadget(#Image, 5, 52, 390, 20)
EditorGadget(#Affiche, 0, 155, 400, 380, #PB_Editor_ReadOnly)
TextGadget(#Text_Signe, 1, 542, 400, 15, "Logiciel réalisé par Ar-S / LDVMULTIMEDIA - Ce logiciel est Freeware", #PB_Text_Center)
TextGadget(#Text_titre, 5, 74, 30, 15, "Titre")
TextGadget(#Text_url, 15, 34, 365, 15, "Adresse de la jaquette du film (sur imageshack ou autre hebergeur d'images)", #PB_Text_Center)
SetGadgetText(#Image, "http://")
Image_Tooltip = GadgetBalloonToolTip(#ARS, #Image, "Entrer l'adresse le la jaquette du film (sur imageshack ou autre hebergeur d'images)")
Titre_Tooltip = GadgetBalloonToolTip(#ARS, #Titre, "Titre du film")
PureCOLOR_SetGadgetColor(#Affiche, $0, $38F5F1)
EndIf
EndIf
EndProcedure
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

Procedure.s Affichentre(string.s, LString.s, RString.s)
Protected Affichentre.s, lindex.l, RIndex.l
lindex = FindString(string, LString, 0)
RIndex = FindString(string, RString, lindex+Len(LString))
If lindex And RIndex
lindex + Len(LString)
Affichentre = Mid(string, lindex, RIndex-lindex)
EndIf
ProcedureReturn Affichentre
EndProcedure

;{-MOVIE
OpenWindow_ARS()
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
EventGadget = EventGadget()
EventType = EventType()
If EventGadget = #BT_Ferme
CloseWindow(#ARS)
End
EndIf
If EventGadget = #Titre
ElseIf EventGadget = #Image
ElseIf EventGadget = #Affiche
ElseIf EventGadget = #Text_Signe
ElseIf EventGadget = #Text_langue
ElseIf EventGadget = #Text_titre
ElseIf EventGadget = #Text_url
ElseIf EventGadget = #Image_titre
ElseIf EventGadget = #BTgenerer
titre$=GetGadgetText(#Titre)
If titre$=""
MessageRequester("OOpps","Vous devez entrer un titre !")
Else
titreok$=ReplaceString(titre$," ","+")
urldebut$="http://www.allocine.fr/recherche/?rub=1&motcle="
urlfin$="&x=0&y=0"
If titreok$
Url$=urldebut$+titreok$+urlfin$
ElseIf titre$
Url$=urldebut$+titre$+urlfin$
EndIf
Source$=Url2Text(Url$)
NumFilm$=Affichentre(Source$,DebutNumFilm$,FinNumFilm$)
UrlFilm$=DebutNum$+NumFilm$+FinNum$
Url$=UrlFilm$
Source$=Url2Text(Url$)
Descriptif$=Affichentre(Source$,avantDesc$,apresDesc$)
DateFilm$=Affichentre(Source$,DebDate$,FinDate$)
NumGenreFilm$=Affichentre(Source$,DebNumgenre$,FinNumGenre$)
DebGenre$=DebNumgenre$+NumGenreFilm$+FinNumGenre$
GenreFilm$=Affichentre(Source$,DebGenre$,FinGenre$)
NumReaFilm$=Affichentre(Source$,DebNumRea$,FinNumRea$)
DebRea$=DebNumRea$+NumReaFilm$+FinNumRea$
ReaFilm$=Affichentre(Source$,DebRea$,FinRea$)
Duree$=Affichentre(Source$,DebDuree$,FinDuree$)
Source$=Descriptif$
;{- Traitement des chrs speciaux de la source html
Source$=ReplaceString(Source$,"&Agrave;","À") : Source$=ReplaceString(Source$,"&ecirc;","ê")
Source$=ReplaceString(Source$,"'","'") : Source$=ReplaceString(Source$,"&eacute;","é")
Source$=ReplaceString(Source$,"&agrave;","à") : Source$=ReplaceString(Source$,"<br>",Chr(10))
Source$=ReplaceString(Source$,"&egrave;","è") : Source$=ReplaceString(Source$,"&ocirc;","ô")
Source$=ReplaceString(Source$,"<hr>","") : Source$=ReplaceString(Source$," ","") ;suppression des espaces TAB de la source
Source$=ReplaceString(Source$,"<br />","") : Source$=ReplaceString(Source$,"%E9","é")
Source$=LTrim(Source$)
;}-fin traitement
realisateur$=ReaFilm$
titre$=GetGadgetText(#Titre)
genre$=ReplaceString (GenreFilm$,"+"," ")
genreOK$=ReplaceString(genre$,"%E9","é")
annee$=DateFilm$
histoire$=Source$
synopsis$="Histoire"+Chr(10)+histoire$
jaquette$=GetGadgetText(#Image)
If jaquette$="http://"
jaquette$="http://arspics.free.fr/bbcg/vide.jpg"
EndIf
image$=BBC_Img$+jaquette$+BBC_ImgFin$
SetGadgetText(#Affiche,image$+BBC_Titre$+"Nom du film : "+titre$+Chr(10)+"Genre : "+genreOK$+Chr(10)+"Année de Sortie : "+annee$+Chr(10)+"Réalistation : "+realisateur$+Chr(10)+"Durée du film : "+Duree$+Chr(10)+Chr(10)+synopsis$+Chr(10)+Chr(10))
ClearClipboard()
affiche$=GetGadgetText(#Affiche)
SetClipboardText(affiche$)
MessageRequester ("info","La fiche du film en BBcode a été copiée dans le presse papier"+Chr(10)+"Vous n'avez plus qu'à la coller dans votre forum préféré")
EndIf
EndIf
Case #PB_Event_CloseWindow
EventWindow = EventWindow()
If EventWindow = #ARS
CloseWindow(#ARS)
Break
EndIf
EndSelect
ForEver
End
;}[/code]
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Merci de partager ton code Ar-s 8)

Je ne suis pas arrivé à le faire fonctionner.
J'ai installé la lib PureColor et apparement il manque la lib MenuExtension ou un truc comme ça :roll:
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Kwai chang caine a écrit :Merci de partager ton code Ar-s 8)

Je ne suis pas arrivé à le faire fonctionner.
J'ai installé la lib PureColor et apparement il manque la lib MenuExtension ou un truc comme ça :roll:
J'utilise très souvent des fonctions de la DROOPY Libs, je ne pense pas que Purecolor soit le fautif (au pire tu vires les references purecolor pour tester)

je suis en PB4.02
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Ayai !!!!
J'suis arrivé à faire ça :D

J'ai pas tout compris ce qu'etais le BB code, y'a t'il un rapport avec le PhpBB de ce site ??
Je vais essayer de comprendre en demandant à Mr "Wikisaittout"

Image

Image
Nom du film : Essai
Genre :
Année de Sortie :
Réalistation :
Durée du film :

Histoire
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Ba comme tu peux le voir, le bbcode ce sont les balises utilisées par les fofo en générale pour la mise en forme.

Par contre il fautrait que tu mettes un nom de film et non "essai" :)
Sinon y'a pas d'utilité au code :P :P :P
Sacré KCC
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

Je sais, je sais, j'suis une plaie :D
Bon j'ai tout lu sur le BBcode et ça a bien un rapport avec le forum.

J'ai fait tout ça q'tu m'a d'mandé de faire.
J'ai ecris un nom de film que j'aime bien.

Et j'ai pas mieux :D
Pourtant, je me suis fendu avant d'aller sur allociné pour faire un copier/coller du titre pour etre sur qu'il trouve.
Car vu ta réponse, j'ai supposé que ton giciel, il allait fouiner dans le "vebe", pour trouver les infos.
J'ai juste la ou pas :roll:

Image

Image
Nom du film : Les Aventures de Rabbi Jacob
Genre :
Année de Sortie :
Réalistation :
Durée du film :

Histoire
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Alors ça c'est bizarre car moi ça donne :

Image

Image
Nom du film : les aventures de rabbi jacob
Genre : Comédie
Année de Sortie : 18 Octobre 1973
Réalistation : Gérard Oury
Durée du film : 1h 35min

Histoire
A la suite d'un quiproquo, un homme d'affaires irracible et raciste, se retrouve confronté malgré lui à un réglement de compte entre terroristes d'un pays arabe. Afin se semer ses poursuivants, il se déguise en rabbin, après avoir croisé à Orly des religieux juifs en provenance de New-YorK.

Essaye peut être sans le copié collé :)
Haut
Avatar de l’utilisateur
Kwai chang caine
Messages : 6989
Inscription : sam. 23/sept./2006 18:32
Localisation : Isere

Message par Kwai chang caine »

J'essaierais chez moi, car au boulot, y'a tellement de filtres qu'on pourrais faire le café rien qu'avec les proxy :D

En tout cas, c'est top, ton programme.
Je m'y pencherais dessus chez moi.

Merci beaucoup de ton aide 8)
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9540
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Tu me tiendras au courant car c'est inquiétant, je me dis que ce sont les filtres de ton taf car je l'ai fait tester la beta par 2 potes et j'ai eu une réponse positive de l'un des 2 (l'autre n'a pas encore répondu)
Haut
Répondre

Revenir à « Débutants »