Ventureplugtraffic

Bonjour

je vous présente le site Ventureplugtraffic c'est un revshare qui sera lancé le 22 aout 2015

Son admin: C'est Harvey Earl
Son Facebook: https://www.facebook.com/profile.php?id=100009454945005&fref=nf
Lien du Groupe FB facebook.com/groups/ventureplugtraffic/

Pay Plan

il faudra toujours avoir 100 pack minimum dans chaque level pour passer au suivant

PP utiliser :Payza/STP/PM
------------------------------------------------------------------

Distribution des gains toutes les 30 mn
10 clics à faire par jour
Commissions de parrainage 10% sur 1 niveau
Même script que FAP, MPA etc
Cashout à $5
- Protection Https/ DDOS disponible

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

Ventureplugtraffic

0 commentaires:

Enregistrer un commentaire

dsqs

Traduire

S'informer avant de commencer

Revshare

Qui êtes-vous ?

Contacter Nous