MY PAYING ADS

MY PAYING ADS

Nouveau lancement du site le 17 Mars 2016
Drôle d'histoire quand on sait qu'il avait été lancé un 16 Mars 2015Nous avons donc un site qui se relance quasiment un an jour pour jour après son lancement initial et ses problèmes de blocage de fonds Paypal. Son administrateur Uday Nara s'est battu pour relancer son site qui fonctionnait très très bien avec des taux compris entre 2% et 3%.

Plusieurs packs disponibles à partir de 5$ à 120%

Les différents packs disponibles sur le site pour un ROI de 120% :
$5 rapporte $6 (maximum 100 packs)
$10 rapporte $12 (maximum 100 packs)
$25 rapporte $30 (maximum 100 packs)
$50 rapporte $60 (aucune limite de packs)

Un pack de 5$ nous donne 2 crédits pour nos bannières et 100 crédits de Traffic Exchange.

Pour valider les packs, il faut visiter 10 sites par jour, les packs sont rémunéré toutes les 30 minutes.

Aucune obligation de repurchase

Fond minimum a ajouter : $5
Minimum pour demande de paiement : $5
Pas de frais au cashout.
Parrainage sur un seul niveau : 10% commission filleuls.

Processeurs de paiement disponibles: Payza, SolidTrustPay, Perfect Money, Bitcoin, 2Pay4You

Au plaisir de vous retrouver dans cette aventure qui redémarre et qui nous réserve sûrement de très belles perspectives.

Joffre 50% CashBack

Cliquer Ici

Bons gains à tous .

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

MY PAYING ADS

0 commentaires:

Enregistrer un commentaire

dsqs

Traduire

S'informer avant de commencer

Revshare

Qui êtes-vous ?

Contacter Nous