易语言监控麦克风_易语言摄像头端口扫描

hacker|
105

易语言怎么连接扫描枪

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

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

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

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

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

易语言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

关于易语言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....麻烦~

易语言服务器端怎么连接客户端的摄像头!最好有一个简单的源码 就连接一个摄像头

所用组件和支持库、变量:

一、接收端程序编写

1.支持库:视频聊天支持库

2.接送端全局变量及组件

全局变量 音频输出设备, 文本型

组件 多媒体播放器 说明:播放接收到的视频图像

组件 服务器 说明:接收视频数据

组件 时钟 说明:用于检测接收远程数据库速度

组件 标签 说明:显示接收远程数据数据速度

组件 窗口1 说明:设置输出音频

组件 多媒体设备枚举器 说明:获取音频设备

组件 组合框 说明:列出音频设备

3.接收视频窗口设置-启动窗口                         

4.启动窗口-窗口程序集代码

.版本 2

.支持库 eChat

.程序集 窗口程序集_启动窗口

.程序集变量 流量计数, 整数型

.子程序 __启动窗口_创建完毕

载入 (窗口1, , 真)

多媒体播放器1.设置视频输出窗口 ()

多媒体播放器1.设置音频输出设备 (音频输出设备)

多媒体播放器1.设置缓存时间 (1000, 3000)

多媒体播放器1.启动 ()

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

标签_流量.标题 = “流量:” + 到文本 (到整数 (流量计数 ÷ 1024)) + “ KB/S”

流量计数 = 0

.子程序 _服务器1_数据到达

.局部变量 远程视频数据, 字节集

远程视频数据 = 服务器1.取回数据 ()

流量计数 = 流量计数 + 取字节集长度 (远程视频数据)

多媒体播放器1.追加字节集 (远程视频数据)

.子程序 __启动窗口_可否被关闭, 逻辑型

多媒体播放器1.停止 ()

5.窗口1设置

6.窗口1-窗口程序集代码

.版本 2

.支持库 eChat

.程序集 窗口程序集_窗口1

.程序集变量 音频输出设备数组, 音频输入设备, , "0"

.子程序 _窗口1_创建完毕

.局部变量 i, 整数型

音频输出设备数组 = 多媒体设备枚举器1.取音频输入设备列表 ()

.计次循环首 (取数组成员数 (音频输出设备数组), i)

    组合框1.加入项目 (音频输出设备数组 [i].设备名称, )

.计次循环尾 ()

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

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

音频输出设备 = 音频输出设备数组 [组合框1.现行选中项 + 1].设备标识

销毁 ()

接收端设置完成。

二、发送端程序编写

1.支持库:视频聊天支持库

2.接送端全局变量及组件

全局变量 视频输入设备, 文本型  说明:设置用于发送视频的设备

全局变量 音频输入设备, 文本型 说明:设置用于发送音频的设备

组件 多媒体采集器 说明:用于采集视频和音频数据

组件 客户 说明:发送视频和音频数据

组件 标签 说明:用于显示相关说明提示.

组件 编辑框 说明:设置接收端的IP和端口

组件 选择框 说明:设置是否发送音频数据选项

3.启动窗口-发送端窗口设计

4.启动窗口-窗口程序集代码

.版本 2

.支持库 eChat

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

载入 (窗口1, , 真)

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

.局部变量 帧率, 整数型

.如果 (客户1.连接 (编辑框_目标IP地址.内容, 到整数 (编辑框_目标端口.内容)))

    .如果真 (多媒体采集器1.打开视频输入设备 (, , 320, 240, 320, 240) = 假)

        信息框 (“没有视频输入设备!”, 0, )

        返回 ()

    .如果真结束

    帧率 = 8

    .如果真 (选择框1.选中)

        多媒体采集器1.打开音频输入设备 (, 16000, 16, 1)

    .如果真结束

    多媒体采集器1.设置视频编码器参数 (0, 帧率, 帧率 × 2 - 1, 30, 46, 4, 7, 16, 0.6, 2)

    .如果真 (选择框1.选中)

        多媒体采集器1.设置音频编码器参数 (16000)

    .如果真结束

    多媒体采集器1.启动 ()

    按钮1.禁止 = 真

    选择框1.禁止 = 真

    编辑框_目标IP地址.禁止 = 真

    编辑框_目标端口.禁止 = 真

.否则

    信息框 (“请先打开 [接收端] !”, 0, “连接失败”)

.如果结束

.子程序 _多媒体采集器1_获得编码数据

.参数 数据地址, 整数型

.参数 数据长度, 整数型

客户1.发送数据 (指针到字节集 (数据地址, 数据长度))

.子程序 __启动窗口_可否被关闭, 逻辑型

多媒体采集器1.停止 ()

4.窗口1,设计

5.窗口-窗口程序集代码

.版本 2

.支持库 eChat

.程序集 窗口程序集2

.程序集变量 视频输入设备数组, 视频输入设备, , "0"

.程序集变量 音频输入设备数组, 音频输入设备, , "0"

.子程序 _窗口1_创建完毕

.局部变量 n, 整数型

视频输入设备数组 = 多媒体设备枚举器1.取视频输入设备列表 ()

音频输入设备数组 = 多媒体设备枚举器1.取音频输入设备列表 ()

.计次循环首 (取数组成员数 (视频输入设备数组), n)

    组合框_视频输入.加入项目 (视频输入设备数组 [n].设备名称, )

.计次循环尾 ()

组合框_视频输入.现行选中项 = 0

.计次循环首 (取数组成员数 (音频输入设备数组), n)

    组合框_音频输入.加入项目 (音频输入设备数组 [n].设备名称, )

.计次循环尾 ()

组合框_音频输入.现行选中项 = 0

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

视频输入设备 = 视频输入设备数组 [组合框_视频输入.现行选中项 + 1].设备路径

音频输入设备 = 音频输入设备数组 [组合框_音频输入.现行选中项 + 1].设备标识

销毁 ()

发送端设置完成。

0条大神的评论

发表评论