Discussion :

[zooffy]

Bonjour tout le monde.

Le sujet est un site de publicité mais ne divulguez pas l'idée, elle trop novatrice, je voudrais pas qu'on me la pique !!!

Allez, soyons sérieux deux minutes.

On me donne un script qui fait comme ça (vous pouvez donc le tester tel que dans une page pour voir ce que ça fait) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<script type="text/javascript" src="http://tracking.publicidees.com/showbanner.php?partid=5211&progid=409&promoid=13521"></script>

En mettant ça dans une page on obtient une bannière animée et si on clique sur la bannière on va sur un site (en l'occurence cmonjour, mais là n'est pas le sujet).

Je voudrais faire en sorte de ne pas mettre le script mais un ImageButton (ou autre contrôle du même genre) qui me permet de faire apparaitre l'image (que je peux récupérer facilement sans le script) et travailler sur l'évènement Click.

Dans cet évènement Click je veux enregistrer des choses dans ma BDD (ça, j'y arrive) et rediriger mon visiteur vers le site prévu par le script, sachant que je n'ai que ce script pour le faire et que je suis obligé de passer par là.

Pour l'instant j'ai fait ça côté HTML pour définr mon ImageButton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<asp:ImageButton ID="ibpub" runat="server" ImageUrl="http://ad.publicidees.com/promos/banners/231/468x60_twistx.gif" AlternateText="pub" />

Et dans le CodeBehind j'ai mis ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Protected Sub ibpub_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibpub.Click
        Outils.Logage("enregistrement de la pub")
        Response.Redirect("http://tracking.publicidees.com/showbanner.php?partid=5211&progid=409&promoid=13521")
    End Sub

Ne vous attardez pas sur le Outils.logage("") c'est juste un essai, je remplacerai par du vrai code qui enregistre des choses dans la BDD.
C'est la redirection qui ne fonctionne pas. Elle me fait aller sur un site comme si j'avais copié collé l'url fournie dans un navigateur et donc ne me redirige pas vers le site voulu (en l'occurence cmonjour).

Je ne sais pas comment "exécuter" le script à ce moment là.

Pouvez vous m'aider ?

[lutecefalco]

Tu dois faire une WebRequest sur l'url, parser le code html et en extraire l'url de redirection (en l'occurence http://tracking.publicidees.com/clic.php?promoid=13521&progid=409&partid=5211&iptChange=0&iptJS=b6834c48b7785bcc60e2f11893e7e50c)sur laquelle tu enverras l'utilisateur

[zooffy]

Merci LuteceFalco.

Je vois le principe, par contre dans l'application, la WebRequest ......

La dernière fois que j'ai mis le nez dedans j'ai perdu tous mes cheveux.
Tu aurais un exemple de code ?

En fait, je n'arrive pas à comprendre le fondement de la WebRequest. Y a un moment où je décroche sur la requête envoyée et ce qui en revient et du coup j'arrive pas à remplacer ce retour dans la variable ou l'argument qu'il faut pour s'en servir.

Je voudrais pas passer pour un faignasse non plus

[lutecefalco]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
string htmlUri = "http://www.toto.fr";
WebRequest requestHtml = WebRequest.Create(htmlUri);       
WebResponse responseHtml = requestHtml.GetResponse();
       string html;
 // Read the text from the response stream.
using (StreamReader r = new StreamReader(responseHtml.GetResponseStream()))
{
html =r.ReadToEnd();
}

[zooffy]

EDIT : GRUNT ! t'as répondu avant que j'ai fini de rédiger mon texte



J'ai un peu bricolé en attendant, histoire de dire que je vais apprendre une truc aujourd'hui.

J'en suis là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim request As WebRequest = WebRequest.Create("http://tracking.publicidees.com/showbanner.php?partid=5211&progid=409&promoid=13521")
        Dim respons As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
        Outils.Logage(Response.StatusDescription)
        ' Get the stream containing content returned by the server.
        Dim dataStream As Stream = respons.GetResponseStream()
        ' Open the stream using a StreamReader for easy access.
        Dim reader As New StreamReader(dataStream)
        ' Read the content.
        Dim responseFromServer As String = reader.ReadToEnd()
        ' Display the content.
        Outils.Logage(responseFromServer)
        ' Cleanup the streams and the response.
        reader.Close()
        dataStream.Close()
        respons.Close()

Si je lis bien le responseFromServer, ça me remonte le contenu HTML interprété de la page visée, c'est bien ça ?

Donc je farfouille dans cette "chaine de caractère" comme dans n'importe quelle String et je pioche ce qui m'interresse, c'est ça l'idée ?

[lutecefalco]

C'est ça

[zooffy]

Ok, super cool. Merci beaucoup pour ton aide.

Bon maintenant je vais plonger dans les joies du farfouillage de String (toute connotation sexuelle étant exclues...).

Vu la tournure du truc, je vais me faire chier à gérer les différentes méthodes des différentes régies publictaires. Mais bon, c'est le boulot.

Allez, je boucle et je tripote les String.