易语言禁止窗口探测 易语言防止助手探测窗口的代码

.版本 2
.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA", , 限制窗口大小
  .参数 前一窗口函数地址, 子程序指针
  .参数 窗口句柄, 整数型
  .参数 消息值, 整数型
  .参数 附加参数1, 整数型
  .参数 附加参数2, 整数型
.DLL命令 SetWindowLongA, 子程序指针, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息 指定数据的前一个值
  .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
  .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
  .参数 窗口信息新值, 子程序指针, , dwNewLong，由nIndex指定的窗口信息的新值

.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 子程序指针, 子程序指针
.子程序 __启动窗口_创建完毕
防止助手探测 (取窗口句柄 ())
.子程序 Manage, 整数型
.参数 hwnd, 整数型
.参数 Msg, 整数型
.参数 wp, 整数型
.参数 lp, 整数型
.如果真 (Msg ＝ 14)
  信息框 (“本程序禁止探测！”, 0, , )
.如果真结束
返回 (CallWindowProcA (子程序指针, hwnd, Msg, wp, lp))
.子程序 防止助手探测, , 公开
.参数 窗口, 整数型
子程序指针 ＝ SetWindowLongA (窗口, -4, &Manage)