易语言不用投递消息随意移动控件的代码

不用投递消息移动控件的代码

.版本 2
.程序集 窗口程序集1
.程序集变量 l, 整数型
.程序集变量 r, 整数型
.程序集变量 ml, 整数型
.程序集变量 mr, 整数型
.子程序 _取位置标签_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
l ＝ 取位置标签.左边
r ＝ 取位置标签.顶边
ml ＝ 取鼠标水平位置 ()
mr ＝ 取鼠标垂直位置 ()
时钟1.时钟周期 ＝ 10
.子程序 _时钟1_周期事件
.判断开始 (取鼠标水平位置 () ＜ _启动窗口.左边)
  取位置标签.左边 ＝ 0
.判断 (取鼠标垂直位置 () ＜ _启动窗口.顶边)
  取位置标签.顶边 ＝ 0
.判断 (取鼠标水平位置 () ＞ _启动窗口.宽度 ＋ _启动窗口.左边)
  取位置标签.左边 ＝ _启动窗口.宽度 － 20
.判断 (取鼠标垂直位置 () ＞ _启动窗口.高度 ＋ _启动窗口.顶边)
  取位置标签.顶边 ＝ _启动窗口.高度 － 50
.默认
  取位置标签.左边 ＝ l － ml ＋ 取鼠标水平位置 ()
  取位置标签.顶边 ＝ r － mr ＋ 取鼠标垂直位置 ()
  返回 ()
.判断结束
时钟1.时钟周期 ＝ 0
.子程序 _取位置标签_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟1.时钟周期 ＝ 0
.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
时钟2.时钟周期 ＝ 10
标签4.左边 ＝ 取鼠标水平位置 () － _启动窗口.左边
标签5.顶边 ＝ 取鼠标垂直位置 () － _启动窗口.顶边
.子程序 _时钟2_周期事件
左边标签.标题 ＝ 到文本 (取鼠标水平位置 () － _启动窗口.左边)
顶边标签.标题 ＝ 到文本 (取鼠标垂直位置 () － _启动窗口.顶边)
.子程序 __启动窗口_创建完毕
标签4.高度 ＝ _启动窗口.高度
标签5.宽度 ＝ _启动窗口.宽度
.子程序 _取位置标签_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
标签4.左边 ＝ 取鼠标水平位置 () － _启动窗口.左边
标签5.顶边 ＝ 取鼠标垂直位置 () － _启动窗口.顶边

运行结果：

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，谢谢大家对我们的支持。如果你想了解更多相关内容请查看下面相关链接

赞 (0)

