ayuda con api

[Sanlegas]

Encontre una api que me llamó la atención y quise usarla pero no pude, tal vez puedan ayudarme, la api es esta

http://msdn.microsoft.com/en-us/library/ms775125(VS.85).aspx

La declaración la hago asi:

Código [Seleccionar] Expandir

Private Declare Function UrlMkSetSessionOption Lib "urlmon" (ByVal dwOption As String, ByVal pBuffer As String, ByVal dwBufferLength As Long, ByVal dwReserved As Long) As Long


y la llamo asi:

Código [Seleccionar] Expandir

Dim I As Long
I = UrlMkSetSessionOption("URLMON_OPTION_USERAGENT", "Browser de prueba", 18, 0)
MsgBox I


pero siempre me retorna un valor negativo y creo que esta mal  , gracias de antemano. 

[LeandroA]

por lo que vi es para el proxi
fijate en este foro hay un topic no se si lo solucionaron
http://www.sql.ru/forum/actualthread.aspx?tid=488553

Saludos.

[Sanlegas]

gracias me ah ayudado a entender un poco mejor esa api pero no lo quiero para proxy si no para modificar el header del webbrowser.... se que desde el webbrowser se puede pero solo se puede al hacer el evento navigate(osea la primera vez que visitas X pagina), y creo que con esta api se puede hacer hasta que se cierre el exe 

lo declare así

Código [Seleccionar] Expandir

Public Declare Sub UrlMkSetSessionOption Lib "urlmon.dll" _
(ByVal dwOption As Long, ByRef pBuffer As Any, _
ByVal dwBufferLength As Long, ByVal dwReserved As Long)

y volvi a hacer la misma llamada

Código [Seleccionar] Expandir

Dim I As Integer
I = UrlMkSetSessionOption(37, "Browser de prueba", Len("Browser de prueba"), 0)
MsgBox I

solo que no se la constante para usar el URLMON_OPTION_USERAGENT, el INTERNET_OPTION_PROXY es 38, asi que probe desde el 0 al 39, el 37 me tira un 0 y el 38 un 1 

[Dessa]

creo que es esta:

Private Const URLMON_OPTION_USERAGENT = &H10000001

[Sanlegas]

todo bien, gracias