ocx webbrowser

François Picalausa

27/01/2004 à 17:16

Bonjour/soir,

Dans la boite d'outils > composants > Microsoft Internet Controls

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:

je vois qu'y en a qui parle de ca
ca se trouve ou ?
car je dois causer avec une page web
merci

seb-seb

27/01/2004 à 17:52

en fait c'etait le inet qu'y me fallait
j'essaie de causer en http
mais je sais comment avoir une reponse
j'ai fais un bouton qui execute GET, ...

"François Picalausa" a écrit dans le message de
news:

Bonjour/soir,

Dans la boite d'outils > composants > Microsoft Internet Controls

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:
> je vois qu'y en a qui parle de ca
> ca se trouve ou ?
> car je dois causer avec une page web
> merci

seb-seb

27/01/2004 à 18:02

http://www.dyndns.org/developers/specs/syntax.html

"seb-seb" a écrit dans le message de
news:

en fait c'etait le inet qu'y me fallait
j'essaie de causer en http
mais je sais comment avoir une reponse
j'ai fais un bouton qui execute GET, ...

"François Picalausa" a écrit dans le message de
news:
> Bonjour/soir,
>
> Dans la boite d'outils > composants > Microsoft Internet Controls
>
> --
> François Picalausa (MVP VB)
> FAQ VB : http://faq.vb.free.fr
> MSDN : http://msdn.microsoft.com
>
>
> "seb-seb" a écrit dans le message de
> news:
> > je vois qu'y en a qui parle de ca
> > ca se trouve ou ?
> > car je dois causer avec une page web
> > merci
>
>

ng

27/01/2004 à 18:43

Eviter d'utiliser le controle Inet qui est buggé, on peut, à la place, se
servir des APIs Inet, du controle Winsock ou encore de URLDownloadToFile...
Si tu veux un exemple d'implantation du http (get principalement) avec
winsock, demande moi.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

seb-seb wrote:

en fait c'etait le inet qu'y me fallait
j'essaie de causer en http
mais je sais comment avoir une reponse
j'ai fais un bouton qui execute GET, ...

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

Dans la boite d'outils > composants > Microsoft Internet Controls

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:
je vois qu'y en a qui parle de ca
ca se trouve ou ?
car je dois causer avec une page web
merci

seb-seb

28/01/2004 à 08:36

ca m'interresserait surement
mais je vais encore rien comprendre y vas y avoir des api et du souc
classement
et d'autres mots barbare je le sens

"ng" a écrit dans le message de
news:

Eviter d'utiliser le controle Inet qui est buggé, on peut, à la place, se
servir des APIs Inet, du controle Winsock ou encore de

URLDownloadToFile...

Si tu veux un exemple d'implantation du http (get principalement) avec
winsock, demande moi.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

seb-seb wrote:
> en fait c'etait le inet qu'y me fallait
> j'essaie de causer en http
> mais je sais comment avoir une reponse
> j'ai fais un bouton qui execute GET, ...
>
>
> "François Picalausa" a écrit dans le message de
> news:
>> Bonjour/soir,
>>
>> Dans la boite d'outils > composants > Microsoft Internet Controls
>>
>> --
>> François Picalausa (MVP VB)
>> FAQ VB : http://faq.vb.free.fr
>> MSDN : http://msdn.microsoft.com
>>
>>
>> "seb-seb" a écrit dans le message de
>> news:
>>> je vois qu'y en a qui parle de ca
>>> ca se trouve ou ?
>>> car je dois causer avec une page web
>>> merci

François Picalausa

28/01/2004 à 09:33

Bonjour/soir,

Pas nécessairement question de sous classement quand il y a des API ;-)
Pour des exemples d'utilisations de URLDownloadToFile ou
URLDownloadToCacheFile, google ;-)
http://groups.google.be/groups?q=URLDownloadToFile+group:microsoft.public.fr.vb

Ou encore, voici un p'tit bout de code qui possède quelques fonctions plus
ou moins utiles:
Option Explicit

Private Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" _
( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) _
As Long
Private Declare Function SHPathPrepareForWrite _
Lib "shell32.dll" _
Alias "SHPathPrepareForWriteA" _
( _
ByVal hwnd As Long, _
ByVal punkEnableModless As Long, _
ByVal pszPath As String, _
ByVal dwFlags As Long _
) _
As Long

