放大鼠标区域图象.docVIP

放大鼠标区域图像 本程序在编译结束后运行360中会出现木马提示但是在易语言中直接写出代码不会提示 其中圆形为窗口和一个画板 下边介绍代码 .版本 2 .支持库 eAPI .支持库 xplib .程序集 窗口程序集1 .程序集变量 矩形, 矩形数据 .程序集变量 鼠标区域图片, 字节集 .子程序 __启动窗口_创建完毕 时钟1.时钟周期 ＝ 100 .子程序 _时钟1_周期事件 画板1.左边 ＝ _启动窗口.宽度 ÷ 2 － 7 画板1.顶边 ＝ _启动窗口.高度 ÷ 2 － 8 画板1.宽度 ＝ 20 画板1.高度 ＝ 20 画板1.画笔颜色 ＝ #红色 画板1.画笔粗细 ＝ 4 画板1.边框 ＝ #无风格 画板1.画椭圆 (0, 0, 画板1.宽度, 画板1.高度) 矩形.左边 ＝ 取鼠标水平位置 () － 50 矩形.顶边 ＝ 取鼠标垂直位置 () － 20 矩形.右边 ＝ 取鼠标水平位置 () ＋ 50 矩形.底边 ＝ 取鼠标垂直位置 () ＋ 20 .判断开始 (矩形.左边 ≥ 取屏幕宽度 () － 500) _启动窗口.左边 ＝ 矩形.左边 － 450 .默认 _启动窗口.左边 ＝ 矩形.左边 ＋ 100 .判断结束 .判断开始 (矩形.顶边 ≥ 取屏幕高度 () － 400) _启动窗口.顶边 ＝ 矩形.顶边 － 200 .默认 _启动窗口.顶边 ＝ 矩形.顶边 ＋ 100 .判断结束 _启动窗口.宽度 ＝ (矩形.右边 － 矩形.左边) × 5 _启动窗口.高度 ＝ (矩形.底边 － 矩形.顶边) × 5 _启动窗口.底图 ＝ 鼠标区域图片 _启动窗口.总在最前 ＝ 真 画板1.左边 ＝ 0 画板1.顶边 ＝ 0 鼠标区域图片 ＝ 截取屏幕区域 (矩形, #接口常量.到字节集, “鼠标区域”) 画板1.宽度 ＝ (矩形.右边 － 矩形.左边) × 10 画板1.高度 ＝ (矩形.底边 － 矩形.顶边) × 10 画板1.画图片 (载入图片 (鼠标区域图片), 0, 0, (矩形.右边 － 矩形.左边) × 2, (矩形.底边 － 矩形.顶边) × 2, ) 其中有部分为屏蔽的代码可直接复制到易语言可看出。