10ADSPAY

10AdsPay

Lancement le 8 juin 2016 du business effectué par Firoz Patel le vice president de Payza ! Grosse preuvse de sérieux !

L'admin est Ashish Shivram Nake

https://www.facebook.com/ashish.s.nake

Un revshare "partenaire" de Payza (le fondateur de Payza a en tout cas assisté au meeting de lancement du programme) et de AVG (les membres de 10adsppay peuvent acheter sur le site les antivirus AVG qui viennent d'ailleurs d'être rachetés par la société Avast).

3 packs disponibles :

$2 expire à $2.20 (soit 110% de ROI) 200 packs maxi par membre

$25 expire à $28.75 (soit 115% de ROI) 200 packs maxi par membre

$50 expire à $60 (soit 120% de ROI) nombre illimité

Niveau référencement nous somme sur du 1 niveau = 10%

Expiration des packs = 120%

Taux journalier plus que correcte compris entre 1.5% et 2% maxi par jour

Possibilité d'acheter les packs dans l'ordre de son choix

Pas de membership, pas de repurchase obligatoire

10 clics par jour, surf free plans et section PTC en option

INFOS SUR LES PAIEMENTS

Cashout mini $5 maxi $250

retraits ouverts 7 jours sur 7

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

10ADSPAY

0 commentaires:

Enregistrer un commentaire

dsqs

Traduire

S'informer avant de commencer

Revshare

Qui êtes-vous ?

Contacter Nous