C# Definition:

    using System.Runtime.InteropServices;
    using System;
    using System.Text;
    public enum UrlZone
    {
    LocalMachine,
    Intranet,
    Trusted,
    Internet,
    Untrusted
    }
public class Constants
{
     public const int MAX_PATH = 260;
     public const int MAX_ZONE_PATH = 260;
     public const int MAX_ZONE_DESCRIPTION = 200;
}

    public enum UrlAction
    {
    ActiveXScriptletRun = unchecked((int)0x00001209),
    DownloadUnsignedActiveX = unchecked((int)0x00001004)
    }
[StructLayout(LayoutKind.Sequential, CharSet=CharSet.Unicode)]
public struct ZONEATTRIBUTES
{
     public uint cbSize;
     [MarshalAs(UnmanagedType.ByValTStr, SizeConst = Constants.MAX_PATH)]
     public string szDizplayName;
     [MarshalAs(UnmanagedType.ByValTStr, SizeConst = Constants.MAX_ZONE_DESCRIPTION)]
     public string szDescription;
     [MarshalAs(UnmanagedType.ByValTStr, SizeConst = Constants.MAX_PATH)]
     public string szIconPath;
     public uint dwTemplateMinLevel;
     public uint dwTemplateRecommended;
     public uint dwTemplateCurrentLevel;
     public uint dwFlags;
}

    public enum UrlZoneReg
    {
    Default,
    LocalMachineKey,
    CurrentUserKey
    }

    public enum URLTEMPLATE  
    {
    URLTEMPLATE_CUSTOM      = 0x00000,
    URLTEMPLATE_PREDEFINED_MIN  = 0x10000,
    URLTEMPLATE_LOW         = 0x10000,
    URLTEMPLATE_MEDLOW      = 0x10500,
    URLTEMPLATE_MEDIUM      = 0x11000,
    URLTEMPLATE_MEDHIGH     = 0x11500,
    URLTEMPLATE_HIGH        = 0x12000,
    URLTEMPLATE_PREDEFINED_MAX  = 0x20000
    }
