防偷基址, 反API HOOK 反HOOK，易语言工具源码

korad · 发表于 2015-4-1 23:20:39

不会用啊！

ZHXJFG2008 · 发表于 2015-4-5 21:49:38

回复 1# 路飞

反hook，挺好

x87001487 · 发表于 2015-4-7 14:14:07

4898888888888888888888888888888888

50302048 · 发表于 2015-4-7 16:54:12

支持一下
几天没来都没问道的帖子了

1123261 · 发表于 2015-4-7 17:33:51

hhhhhhhhhhhhhhhhhh

whcwrn · 发表于 2015-4-12 20:31:12

看看什么好东西

575071031 · 发表于 2015-4-13 00:56:10

Function GetProcessID(ByVal sName As String) As Long
Dim myhProcess As Long
Dim mype    As PROCESSENTRY32
Dim mybRet    As Long
myhProcess = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
mype.dwSize = Len(mype)
mybRet = Process32First(myhProcess, mype)
Do While mybRet
      If InStr(LCase(mype.szExeFile), sName) Then
         GetProcessID = mype.th32ProcessID
         Call CloseHandle(myhProcess)
         Exit Function
      Else
         mybRet = Process32Next(myhProcess, mype)
      End If
Loop
Call CloseHandle(myhProcess)
End Function

'-------------------------------------

'窗体代码

1624675132 · 发表于 2015-4-13 05:46:27

顶顶顶顶顶顶顶顶

67205899 · 发表于 2015-4-14 21:52:26

看看拿走拿走了~~~~~~~~~

qq976948676 · 发表于 2015-4-23 05:23:53

啊啊啊啊啊啊啊啊啊啊啊啊啊啊

		自动登录	找回密码
密码			注册账号