易语言源码资源网（易语言开源网站）

本篇文章给大家谈谈易语言源码资源网，以及易语言开源网站对应的知识点，希望对各位有所帮助，收藏本站线上德州APP下载。

本文目录一览：

• 1、易语言怎么把网页源代码里最早出现的和最后一个出现的里面包的内容提取出来 其实p标签就
• 2、易语言官网为什么不能下载资源？
• 3、易语言实现ARP欺骗后怎么实现接收ARP包
• 4、易语言源码工具箱源码
• 5、易语言怎么制作机器码？
• 6、易语言中怎么让软件隐藏到边边，我放鼠标到哪里他就会自动显示！

易语言怎么把网页源代码里最早出现的和最后一个出现的里面包的内容提取出来 其实p标签就

.版本 2

.子程序 取中间文本项, 文本型, , 参_取出全部内容=真 的时候 参_左边内容和参_右边内容均不可为空

.参数 参_文本内容, 文本型

.参数 参_左边内容, 文本型, 可空, 默认为文本开始位置

.参数 参_右边内容, 文本型, 可空, 默认为文本最后位置+1

.参数 参_不区分大小写, 逻辑型, 可空, 默认为不区分

.参数 参_取出全部内容, 逻辑型, 可空, 取出全部符合条件的文本

.参数 参_分割文本, 文本型, 可空, 默认为换行符

.局部变量 局部_左边位置, 整数型

.局部变量 局部_右边位置, 整数型

.局部变量 局部_上次位置, 整数型

.局部变量 局部_左边长度, 整数型

.局部变量 局部_可用循环, 逻辑型

.局部变量 局部_结果文本, 文本型

.如果真 (参_取出全部内容 ＝ 假)

    .判断开始 (参_左边内容 ＝ “”)

        局部_左边位置 ＝ 1

    .默认

        局部_左边位置 ＝ 寻找文本 (参_文本内容, 参_左边内容, , 参_不区分大小写)

    .判断结束

    .如果真 (局部_左边位置 ＝ -1)

        返回 (“”)

    .如果真结束

    ' 本源码来自易语言资源网(

)

    局部_左边长度 ＝ 取文本长度 (参_左边内容)

    局部_左边位置 ＝ 局部_左边位置 ＋ 局部_左边长度

    .判断开始 (参_右边内容 ＝ “”)

        局部_右边位置 ＝ 取文本长度 (参_文本内容) ＋ 1

    .默认

        局部_右边位置 ＝ 寻找文本 (参_文本内容, 参_右边内容, 局部_左边位置, 参_不区分大小写)

    .判断结束

    .如果真 (局部_右边位置 ＝ -1)

        返回 (“”)

    .如果真结束

    返回 (取文本中间 (参_文本内容, 局部_左边位置, 局部_右边位置 － 局部_左边位置))

.如果真结束

.如果真 (参_分割文本 ＝ “”)

    参_分割文本 ＝ #换行符

.如果真结束

局部_可用循环 ＝ 真

局部_上次位置 ＝ 1

.判断循环首 (局部_可用循环)

    局部_左边位置 ＝ 寻找文本 (参_文本内容, 参_左边内容, 局部_上次位置, 参_不区分大小写)

    .如果真 (局部_左边位置 ＝ -1)

        局部_可用循环 ＝ 假

        跳出循环 ()

    .如果真结束

    局部_左边长度 ＝ 取文本长度 (参_左边内容)

    局部_左边位置 ＝ 局部_左边位置 ＋ 局部_左边长度

    局部_右边位置 ＝ 寻找文本 (参_文本内容, 参_右边内容, 局部_左边位置, 参_不区分大小写)

    .如果真 (局部_右边位置 ＝ -1)

        ' 本源码来自易语言资源网(

)

        局部_可用循环 ＝ 假

        跳出循环 ()

    .如果真结束

    局部_结果文本 ＝ 局部_结果文本 ＋ 取文本中间 (参_文本内容, 局部_左边位置, 局部_右边位置 － 局部_左边位置) ＋ 参_分割文本

    局部_上次位置 ＝ 局部_右边位置

    处理事件 ()

.判断循环尾 ()

返回 (局部_结果文本)

易语言官网为什么不能下载资源？

不会呀，我每次下载的都是压缩包类型的文件呀， 你如果下载的是php文件，我想你可能用的是迅雷或QQ旋风等下载软件下载，它下载的很多是php文件，你下载的时候首先要看看保存的是什么文件类型，如果是php文件就不要下载了，如果是压缩包或e就可以下载。