public enum URLZONEREG
{
     URLZONEREG_DEFAULT = 0,
     URLZONEREG_HKLM,
     URLZONEREG_HKCU
}

    [StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
    public struct ZoneAttributes
    {
    public uint Size;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 260)]
    public string DisplayName;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 200)]
    public string Description;
    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 260)]
    public string IconPath;
    public uint TemplateMinLevel;
    public uint TemplateRecommended;
    public uint TemplateCurrentLevel;
    public uint Flags;
    };





    [ComImport,
     Guid("79eac9ef-baf9-11ce-8c82-00aa004ba90b"),
     InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
    public interface IInternetZoneManager
    {
    [PreserveSig]
    int GetZoneAttributes(uint dwZone,
                  ref ZoneAttributes pZoneAttributes);

    [PreserveSig]
    int SetZoneAttributes(uint dwZone,
                  ref ZoneAttributes pZoneAttributes);

    [PreserveSig]
    int GetZoneCustomPolicy(uint dwZone,
                ref Guid guidKey,
                out IntPtr ppPolicy,
                ref uint pcbPolicy,
                uint urlZoneReg);

    [PreserveSig]
    int SetZoneCustomPolicy(uint dwZone,
                ref Guid guidKey,
                IntPtr pPolicy,
                uint cbPolicy,
                uint urlZoneReg);

    [PreserveSig]
    int GetZoneActionPolicy(uint dwZone,
                uint dwAction,
                IntPtr pPolicy,
                uint cbPolicy,
                uint urlZoneReg);

    [PreserveSig]
    int SetZoneActionPolicy(uint dwZone,
                uint dwAction,
                IntPtr pPolicy,
                uint cbPolicy,
                uint urlZoneReg);

    [PreserveSig]
    int PromptAction(uint dwAction,
             HandleRef hwndParent,
             StringBuilder pwszUrl,
             StringBuilder pwszText,
             uint dwPromptFlags);

    [PreserveSig]
    int LogAction(uint dwAction,
              StringBuilder pwszUrl,
              StringBuilder pwszText,
              uint dwLogFlags);

    [PreserveSig]
    int CreateZoneEnumerator(ref uint pdwEnum,
                 ref uint pdwCount,
                 uint dwFlags);

    [PreserveSig]
    int GetZoneAt(uint dwEnum,
              uint dwIndex,
              ref uint pdwZone);

    [PreserveSig]
    int DestroyZoneEnumerator(uint dwEnum);

    [PreserveSig]
    int CopyTemplatePoliciesToZone(uint dwTemplate,
                       uint dwZone,
                       uint dwReserved);
    }



    public sealed class InternetZoneManager : IDisposable
    {
    private IInternetZoneManager izm;

    public InternetZoneManager()
    {
        this.izm = Activator.CreateInstance(Type.GetTypeFromCLSID(new Guid("7b8a2d95-0ac9-11d1-896c-00c04Fb6bfc4"))) as IInternetZoneManager;
    }

    public ZoneAttributes GetZoneAttributes(UrlZone zone)
    {
        ZoneAttributes za = new ZoneAttributes();

        if (this.izm.GetZoneAttributes((uint)zone, ref za) == 0)
        {
        return za;
        }

        throw new Exception();
    }

    public void SetZoneAttributes(UrlZone zone, ZoneAttributes attributes)
    {
        attributes.Size = (uint)Marshal.SizeOf(attributes);

        if (this.izm.SetZoneAttributes((uint)zone, ref attributes) != 0)
        {
        throw new Exception();
        }
    }

    public byte[] GetZoneActionPolicy(UrlZone zone, UrlAction action, UrlZoneReg zoneReg)
    {
        IntPtr pPolicy = Marshal.AllocHGlobal(8196);

        try
        {
        if (this.izm.GetZoneActionPolicy((uint)zone, (uint)action, pPolicy, 8196, (uint)zoneReg) == 0)
        {
            byte[] buff = new byte[8196];

            for (int i = 0; i < buff.Length; i++)
            {
            buff[i] = Marshal.ReadByte(pPolicy, i);
            }

            return buff;
        }

        throw new Exception();
        }
        finally
        {
        Marshal.FreeHGlobal(pPolicy);
        }
    }

    public int CopyTemplatePoliciesToZone(URLTEMPLATE template, UrlZone zone)
    {
        try
        {
        if (this.izm.CopyTemplatePoliciesToZone((uint)template, (uint)zone, 0) == 0)
        {
            return 0;
        }
        throw new Exception();
        }
        finally { }
    }

    public void Dispose()
    {
        if (this.izm != null)
        {
        Marshal.ReleaseComObject(this.izm);
        this.izm = null;
        }

        GC.SuppressFinalize(this);
    }
    }

[Guid("79eac9ef-baf9-11ce-8c82-00aa004ba90b")]
[ComImport]
[InterfaceType(ComInterfaceType.InterfaceIsIUnknown)]
public interface IInternetZoneManager
{
     void GetZoneAttributes(uint dwZone, ref ZONEATTRIBUTES pZoneAttributes);
     void SetZoneAttributes(uint dwZone, ref ZONEATTRIBUTES pZoneAttributes);
     void GetZoneCustomPolicy(uint dwZone, [In] ref Guid guidKey, ref IntPtr ppPolicy,
                  ref uint pcbPolicy, URLZONEREG urlZoneReg);
     void SetZoneCustomPolicy(uint dwZone, [In] ref Guid guidKey, IntPtr pPolicy,
                  uint pcbPolicy, URLZONEREG urlZoneReg);
     void GetZoneActionPolicy(uint dwZone, uint dwAction, IntPtr pPolicy, uint cbPolicy,
                  URLZONEREG urlZoneReg);
     void SetZoneActionPolicy(uint dwZone, uint dwAction, IntPtr pPolicy, uint cbPolicy,
                  URLZONEREG urlZoneReg);
     void PromptAction(uint dwAction, IntPtr hwndParent, [MarshalAs(UnmanagedType.LPWStr)] string pwszUrl,
               [MarshalAs(UnmanagedType.LPWStr)] string pwszText, uint dwPromptFlags);
     void LogAction(uint dwAction, [MarshalAs(UnmanagedType.LPWStr)] string pwszUrl,
            [MarshalAs(UnmanagedType.LPWStr)] string pwszText, uint dwLogFlags);
     void CreateZoneEnumerator(ref uint pdwEnum, ref uint pdwCount, uint dwFlags);
     void GetZoneAt(uint dwEnum, uint dwIndex, ref uint pdwZone);
     void DestroyZoneEnumerator(uint dwEnum);
     void CopyTemplatePoliciesToZone(uint dwTemplate, uint dwZone, uint dwReserved);      
}

VB Definition:

    Imports System.Runtime.InteropServices

    Public Enum UrlZone
    LocalMachine
    Intranet
    Trusted
    Internet
    Untrusted
    End Enum

    Public Enum UrlAction
    ActiveXScriptletRun = 4617
    DownloadUnsignedActiveX = 4100
    End Enum

    Public Enum UrlZoneReg
    [Default]
    LocalMachineKey
    CurrentUserKey
    End Enum

    Public Enum UrlTemplate
    Custom
    Low = &H10000
    MediumLow = &H10500
    Medium = &H11000
    MediumHigh = &H11500
    High = &H12000
    End Enum

    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Public Structure ZoneAttributes
    Public Size As UInteger
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public DizplayName As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=200)> Public Description As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> Public IconPath As String
    Public TemplateMinLevel As UInteger
    Public TemplateRecommended As UInteger
    Public TemplateCurrentLevel As UInteger
    Public Flags As UInteger
    End Structure


    <Guid("79eac9ef-baf9-11ce-8c82-00aa004ba90b")> _
    <ComImport()> _
    <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IInternetZoneManager
    <PreserveSig()> _
    Function GetZoneAttributes(ByVal dwZone As UInteger,
                  ByRef pZoneAttributes As ZoneAttributes) As Integer

    <PreserveSig()> _
    Function SetZoneAttributes(ByVal dwZone As UInteger,
                  ByRef pZoneAttributes As ZoneAttributes) As Integer

    <PreserveSig()> _
    Function GetZoneCustomPolicy(ByVal dwZone As UInteger,
                <[In]()> ByRef guidKey As Guid,
                ByRef ppPolicy As IntPtr,
                ByRef pcbPolicy As UInteger,
                ByVal urlZoneReg As UrlZoneReg) As Integer

    <PreserveSig()> _
    Function SetZoneCustomPolicy(ByVal dwZone As UInteger,
                <[In]()> ByRef guidKey As Guid,
                ByVal pPolicy As IntPtr,
                ByVal pcbPolicy As UInteger,
                ByVal urlZoneReg As UrlZoneReg) As Integer

    <PreserveSig()> _
    Function GetZoneActionPolicy(ByVal dwZone As UInteger,
                ByVal dwAction As UInteger,
                ByVal pPolicy As IntPtr,
                ByVal cbPolicy As UInteger,
                ByVal urlZoneReg As UrlZoneReg) As Integer

    <PreserveSig()> _
    Function SetZoneActionPolicy(ByVal dwZone As UInteger,
                ByVal dwAction As UInteger,
                ByVal pPolicy As IntPtr,
                ByVal cbPolicy As UInteger,
                ByVal urlZoneReg As UrlZoneReg) As Integer

    <PreserveSig()> _
    Function PromptAction(ByVal dwAction As UInteger,
             ByVal hwndParent As IntPtr,
             <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,
             <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszText As String,
             ByVal dwPromptFlags As UInteger) As Integer

    <PreserveSig()> _
    Function LogAction(ByVal dwAction As UInteger,
              <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszUrl As String,
              <MarshalAs(UnmanagedType.LPWStr)> ByVal pwszText As String,
              ByVal dwLogFlags As UInteger) As Integer

    <PreserveSig()> _
    Function CreateZoneEnumerator(ByRef pdwEnum As UInteger,
                 ByRef pdwCount As UInteger,
                 ByVal dwFlags As UInteger) As Integer

    <PreserveSig()> _
    Function GetZoneAt(ByVal dwEnum As UInteger,
              ByVal dwIndex As UInteger,
              ByRef pdwZone As UInteger) As Integer

    <PreserveSig()> _
    Function DestroyZoneEnumerator(ByVal dwEnum As UInteger) As Integer

    <PreserveSig()> _
    Function CopyTemplatePoliciesToZone(ByVal dwTemplate As UInteger,
                       ByVal dwZone As UInteger,
                       ByVal dwReserved As UInteger) As Integer
    End Interface


    Public NotInheritable Class InternetZoneManager
    Implements IDisposable

    Private izm As IInternetZoneManager

    Public Sub New()
        MyBase.New()
        Me.izm = CType(Activator.CreateInstance(Type.GetTypeFromCLSID(New Guid("7b8a2d95-0ac9-11d1-896c-00c04Fb6bfc4"))), IInternetZoneManager)
    End Sub

    Public Function GetZoneAttributes(ByVal zone As UrlZone) As ZoneAttributes
        Dim za As ZoneAttributes = New ZoneAttributes
        If (Me.izm.GetZoneAttributes(CType(zone, UInteger), za) = 0) Then
        Return za
        End If
        Throw New Exception
    End Function

    Public Sub SetZoneAttributes(ByVal zone As UrlZone, ByVal attributes As ZoneAttributes)
        attributes.Size = CType(Marshal.SizeOf(attributes), UInteger)
        If (Me.izm.SetZoneAttributes(CType(zone, UInteger), attributes) <> 0) Then
        Throw New Exception
        End If
    End Sub

    Public Function GetZoneActionPolicy(ByVal zone As UrlZone, ByVal action As UrlAction, ByVal zoneReg As UrlZoneReg) As Byte()
        Dim pPolicy As IntPtr = Marshal.AllocHGlobal(8196)
        Try
        If (Me.izm.GetZoneActionPolicy(CType(zone, UInteger), CType(action, UInteger), pPolicy, 8196, CType(zoneReg, UInteger)) = 0) Then
            Dim buff() As Byte = New Byte((8196) - 1) {}
            Dim i As Integer = 0
            Do While (i < buff.Length)
            buff(i) = Marshal.ReadByte(pPolicy, i)
            i = (i + 1)
            Loop
            Return buff
        End If
        Throw New Exception
        Finally
        Marshal.FreeHGlobal(pPolicy)
        End Try
    End Function

    Public Function CopyTemplatePoliciesToZone(ByVal template As UrlTemplate, ByVal zone As UrlZone) As Integer
        If (Me.izm.CopyTemplatePoliciesToZone(CType(template, UInteger), CType(zone, UInteger), 0) = 0) Then
        Return 0
        End If
        Throw New Exception
    End Function

    Public Sub Dispose() Implements IDisposable.Dispose
        If (Not (Me.izm) Is Nothing) Then
        Marshal.ReleaseComObject(Me.izm)
        Me.izm = Nothing
        End If
        GC.SuppressFinalize(Me)
    End Sub

    End Class

