Lancer une url en modifiant certains headers, via shdocvw.dll


Commenter

Contenu du snippet

Il n'y a aucunes source la dessus... donc je la met, meme si apparement pas grand monde n'en comprend l'interet, vu le nombre de commentaires :) .

Source / Exemple : 


'tout d'abord, ajouter comme reference Microsoft Internet Controls

'mettez ceci qq part dans votre code
Public Sub hbheaders(headerz As String, urlh As String)
headerz = "Value: salut" & vbCrLf & "User-Agent: wesh" & vbCrLf
If urlh <> "" Then
Set IEh = New InternetExplorer
IEh.RegisterAsBrowser = True
IEh.Navigate urlh, , , , headerz
IEh.Visible = True
Else
MsgBox "Entrez une url"
End If
End Sub

'puis appelez le comme tel :
Dim heads As String
heads = "Value: salut" & vbCrLf & "User-Agent: wesh" & vbCrLf
'le header Value n'est pas reconnu par le serveur vbfrance, c'est juste pour l'exemple... bref, sniffez.
'les headers doivent etre separés de CrLf
hbheaders heads, "http://www.vbfrance.com"

Conclusion :


.

A voir également

Du même auteur (hvb)