C# Definition:
using System.Runtime.InteropServices;
using System;
using System.Text;
public enum UrlZone
{
LocalMachine,
Intranet,
Trusted,
Internet,
Untrusted
}
public enum UrlAction
{
ActiveXScriptletRun = unchecked((int)0x00001209),
DownloadUnsignedActiveX = unchecked((int)0x00001004)
}
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
}
[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);
}
}
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
User-Defined Types:
None.
Notes:
Use Using statement to instanciate InternetZoneManager class.