Const SHPPFW_DIRCREATE = &H1
Const SHPPFW_DEFAULT = SHPPFW_DIRCREATE
Const SHPPFW_ASKDIRCREATE = &H2
Const SHPPFW_IGNOREFILENAME = &H4

Private Sub Command1_Click()
Dim ContenuFichier As String

'Une confirmation sera demandée pour créer "c:temppath"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppathtest.htm", _
ContenuFichier, True, _
Me.hwnd) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" _
& vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'Aucune confirmation ne sera demandée pour créer "c:temppath2"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath2test.htm", _
ContenuFichier, _
True, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'On ne tentera pas de créer le chemin de destination
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath3test.htm", _
ContenuFichier, _
False, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If
End Sub

'DownloadURLToFile
'Télécharger un fichier à partir d'une URL
'Paramètre:
' strSourceURL : URL de la page à télécharger
' strDestination : Fichier à créer
' strContent : contiendra le contenu du fichier créé
' PreparePath : définit s'il faut ou non préparer le chemin
' (créer les dossier inexistants).
' Si le dossier de destination n'existe pas et
' que PreparePath n'est pas égal à true
' la fonction échouera
' ParentUserPromptsWnd : fenêtre qui sera parente
' des boites de dialogue à afficher
' pour la préparation du path.
' Si 0, aucune boite de dialogue
' ne sera créée
'Valeur de retour:
' DownloadURLToFile retourne 0 en cas de succès
' ou une valeur non nulle en cas d'échec.
Function DownloadURLToFile(ByVal strSourceURL As String, _
ByVal strDestination As String, _
Optional ByRef strContent As String, _
Optional PreparePath As Boolean, _
Optional ParentUserPromptsWnd As Long _
) _
As Long
Dim FFN As Integer

'On pépare le chemin pour l'écriture
If PreparePath Then
'Si le ParentUserPromptsWnd est valide
If ParentUserPromptsWnd Then
If SHPathPrepareForWrite(ParentUserPromptsWnd, _
0, strDestination, SHPPFW_ASKDIRCREATE Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
Else
If SHPathPrepareForWrite(0, _
0, strDestination, SHPPFW_DEFAULT Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
End If
End If

'Appelle l'API de transfert
DownloadURLToFile = URLDownloadToFile(0, _
strSourceURL, _
strDestination, _
0, _
0)

'Si l'opération a réussi,
'on lit le fichier dans
'strContent
If DownloadURLToFile = 0 Then
If FileExists(strDestination) Then
FFN = FreeFile
Open strDestination For Binary As FFN
strContent = String$(LOF(FFN), vbNullChar)
Get FFN, , strContent
Close FFN
Else
DownloadURLToFile = 2
'code système standard
'= fichier inexistant
End If
End If
End Function

Function FileExists(ByRef sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:%

ca m'interresserait surement
mais je vais encore rien comprendre y vas y avoir des api et du souc
classement
et d'autres mots barbare je le sens
"ng" a écrit dans le message de
news:
Eviter d'utiliser le controle Inet qui est buggé, on peut, à la
place, se servir des APIs Inet, du controle Winsock ou encore de
URLDownloadToFile... Si tu veux un exemple d'implantation du http
(get principalement) avec winsock, demande moi.

Bonjour/soir,

Pas nécessairement question de sous classement quand il y a des API ;-)
Pour des exemples d'utilisations de URLDownloadToFile ou
URLDownloadToCacheFile, google ;-)
http://groups.google.be/groups?q=URLDownloadToFile+group:microsoft.public.fr.vb

Ou encore, voici un p'tit bout de code qui possède quelques fonctions plus
ou moins utiles:
Option Explicit

Private Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" _
( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) _
As Long
Private Declare Function SHPathPrepareForWrite _
Lib "shell32.dll" _
Alias "SHPathPrepareForWriteA" _
( _
ByVal hwnd As Long, _
ByVal punkEnableModless As Long, _
ByVal pszPath As String, _
ByVal dwFlags As Long _
) _
As Long

Const SHPPFW_DIRCREATE = &H1
Const SHPPFW_DEFAULT = SHPPFW_DIRCREATE
Const SHPPFW_ASKDIRCREATE = &H2
Const SHPPFW_IGNOREFILENAME = &H4

Private Sub Command1_Click()
Dim ContenuFichier As String

'Une confirmation sera demandée pour créer "c:temppath"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppathtest.htm", _
ContenuFichier, True, _
Me.hwnd) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" _
& vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'Aucune confirmation ne sera demandée pour créer "c:temppath2"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath2test.htm", _
ContenuFichier, _
True, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'On ne tentera pas de créer le chemin de destination
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath3test.htm", _
ContenuFichier, _
False, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If
End Sub

