反调试器1 ,检查到后软件会自动退出

实测WIN7 无效果

Sub CounterDebugger1() '反调试器
Local hLib As Dword, hProc As Dword, dwPtr As Dword
hLib = GetModuleHandle("kernel32.dll"): hProc = GetProcAddress(hLib, "CloseHandle")

dwPtr = CodePtr(Debugged)
! push dwPtr
! push Dword fs:[0]
! mov fs:[0], esp
! push &hD3ADB33F   ;invalid handle
! Call hProc
Debugged:


End Sub