相关推荐

  • 易语言实现163邮箱登录获取邮件列表等操作的代码

    易语言实现163邮箱登录获取邮件列表等操作的代码

    常量数据表 .版本 2 .常量 提交参数, "<文本长度: 98>" .常量 协议头, "<文本长度: 386>" .常量 邮件post, "<文本长度: 383>" 全局变量表 .版本 2 .全局变量 全_Cookies, 文本型 .全局变量 sid, 文本型 .全局变量 全_Email, 文本型 登陆程序集 .版本 2 .程序集 窗口程序集_启动窗口 .子程序 _登陆按钮_被单击 .局部变量 文本, 文本型

  • 易语言调用ESPI11.dll实现禁止指定程序访问网络的代码

    易语言调用ESPI11.dll实现禁止指定程序访问网络的代码

    拦截指定程序联网的代码 .版本 2 .支持库 eNetIntercept .支持库 eAPI .程序集 拦截指定进程联网 .程序集变量 被拦截进程名, 文本型 .子程序 __启动窗口_创建完毕 .局部变量 a, 网络服务安装 .局部变量 b, 系统信息 被拦截进程名 ＝ "被拦截.EXE" ' 要拦截的程序 .如果真 (a.是否已安装 () ＝ 假) 取系统信息 (b) 写到文件 (b.系统目录 + "\ESPI11.dll", #服务文件) a.安装 (b.系统目

  • 易语言制作绝地求生视野一键优化的代码

    易语言制作绝地求生视野一键优化的代码

    绝地求生一键优化的代码 优化后远处树干不显示,地面光滑,更容易看到远处的敌人. .版本 2 .支持库 shell .支持库 spec .支持库 iext .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 路径编辑框.内容 ＝ 取特定目录 (8) + "..\Local\TslGame\Saved\Config\WindowsNoEditor\" .如果 (文件是否存在 (路径编辑框.内容 + "\一键优化备份\")) 还原按钮.禁止 ＝ 假 .否则

  • 易语言制作王者荣耀刷金币脚本的代码

    易语言制作王者荣耀刷金币脚本的代码

    打开黑夜模拟器,按下F10,王者荣耀进入挑战-魔女回忆,开始即可. 王者荣耀刷金币脚本 此功能需要加载精易模块5.6 .版本 2 .支持库 shellEx .支持库 EThread .支持库 eAPI .程序集 窗口程序集_启动窗口 .程序集变量 热键F10, 整数型 .程序集变量 热键Home, 整数型 .程序集变量 集_线程句柄, 整数型 .子程序 __启动窗口_创建完毕 热键F10 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键) 热键Home ＝ 注册热

  • 易语言实现QQ空间留言批量删除的代码

    易语言实现QQ空间留言批量删除的代码

    全局变量表 .版本 2 .全局变量 Uin_全, 文本型 .全局变量 Cookie_全, 文本型 QQ快捷启动的代码 .版本 2 .支持库 HtmlView .支持库 iext .程序集 窗口程序集_快速 .子程序 _超文本浏览框1_跳转完毕 .局部变量 返回文本, 文本型 .局部变量 文本分割, 文本型, , "0" .局部变量 二次分割, 文本型, , "0" .局部变量 i, 整数型 .局部变量 s, 整数型 .局部变量 Cookie, 文本型 .局部变量 U

  • 易语言调用百度api识别是否为色情图片的代码

    易语言调用百度api识别是否为色情图片的代码

    调用百度云色情图片识别的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _识别按钮_被单击 百度云色情识别 () .子程序 百度云色情识别 .局部变量 类_XMLHTTP, 类_XMLHTTP .局部变量 Accesss_token, 文本型 .局部变量 str, 文本型 Accesss_token ＝ GetAccesss_token () 类_XMLHTTP.打开 ("POST", "https://aip.b

  • 易语言通过解密微博图片地址获取发布者微博地址的代码

    易语言通过解密微博图片地址获取发布者微博地址的代码

    常量数据表 .版本 2 .常量 常量1, "<文本长度: 399>", , 'js脚本 返回 origin_number 微博图片获取发布者的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 spec .支持库 eAPI .程序集 窗口程序集1 .子程序 _文本提取按钮_被单击 .局部变量 文本_提取, 文本型 .局部变量 文本_转换, 文本型 .局部变量 文本_结果, 文本型 .局部变量 文本_判断, 文本型 文本_提取 ＝ 文本_倒取出中间文本 (图片地址编辑框

  • 易语言检测文件被哪个进程占用的代码

    易语言检测文件被哪个进程占用的代码

    检测文件占用的代码 此功能需要加载贝贝吧模块6.6 .版本 2 .支持库 eAPI .程序集 窗口程序集_启动窗口 .子程序 _查询按钮_被单击 .局部变量 进程名, 进程信息, , "0" .局部变量 进程id, 整数型, , "0" .局部变量 a, 整数型, , "0" .局部变量 i, 整数型 进程名 ＝ 取系统进程列表 () 显示占用列表框.清空 () .计次循环首 (取数组成员数 (进程名), i) .如果真 (寻找文本 (到小写 (

  • 易语言通过算法计算出酷狗音乐下载地址的代码

    易语言通过算法计算出酷狗音乐下载地址的代码

    酷狗直链计算的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 RegEx .支持库 iext3 .支持库 dp1 .程序集 窗口程序集_启动窗口 .子程序 JSON转义字符解码, 文本型 .参数 解密文本, 文本型 .局部变量 正则表达, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 转换结果, 文本型 .局部变量 文本, 文本型 .局部变量 i, 整数型 文本 ＝ 解密文本 .如果真 (文本 ≠ "") 正则表达.创建 (&qu

  • 易语言调用api获取网卡信息网络连接名的代码

    易语言调用api获取网卡信息网络连接名的代码

    DLL命令表 .版本 2 .DLL命令 GetAdaptersInfo, 整数型, "IPHlpApi" .参数 IpAdapterInfo, 字节集 .参数 pOutBufLen, 整数型, 传址 .DLL命令 取变量地址_字节集, 整数型, , "lstrcpynA" .参数 变量, 字节集, 传址 .参数 变量, 字节集, 传址 .参数 保留, 整数型, , 0 .DLL命令 CopyMemory_iai, , "kernel32", &q

  • 易语言通过post实现对小米路由器操作的代码

    易语言通过post实现对小米路由器操作的代码

    操作小米路由器的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 iext2 .程序集 窗口程序集_启动窗口 .程序集变量 IP, 文本型 .程序集变量 cookie, 文本型 .程序集变量 token, 文本型 .子程序 登录, 文本型 .参数 密码, 文本型 .参数 返回内容, 文本型, 参考 .参数 token, 文本型, 参考 .局部变量 临时, 文本型 .局部变量 deviceId, 文本型 .局部变量 key, 文本型 .局部变量 时间戳, 文本型 .局部变量 随机数, 文本

  • 易语言获取网页端的好友管理页面信息导出QQ好友的代码

    易语言获取网页端的好友管理页面信息导出QQ好友的代码

    全局变量表 .版本 2 .全局变量 Cookie_Overall, 文本型 .全局变量 BKN_Overall, 文本型 QQ快捷启动的代码 .版本 2 .程序集 窗口程序集_窗口1 .子程序 _超文本浏览框1_跳转完毕 .局部变量 Cookie, 文本型 .局部变量 Uin, 文本型 .局部变量 Skey, 文本型 Cookie ＝ 网页_取Cookie ("qun.qq.com") .如果真 (寻找文本 (Cookie, "p_skey", , 假) ≠ -1)

  • 易语言制作连连看小游戏的代码

    易语言制作连连看小游戏的代码

    图片资源表 .版本 2 .图片 卡通 .图片 横线 .图片 竖线 .图片 左上 .图片 右上 .图片 左下 .图片 右下 .图片 苹果, , 背景图 连连看的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 显示图片, 字节型, , "0" .程序集变量 上次移动, 字节型 .程序集变量 上次点击, 字节型 .程序集变量 横数, 字节型 .程序集变量 竖数, 字节型 .程序集变量 图片数, 字节型 .程序集变量 可消除, 文本型, , "0" .程序集变量 剩

  • 易语言模拟腾讯滑块条自动验证的代码

    易语言模拟腾讯滑块条自动验证的代码

    模拟腾讯滑动自动验证的代码 此功能需要加载精易模块5.6 .版本 2 .支持库 EThread .支持库 BmpOperate .支持库 spec .程序集 窗口程序集1 .程序集变量 图_原始, 字节集 .程序集变量 图_块, 字节集 .程序集变量 图_模版, 字节集 .程序集变量 初始高度, 整数型 .程序集变量 图_高度, 整数型 .程序集变量 图_宽度, 整数型 .子程序 图片处理, , , 加载图片,并转格式 .局部变量 返回文本, 文本型 .局部变量 vsig, 文本型 返回文本 ＝

  • 易语言实现批量文本替换操作的代码

    易语言实现批量文本替换操作的代码

    批量文本替换机的代码 .版本 2 .支持库 iext .支持库 shell .支持库 xplib .程序集 窗口程序集1 .程序集变量 搜寻位置, 整数型 .程序集变量 当前被搜寻文本, 文本型 .程序集变量 起始 .程序集变量 sj1 .程序集变量 sj2 .子程序 _驱动器框_驱动器被改变 连续赋值 (驱动器框.驱动器 + ":\", 目录框1.目录, 文件框1.目录) .子程序 _目录框1_目录被改变 文件框1.目录 ＝ 目录框1.目录 .子程序 _文件框1_双击选择 待替换文件

随机推荐