'DownloadURLToFile
'Télécharger un fichier à partir d'une URL
'Paramètre:
' strSourceURL : URL de la page à télécharger
' strDestination : Fichier à créer
' strContent : contiendra le contenu du fichier créé
' PreparePath : définit s'il faut ou non préparer le chemin
' (créer les dossier inexistants).
' Si le dossier de destination n'existe pas et
' que PreparePath n'est pas égal à true
' la fonction échouera
' ParentUserPromptsWnd : fenêtre qui sera parente
' des boites de dialogue à afficher
' pour la préparation du path.
' Si 0, aucune boite de dialogue
' ne sera créée
'Valeur de retour:
' DownloadURLToFile retourne 0 en cas de succès
' ou une valeur non nulle en cas d'échec.
Function DownloadURLToFile(ByVal strSourceURL As String, _
ByVal strDestination As String, _
Optional ByRef strContent As String, _
Optional PreparePath As Boolean, _
Optional ParentUserPromptsWnd As Long _
) _
As Long
Dim FFN As Integer

'On pépare le chemin pour l'écriture
If PreparePath Then
'Si le ParentUserPromptsWnd est valide
If ParentUserPromptsWnd Then
If SHPathPrepareForWrite(ParentUserPromptsWnd, _
0, strDestination, SHPPFW_ASKDIRCREATE Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
Else
If SHPathPrepareForWrite(0, _
0, strDestination, SHPPFW_DEFAULT Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
End If
End If

'Appelle l'API de transfert
DownloadURLToFile = URLDownloadToFile(0, _
strSourceURL, _
strDestination, _
0, _
0)

'Si l'opération a réussi,
'on lit le fichier dans
'strContent
If DownloadURLToFile = 0 Then
If FileExists(strDestination) Then
FFN = FreeFile
Open strDestination For Binary As FFN
strContent = String$(LOF(FFN), vbNullChar)
Get FFN, , strContent
Close FFN
Else
DownloadURLToFile = 2
'code système standard
'= fichier inexistant
End If
End If
End Function

Function FileExists(ByRef sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" <sperot51@msn.com> a écrit dans le message de
news:%23Z49jFX5DHA.488@TK2MSFTNGP12.phx.gbl

ca m'interresserait surement
mais je vais encore rien comprendre y vas y avoir des api et du souc
classement
et d'autres mots barbare je le sens
"ng" <ng@babeuk.net> a écrit dans le message de
news:OYIjY0P5DHA.2560@TK2MSFTNGP09.phx.gbl...

Eviter d'utiliser le controle Inet qui est buggé, on peut, à la
place, se servir des APIs Inet, du controle Winsock ou encore de
URLDownloadToFile... Si tu veux un exemple d'implantation du http
(get principalement) avec winsock, demande moi.

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour/soir,

Pas nécessairement question de sous classement quand il y a des API ;-)
Pour des exemples d'utilisations de URLDownloadToFile ou
URLDownloadToCacheFile, google ;-)
http://groups.google.be/groups?q=URLDownloadToFile+group:microsoft.public.fr.vb

Ou encore, voici un p'tit bout de code qui possède quelques fonctions plus
ou moins utiles:
Option Explicit

Private Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" _
( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long _
) _
As Long
Private Declare Function SHPathPrepareForWrite _
Lib "shell32.dll" _
Alias "SHPathPrepareForWriteA" _
( _
ByVal hwnd As Long, _
ByVal punkEnableModless As Long, _
ByVal pszPath As String, _
ByVal dwFlags As Long _
) _
As Long

Const SHPPFW_DIRCREATE = &H1
Const SHPPFW_DEFAULT = SHPPFW_DIRCREATE
Const SHPPFW_ASKDIRCREATE = &H2
Const SHPPFW_IGNOREFILENAME = &H4

Private Sub Command1_Click()
Dim ContenuFichier As String

'Une confirmation sera demandée pour créer "c:temppath"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppathtest.htm", _
ContenuFichier, True, _
Me.hwnd) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" _
& vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'Aucune confirmation ne sera demandée pour créer "c:temppath2"
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath2test.htm", _
ContenuFichier, _
True, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If

