codegeeks

#include "stdio.h";
 
#include "stdlib.h";
 
#include "afx.h";
 
#include "afxisapi.h";
 
BOOL WINAPI __stdcall GetFilterVersion(HTTP_FILTER_VERSION *pVer)
 
{
 
pVer->dwFlags = (SF_NOTIFY_PREPROC_HEADERS | SF_NOTIFY_AUTHENTICATION |
 
SF_NOTIFY_URL_MAP  | SF_NOTIFY_SEND_RAW_DATA | SF_NOTIFY_LOG  | SF_NOTIFY_END_OF_NET_SESSION );
 
// You can subscribe to the notifications you require!
 
pVer->dwFilterVersion = HTTP_FILTER_REVISION;
 
return TRUE;
 
}
 
DWORD WINAPI __stdcall HttpFilterProc(HTTP_FILTER_CONTEXT *pfc, DWORD NotificationType, VOID *pvData)
 
{
 
char buffer[256];
 
DWORD buffSize = sizeof(buffer);
 
HTTP_FILTER_PREPROC_HEADERS *p;
 
CHttpFilterContext *chc;
 
chc = (CHttpFilterContext *)pfc;
 
char *newUrl;
 
switch (NotificationType)  {
 
case SF_NOTIFY_PREPROC_HEADERS :
 
p = (HTTP_FILTER_PREPROC_HEADERS *)pvData;
 
BOOL bHeader = p->GetHeader(pfc,"url",buffer,&buffSize);
 
CString myURL(buffer);
 
if (myURL.Find(".html") != -1)
 
{
 
myURL.Replace(".html",".asp");
 
newUrl = myURL.GetBuffer(myURL.GetLength());
 
p->SetHeader(pfc, "url", newUrl);
 
}
 
return SF_STATUS_REQ_HANDLED_NOTIFICATION;
 
}
 
return SF_STATUS_REQ_NEXT_NOTIFICATION;
 
}

LIBRARY           "CDISAPI"
 
EXPORTS
 
HttpFilterProc
 
GetFilterVersion

'Import following namespace
Imports System.Management
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'Declare following three object variables
 
        Dim objMOS As ManagementObjectSearcher
        Dim objMOC As Management.ManagementObjectCollection
        Dim objMO As Management.ManagementObject
 
        'Now, execute the query to get the results
        objMOS = New ManagementObjectSearcher("Select * From Win32_Processor")
 
        objMOC = objMOS.Get
 
        'Finally, get the CPU's id.
        For Each objMO In objMOC
            MessageBox.Show("CPU ID = " & objMO("ProcessorID"))
        Next
 
        'Dispose object variables
 
        objMOS.Dispose()
        objMOS = Nothing
        objMO.Dispose()
        objMO = Nothing
 
    End Sub
End Class