我到易语言官网下载源码，如果弹出迅雷或QQ旋风等下载软件，我就会关闭它们，wingdows会自动弹出自带的文件下载软件下载，点击保存就可以了，这样下载的就是压缩包或者e了。

同道中人。呵呵呵。。。

易语言实现ARP欺骗后怎么实现接收ARP包

模块用精易模块3.41

.版本 2

.支持库 ERawSock

.支持库 eAPI

.支持库 HtmlView

.支持库 spec

.支持库 iext

.支持库 EThread

.程序集 窗口程序集1

.程序集变量 ARP, ARP协议

.程序集变量 网卡信息, 网卡信息, , "0"

.程序集变量 _知, zhibei

.程序集变量 线程池, 类_线程池

.程序集变量 全_计数, 整数型

.子程序 _DLL_局域网_创建完毕

.局部变量 局_计次, 整数型

网卡信息 ＝ 取网卡信息列表 ()

.计次循环首 (取数组成员数 (网卡信息), 局_计次)

组合框1.加入项目 (网卡信息 [局_计次].网卡名称, )

.计次循环尾 ()

组合框1.现行选中项 ＝ 0

_组合框1_列表项被选择 ()

编辑框1.内容 ＝ 取IP地址 (取主机名 ())

_知.是否继续 ＝ 假

ARP.打开网络适配器 (组合框1.现行选中项 ＋ 1)

ARP.配置网络适配器 (2, 1024, 200)

超文本浏览框1. ＝ 真

.子程序 _端口扫描_被选择

调用子程序 (全_交互.扫描内存地址, , , 超级列表框1.取标题 (超级列表框1.现行选中项, 0))

.子程序 _超级列表框1_右键单击表项

弹出菜单 (接口局域网菜单, , )

.子程序 _按钮_探测主机_被单击

.局部变量 局_计次, 整数型

.局部变量 重组IP, 文本型, , "4"

.计次循环首 (超级列表框1.取表项数 (), 局_计次)

.如果真 (到整数 (超级列表框1.取标题 (局_计次 － 1, 3)) ≠ 0)

线程_销毁 (到整数 (超级列表框1.取标题 (局_计次 － 1, 3)))

.如果真结束

系统_处理事件 ()

.计次循环尾 ()

.判断开始 (按钮_探测主机.标题 ＝ “探测内网主机”)

重组IP ＝ 分割文本 (删首尾空 (编辑框1.内容), “.”, 4)

.如果真 (取数组成员数 (重组IP) ＝ 4)

_知.IP ＝ 重组IP [1] ＋ “.” ＋ 重组IP [2] ＋ “.” ＋ 重组IP [3] ＋ “.”

' 获得IP

超级列表框1.全部删除 ()

按钮_探测主机.禁止 ＝ 真

全_计数 ＝ 0

_知.MAC地址 ＝ “”

.判断开始 (组合框2.现行选中项 ＝ 0)

.判断开始 (线程池.启动 (到整数 (编辑框2.内容), 获取MAC, 0))

_知.许可证 ＝ 创建进入许可证 ()

.计次循环首 (225, 局_计次)

.如果真 (线程池.加入工作 (局_计次))

程序_延时 (10, )

.如果真结束

系统_处理事件 ()

.计次循环尾 ()

按钮_探测主机.标题 ＝ “停止”

按钮_探测主机.禁止 ＝ 假

.默认

按钮_探测主机.禁止 ＝ 假

.判断结束

.默认

.判断开始 (线程池.启动 (到整数 (编辑框2.内容), Ping探测, 0))

.计次循环首 (225, 局_计次)

线程池.加入工作 (局_计次)

系统_处理事件 ()

.计次循环尾 ()

按钮_探测主机.标题 ＝ “停止”

按钮_探测主机.禁止 ＝ 假

.默认

按钮_探测主机.禁止 ＝ 假

.判断结束

.判断结束

.如果真结束

.默认

启动线程 (探测停止, , )

.判断结束

.子程序 _ARP欺骗启用_被选择

.局部变量 局_句柄, 整数型

.判断开始 (超级列表框1.现行选中项 ≠ -1)

_知.是否继续 ＝ 真

局_句柄 ＝ 线程_启动 (ARP欺骗, , )

超级列表框1.置标题 (超级列表框1.现行选中项, 3, 到文本 (局_句柄))

超级列表框1.置标题 (超级列表框1.现行选中项, 2, “断开”)

