简单的网卡流量监控演示。。。

土冒

适用vista以上系统。。。

1. namespace netMonitor{
   
2.         import win.guid
   
3.        
   
4.         var dll = ..raw.loadDll("iphlpapi")
   
5.         getIfTable2 = dll.api("GetIfTable2", "int(ptr pIfTable)")
   
6.         freeMibTable = dll.api("FreeMibTable", "int(ptr pIfTable)")
   
7.        
   
8.         var guid = win.guid
   
9.         class MIB_IF_ROW2{
   
10.                 LONG InterfaceLuid;
    
11.                 int InterfaceIndex;
    
12.                 struct InterfaceGuid = guid();
    
13.                 byte Alias[514];
    
14.                 byte Description[514];
    
15.                 int PhysicalAddressLength;
    
16.                 BYTE PhysicalAddress[32];
    
17.                 BYTE PermanentPhysicalAddress[32];
    
18.                 int Mtu;
    
19.                 int Type;
    
20.                 int TunnelType;
    
21.                 int MediaType;
    
22.                 int PhysicalMediumType;
    
23.                 int AccessType;
    
24.                 int DirectionType;
    
25.                 byte InterfaceAndOperStatusFlags;
    
26.                 int OperStatus;
    
27.                 int AdminStatus;
    
28.                 int MediaConnectState;
    
29.                 struct NetworkGuid = guid();
    
30.                 int ConnectionType;
    
31.                 LONG TransmitLinkSpeed;
    
32.                 LONG ReceiveLinkSpeed;
    
33.                 LONG InOctets;
    
34.                 LONG InUcastPkts;
    
35.                 LONG InNUcastPkts;
    
36.                 LONG InDiscards;
    
37.                 LONG InErrors;
    
38.                 LONG InUnknownProtos;
    
39.                 LONG InUcastOctets;
    
40.                 LONG InMulticastOctets;
    
41.                 LONG InBroadcastOctets;
    
42.                 LONG OutOctets;
    
43.                 LONG OutUcastPkts;
    
44.                 LONG OutNUcastPkts;
    
45.                 LONG OutDiscards;
    
46.                 LONG OutErrors;
    
47.                 LONG OutUcastOctets;
    
48.                 LONG OutMulticastOctets;
    
49.                 LONG OutBroadcastOctets;
    
50.                 LONG OutQLen;
    
51.         }
    
52.        
    
53.         getInfo = function(){
    
54.                 var ptr = ..raw.buffer(4)
    
55.                 var ret = getIfTable2(ptr)
    
56.                 if(ret) return;
    
57.                
    
58.                 ptr = ..raw.convert(ptr, {ptr p}).p
    
59.                 ret = ..raw.convert(ptr, {int n}).n
    
60.                 ret = ..raw.convert(ptr, {
    
61.                         int NumEntries;
    
62.                         struct table[]={
    
63.                                 length = ret;
    
64.                                 MIB_IF_ROW2()
    
65.                         };
    
66.                 })
    
67.                 freeMibTable(ptr)
    
68.                 return ret;
    
69.         }
    
70. }
    
71. 
    
72. import win.ui
    
73. import win.timer
    
74. /*DSG{{*/
    
75. var winform = win.form(text="网卡流量监控";right=1004;bottom=591)
    
76. winform.add(
    
77. dtLv={cls="listview";left=2;top=41;right=1001;bottom=563;edge=1;fullRow=1;gridLines=1;z=1}
    
78. )
    
79. /*}}*/
    
80. 
    
81. winform.dtLv.insertColumn("名称", 230)
    
82. winform.dtLv.insertColumn("MAC", 130)
    
83. winform.dtLv.insertColumn("总发送", 100)
    
84. winform.dtLv.insertColumn("总接收", 100)
    
85. winform.dtLv.insertColumn("上行", 100)
    
86. winform.dtLv.insertColumn("下行", 100)
    
87. winform.dtLv.insertColumn("描述", 300)
    
88. winform.dtLv.adjust = function(cx,cy){
    
89.     winform.dtLv.fillParent(7/*列序号*/);
    
90. }
    
91. winform.dtLv.setExtended(0x10000/*_LVS_EX_DOUBLEBUFFER*/)
    
92. 
    
93. var agoT = netMonitor.getInfo()
    
94. for(i=1;agoT.NumEntries){
    
95.         var u = agoT.table[ i ]
    
96.         //**
    
97.         var mac = ..string.format("%.2X-%.2X-%.2X-%.2X-%.2X-%.2X",
    
98.                 u.PhysicalAddress[1],
    
99.                 u.PhysicalAddress[2],
    
100.                 u.PhysicalAddress[3],
     
101.                 u.PhysicalAddress[4],
     
102.                 u.PhysicalAddress[5],
     
103.                 u.PhysicalAddress[6]
     
104.         )
     
105.         var guid =  ..string.upper(tostring(u.InterfaceGuid))
     
106.         //**/
     
107.         winform.dtLv.addItem({..string.fromUtf16(u.Alias);mac;u.OutOctets;u.InOctets;"";"";..string.fromUtf16(u.Description)},i)
     
108. }
     
