AIDE URGENTE CADEAU A CEUX QUI TROUVE LA SOLUCERésolu

Question

bonjour voila j'ai un probl&#232;me !! je cherche &#224; faire un script VB mais la je bloque voila le bordel je veux trouver la source d'une page HTML (ex http://Www.googlE.Fr) et ecrire cette source dans un textbox ensuite enregistrer le contenue de ce textbox ds "\ici.htm"

J'esp&#232;re que jeme suis fait comprendre !! j'attend votre r&#233;ponse dans si possible la journ&#233;e !!

LA PERSONNE QUI ME TROUVE LA SOLUTION AURA UN AFFICHAGE SUR MON SITE PENDANT 1 MOIS

pour recevoir votre gains (si vous avez mon accord en gros si le script marche) envoyez un mail &#224; [mailto:webmaster@marketing.dernieresversions.com webmaster@marketing.dernieresversions.com] en stipulant le message &#224; &#233;crire ou l'url de la banni&#232;re ainsi que son lien !!

MErci d'avance

econs · Accepted Answer

Un contr&#244;le Webbrowser, un contr&#244;le TextBox, un contr&#244;le CommandButton, et voil&#224; :



======================================


Dim docHTML As HTMLDocument 'R&#233;f&#233;rence &#224; charger : Microsoft HTML Object Library





Private Sub Command1_Click()

Dim numFile As Long



    Set docHTML = WebBrowser1.Document

    Text1.Text = docHTML.documentElement.innerHTML

    numFile = FreeFile

    Open "C:\google.htm" For Output As #numFile

        Print #numFile, Text1.Text

    Close #numFile

End Sub



Private Sub Form_Load()

    WebBrowser1.Navigate2 "http://www.google.fr" ' Composant &#224; charger : Microsoft Internet Controls

End Sub



========================



Et n'oublie pas de charger le composant et la r&#233;f&#233;rence indiqu&#233;s !!






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

malhivertman1 · Answer

En fait, tu veux que qu'une fois que tu ai recup la source, ca te l'enregistre dan ici.htm avec la source ecrite, c ca? et tu veux juste un bouton, enfin si g bien compri, ou tu ve que sa se fass tou seul?
Don un pe + de detail stp


++

maxsecurite2 · Answer

Malhivertman1 je veux recuperer le code source HTML d'un site internet et l'enregistrer dans un fichier .htm puis le lire dans un textbox (lasource du fichier .htm) si tu veux + de renseignements fait moi une demande de MSN je te la donnerais par mail webmaster@marketing.dernieresversions.com

MErci d'avance

malhivertman1 · Answer

Deja pour recup le code source, c assez bien expliquer la
http://www.vbfrance.com/forum.v2.aspx?ID=1069

J'aime pas non plus qu'on me mette des lien comme reponse mais je ne vais pas rep&#233;t&#233; ce qu'il dit.
Apr&#233;s, soit tu enregistre le tout dans une base de donn&#233;es et apr&#233; tu le recupe dans la page que tu veux, soit tu dois pouvoir peut-etre appliquer la methode post ou get, mais avec un textbox je ne suis pas sur

Di moi si tu veux d'autres infos


++

maxsecurite2 · Answer

Un grand merci &#224;  econs,
Comme pr&#233;vu envoi moi un mail et tu aura ta pub

MERCI MERCI MERCI
c'est exactement ce que je cherchais !!

econs · Answer

Pas besoin de cadeau. C'est totalement gratuit ! 

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_ITALIA · Answer

Il est trop Bon  ECONS

It@li@

econs · Answer

Je n'ai surtout pas besoin d'avoir de la pub.

T'es all&#233; sur son site (voir profil) ? Je me demande si c'est l&#233;gal ....

Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

malhivertman1 · Answer

M&#234;me ROYAL je dirai..


++

zifnig · Answer

En quelques lignes :

Private Sub Command1_Click()
Dim nom_url As String
Dim fso As FileSystemObject
Dim stm As TextStream


Set fso = New FileSystemObject


nom_url = Form1.Text1.Text


Text2.Text = Inet1.OpenURL(nom_url, icString)
Set stm = fso.CreateTextFile("Source.txt", True)


stm.Write Text2.Text


End Sub



NB : il faut ajouter la runtime Microsoft Scripting (projet/pr&#233;f&#233;rences), sinon il faut passer par les fonctions classiques (open, write...). Il faut avoir ausi le composant 'microsoft internet transfert control'

Zifnig
http://zifnig.free.fr

malhivertman1 · Answer

Econs, ton site il est pas Illegale, il est Inutile c tout.
Jvois pas qu'est-ce qui pourrait avoir d'illegale a raconter sa vie, enfin apr&#233;s, je sais pas si ca interesse grand monde...Pas moi en tout cas   


++

cs_ITALIA · Answer

et une pub dans Google Gratuite

It@li@

econs · Answer

malhivertman1> 

Je le sais bien qu'il n'est pas ill&#233;gal mon site ! Je parlais du site de maxsecurite2 

C'est une copie de l'interface de Google. C'est &#231;&#224; qui me para&#238;t ill&#233;gal.





Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

malhivertman1 · Answer

Ah ok dsl alor, j'avais mal compris..Toute mes excuses
C sur qu'une copie de l'interface de google, c surmen illegale

C'est si facile de vol&#233; des id&#233;e..


++

econs · Answer

pas grave ! lol

Quant &#224; mon site, c'est juste pour garder le contact avec la famille et
les amis qui sont un peu loins ... Donc oui, j'imagine que &#231;&#224;
t'int&#233;resse assez peu ... 



Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

zifnig · Answer

On pourrait parler ici de "d&#233;fa&#231;age" uniquement si la soumission de la recherche faisait appel &#224; une page de maxsecurite2 qui retornerait un r&#233;sultat non conforme &#224; une recherche google (r&#233;sultats tronqu&#233;s, ranking diff&#233;rent...), alors qu'ici il semble que se soient les routines google qui soient appel&#233;es...

C'est pas beau de copier...mais s'inspirer de ce qui existe (pas la peine d'inventer l'eau chaude), l'am&#233;liorer et en faire partager la communit&#233;, voila comment on avance...

A+

Zifnig
http://zifnig.free.fr

maxsecurite2 · Answer

Heu...mon site n'est pas ill&#233;gal !!
L'adresse date de matusal&#232;me 
faut pas croire je l'ai changer !!

webmaster@marketing.dernieresversions.com

AIDE URGENTE CADEAU A CEUX QUI TROUVE LA SOLUCE

17 réponses

Discussions similaires