Visual Basic

Public Class SePrivilege
    Public Const SeCount As Integer = 35
    Public Const SeCreateTokenPrivilege As String = "SeCreateTokenPrivilege"
    Public Const SeAssignPrimaryTokenPrivilege As String = "SeAssignPrimaryTokenPrivilege"
    Public Const SeLockMemoryPrivilege As String = "SeLockMemoryPrivilege"
    Public Const SeIncreaseQuotaPrivilege As String = "SeIncreaseQuotaPrivilege"
    Public Const SeUnsolicitedInputPrivilege As String = "SeUnsolicitedInputPrivilege"
    Public Const SeMachineAccountPrivilege As String = "SeMachineAccountPrivilege"
    Public Const SeTcbPrivilege As String = "SeTcbPrivilege"
    Public Const SeSecurityPrivilege As String = "SeSecurityPrivilege"
    Public Const SeTakeOwnershipPrivilege As String = "SeTakeOwnershipPrivilege"
    Public Const SeLoadDriverPrivilege As String = "SeLoadDriverPrivilege"
    Public Const SeSystemProfilePrivilege As String = "SeSystemProfilePrivilege"
    Public Const SeSystemtimePrivilege As String = "SeSystemtimePrivilege"
    Public Const SeProfileSingleProcessPrivilege As String = "SeProfileSingleProcessPrivilege"
    Public Const SeIncreaseBasePriorityPrivilege As String = "SeIncreaseBasePriorityPrivilege"
    Public Const SeCreatePagefilePrivilege As String = "SeCreatePagefilePrivilege"
    Public Const SeCreatePermanentPrivilege As String = "SeCreatePermanentPrivilege"
    Public Const SeBackupPrivilege As String = "SeBackupPrivilege"
    Public Const SeRestorePrivilege As String = "SeRestorePrivilege"
    Public Const SeShutdownPrivilege As String = "SeShutdownPrivilege"
    Public Const SeDebugPrivilege As String = "SeDebugPrivilege"
    Public Const SeAuditPrivilege As String = "SeAuditPrivilege"
    Public Const SeSystemEnvironmentPrivilege As String = "SeSystemEnvironmentPrivilege"
    Public Const SeChangeNotifyPrivilege As String = "SeChangeNotifyPrivilege"
    Public Const SeRemoteShutdownPrivilege As String = "SeRemoteShutdownPrivilege"
    Public Const SeUndockPrivilege As String = "SeUndockPrivilege"
    Public Const SeSyncAgentPrivilege As String = "SeSyncAgentPrivilege"
    Public Const SeEnableDelegationPrivilege As String = "SeEnableDelegationPrivilege"
    Public Const SeManageVolumePrivilege As String = "SeManageVolumePrivilege"
    Public Const SeImpersonatePrivilege As String = "SeImpersonatePrivilege"
    Public Const SeCreateGlobalPrivilege As String = "SeCreateGlobalPrivilege"
    Public Const SeTrustedCredManAccessPrivilege As String = "SeTrustedCredManAccessPrivilege"
    Public Const SeRelabelPrivilege As String = "SeRelabelPrivilege"
    Public Const SeIncreaseWorkingSetPrivilege As String = "SeIncreaseWorkingSetPrivilege"
    Public Const SeTimeZonePrivilege As String = "SeTimeZonePrivilege"
    Public Const SeCreateSymbolicLinkPrivilege As String = "SeCreateSymbolicLinkPrivilege"
End Class

[Flags()] Public Enum SePrivilegeAction
    EnabledByDefault = 1
    Enabled = 2
    Removed = 4
    UsedForAccess = &H80000000
End Enum

[StructLayout(LayoutKind.Sequential)] Public Structure LUID

    Public LowPart As Integer
    Public HighPart As Integer

    Public Shared ReadOnly Zero = New LUID

    Public Shared Function FromPrivilegeName(ByVal PrivilegeName As String) As LUID
        Dim Luid As New [Structure].LUID()
        Advapi32.LookupPrivilegeValue(Nothing, PrivilegeName, Luid)
        Return Luid
    End Function

End Structure

[StructLayout(LayoutKind.Sequential)] Public Structure LUIDAndAttributes
    Public LUID As LUID
    Public Attributes As SePrivilegeAction
End Structure

[StructLayout(LayoutKind.Sequential)] Public Structure TokenPrivileges
    Public PrivilegeCount As Integer
    [MarshalAs(UnmanagedType.ByValArray, SizeConst:=SePrivilege.SeCount)] Public Privileges() As LUIDAndAttributes
End Structure

Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal tokenhandle As IntPtr, ByVal disableprivs As Boolean, ByVal Newstate As IntPtr, ByVal bufferlength As Integer, ByVal PreivousState As TokenPrivileges, ByRef Returnlength As Integer) As Boolean

 Public Class TokenPrivileges
     Inherits List(Of LUIDAndAttributes)
     Implements IDisposable

     Dim P As IntPtr

     Public Function AllocHGlobal() As IntPtr
         FreeHGlobal()

         P = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(Integer)) + Marshal.SizeOf(GetType(LUIDAndAttributes)) * Count)
         Dim P2 As IntPtr = P

         Marshal.WriteInt32(P2, 0, Count)
         P2 = Sum(P2, Marshal.SizeOf(Count.GetType))

         For Each LUIDAndAttributes As LUIDAndAttributes In Me
             Marshal.StructureToPtr(LUIDAndAttributes, P2, False)
             P2 = Sum(P2, Marshal.SizeOf(LUIDAndAttributes.GetType))
         Next

         Return P
     End Function

     Public Sub FreeHGlobal()
         If P <> IntPtr.Zero Then
             Marshal.FreeHGlobal(P)
             P = IntPtr.Zero
         End If
     End Sub

 End Class

 Public Shared Function Sum(ByVal P As IntPtr, ByVal I As Integer) As IntPtr
     If IntPtr.Size = 4 Then
         Return New IntPtr(P.ToInt32 + I)
     Else
         Return New IntPtr(P.ToInt64 + I)
     End If
 End Function

matjame wrote:

Anymore suggestions guys?

ankur0101 wrote:

i searched on the internet for this coding but i failed..

Aamir Mustafa wrote:

1. When I click on new there should be dialogue appear (Resolution Form)
In it I can set height and width of form and then I click on OK,new window should open according to these setting. And the caption of new form (image form) should change as Image1,image2 and so on.

Aamir Mustafa wrote:

2. When I click on open it should load the image into the form (Image Form) what resolution image has.
It should load the form in active window(i.e. image1).If there is no open window already then it should load the image in new window(i.e. Image1).If there is new window already(i.e. image1,image2) but non of them is active then it should also open a new window and load the image in it.(i.e. Image1,image2)

Aamir Mustafa wrote:

3. When I click on close menu, it should close the active window .for example image1 window.

kendo17 wrote:

must be cross platform VB and JAVA for instance.