易语言流量监控程序源码

.版本 2
.支持库 spec
.支持库 iext

.程序集 窗口程序集1
.程序集变量 hwnd
.程序集变量 无线网络上传速度, 整数型
.程序集变量 无线网络下载速度, 整数型
.程序集变量 有线网络上传速度, 整数型
.程序集变量 有线网络下载速度, 整数型
.程序集变量 有线上传网速储存, 整数型
.程序集变量 有线下载网速储存, 整数型
.程序集变量 无线上传网速储存, 整数型
.程序集变量 无线下载网速储存, 整数型
.程序集变量 无线上传速度结果, 整数型
.程序集变量 无线下载速度结果, 整数型
.程序集变量 有线上传速度结果, 整数型
.程序集变量 有线下载速度结果, 整数型
.程序集变量 全部上传速度, 整数型
.程序集变量 全部下载速度, 整数型

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

最前显示 ()
_启动窗口.顶边 ＝ 取屏幕宽度 () － 950
_启动窗口.左边 ＝ 取屏幕宽度 () － 130
窗口透明化 (_启动窗口.取窗口句柄 (), , #青绿, 真)
取网卡速度 ()

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

取网卡速度 ()

.子程序 取网卡速度
.局部变量 Wk, MIB_IFTABLE
.局部变量 LenIfT
.局部变量 RValue
.局部变量 i, 整数型

最前显示 ()
LenIfT ＝ Len_Wk (Wk)
RValue ＝ GetIfTable (Wk, LenIfT, 1)
' ↓↓↓准备计算网络差↓↓↓
调试输出 (Len_Wk (Wk))  ' 请勿删除此行！否则程序错误
调试输出 (GetIfTable (Wk, LenIfT, 1))  ' 请勿删除此行！否侧程序错误
无线上传网速储存 ＝ 无线网络上传速度
无线下载网速储存 ＝ 无线网络下载速度
有线上传网速储存 ＝ 有线网络上传速度
有线下载网速储存 ＝ 有线网络下载速度
' ↓↓↓准备获取网速速度↓↓↓
.计次循环首 (Wk.dwNumEntries － 1, i)  ' 取网卡速度
    .如果真 (到文本 (Wk.MIB_Table [i].bDescr) ＝ “Realtek RTL8723BE Wireless LAN 802.11n PCI-E NIC”)  ' 取无线网卡速度 Realtek RTL8723BE Wireless LAN 802.11n PCI-E NIC = 无线网卡名称
        无线网络上传速度 ＝ Wk.MIB_Table [i].dwOutOctets
        无线网络下载速度 ＝ Wk.MIB_Table [i].dwInOctets
    .如果真结束
    .如果真 (到文本 (Wk.MIB_Table [i].bDescr) ＝ “Realtek PCIe GBE Family Controller”)  ' 取有线网卡速度 Realtek PCIe GBE Family Controller = 无线网卡名称
        有线网络上传速度 ＝ Wk.MIB_Table [i].dwOutOctets
        有线网络下载速度 ＝ Wk.MIB_Table [i].dwInOctets
    .如果真结束

.计次循环尾 ()
' ↓↓↓正在计算网络差↓↓↓
无线上传速度结果 ＝ 无线网络上传速度 － 无线上传网速储存
无线下载速度结果 ＝ 无线网络下载速度 － 无线下载网速储存
有线上传速度结果 ＝ 有线网络上传速度 － 有线上传网速储存
有线下载速度结果 ＝ 有线网络下载速度 － 有线下载网速储存
全部上传速度 ＝ 无线上传速度结果 ＋ 有线上传速度结果
全部下载速度 ＝ 无线下载速度结果 ＋ 有线下载速度结果
' ↓↓↓正在将结果显示到窗口上↓↓↓
.如果 (取文本右边 (转换单位 (全部上传速度), 4) ≠ “字节”)
    透明标签1.标题 ＝ 转换单位 (全部上传速度) ＋ “/s”
.否则
    透明标签1.标题 ＝ “0.” ＋ 取文本左边 (转换单位 (全部上传速度), 2) ＋ “KB/s”
.如果结束

.如果 (取文本右边 (转换单位 (全部下载速度), 4) ≠ “字节”)
    透明标签2.标题 ＝ 转换单位 (全部下载速度) ＋ “/s”
.否则
    透明标签2.标题 ＝ “0.” ＋ 取文本左边 (转换单位 (全部下载速度), 2) ＋ “KB/s”
.如果结束
' ↑↑↑计算完成↑↑↑

.子程序 转换单位, 文本型
.参数 字节
.局部变量 buffer, 文本型

buffer ＝ 取空白文本 (50)
数值到格式化字节_ (字节, buffer, 50)
返回 (buffer)

.子程序 最前显示

hwnd ＝ GetForegroundwindow ()
.如果真 (hwnd ≠ 取窗口句柄 ())
    SetWindowPos (hwnd, -2, 0, 0, 0, 0, 3)
    SetWindowPos (取窗口句柄 (), -1, 0, 0, 0, 0, 3)
.如果真结束

@Ｓòrγy︶ㄣ