.

Public Shared Function EnumProcesses(<MarshalAs(UnmanagedType.LPArray, ArraySubType:=UnmanagedType.U4), [In](), [Out]()> ByVal processIds As Integer(), ByVal size As Integer, <[Out]()> ByRef needed As Integer) As Boolean

.

Public Shared Function EnumProcessModules(ByVal hProcess As IntPtr, <MarshalAs(UnmanagedType.LPArray, ArraySubType := UnmanagedType.U4)> <[In]()> <Out()> ByVal lphModule As UInteger(), ByVal cb As UInteger, <MarshalAs(UnmanagedType.U4)> ByRef lpcbNeeded As UInteger) As Boolean

.

Public Shared Function GetModuleFileNameEx(ByVal hProcess As IntPtr, ByVal hModule As IntPtr, <Out()> ByVal lpBaseName As StringBuilder, <[In]()> <MarshalAs(UnmanagedType.U4)> ByVal nSize As Integer) As UInteger

.

Public Shared Function GetModuleInformation(ByVal hProcess As IntPtr, ByVal hModule As IntPtr, ByRef lpModInfo As MODULEINFO, cb As UInteger) As Boolean

.

    ByVal hProcess As IntPtr,

.

Private Shared Function MAPILogoff(ByVal lhSession As IntPtr, ByVal ulUIParam As IntPtr, ByVal flFlags As UInteger, ByVal ulReserved As UInteger) As UInteger

.

    Private Shared Function MAPILogon(ByVal uiParam As Integer, _

.

                      ByVal user As String, _

.

                      ByVal password As String, _

.

                      ByVal flags As Integer, _

.

                      ByVal reserved As Integer, _

.

   Public Shared Function MAPIReadMail(ByVal lhSession As IntPtr, ByVal ulUIParam As IntPtr, ByVal lpszMessageID As String,

.

   ByVal flFlags As UInteger, ByVal ulReserved As UInteger, ByRef lppMessage As IntPtr) As UInteger

.

    Private Shared Function MAPISendMail(ByVal sess As IntPtr, ByVal hwnd As IntPtr, ByVal message As MapiMessage,

.

       ByVal flg As Integer, ByVal rsv As Integer) As Integer

.

    (ByVal hdcDest As IntPtr, ByVal nXOriginDest As Integer, ByVal nYOriginDest As Integer,

.

    ByVal nWidthDest As Integer, ByVal nHeightDest As Integer,

.

    ByVal hdcSrc As IntPtr, ByVal nXOriginSrc As Integer, ByVal nYOriginSrc As Integer,

.

    ByVal nWidthSrc As Integer, ByVal nHeightSrc As Integer,

.

    ByVal blendFunction As BLENDFUNCTION) As Boolean

.

Declare Function ArcTo Lib "gdi32.dll" (ByVal hdc As IntPtr, _

.

  ByVal nLeftRect As Integer, ByVal nTopRect As Integer, _

.

  ByVal nRightRect As Integer, ByVal nBottomRect As Integer, _

.

  ByVal nXRadial1 As Integer, ByVal nYRadial1 As Integer, _

.

  ByVal nXRadial2 As Integer, ByVal nYRadial2 As Integer) As Boolean

.

Declare Function ArcTo Lib "gdi32.dll" (ByVal hdc As IntPtr, _

.

  ByVal nLeftRect As Integer, ByVal nTopRect As Integer, _

.

  ByVal nRightRect As Integer, ByVal nBottomRect As Integer, _

.

  ByVal nXRadial1 As Integer, ByVal nYRadial1 As Integer, _

.

  ByVal nXRadial2 As Integer, ByVal nYRadial2 As Integer) As Boolean

.

Private Shared Function BitBlt(ByVal hdc As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As TernaryRasterOperations) As Boolean

.

Public Function Chord(ByVal hDc As IntPtr, ByVal nLeftRect As Integer, ByVal nTopRect As Integer,

.

               ByVal nRightRect As Integer, ByVal nBottomRect As Integer, ByVal nXRadial1 As Integer,

.

               ByVal nYRadial1 As Integer, ByVal nXRadial2 As Integer, ByVal nYRadial2 As Integer) As Boolean

.

Private Shared Function CombineRgn(ByVal hrgnDest As IntPtr,

.

   ByVal hrgnSrc1 As IntPtr, ByVal hrgnSrc2 As IntPtr,

.

   ByVal fnCombineMode As Integer) As Integer

.

Shared Function CopyMetaFile(ByVal hmfSrc As IntPtr, ByVal lpszFile As String) As IntPtr

.

Private Shared Function CreateCompatibleDC(ByVal hRefDC As IntPtr) As IntPtr

.

ByVal hdc As IntPtr, _

.

ByVal fdwInit As UInteger, _

.

ByVal lpbInit As Byte(), _

.

ByVal fuUsage As UInteger) _