调用子程序 (全_交互.状态条地址, , , “ARP欺骗启用...”)

.默认

鸣叫 ()

调用子程序 (全_交互.状态条地址, , , “当前未选中欺骗对象！”)

.判断结束

' 本源码来自易语言资源网()

.子程序 _ARP欺骗停止_被选择

.如果 (线程_销毁 (到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 3))))

超级列表框1.置标题 (超级列表框1.现行选中项, 3, “”)

超级列表框1.置标题 (超级列表框1.现行选中项, 2, “恢复”)

调用子程序 (全_交互.状态条地址, , , “ARP欺骗已停止..”)

.否则

.如果结束

.子程序 随机MAC, 文本型

.局部变量 i, 整数型

.局部变量 M, 文本型, , "6"

.计次循环首 (6, i)

置随机数种子 ()

置随机数种子 (取随机数 (, ) ＋ 取启动时间 () ＋ i)

M [i] ＝ 取文本右边 (“00” ＋ 取十六进制文本 (取随机数 (0, 255)), 2)

.计次循环尾 ()

返回 (M [1] ＋ “-” ＋ M [2] ＋ “-” ＋ M [3] ＋ “-” ＋ M [4] ＋ “-” ＋ M [5] ＋ “-” ＋ M [6])

.子程序 获取MAC

.参数 参_IP尾, 整数型

.局部变量 缓冲, 字节型, , "6"

.局部变量 I, 整数型

.局部变量 局_MAC, 文本型

.局部变量 当前IP, 整数型

当前IP ＝ API_inet_addr (_知.IP ＋ 到文本 (参_IP尾))

.如果真 (API_SendARP (当前IP, 0, 缓冲, 6) ＝ 0)

.计次循环首 (6, I)

局_MAC ＝ 局_MAC ＋ 取文本右边 (“00” ＋ 取十六进制文本 (缓冲 [I]), 2) ＋ “-”

系统_处理事件 ()

.计次循环尾 ()

.如果真结束

局_MAC ＝ 取文本左边 (局_MAC, 17)

' 本源码来自易语言资源网()

.判断开始 (局_MAC ≠ “”)

进入许可区 (_知.许可证)

_知.MAC地址 ＝ 局_MAC

标签2.调用反馈事件 (参_IP尾, , 真)

退出许可区 (_知.许可证)

.默认

.判断结束

.判断开始 (全_计数 ≥ 224)

启动线程 (探测停止, , )

.默认

进入许可区 (_知.许可证)

全_计数 ＝ 全_计数 ＋ 1

调用子程序 (全_交互.状态条地址, , , “线程已扫描：” ＋ 到文本 (全_计数))

退出许可区 (_知.许可证)

.判断结束

.子程序 探测停止

按钮_探测主机.禁止 ＝ 真

.如果真 (线程池.取状态 ())

线程池.关闭 ()

.如果真结束

按钮_探测主机.标题 ＝ “探测内网主机”

按钮_探测主机.禁止 ＝ 假

删除进入许可证 (_知.许可证)

调用子程序 (全_交互.状态条地址, , , “ARP扫描已停止..”)

.子程序 ARP欺骗

.局部变量 arp头, ARP头

.局部变量 局_MAC, 文本型

.局部变量 以太网头, 以太网头

局_MAC ＝ 随机MAC ()

arp头.操作类型 ＝ #ARP常量.ARP请求

.如果真 (取数组成员数 (网卡信息) ≥ 组合框1.现行选中项 ＋ 1)

arp头.发送端IP地址 ＝ 网卡信息 [组合框1.现行选中项 ＋ 1].默认网关

.如果真结束

arp头.发送端以太网地址 ＝ 局_MAC

arp头.目的IP地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)

arp头.目的以太网地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)

ARP.构造ARP头 (arp头)

以太网头.以太网源地址 ＝ 局_MAC

以太网头.以太网目的地址 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)

ARP.构造以太网头 (以太网头)

.判断循环首 (_知.是否继续)

ARP.发送 (1)

系统_处理事件 ()

.判断循环尾 ()

.子程序 _DLL_局域网_将被销毁

DLL_局域网.可视 ＝ 假

ARP.关闭网络适配器 ()

.如果真 (按钮_探测主机.标题 ＝ “停止”)

探测停止 ()

.如果真结束

.子程序 Ping探测

.参数 参_IP尾, 整数型

.局部变量 重组后IP, 文本型

.局部变量 缓冲, 字节型, , "6"

.局部变量 局_I, 整数型

.局部变量 局_MAC, 文本型

