Source HTML d'une page Internet
alex_kirchen
Messages postés
58
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
10 février 2006
-
4 juin 2005 à 08:02
alex_kirchen Messages postés 58 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 10 février 2006 - 6 juin 2005 à 07:33
alex_kirchen Messages postés 58 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 10 février 2006 - 6 juin 2005 à 07:33
2 réponses
_matthieu_
Messages postés
16
Date d'inscription
jeudi 19 mai 2005
Statut
Membre
Dernière intervention
14 octobre 2005
5 juin 2005 à 21:09
5 juin 2005 à 21:09
Salut !
Comme tu qs de grandes ambitions !
Tu peux deja creer un navigateur grace a lóbjet Webbrowser ou avec l´assistant, dans la deuxieme page choisis l´option navigateur.
Pour apres, je n´ai pas d´idees.
Bonne prog
Comme tu qs de grandes ambitions !
Tu peux deja creer un navigateur grace a lóbjet Webbrowser ou avec l´assistant, dans la deuxieme page choisis l´option navigateur.
Pour apres, je n´ai pas d´idees.
Bonne prog
alex_kirchen
Messages postés
58
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
10 février 2006
6 juin 2005 à 07:33
6 juin 2005 à 07:33
Merci beaucoup, mais j'ai trouvé la soluion!
Recette:
Dans les composants:
1 x Microsoft Internet Transfert Protocol
1 x Microsoft HTML Object library
1 x Microsoft Internet Controls
1x Microsoft Rich Textbox Control 6.0 (SP6)
Ajouter un richtextbox de nom affichage et un contrôle Inet de nom Inet1.
Le code:
Private Sub voirsource()
Dim b() As Byte
Dim txt As String
b() = Inet1.OpenURL(adresse.Text, 1)
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
affichage.Text = txt
End Sub
Si cela peut aider qqn...
@+ !
Recette:
Dans les composants:
1 x Microsoft Internet Transfert Protocol
1 x Microsoft HTML Object library
1 x Microsoft Internet Controls
1x Microsoft Rich Textbox Control 6.0 (SP6)
Ajouter un richtextbox de nom affichage et un contrôle Inet de nom Inet1.
Le code:
Private Sub voirsource()
Dim b() As Byte
Dim txt As String
b() = Inet1.OpenURL(adresse.Text, 1)
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next
affichage.Text = txt
End Sub
Si cela peut aider qqn...
@+ !
