易语言端口教程_易语言端口扫描模块

易语言检测本机是否能够扫描3389

这个能看懂了吧，0到65535端口直接可以查看是否开启

调用格式： 〈逻辑型〉 端口检测 （整数型 端口，［文本型 IP地址］） - 应用接口支持库-网络通信

英文名称：CheckPort

检测指定的端口是否开放。开放返回真；否则返回假。本命令为初级命令。

参数1的名称为“端口”，类型为“整数型（int）”。检测的端口。

参数2的名称为“IP地址”，类型为“文本型（text）”，可以被省略。置空则检测本机端口。

操作系统需求： Windows

易语言IP 端口扫描 报警器

.版本 2

.支持库 EThread

.子程序 _时钟1_周期事件

.如果真 (线程 ＝ 0)

启动线程 (线程_1, , 线程)

.如果真结束

.子程序 线程_1

标签3.标题 ＝ “正在检查...”

.如果 (客户1.连接 (“221.231.131.213”, 8484))

标签3.标题 ＝ “开启”

.否则

标签3.标题 ＝ “关闭”

.如果结束

标签4.标题 ＝ “正在检查...”

.如果 (客户1.连接 (“218.30.74.142”, 8484))

标签4.标题 ＝ “开启”

.否则

标签4.标题 ＝ “关闭”

.如果结束

标签5.标题 ＝ “正在检查...”

.如果 (客户1.连接 (“125.39.60.112”, 8484))

标签5.标题 ＝ “开启”

.否则

标签5.标题 ＝ “关闭”

.如果结束

标签6.标题 ＝ “正在检查...”

.如果 (客户1.连接 (“125.39.90.126”, 8484))

标签6.标题 ＝ “开启”

.否则

标签6.标题 ＝ “关闭”

.如果结束

标签7.标题 ＝ “正在检查...”

.如果 (客户1.连接 (“121.14.48.107”, 8484))

标签7.标题 ＝ “开启”

.否则

标签7.标题 ＝ “关闭”

.如果结束

强制结束线程 (线程)

线程 ＝ 0

全集易语言教程

红盟易语言基础课程（作者：fooying） 下载地址：

红盟易语言基础课程1.rar

红盟易语言基础课程2.rar

红盟易语言基础教程3（2）-简单记事本.rar

红盟易语言基础课程3（1）.avi

红盟易语言基础课程4.rar

红盟易语言基础课程5-图片浏览器(1).rar

红盟易语言基础课程5-图片浏览器(2).rar

红盟易语言基础课程6-资源图标提取.rar

红盟易语言基础课程7-自动截屏器(1).rar

红盟易语言基础课程7-自动截屏器(2).rar

红盟易语言基础课程8-简单图片转换.rar

红盟易语言基础课程9-取歌曲信息（模块的应用）(1).rar

红盟易语言基础课程9-取歌曲信息（模块的应用）(2).rar

红盟易语言基础课程10-模拟CMD（程序的调用）.rar

红盟易语言基础课程11-简单下载器.rar

红盟易语言基础课程12-简易网页浏览器.rar

红盟易语言基础课程13-灰色按钮激活器（API使用）(1).rar

红盟易语言基础课程13-灰色按钮激活器（API使用）（2）.rar

红盟易语言基础课程14-端口扫描器（多线程应用）.rar

红盟易语言基础课程15-文件加解密及拖放.rar

红盟易语言基础课程16-托盘图标.rar

红盟易语言基础课程17-易语言数据库操作（1）.rar

红盟易语言基础课程18-易数据库操作（2).rar

红盟易语言基础课程19-邮件发送.rar

红盟易语言基础课程20-avi视频播放器.rar

红盟易语言基础课程21-将程序嵌入桌面.rar

红盟易语言基础课程22-简易远程控制.rar

易语言实现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)

系统_处理事件 ()

.判断循环尾 ()

易语言怎么连接扫描枪

先将数据线分别连接至条码扫描枪的数据线插口和电脑USB端口（其他接口扫描枪的连接方式稍有不同，具体可以参考用户手册）。按住触发键不放，照明灯被激活，出现红色照明区域及红色对焦线。

条形码作为一种及时、准确、可靠、经济的数据输入手段已被物流信息系统所采用。在工业发达的国家已经普及应用，已成为商品独有的世界通用的“身份证”。

欧美、日本等等国家已经普遍使用条形码技术，而且正在世界各地迅速推广普及，其应用领域还在不断扩大。由于采用了条码，消费者从心理上对商品质量产生了安全感，条码在识别伪劣产品、防假打假中也可起到重要作用。

因为条码技术具有先进、适用、容易掌握和见效快等特点，在信息（数据）采集中发挥优势无论在商品的入库、出库、上架还是和顾客结算的过程，都要面对如何将数据量巨大的商品（不论是整包包装还是拆封后单个零售）信息输入计算机中的问题。

如果在单个商品的包装上，印制上条码符号，利用条码阅读器，就可以高速、准确、及时地掌握商品的品种（货号）、数量、单价、生产厂家、出厂日期等信息。

关于易语言bat命令使用

所谓 端口扫描 其实就是用一个客户去连接IP-PORT,如果可以连接上,就返回真,否则返回假~

.版本 2

.程序集变量 IP, 文本型, , "0"

.程序集变量 cnt, 整数型

.子程序 _按钮1_被单击, , , 处理IP

IP ＝ 分割文本 (编辑框1.内容, #换行符, )

cnt ＝ 取数组下标 (IP, )

.子程序 _按钮2_被单击, , , 扫描

SCAN (6666)

.子程序 _按钮3_被单击, , , 扫描

SCAN (6668)

.子程序 SCAN

.参数 port, 整数型

.局部变量 tmp, 整数型

.计次循环首 (cnt, tmp)

.如果真 (客户1.连接 (IP [tmp], port))

编辑框2.加入文本 (IP [tmp], #换行符)

.如果真结束

处理事件 ()

.计次循环尾 ()

不需要BAT....麻烦~