.局部变量 当前IP, 整数型

重组后IP ＝ _知.IP ＋ 到文本 (参_IP尾)

.如果真 (通信测试 (重组后IP, 4000) ≠ -1)

当前IP ＝ API_inet_addr (_知.IP ＋ 到文本 (参_IP尾))

.如果真 (API_SendARP (当前IP, 0, 缓冲, 6) ＝ 0)

.计次循环首 (6, 局_I)

局_MAC ＝ 局_MAC ＋ 取文本右边 (“00” ＋ 取十六进制文本 (缓冲 [局_I]), 2) ＋ “-”

.计次循环尾 ()

.如果真结束

局_MAC ＝ 取文本左边 (局_MAC, 17)

进入许可区 (_知.许可证)

.如果 (局_MAC ≠ “”)

_知.MAC地址 ＝ 局_MAC

.否则

_知.MAC地址 ＝ “无！”

.如果结束

标签2.调用反馈事件 (参_IP尾, , 真)

退出许可区 (_知.许可证)

.如果真结束

.判断开始 (全_计数 ≥ 224)

启动线程 (探测停止, , )

.默认

进入许可区 (_知.许可证)

全_计数 ＝ 全_计数 ＋ 1

调用子程序 (全_交互.状态条地址, , , “已探测线程数：” ＋ 到文本 (参_IP尾))

退出许可区 (_知.许可证)

.判断结束

.子程序 _标签2_反馈事件, 整数型

.参数 参数一, 整数型

.参数 参数二, 整数型

.局部变量 局_索引, 整数型

局_索引 ＝ 超级列表框1.插入表项 (-1, , , , , )

超级列表框1.置标题 (局_索引, 0, _知.IP ＋ 到文本 (参数一))

超级列表框1.置标题 (局_索引, 1, _知.MAC地址)

.子程序 _组合框1_列表项被选择

.局部变量 局_序号, 整数型

局_序号 ＝ 组合框1.现行选中项 ＋ 1

编辑框4.内容 ＝ “”

.如果真 (取数组成员数 (网卡信息) ≥ 局_序号)

