Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Sanlegas en 6 Agosto 2010, 23:40 pm



Título: ayuda con api
Publicado por: Sanlegas en 6 Agosto 2010, 23:40 pm
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 (http://msdn.microsoft.com/en-us/library/ms775125(VS.85).aspx)

La declaración la hago asi:

Código:
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:
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  :xD, gracias de antemano.  :laugh:


Título: Re: ayuda con api
Publicado por: LeandroA en 7 Agosto 2010, 00:14 am
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.


Título: Re: ayuda con api
Publicado por: Sanlegas en 7 Agosto 2010, 01:37 am
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  :rolleyes:

lo declare así
Código:
 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:
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  :xD
 


Título: Re: ayuda con api
Publicado por: Dessa en 7 Agosto 2010, 01:57 am
creo que es esta:

Private Const URLMON_OPTION_USERAGENT = &H10000001






Título: Re: ayuda con api
Publicado por: Sanlegas en 8 Agosto 2010, 02:25 am
todo bien, gracias  ;-)