.

  Private Shared Function CreateDIBSection(ByVal hdc As Int32, _

.

    ByRef pbmi As BITMAPINFO, ByVal iUsage As System.UInt32, _

.

    ByRef ppvBits As Int32, ByVal hSection As Int32, _

.

    ByVal dwOffset As System.UInt32) As Int32

.

Public Function CreateEllipticRgn(ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer

.

Public Function CreatePatternBrush(ByVal hbmp As IntPtr) As IntPtr

.

Private Shared Function CreateRectRgn(ByVal nLeftRect As Integer, ByVal nTopRect As Integer, ByVal nRightRect As Integer, ByVal nBottomRect As Integer) As IntPtr

.

          (ByVal hDC As Long) As Long

.

Shared Function DeleteEnhMetaFile(ByVal hemf As IntPtr) As Boolean

.

Shared Function DeleteMetaFile(ByVal hmf As IntPtr) As Boolean

.

          (ByVal hObject As Long) As Long

.

  Public Function EndDoc(ByVal hdc As IntPtr) As Integer

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

    [MarshalAs(UnmanagedType.ByValArray)]

.

    [MarshalAs(UnmanagedType.ByValArray)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 64)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FACESIZE)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FULLFACESIZE)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FACESIZE)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

    [MarshalAs(UnmanagedType.ByValArray)]

.

    [MarshalAs(UnmanagedType.ByValArray)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 64)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

    [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 32)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FACESIZE)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FULLFACESIZE)]

.

            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = LF_FACESIZE)]

.

    Public Shared Function ExtEscape(ByVal hdc As IntPtr, ByVal nEscape As Integer, ByVal cbInput As Integer, ByVal lpszInData As String, ByVal cbOutput As Integer, ByRef lpszOutData As IntPtr) As Integer

.

Declare Function FloodFill Lib "gdi32" (ByVal hDC As Integer, ByVal x As Integer, ByVal y As Integer, ByVal crColor As Integer) As Integer

.

          (ByVal prmlngHD As Long) As Long

.

        (ByVal prmlngHDc As Long) As Long

.

Public Shared Function GetDeviceCaps(ByVal hDC As IntPtr, ByVal nIndex As Integer) As Integer

.

        [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

        [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

        [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

.

         (ByVal hDC As Long) As Long

.

    ByVal hdc As Integer, _

.

    ByVal nCount As Integer) _

.

Public Shared Function SelectObject(ByVal hdc As IntPtr, ByVal hObject As IntPtr) As IntPtr

.

          (ByVal prmlngHDc As Long, _

.

           ByVal hObject As Long) As Long

.

         (ByVal prmlngHDc As Long, _

.

          ByVal ColorRef As Long) As Long

.

        (ByVal prmlngHDc As Long, _

.

         ByVal ColorRef As Integer) As Integer

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

  [ MarshalAs(UnmanagedType.ByValArray, SizeConst=256)]

.

Shared Function SetMetaFileBitsEx(ByVal nSize As UInteger, ByVal lpData As Byte()) As IntPtr

.

         (ByVal prmlngHDc As Long, _

.

          ByVal prmlngRGB As Long) As Long

.

    Shared Function TextOut(ByVal hdc As IntPtr, ByVal x As Integer, _

.

      ByVal y As Integer, ByVal textstring As String, _

.

      ByVal charCount As Integer) As Boolean

.

    Declare Function SetTextCharacterExtra Lib "gdi32" Alias "SetTextCharacterExtra" (ByVal hDC As Integer, ByVal nCharExtra As Integer) As Integer

.

    Private Shared Function TextOut(ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal textstring As String, ByVal charCount As Integer) As Boolean

.

    Private Shared Function SelectObject(ByVal hdc As IntPtr, ByVal hgdiobj As IntPtr) As IntPtr

.

    Private Shared Function DeleteObject(ByVal objectHandle As IntPtr) As Boolean

.

    Private Shared Function SetBkColor(ByVal hdc As IntPtr, ByVal crColor As Integer) As UInt32

.

    Private Shared Function SetTextColor(ByVal hdc As IntPtr, ByVal crColor As Integer) As UInt32

.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

.

        [MarshalAs(UnmanagedType.ByValArray)] public SID_AND_ATTRIBUTES[] Groups;

.

    ByVal TokenHandle As IntPtr, _

.

    ByVal DisableAllPrivileges As Boolean, _

.

    ByVal BufferLengthInBytes As Integer, _

.

    ByVal TokenHandle As IntPtr, _

.

    ByVal DisableAllPrivileges As Boolean, _

.

    ByVal Zero As Integer, _

.

    ByVal Null1 As IntPtr, _

.

    ByVal Null2 As IntPtr _

.

    ByVal TokenHandle As IntPtr, _

.

    ByVal DisableAllPrivileges As Boolean, _

.

    ByVal BufferLength As Integer, _

.

        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=ANYSIZE_ARRAY)> _

.

     ByVal lpSystemName As String, _

.

     ByVal lpName As String, _

.

     ByVal ProcessHandle As IntPtr, _

.

     ByVal DesiredAccess As Integer, _

.

    Private Function CloseHandle(ByVal hHandle As IntPtr) As Boolean

.

       ByVal TokenHandle As IntPtr, _

.

       ByVal DisableAllPrivileges As Boolean, _

.

       ByVal BufferLength As Integer, _

.

   ByVal pIdentifierAuthority As IntPtr, _

.

   ByVal nSubAuthorityCount As Byte, _

.

   ByVal dwSubAuthority0 As Integer, ByVal dwSubAuthority1 As Integer, _

.

   ByVal dwSubAuthority2 As Integer, ByVal dwSubAuthority3 As Integer, _

.

   ByVal dwSubAuthority4 As Integer, ByVal dwSubAuthority5 As Integer, _

.

   ByVal dwSubAuthority6 As Integer, ByVal dwSubAuthority7 As Integer, _

.

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 6, ArraySubType = UnmanagedType.I1)]

