易语言调用wincap实现网卡抓包

调用wincap实现网卡抓包

@Taisy

.版本 2
.支持库 spec

.子程序 _临时子程序
.局部变量 Wincap, Wincap
.局部变量 errbuf, 文本型
.局部变量 Allpcap_if, pcap_if, , "0"
.局部变量 CaptureData_length
.局部变量 CaptureData_data, 字节集
.局部变量 SendData_data, 字节集

' ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
' 调试输出 (Wincap.GetAllDevice (Allpcap_if, errbuf))
' 调试输出 (Wincap.OpenDevice (Allpcap_if [2].name, errbuf))
' ' 调试输出 (Wincap.CaptureData (CaptureData_length, CaptureData_data), Wincap.Binary2String (CaptureData_data))
' SendData_data ＝ { 123 }
' 调试输出 (Wincap.SendData (SendData_data, bytesLen (SendData_data), errbuf), errbuf)
SendData_data ＝ { 1, 2, 3, 4, 5 }
调试输出 (Wincap.ip_header_cksum (取变量数据地址 (SendData_data), 取字节集长度 (SendData_data)))