Quicklinks
Today, there are many software packages available to check web sites, like availability, contents, bandwidth, changes, etc.. However, most of these software tools are stand-alone packages, without scripting options. ActiveSocket is very well suited for scripting and embedding in applications.
The ActiveSocket Http object allows you to read web pages completely, so you can perform your own content checking. Use the ActiveSocket Http object to:
The ActiveSocket Http object features the following:
The Http object is part of the ActiveSocket component. Overview of all ActiveSocket objects:
Const asERR_SUCCESS=0
Set objHttp = CreateObject("ActiveXperts.Http")
Do
strUrl = inputbox( "Enter URL", "Input", "www.activexperts.com" )
Loop until strUrl <> ""
objHttp.Connect( strUrl )
If( objHttp.LastError = 0 ) Then
strData = objHttp.ReadData
If( objHttp.LastError = 0 ) Then
WScript.Echo strData
End If
objHttp.Disconnect
WScript.Echo "Disconnect."
End If
WScript.Echo "Ready."
HRESULT hr;
IHttp *pHttp;
BSTR bstrTemp
CoInitialize( NULL );
hr = CoCreateInstance( CLSID_Http, NULL, CLSCTX_INPROC_SERVER,
IID_IHttp, (void**) &pHttp);
pHttp->put_ProxyServer( _bstr_t( ( LPCSTR ) "proxy01" ) );
pHttp->Connect( _bstr_t( "www.activexperts.com/about" ) );
pHttp->get_LastError( &lLastError );
if( lLastError != 0L ) goto _End;
pHttp->ReadData( &bstrTemp );
pHttp->get_LastError( &lLastError );
if( lLastError != 0L ) goto _End;
printf( "%ls\n", bstrTemp );
SysFreeString( bstrTemp );
pHttp->Disconnect();
_End:
On ftp.activexperts-labs.com, you can find a lot of ActiveSocket samples. These samples are also part of the ActiveSocket installation.
Visit ftp.activexperts-labs.com