Hello,
I would like to make two questions please.
1) How can I detect the default Internet browser on the PC?.
2) How can I read a cookie?.
Thank you in advance.
De manera predeterminada, Windows XP utiliza una configuración global en la clave del registro HKeyLocalMachine (HKLM) para establecer una inicial, el correo electrónico predeterminado y el cliente de explorador Web en el menú Inicio . Windows XP también implementa nuevas claves del registro en HKeyCurrentUser (HKCU) para almacenar individuales de internet y la información de cliente de correo electrónico de cada usuario como parte de su perfil, si los usuarios seleccionan a un cliente diferente a la predeterminada
BOOL InternetGetCookie(
_In_ LPCTSTR lpszUrl,
_In_ LPCTSTR lpszCookieName,
_Out_ LPTSTR lpszCookieData,
_Inout_ LPDWORD lpdwSize
);
#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
HB_FUNC( INTERNETGETCOOKIE )
{
DWORD dwSize = 0;
char * buffer;
InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), ( LPCTSTR ) hb_parc( 3 ), NULL, &dwSize );
buffer = ( char * ) hb_xgrab( dwSize );
if( InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), ( LPCTSTR ) hb_parc( 3 ), buffer, &dwSize ) )
hb_retclen( buffer, dwSize );
else
hb_retc( "" );
hb_xfree( buffer );
);
#pragma ENDDUMP
#pragma BEGINDUMP
#include <windows.h>
#include <wininet.h>
#include <hbapi.h>
/*
BOOLAPI
InternetGetCookie(
__in LPCSTR lpszUrl,
__in_opt LPCSTR lpszCookieName,
__out_ecount_opt(*lpdwSize) LPSTR lpszCookieData,
__inout LPDWORD lpdwSize
);
*/
HB_FUNC( INTERNETGETCOOKIE )
{
DWORD dwSize = 0;
char * buffer;
InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), NULL, &dwSize );
buffer = ( char * ) hb_xgrab( dwSize );
if( InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), buffer, &dwSize ) )
hb_retclen( buffer, dwSize );
else
hb_retc( "" );
hb_xfree( buffer );
}
#pragma ENDDUMP
#pragma BEGINDUMP
#include <windows.h>
#include <wininet.h>
#include <hbapi.h>
HB_FUNC( INTERNETGETCOOKIE )
{
DWORD dwSize = 0;
char * buffer;
InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), NULL, &dwSize );
buffer = ( char * ) hb_xgrab( dwSize );
if( InternetGetCookie( ( LPCTSTR ) hb_parc( 1 ), ( LPCTSTR ) hb_parc( 2 ), buffer, &dwSize ) )
hb_retclen( buffer, dwSize );
else
hb_retc( "" );
hb_xfree( buffer );
);
#pragma ENDDUMP
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 102 guests