Public Class Constants

    Public Const MAX_PATH = 260
    Public Const MAX_ZONE_PATH = 260
    Public Const MAX_ZONE_DESCRIPTION = 200

End Class

User-Defined Types:

None.

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>

Public Structure ZONEATTRIBUTES

    Public cbSize As UInt32
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=Constants.MAX_PATH)>
    Public szDizplayName As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=Constants.MAX_ZONE_DESCRIPTION)>
    Public szDescription As String
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=Constants.MAX_PATH)>
    Public szIconPath As String
    Public dwTemplateMinLevel As UInt32
    Public dwTemplateRecommended As UInt32
    Public dwTemplateCurrentLevel As UInt32
    Public dwFlags As UInt32

End Structure

Notes:

Use Using statement to instanciate InternetZoneManager class.

Public Enum URLZONEREG

    URLZONEREG_DEFAULT
    URLZONEREG_HKLM
    URLZONEREG_HKCU

End Enum

User-Defined Types:

None.

Notes:

Note that the methods in the interface declaration must appear in the same order as they do in the COM interface, as declared in urlmon.h. That header file also contains some other goodies such as URLZONE values, URLACTION values, etc.

You will probably also want to create an instance of InternetZoneManager and cast it to to the above IInternetZoneManager:

[ComImport, GuidAttribute("7b8a2d95-0ac9-11d1-896c-00c04Fb6bfc4")]
public class InternetZoneManager { }

// ----------- USAGE (error handling omitted): -------------
IInternetZoneManager zoneMgr = (IInternetZoneManager)new InternetZoneManager();

Please edit this page!

Do you have...

• helpful tips?
• corrections to the existing content?
• alternate definitions?
• additional languages you want to include?

Select "Edit This Page" on the right hand toolbar and edit it! Or add new pages containing any supporting types needed.