这是C#UINT，只能转成vb。net，如果要用vb6实现这个功能另算。
vb。net代码：
Dim dummy As UInteger = 0
Dim inOptionValues As Byte() = New Byte(Marshal。
SizeOf(dummy) * 3 – 1) {}
BitConverter。GetBytes(CUInt(1))。CopyTo(inOptionValues, 0)
‘是否启用Keep-Alive
BitConverter。GetBytes(CUInt(5000))。
CopyTo(inOptionValues, Marshal。SizeOf(dummy))
‘多长时间开始第一次探测
BitConverter。GetBytes(CUInt(5000))。CopyTo(inOptionValues, Marshal。
SizeOf(dummy) * 2)
‘探测时间间
希望能给你帮助！！。
版权声明：本站部分文章来源互联网,主要目的在于分享信息,版权归原作者所有,本站不拥有所有权,不承担相关法律责任,如有侵权请联系我们,本站将立刻删除。