老K棋牌 趣味找茬 开源

魔魂

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 窗口句柄, 整数型
.程序集变量 窗口句柄1, 整数型
.程序集变量 bmp, 字节集

.子程序 _按钮1_被单击

窗口句柄1 ＝ 窗口标题取句柄 (“趣味找茬”)
输出调试文本 (窗口句柄)
窗口移动 (窗口句柄1, 0, 0)


.子程序 _按钮2_被单击                                    

图片框1.宽度 ＝ 取屏幕宽度 ()
图片框2.宽度 ＝ 取屏幕宽度 ()
图片框2.高度 ＝ 取屏幕高度 ()
图片框1.高度 ＝ 取屏幕高度 ()
图片框1.左边 ＝ -26
图片框1.顶边 ＝ -255
图片框2.左边 ＝ -399
图片框2.顶边 ＝ 图片框1.顶边
图片框1.图片 ＝ 快照 (窗口句柄, 取屏幕宽度 (), 取屏幕高度 ())
图片框2.图片 ＝ 图片框1.图片

画板1.画图片 (载入图片 (快照 (画板1.取窗口句柄 (), 画板1.宽度, 画板1.高度)), 0, 0, 画板1.宽度, 画板1.高度, )
画板1.画图片 (载入图片 (快照 (画板2.取窗口句柄 (), 画板2.宽度, 画板2.高度)), 0, 0, 画板2.宽度, 画板2.高度, )
处理事件 ()




.子程序 _按钮4_被单击
.局部变量 H, 整数型
.局部变量 W, 整数型


.计次循环首 (画板1.高度, H)
    .计次循环首 (画板1.宽度, W)
        .如果真 (画板1.取点 (W, H) ≠ 画板2.取点 (W, H))
            画板2.画点 (W, H, #红色)



        .如果真结束




    .计次循环尾 ()
.计次循环尾 ()

.子程序 _图片框2_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 mx, 整数型
.局部变量 my, 整数型
.局部变量 temp, 坐标

mx ＝ 取鼠标水平位置 ()
mx ＝ 取鼠标垂直位置 ()

模拟鼠标点击 (横向位置, 纵向位置, 1)
鼠标移动 (取窗口句柄 (), mx, my)


' 模拟鼠标点击 (mx, my, 2)


   

游客，如果您要查看本帖隐藏内容请回复

下完了自己查下毒    模块可能有问题    有相同模块的 可以替换一下

molei

谢谢啦，刊刊哈

凌少丶

  看热闹路过就好。

lin3203

谢谢啦，刊刊哈

yangshuo7341

好啊==~

不再伤心

看看哈

pak14

附加题欢迎使用

pengboshan

路过的 呵呵

smilengce

過來看看~~~~

lukeigun

谢谢啦，刊刊哈