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

S'inscrire maintenant

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.

Du même auteur (hvb)