mirror of
https://github.com/hama3254/Crunchyroll-Downloader-v3.0.git
synced 2024-12-26 16:11:49 +01:00
35 lines
1.2 KiB
VB.net
35 lines
1.2 KiB
VB.net
|
Module ProcessSleep
|
|||
|
|
Public Enum ThreadAccess As Integer
|
|||
|
|
TERMINATE = (&H1)
|
|||
|
|
SUSPEND_RESUME = (&H2)
|
|||
|
|
GET_CONTEXT = (&H8)
|
|||
|
|
SET_CONTEXT = (&H10)
|
|||
|
|
SET_INFORMATION = (&H20)
|
|||
|
|
QUERY_INFORMATION = (&H40)
|
|||
|
|
SET_THREAD_TOKEN = (&H80)
|
|||
|
|
IMPERSONATE = (&H100)
|
|||
|
|
DIRECT_IMPERSONATION = (&H200)
|
|||
|
|
End Enum
|
|||
|
|
|
|||
|
|
Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
|
|||
|
|
Public Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
|
|||
|
|
Public Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
|
|||
|
|
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
|
|||
|
|
|
|||
|
|
Public Sub Pause(ByVal pau As Single)
|
|||
|
|
|
|||
|
|
'Programmausführung verzögern *******************************************************
|
|||
|
|
|
|||
|
|
Dim start, finish As Single
|
|||
|
|
start = Microsoft.VisualBasic.DateAndTime.Timer
|
|||
|
|
|
|||
|
|
finish = start + pau
|
|||
|
|
Do While Microsoft.VisualBasic.DateAndTime.Timer < finish
|
|||
|
|
Application.DoEvents()
|
|||
|
|
Loop
|
|||
|
|
|
|||
|
|
End Sub
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Module
|