Parrainage

rémunérez vous efforts

Mes offres, Pour la plupart de mes revshares, elles sont semblables, mais potentiellement sujettes à de futures modifications !
En voici le détail : (je parle de pourcentage des commissions que je touche grâce à vous, et non de ce que vous investissez, bien sûr)

BeonPush

(13% de commission pour le parrain à chaque achat)
- 1 pack offert après lachat de votre premier pack.
- 100% de refback sur vos achats.
- Refback en interne sur le site uniquement.

Fortadpays

Je vous offre 100% de mes commission pendant 1 mois puis 50% chaque semaine ou
par tranche de 10 dollars atteint .

- Refback en interne au site ou par Payza en fonction de mes retraits pour les délais.

TRAFFICHUBB

Je vous propose de vous reverser 10% de votre dépot initial puis 70% de mes comission
chaque fin de semaine sur votre compte payza

Modestrevshare

Je vous offre 100% de ma commission sur votre premiers achat sur le site puis
je vous reverse 75% de mes commission reçus

dsqs

3.3.0Bernard2015-01-16 00:00:0016/01/20151.0.22.3.0Anglaisenhttp://www.imdb.com/IMDB avec notes' "&&s=tt&&ttype=ft&ref_=fn_ft" : films seuls dim chaine as string chaine = "http://www.imdb.com/find?q=" + ReplaceAll(fmt_MotsCles," ","+") + "&&s=tt&&ttype=ft&ref_=fn_ft" fmt_EncodagePage ("UTF8") fmt_RequeteListe( "GET", chaine ) ' Analyse des titres (films seuls) dim chaine, chaine2, aux as string dim i, j, k, l as integer dim identifiant, letexte as string dim debut, fin, nblignes as integer function Balise(chaine as string, idebut as integer) as integer dim nblignes, i as integer nblignes = fmt_NombreLignes - 1 i = idebut -1 do i = i +1 loop until instr( fmt_ValeurLigne( i) , chaine ) <> 0 or i = nblignes return i 'valeur de la ligne contenant la balise ou nblignes si non trouvée end function ' balise debut listes films chaine = "<table class=""findList"">" debut = Balise(chaine, 500) ' balise fin listes films chaine = "</table>" fin = Balise(chaine, debut) ' Recherche de la liste des films for i = debut to fin chaine = "<a href=""/title/tt" chaine2 = "<img" letexte = "" j = instr( fmt_ValeurLigne( i ) , chaine ) l = instr( fmt_ValeurLigne(i+1), chaine2) if j<>0 AND l=0 then aux = NthField( fmt_ValeurLigne( i ) , """" , 2 ) aux = NthField(aux, "/",3) identifiant = aux ' A partir de +1, on saute ce qui commence par "<" et on s'arrête à </td> k = i+1 do 'titre et date if left( fmt_ValeurLigne( k ) , 1 ) <> "<" AND fmt_ValeurLigne( k ) <> "" then letexte = letexte + fmt_ValeurLigne( k ) end if k = k + 1 loop until fmt_ValeurLigne( k ) = "</td>" OR k > fin fmt_MemoriseTitre ( identifiant , letexte ) end if next ' "/?ref_=fn_al_tt" en ppe suivi du n° du film dans la liste, mais marche avec n'importe quel film dim chaine as string chaine = "http://www.imdb.com/title/" +fmt_IdentifiantDetail +"/?ref_=fn_al_tt" fmt_RequeteDetail( "GET", chaine ) ///// Déclarations//// dim chaine, chaine2, letexte, storyline, notech as string dim baliseD, baliseR, nbavis as string dim i, k, fin, debut, debut2, indice, j as integer dim NbLignes as Integer ' var globale (dans la procédure RechercheItem) dim condition as boolean dim note as single function Balise(chaine as string, idebut as integer, ifin as integer) as integer dim i as integer i = idebut -1 do i = i +1 loop until instr( fmt_ValeurLigne( i) , chaine ) <> 0 or i = ifin return i 'valeur de la ligne contenant la balise ou ifin si non trouvée end function function BaliseExacte(chaine as string, idebut as integer, ifin as integer) as integer dim i as integer i = idebut -1 do i = i +1 loop until trim(fmt_ValeurLigne( i)) = chaine or i = ifin return i 'valeur de la ligne contenant la balise ou ifin si non trouvée end function Sub RechercheItem(Bdebut as string, Bfin as String, Brecherche as string, separateur as string, memorise as string, byref indice as integer) dim tableau() as string dim debut, fin as integer ' NbLignes reste var. globale debut = balise(Bdebut,indice, nblignes) fin = balise(Bfin,debut, nblignes) if debut <> nblignes and fin <> nblignes then indice = debut +1 do indice = balise(Brecherche, indice, fin) if indice <> fin then tableau.append fmt_ValeurLigne(indice+1) indice = indice +2 end if loop until indice = fin fmt_MemoriseValeur( memorise , join(tableau, separateur) ) indice = fin + 1 end if end sub //// Corps du programme //// ' initialisations indice = 800 'on ne craint pas grand chose... NbLignes = fmt_NombreLignes - 1 ' Note IMDB letexte = "" chaine = "<span itemprop=""ratingValue"">" chaine2 = "<span class=""small"" itemprop=""ratingCount"">" debut = baliseExacte(chaine, 1000, nblignes) debut2 = baliseExacte(chaine2, debut, nblignes) if debut <> nblignes then notech = fmt_ValeurLigne(debut+1) letexte = "note moyenne des internautes : " + notech +"/10" nbavis = fmt_ValeurLigne(debut2+1) letexte = letexte + " (sur " + nbavis + " avis)" end if fmt_MemoriseValeur( "commentaires" , letexte ) ' Recherche du titre chaine = "<div class=""title_wrapper"">" debut=balise(chaine,indice, nblignes) if debut <> nblignes then letexte = fmt_ValeurLigne(debut+3) fmt_MemoriseValeur( "TitreVF" , letexte ) end if ' Année baliseD = "<div class=""title_wrapper"">" baliseR = "<a href=""/year/" RechercheItem(baliseD, "</div>", baliseR," / " , "annee", debut) ' Titre VO (original title) (s'il exsite) chaine ="<div class=""originalTitle"">" debut= balise(chaine,indice, nblignes) if debut <> nblignes then letexte = fmt_ValeurLigne(debut+1) fmt_MemoriseValeur( "TitreVO" , letexte) end if ' Recherche durée chaine = "Runtime:" debut=balise(chaine,indice, nblignes) if debut <> nblignes then letexte = fmt_ValeurLigne(debut+4) fmt_MemoriseValeur( "duree" , letexte ) end if ' Recherche du genre baliseD = "<div class=""subtext"">" baliseR = "<span class=""itemprop"" itemprop=""genre"">" chaine = " - " RechercheItem(baliseD, "</div>", baliseR, chaine, "genre", indice) ' Recherche de l'affiche chaine = """ itemprop=""image"" />" letexte = "" debut=balise(chaine,indice, nblignes) if debut <> nblignes then ' on a bien trouvé chaine (sinon il n'exite pas d'affiche) chaine2= fmt_ValeurLigne(debut) k=InStr(1,"src=",chaine2) letexte = Mid( chaine2 , k+1 ) letexte = Replace(letexte, chaine,"") 'indice = debut +1 'sinon indice reste à sa valeur initiale fmt_RequeteImage( "GET" , letexte ) end if ' Réalisateur(s) baliseD = "<div class=""credit_summary_item"">" baliseR = "<span class=""itemprop"" itemprop=""name"">" RechercheItem(baliseD, "</div>", baliseR, chr(13), "realisateurs", indice) ' Acteurs (tous) baliseD = "<table class=""cast_list"">" baliseR = "<span class=""itemprop"" itemprop=""name"">" RechercheItem(baliseD, "</table>" , baliseR, chr(13), "acteurs", indice) ' Storyline baliseD = "Storyline" ' recherche exacte, après acteurs, mais acteurs n'existe pas nécessairement ! ' si acteurs n'existe pas on ne tombe pas sur le bon storyline, et en général il n'existe pas, donc on ne fait rien... debut = baliseexacte(baliseD,indice,nblignes) condition = false if debut <> nblignes then if fmt_ValeurLigne(debut - 1) = "<h2>" then 'c'est en ppe le bon storyline... condition = true end if end if if condition then k = BaliseExacte("<p>", debut, nblignes) if k <> nblignes then ' storyline existe (en ppe) fin= BaliseExacte("</p>", k, nblignes) storyline = "" i = k+1 j=1 do chaine = fmt_ValeurLigne(i) condition = left(chaine,1) <> "<" and trim(chaine)<> "" and left(trim(chaine),1) <> "&" if condition then if chaine = "Written by " then storyline = trim(storyline) + chr(13) else if j=1 then chaine = Ltrim(chaine) end if end if storyline = storyline + chaine end if i = i +1 j=j+1 loop until i=fin fmt_MemoriseValeur( "synopsis" , storyline ) end if end if chaine = "<div class = ""article"" id=""titleDetails"">" ' début recherche country et language debut = balise(chaine, indice, nblignes) 'NB : Il arrive que Country et Language ne soient pas toujours dans le même ordre. ' Country baliseD = "Country:" baliseR = "<a href=""/country/" RechercheItem(baliseD, "</div>", baliseR," / " , "pays", debut) ' Language baliseD = "Language:" baliseR = "<a href=""/language/" RechercheItem(baliseD,"</div>", baliseR," / " , "langues", debut)

Revshare Sérieux

Parrainage

BeonPush

0 commentaires:

Enregistrer un commentaire

dsqs

Traduire

S'informer avant de commencer

Revshare

Qui êtes-vous ?

Contacter Nous