Afficher la source d'une page internet

Soyez le premier à donner votre avis sur cette source.

Vue 9 619 fois - Téléchargée 908 fois

Description

Cette source permet d'afficher la source d'une page présente sur le net ou en local ...

Si vous avez d'autres méthodes pour y parvenir ... n'hésitez pas à me mailez : bigbang00@caramail.com

voila ...

@+

bigbang
bigbang00@caramail.com

Source / Exemple :


' dans le zip

Conclusion :


Si vous voulez des commentaires, voulez faire des remarques, constatez des bugs ou toutes autres choses, n'hésitez surtout pas a me mailez à bigbang00@caramail.com

@+ et bonne prog...

bigbang

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
30 janvier 2003

Pour enlever les barres, en une ligne (!) on remplace l'affichage dans le source par cette instruction:
' on met la source dans txtSource ...
txtSource = Replace(source, Chr(10), vbNewLine)
Messages postés
55
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
8 mars 2007

Mouais mais il affcihe des chr(10) a la place des vbnewline !!!! pour ameliorer sa apres avoir afficher la source dans la zone prevu a cette effet fait un appel a la sub modif et tu mets :
Sub modif()
For t = 1 To Len(Text1.Text)
DoEvents
If Mid(Text1.Text, t, 1) = Chr(10) Then
Position = t
DoEvents
Text1.Text = Left(Text1.Text, Position - 1) & vbNewLine & Right(Text1.Text, Len(Text1.Text) - Position)
t = t + 1
DoEvents
End If
DoEvents
Next t
End Sub
c tout con et sa evite d'avoir des barres qui s'affichent enfin c mon cas sous win98
@+
source genial
skram
Messages postés
1
Date d'inscription
lundi 8 avril 2002
Statut
Membre
Dernière intervention
25 avril 2003

cool, j'ai trouvé 2 autres codes (y'en a surement d'autre) sur le site, mais comme celui ci fonctionne tres bien, j'arrete mes recherche et te remerci
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
1
Deja sur le site et ta besoin dun zip pour sa non mais met le code
Messages postés
196
Date d'inscription
vendredi 21 décembre 2001
Statut
Membre
Dernière intervention
25 juillet 2006

merci !!!

bigbang
bigbang00@caramail.com
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.