编辑框4.加入文本 (“序号：” ＋ 到文本 (网卡信息 [局_序号].序号) ＋ #换行符)

编辑框4.加入文本 (“网卡名称：” ＋ 网卡信息 [局_序号].网卡名称 ＋ #换行符)

编辑框4.加入文本 (“IP地址：” ＋ 网卡信息 [局_序号].IP地址 ＋ #换行符)

编辑框4.加入文本 (“物理地址：” ＋ 网卡信息 [局_序号].物理地址 ＋ #换行符)

编辑框4.加入文本 (“子网掩码：” ＋ 网卡信息 [局_序号].子网掩码 ＋ #换行符)

编辑框4.加入文本 (“默认网关：” ＋ 网卡信息 [局_序号].默认网关 ＋ #换行符)

编辑框4.加入文本 (“Wins服务器地址：” ＋ 网卡信息 [局_序号].Wins服务器地址 ＋ #换行符)

编辑框4.加入文本 (“DHCP服务器地址：” ＋ 网卡信息 [局_序号].DHCP服务器地址 ＋ #换行符)

.如果真结束

.子程序 _按钮_启用网卡_被单击

.判断开始 (ARP.打开网络适配器 (组合框1.现行选中项 ＋ 1))

.判断开始 (ARP.配置网络适配器 (2, 1024, 200))

调用子程序 (全_交互.状态条地址, , , “网卡” ＋ 到文本 (组合框1.现行选中项 ＋ 1) ＋ “启用成功..”)

.默认

调用子程序 (全_交互.状态条地址, , , “网卡” ＋ 到文本 (组合框1.现行选中项 ＋ 1) ＋ “启用失败..”)

.判断结束

.默认

调用子程序 (全_交互.状态条地址, , , “网卡” ＋ 到文本 (组合框1.现行选中项 ＋ 1) ＋ “打开失败..”)

.判断结束

.子程序 _按钮_自定义欺骗_被单击

.判断开始 (按钮_自定义欺骗.标题 ＝ “欺骗”)

_知.自定义ARP是否继续 ＝ 真

.如果真 (启动线程 (自定义ARP, , ))

按钮_自定义欺骗.标题 ＝ “恢复”

调用子程序 (全_交互.状态条地址, , , “自定义ARP攻击已开启..”)

.如果真结束

.默认

_知.自定义ARP是否继续 ＝ 假

按钮_自定义欺骗.标题 ＝ “欺骗”

调用子程序 (全_交互.状态条地址, , , “自定义ARP攻击已关闭..”)

.判断结束

.子程序 自定义ARP

.局部变量 arp头, ARP头

.局部变量 重组IP, 文本型, , "4"

.局部变量 重组后IP, 文本型

.局部变量 以太网头, 以太网头

.局部变量 缓冲, 字节型, , "6"

.局部变量 I, 整数型

.局部变量 局_MAC, 文本型

.局部变量 当前IP, 整数型

当前IP ＝ API_inet_addr (编辑框_目标IP.内容)

.如果真 (API_SendARP (当前IP, 0, 缓冲, 6) ＝ 0)

.计次循环首 (6, I)

局_MAC ＝ 局_MAC ＋ 取文本右边 (“00” ＋ 取十六进制文本 (缓冲 [I]), 2) ＋ “-”

系统_处理事件 ()

.计次循环尾 ()

.如果真结束

局_MAC ＝ 取文本左边 (局_MAC, 17)

.判断开始 (局_MAC ≠ “”)

编辑框_目标MAC.内容 ＝ 局_MAC

.默认

局_MAC ＝ 编辑框_目标MAC.内容

.判断结束

arp头.操作类型 ＝ #ARP常量.ARP请求

arp头.发送端IP地址 ＝ 编辑框_伪造IP.内容

arp头.发送端以太网地址 ＝ 编辑框_伪造MAC.内容

arp头.目的IP地址 ＝ 编辑框_目标IP.内容

arp头.目的以太网地址 ＝ 局_MAC

ARP.构造ARP头 (arp头)

以太网头.以太网源地址 ＝ 随机MAC ()

以太网头.以太网目的地址 ＝ 局_MAC

ARP.构造以太网头 (以太网头)

.判断循环首 (_知.自定义ARP是否继续)

ARP.发送 (1)

系统_处理事件 ()

.判断循环尾 ()

易语言源码工具箱源码

制作方案:

准备一个要载入工具箱的exe

新建个易语言程序，进入易语言-插入-资源-图片或图片组

将图片1改为exe

双击内容

导入新图片

然后载入exe

回到启动窗口，新建个按钮，按钮输入代码:

写到文件("D:\临时调试文件.exe",#exe)

运行("D:\临时调试文件.exe")

删除文件("D:\临时调试文件.exe")

然后调试程序,点击那个按钮,你会发现刚才载入的exe运行了！

易语言怎么制作机器码？

制作机器码代码如下，只需要取即可：

.版本 2

.支持库 eAPI

.子程序 取机器码, 文本型

.局部变量 输入内容, 文本型

.局部变量 输出内容, 文本型

.局部变量 文本长度, 整数型

.局部变量 i, 整数型

.局部变量 临时变量I, 整数型

.局部变量 临时变量J, 整数型

.局部变量 转换后文本, 文本型

.局部变量 临时, 字节集

.局部变量 网卡地址, 网卡信息, , "0"

.局部变量 网卡mac, 文本型

.局部变量 CPU信息, CPU信息

.局部变量 CPU, 文本型

.局部变量 大写字母, 文本型, , "26"

.局部变量 小写字母, 文本型, , "26"

.局部变量 数字, 文本型, , "26"

.局部变量 计次, 整数型

.局部变量 总计, 文本型

数字 ＝ { “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “11”, “12”, “13”, “14”, “15”, “16”, “17”, “18”, “19”, “20”, “21”, “22”, “23”, “24”, “25”, “26” }

大写字母 ＝ { “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”, “J”, “K”, “L”, “M”, “N”, “O”, “P”, “Q”, “R”, “S”, “T”, “U”, “V”, “W”, “X”, “Y”, “Z” }

小写字母 ＝ { “a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z” }

取CPU信息 (CPU信息)

CPU ＝ 取文本左边 (CPU信息.序列号, 18)

网卡地址 ＝ 取网卡信息列表 ()

.判断开始 (取数组成员数 (网卡地址) ≥ 1)

网卡mac ＝ 网卡地址 [1].物理地址

.默认

网卡mac ＝ “10-11-11-11-11-11”

.判断结束

输入内容 ＝ 子文本替换 (网卡mac, “-”, “”, , , 真) ＋ 子文本替换 (CPU, “-”, “”, , , 真)

文本长度 ＝ 取文本长度 (输入内容)

.计次循环首 (文本长度, i)

转换后文本 ＝ 取文本中间 (输入内容, i, 1)

.如果真 (转换后文本 ≥ “A” 且 转换后文本 ≤ “Z” 或 转换后文本 ≥ “a” 且 转换后文本 ≤ “z”)

转换后文本 ＝ “”

.如果真结束

输出内容 ＝ 输出内容 ＋ 转换后文本

.计次循环尾 ()

.计次循环首 (取文本长度 (输入内容), 临时变量I)

.计次循环首 (取数组成员数 (大写字母), 临时变量J)

.如果真 (取文本中间 (输入内容, 临时变量I, 1) ＝ 大写字母 [临时变量J] 或 取文本中间 (输入内容, 临时变量I, 1) ＝ 小写字母 [临时变量J])

编辑框1.加入文本 (数字 [临时变量J])

.如果真结束

' 本源码来自易语言资源网()

.计次循环尾 ()

.计次循环尾 ()

临时 ＝ 到字节集 (子文本替换 (网卡mac, “-”, “”, , , 真) ＋ 子文本替换 (CPU, “-”, “”, , , 真))

.计次循环首 (4, 计次)

.如果真 (临时 [计次] ≠ 45 且 临时 [计次] ＜ 48 或 临时 [计次] ＞ 57)

到循环尾 ()

.如果真结束

.如果真 (临时 [计次] ＝ 48)

临时 [计次] ＝ 74

到循环尾 ()

.如果真结束

.如果真 (临时 [计次] ＝ 45)

临时 [计次] ＝ 77

到循环尾 ()

.如果真结束

临时 [计次] ＝ 临时 [计次] ＋ 16

.计次循环尾 ()

返回 (到文本 (临时))

易语言中怎么让软件隐藏到边边，我放鼠标到哪里他就会自动显示！

1.鼠标移开自动隐藏的代码如下：

.版本

2

.支持库

xplib

.支持库

spec

.支持库

eAPI

.程序集

窗口程序集1

.程序集变量

程_是否离开窗体,

逻辑型

.程序集变量

程_透明度,

整数型

.子程序

__启动窗口_创建完毕

XP风格

(2)

程_透明度

＝

255

时钟1.时钟周期

＝

1000

'

本源码来自易语言资源网()

.子程序

_时钟1_周期事件

.局部变量

P,

坐标_

.局部变量

R,

矩形_

取鼠标位置_

(P)

取窗口矩形_

(_启动窗口.取窗口句柄

(),

R)

.如果

(P.横向位置

＜

R.左边

或

P.横向位置

＞

R.右边

或

P.纵向位置

＜

R.顶边

或

P.纵向位置

＞

R.底边)

程_是否离开窗体

＝

真

.否则

程_是否离开窗体

＝

假

'

本源码来自易语言资源网()

调试输出

(“在”)

.如果结束

.如果

(程_是否离开窗体)

时钟1.时钟周期

＝

.判断循环首

(程_透明度

≠

0)

程_透明度

＝

程_透明度

－

5

设置窗口透明度

(_启动窗口.取窗口句柄

(),

程_透明度)

'

本源码来自易语言资源网()

延时

(100)

处理事件

()

.判断循环尾

()

.否则

.如果结束

.版本

2

.数据类型

坐标_,

,

POINTAPI

.成员

横向位置,

整数型,

,

,

x，横向位置

.成员

纵向位置,

整数型,

,

,

y，纵向位置

.数据类型

矩形_,

,

RECT

.成员

左边,

整数型,

,

,

Left

.成员

顶边,

整数型,

,

,

Top

.成员

右边,

整数型,

,

,

Right

.成员

底边,

整数型,

,

,

Bottom

.版本

2

.DLL命令

取鼠标位置_,

整数型,

"user32",

"GetCursorPos"

.参数

位置,

坐标_

.DLL命令

取窗口矩形_,

整数型,

"user32",

"GetWindowRect"

.参数

窗口句柄,

整数型

.参数

矩形区域,

矩形_

2.加个时钟判断

.版本

2

.子程序

_时钟1_周期事件

.如果真

(_启动窗口.顶边

＜

5)

_启动窗口.顶边

＝

－

_启动窗口.高度

＋

5

.如果真结束

.子程序

__启动窗口_鼠标位置被移动,

逻辑型

.参数

横向位置,

整数型

.参数

纵向位置,

整数型

.参数

功能键状态,

整数型

.如果真

(_启动窗口.顶边

＜

5)

_启动窗口.顶边

＝

易语言源码资源网的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于易语言开源网站、易语言源码资源网的信息别忘了在本站进行查找喔。