'On ne tentera pas de créer le chemin de destination
If DownloadURLToFile("http://faq.vb.free.fr", _
"c:temppath3test.htm", _
ContenuFichier, _
False, 0) = 0 Then

'Si l'opération a réussi
MsgBox "Le fichier a été lu correctement; voici les premiers
caractères:" & vbNewLine & Left$(ContenuFichier, 250)
Else
MsgBox "L'opération a échoué"
End If
End Sub

'DownloadURLToFile
'Télécharger un fichier à partir d'une URL
'Paramètre:
' strSourceURL : URL de la page à télécharger
' strDestination : Fichier à créer
' strContent : contiendra le contenu du fichier créé
' PreparePath : définit s'il faut ou non préparer le chemin
' (créer les dossier inexistants).
' Si le dossier de destination n'existe pas et
' que PreparePath n'est pas égal à true
' la fonction échouera
' ParentUserPromptsWnd : fenêtre qui sera parente
' des boites de dialogue à afficher
' pour la préparation du path.
' Si 0, aucune boite de dialogue
' ne sera créée
'Valeur de retour:
' DownloadURLToFile retourne 0 en cas de succès
' ou une valeur non nulle en cas d'échec.
Function DownloadURLToFile(ByVal strSourceURL As String, _
ByVal strDestination As String, _
Optional ByRef strContent As String, _
Optional PreparePath As Boolean, _
Optional ParentUserPromptsWnd As Long _
) _
As Long
Dim FFN As Integer

'On pépare le chemin pour l'écriture
If PreparePath Then
'Si le ParentUserPromptsWnd est valide
If ParentUserPromptsWnd Then
If SHPathPrepareForWrite(ParentUserPromptsWnd, _
0, strDestination, SHPPFW_ASKDIRCREATE Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
Else
If SHPathPrepareForWrite(0, _
0, strDestination, SHPPFW_DEFAULT Or
SHPPFW_IGNOREFILENAME) <> 0 Then
DownloadURLToFile = 3
Exit Function
End If
End If
End If

'Appelle l'API de transfert
DownloadURLToFile = URLDownloadToFile(0, _
strSourceURL, _
strDestination, _
0, _
0)

'Si l'opération a réussi,
'on lit le fichier dans
'strContent
If DownloadURLToFile = 0 Then
If FileExists(strDestination) Then
FFN = FreeFile
Open strDestination For Binary As FFN
strContent = String$(LOF(FFN), vbNullChar)
Get FFN, , strContent
Close FFN
Else
DownloadURLToFile = 2
'code système standard
'= fichier inexistant
End If
End If
End Function

Function FileExists(ByRef sFileName As String) As Boolean
On Error Resume Next
FileExists = ((GetAttr(sFileName) And vbDirectory) = 0)
End Function

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:%

ca m'interresserait surement
mais je vais encore rien comprendre y vas y avoir des api et du souc
classement
et d'autres mots barbare je le sens
"ng" a écrit dans le message de
news:
Eviter d'utiliser le controle Inet qui est buggé, on peut, à la
place, se servir des APIs Inet, du controle Winsock ou encore de
URLDownloadToFile... Si tu veux un exemple d'implantation du http
(get principalement) avec winsock, demande moi.

ng

28/01/2004 à 12:29

Non c'est uniquement basé sur le controle Winsock, pas d'api ni de
subclassing.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

seb-seb wrote:

ca m'interresserait surement
mais je vais encore rien comprendre y vas y avoir des api et du souc
classement
et d'autres mots barbare je le sens

"ng" a écrit dans le message de
news:
Eviter d'utiliser le controle Inet qui est buggé, on peut, à la
place, se servir des APIs Inet, du controle Winsock ou encore de
URLDownloadToFile... Si tu veux un exemple d'implantation du http
(get principalement) avec winsock, demande moi.

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

seb-seb wrote:
en fait c'etait le inet qu'y me fallait
j'essaie de causer en http
mais je sais comment avoir une reponse
j'ai fais un bouton qui execute GET, ...

"François Picalausa" a écrit dans le message
de news:
Bonjour/soir,

Dans la boite d'outils > composants > Microsoft Internet Controls

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

"seb-seb" a écrit dans le message de
news:
je vois qu'y en a qui parle de ca
ca se trouve ou ?
car je dois causer avec une page web
merci

ocx webbrowser

7 réponses

Veuillez sélectionner un problème