- '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"
'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"