109. 
     
110. var mR = ..math.round
     
111. var atimer = win.timer(,500)
     
112. atimer.onTimer = function(hwnd,msg,id,tick){
     
113.         var nowT = netMonitor.getInfo()
     
114.         if(!agoT){
     
115.                 agoT = ..table.clone(nowT)
     
116.                 return;
     
117.         }
     
118.         for(i=1;nowT.NumEntries){
     
119.                 var a, n = agoT.table[ i ], nowT.table[ i ]
     
120.                
     
121.                 var aTx, aRx = a.OutOctets, a.InOctets
     
122.                 var nTx, nRx = n.OutOctets, n.InOctets
     
123.                
     
124.                 aTx ?= mR((nTx-aTx)/512, 2) + 'kb/s'
     
125.                 aRx ?= mR((nRx-aRx)/512, 2) + 'kb/s'
     
126.                
     
127.                 winform.dtLv.setItemText(nTx, i, 3)
     
128.                 winform.dtLv.setItemText(nRx, i, 4)
     
129.                 winform.dtLv.setItemText(aTx, i, 5)
     
130.                 winform.dtLv.setItemText(aRx, i, 6)
     
131.                
     
132.                 a.InOctets = nRx
     
133.                 a.OutOctets = nTx
     
134.         }
     
135. }
     
136. atimer.enable()
     
137. 
     
138. winform.show();
     
139. win.loopMessage()

复制代码

popdes

帮你补个图片O(∩_∩)O~

JacenHe

感谢分享代码，还是写的不错的，指针那一块可以不用raw.buffer也可以：

getInfo = function(){  
    var ret,pMibIfTable2 = dll.GetIfTable2({ptr p})
    var mibIfTable2 = ..raw.convert( pMibIfTable2.p,{int NumEntries})
     
    mibIfTable2 = ..raw.convert(pMibIfTable2.p, {
        int NumEntries;
        struct table[]={  
            length = mibIfTable2.NumEntries;
            MIB_IF_ROW2()
        };
    })
   
    freeMibTable(pMibIfTable2.p)
    return mibIfTable2;
}

土冒

Jacen.He 发表于 2017-11-1 20:28
感谢分享代码，还是写的不错的，指针那一块可以不用raw.buffer也可以：

原来还可以这样写，多谢版主指点，又学到了一点。。。

土冒

popdes 发表于 2017-11-1 20:07
帮你补个图片O(∩_∩)O~

互相学习了

JacenHe

小改了一下，提交到扩展库里了，示例：

import win.ui
import win.timer
/*DSG{{*/
var winform = win.form(text="网卡流量监控";right=1004;bottom=591)
winform.add(
dtLv={cls="listview";left=2;top=41;right=1001;bottom=563;edge=1;fullRow=1;gridLines=1;z=1}
)
/*}}*/

winform.dtLv.insertColumn("名称", 230)
winform.dtLv.insertColumn("MAC", 130)
winform.dtLv.insertColumn("总发送", 100)
winform.dtLv.insertColumn("总接收", 100)
winform.dtLv.insertColumn("上行", 100)
winform.dtLv.insertColumn("下行", 100)
winform.dtLv.insertColumn("描述", 300)
winform.dtLv.adjust = function(cx,cy){
    winform.dtLv.fillParent(7/*列序号*/);
}
winform.dtLv.setExtended(0x10000/*_LVS_EX_DOUBLEBUFFER*/)

import inet.monitor;
var prevNetInfo = inet.monitor.getInfo()
for(i=1;prevNetInfo.NumEntries){
    var u = prevNetInfo.table[ i ]
    var mac = ..string.format("%.2X-%.2X-%.2X-%.2X-%.2X-%.2X"
        ,string.unpack(u.PhysicalAddress)
    )
   
    winform.dtLv.addItem({u.Alias;mac;u.OutOctets;u.InOctets;"";"";u.Description},i)
}

var round = ..math.round
var netTimer = win.timer(,500)
netTimer.onTimer = function(hwnd,msg,id,tick){
    var netInfo = inet.monitor.getInfo()
    if(!prevNetInfo){
        prevNetInfo = ..table.clone(netInfo)
        return;
    }
   
    for(i=1;netInfo.NumEntries){
        var a, n = prevNetInfo.table[ i ], netInfo.table[ i ]
        
        var aTx, aRx = a.OutOctets, a.InOctets
        var nTx, nRx = n.OutOctets, n.InOctets
        
        aTx ?= round((nTx-aTx)/512, 2) + 'kb/s'
        aRx ?= round((nRx-aRx)/512, 2) + 'kb/s'
        
        winform.dtLv.setItemText(nTx, i, 3)
        winform.dtLv.setItemText(nRx, i, 4)
        winform.dtLv.setItemText(aTx, i, 5)
        winform.dtLv.setItemText(aRx, i, 6)
        
        a.InOctets = nRx
        a.OutOctets = nTx
    }
}
netTimer.enable()

winform.show();
win.loopMessage()