-

2017-09-02 04:35:24 +02:00
parent d84127f178
commit c4cf7ed11b
44 changed files with 7143 additions and 97 deletions
--- a/vbnet/Native.vb
+++ b/vbnet/Native.vb
@@ -0,0 +1,278 @@
+Imports System.Runtime.InteropServices
+Imports System.Text
+
+Public Class Native
+    Public Delegate Function CallbackHandler(handle As IntPtr, parameter As Integer) As Boolean
+
+    <DllImport("gdi32.dll")>
+    Public Shared Function ExcludeClipRect(hdc As IntPtr, nLeftRect As Integer, nTopRect As Integer, nRightRect As Integer, nBottomRect As Integer) As Integer
+    End Function
+
+#Region "Constants"
+
+    Friend Const EM_SETCUEBANNER As Integer = &H1501
+    Friend Const CB_SETCUEBANNER As Integer = &H1703
+
+#End Region
+
+#Region "Function"
+
+#Region "user32.dll"
+    <DllImport("user32.dll", SetLastError:=True)>
+    Shared Function SetWindowPos(hWnd As IntPtr,
+                                 hWndInsertAfter As IntPtr,
+                                 X As Integer,
+                                 Y As Integer,
+                                 cx As Integer,
+                                 cy As Integer,
+                                 uFlags As UInteger) As Boolean
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function GetWindowLong(hWnd As IntPtr, nIndex As Integer) As Integer
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function RegisterWindowMessage(id As String) As Integer
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function RegisterHotKey(hWnd As IntPtr, id As Integer, fsModifiers As Integer, vk As Integer) As Boolean
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function MapVirtualKey(wCode As Integer, wMapType As Integer) As Integer
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function UnregisterHotKey(hWnd As IntPtr, id As Integer) As Boolean
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function GetForegroundWindow() As IntPtr
+    End Function
+
+    <DllImport("user32.dll", SetLastError:=True)>
+    Shared Function GetWindowThreadProcessId(hwnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function SetForegroundWindow(handle As IntPtr) As Boolean
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function GetWindowModuleFileName(hwnd As IntPtr,
+                                            lpszFileName As StringBuilder,
+                                            cchFileNameMax As UInteger) As UInteger
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function SendMessage(handle As IntPtr,
+                                message As Int32,
+                                wParam As IntPtr,
+                                lParam As IntPtr) As IntPtr
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function SendMessage(hWnd As IntPtr,
+                                Msg As Int32,
+                                wParam As IntPtr,
+                                lParam As String) As IntPtr
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function SendMessage(hWnd As IntPtr,
+                                Msg As Int32,
+                                wParam As Integer,
+                                lParam As Integer) As IntPtr
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function SendMessage(hWnd As IntPtr,
+                                Msg As Int32,
+                                wParam As Integer,
+                                lParam As String) As IntPtr
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function SendMessage(hWnd As IntPtr,
+                                Msg As Int32,
+                                ByRef wParam As IntPtr,
+                                lParam As StringBuilder) As IntPtr
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Function SendMessageTimeout(windowHandle As IntPtr,
+                                       msg As Integer,
+                                       wParam As IntPtr,
+                                       lParam As IntPtr,
+                                       flags As Integer,
+                                       timeout As Integer,
+                                       ByRef result As IntPtr) As IntPtr
+    End Function
+
+    <DllImport("user32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function PostMessage(hwnd As IntPtr,
+                                wMsg As Integer,
+                                wParam As IntPtr,
+                                lParam As IntPtr) As IntPtr
+    End Function
+
+    <DllImport("user32.dll")>
+    Shared Sub ReleaseCapture()
+    End Sub
+
+    <DllImport("user32.dll")>
+    Public Shared Function GetWindowRect(hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
+    End Function
+
+    <DllImport("user32.dll")>
+    Public Shared Function GetWindowDC(hWnd As IntPtr) As IntPtr
+    End Function
+
+    <DllImport("user32.dll")>
+    Public Shared Function ReleaseDC(hWnd As IntPtr, hDC As IntPtr) As Integer
+    End Function
+
+#End Region
+
+#Region "kernel32.dll"
+
+    <DllImport("kernel32.dll", CharSet:=CharSet.Unicode)>
+    Shared Function LoadLibrary(path As String) As IntPtr
+    End Function
+
+    <DllImport("kernel32.dll", SetLastError:=True)>
+    Shared Function FreeLibrary(hModule As IntPtr) As Boolean
+    End Function
+
+    <DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
+    Shared Function FormatMessage(dwFlags As Integer,
+                                  lpSource As IntPtr,
+                                  dwMessageId As Integer,
+                                  dwLanguageId As Integer,
+                                  ByRef lpBuffer As String,
+                                  nSize As Integer,
+                                  Arguments As IntPtr) As Integer
+    End Function
+
+#End Region
+
+    <DllImport("uxtheme.dll", CharSet:=CharSet.Unicode)>
+    Shared Function SetWindowTheme(hWnd As IntPtr,
+                                   pszSubAppName As String,
+                                   pszSubIdList As String) As Integer
+    End Function
+
+    <DllImport("Shlwapi.dll", SetLastError:=True, CharSet:=CharSet.Unicode)>
+    Shared Function AssocQueryString(
+        flags As UInteger,
+        str As UInteger,
+        pszAssoc As String,
+        pszExtra As String,
+        pszOut As StringBuilder,
+        ByRef pcchOut As UInteger) As UInteger
+    End Function
+
+#End Region
+
+#Region "Structures"
+
+    Public Structure RECT
+        Public Left As Integer
+        Public Top As Integer
+        Public Right As Integer
+        Public Bottom As Integer
+
+        Sub New(r As Rectangle)
+            Left = r.Left
+            Top = r.Top
+            Right = r.Right
+            Bottom = r.Bottom
+        End Sub
+
+        Public Sub New(left As Integer, top As Integer, right As Integer, bottom As Integer)
+            Me.Left = left
+            Me.Top = top
+            Me.Right = right
+            Me.Bottom = bottom
+        End Sub
+
+        Function ToRectangle() As Rectangle
+            Return Rectangle.FromLTRB(Left, Top, Right, Bottom)
+        End Function
+    End Structure
+
+    Public Structure SHFILEINFO
+        Public hIcon As IntPtr
+        Public iIcon As Integer
+        Public dwAttributes As Integer
+        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
+        Public szDisplayName As String
+        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
+        Public szTypeName As String
+    End Structure
+
+    Public Structure NMHDR
+        Public hwndFrom As Integer
+        Public idFrom As Integer
+        Public code As Integer
+    End Structure
+
+    Public Structure NCCALCSIZE_PARAMS
+        Public rgrc0, rgrc1, rgrc2 As RECT
+        Public lppos As IntPtr
+    End Structure
+
+#End Region
+
+End Class
+
+Public Class Taskbar
+    Private Taskbar As ITaskbarList3 = DirectCast(New TaskBarCommunication(), ITaskbarList3)
+
+    Property Handle As IntPtr
+
+    Public Sub New(handle As IntPtr)
+        Me.Handle = handle
+    End Sub
+
+    <ComImportAttribute>
+    <InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)>
+    <GuidAttribute("ea1afb91-9e28-4b86-90e9-9e9f8a5eefaf")>
+    Private Interface ITaskbarList3
+        'ITaskbarList
+        <PreserveSig> Sub HrInit()
+        <PreserveSig> Sub AddTab(hwnd As IntPtr)
+        <PreserveSig> Sub DeleteTab(hwnd As IntPtr)
+        <PreserveSig> Sub ActivateTab(hwnd As IntPtr)
+        <PreserveSig> Sub SetActiveAlt(hwnd As IntPtr)
+        'ITaskbarList2
+        <PreserveSig> Sub MarkFullscreenWindow(hwnd As IntPtr, <MarshalAs(UnmanagedType.Bool)> fFullscreen As Boolean)
+        'ITaskbarList3
+        <PreserveSig> Sub SetProgressValue(hwnd As IntPtr, ullCompleted As UInt64, ullTotal As UInt64)
+        <PreserveSig> Sub SetProgressState(hwnd As IntPtr, state As TaskbarStates)
+    End Interface
+
+    <ComImportAttribute>
+    <ClassInterfaceAttribute(ClassInterfaceType.None)>
+    <GuidAttribute("56FDF344-FD6D-11d0-958A-006097C9A090")>
+    Private Class TaskBarCommunication
+    End Class
+
+    Public Sub SetState(taskbarState As TaskbarStates)
+        Taskbar.SetProgressState(Handle, taskbarState)
+    End Sub
+
+    Public Sub SetValue(progressValue As Double, progressMax As Double)
+        Taskbar.SetProgressValue(Handle, CULng(Math.Truncate(progressValue)), CULng(Math.Truncate(progressMax)))
+    End Sub
+End Class
+
+Public Enum TaskbarStates
+    NoProgress = 0
+    Indeterminate = &H1
+    Normal = &H2
+    [Error] = &H4
+    Paused = &H8
+End Enum