僵尸之吻仿妖之吻E语言源码.7z

几年前用e语言写的一个仿win98时代的一个妖之吻恶作剧小程序。 源码如下： .版本 2 .支持库 eAPI .支持库 shell .支持库 iext .程序集 窗口程序集1 .子程序 钩子函数, 整数型 .参数 icode, 整数型 .参数 wparam, 整数型 .参数 lparam, 整数型 .局部变量 按键信息, 按键信息 钩子句柄 ＝ 安装钩子 (13, &钩子函数, GetModuleHandleA (0), 0) CopyMemory (按键信息, lparam, 28) .如果真 (icode ＝ 0) .如果真 (按键信息.虚拟码 ＝ #Alt键 或 按键信息.虚拟码 ＝ #Tab键 或 按键信息.虚拟码 ＝ #F4键) 返回 (1) .如果真结束 .如果真 (按键信息.虚拟码 ＝ #Esc键 或 按键信息.虚拟码 ＝ #Ctrl键 或 按键信息.虚拟码 ＝ 91 或 按键信息.虚拟码 ＝ 92) 返回 (1) .如果真结束 返回 (0) .如果真结束 返回 (下一个钩子 (钩子句柄, ic