.

    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=6)> Dim Value() As Byte

.

    ByVal pTrusteeName As String, _

.

    ByVal AccessPermissions As Integer, _

.

    ByVal AccessMode As Integer, _

.

    ByVal Inheritance As Integer)

.

    ByVal pTrustee As IntPtr, _

.

    ByVal pSid As IntPtr _

.

        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 20)]

.

    ByVal TokenHandle As IntPtr, _

.

    ByVal SidToCheck As IntPtr, _

.

    Private Shared Function CloseServiceHandle(ByVal serviceHandle As IntPtr) As Boolean

.

    Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As IntPtr) As Boolean

.

Public Function ControlService(ByVal hService As IntPtr, ByVal dwControl As SERVICE_CONTROL, ByRef lpServiceStatus As SERVICE_STATUS) As Boolean

.

Declare Function ControlService Lib "advapi32.dll" (ByVal hService As Long, ByVal lControlCode As Long, ByVal lpServiceStatus As SERVICE_STATUS) As Boolean

.

Declare Auto Function ConvertSidToStringSid Lib "advapi32.dll" (ByVal pSID() As Byte, _

.

    ByVal Sid As IntPtr, _

.

Declare Function CopySid Lib "advapi32.dll" (ByVal nDestinationSidLength As Integer, _

.

   ByVal pDestinationSid As IntPtr, ByVal pSourceSid As IntPtr) As Boolean

.

    ByVal hToken As IntPtr, _

.

    ByVal strApplicationName As String, _

.

    ByVal strCommandLine As String, _

.

    ByVal bInheritHandles as Boolean, _

.

    ByVal dwCreationFlags As Integer, _

.

    ByVal lpEnvironment As IntPtr, _

.

    ByVal lpCurrentDriectory As String, _

.

                           ByVal hToken As IntPtr, _

.

                           ByVal lpApplicationName As String, _

.

                           <[In](), Out(), [Optional]()> ByVal lpCommandLine As StringBuilder, _

.

                           ByVal lpProcessAttributes As IntPtr, _

.

                           ByVal lpThreadAttributes As IntPtr, _

.

                           <MarshalAs(UnmanagedType.Bool)> ByVal bInheritHandles As Boolean, _

.

                           ByVal dwCreationFlags As Integer, _

.

                           ByVal lpEnvironment As IntPtr, _

.

                           ByVal lpCurrentDirectory As String, _

.

    Public Function CreateProcessWithLogonW(ByVal userName As String, ByVal domain As String, ByVal password As String, ByVal logonFlags As UInt32, ByVal applicationName As String, ByVal commandLine As String, ByVal creationFlags As UInt32, ByVal environment As UInt32, ByVal currentDirectory As String, ByRef startupInfo As StartupInfo, ByRef processInformation As ProcessInformation) As Boolean

.

    Public Function CreateProcessWithLogonW(ByVal userName As String, ByVal domain As String, ByVal password As String, ByVal logonFlags As UInt32, ByVal applicationName As String, ByVal commandLine As String, ByVal creationFlags As UInt32, ByVal environment As UInt32, ByVal currentDirectory As String, ByRef startupInfo As StartupInfo, ByRef processInformation As ProcessInformation) As Boolean

.

    Public Function GetExitCodeProcess(ByVal process As IntPtr, ByRef exitCode As UInt32) As Boolean

.

    Public Function WaitForSingleObject(ByVal handle As IntPtr, ByVal milliseconds As UInt32) As UInt32

.

    Public Function GetStdHandle(ByVal handle As IntPtr) As IntPtr

.

    Public Function CloseHandle(ByVal handle As IntPtr) As Boolean

.

    Overloads Sub Main(ByVal args() As String)