45fan.com - 路饭网

搜索: 您的位置主页 > 无线路由器 > 阅读资讯:怎么样在vb使用Iphlpapi.dll获取网络信息?

怎么样在vb使用Iphlpapi.dll获取网络信息?

2016-09-04 07:18:19 来源:www.45fan.com 【

怎么样在vb使用Iphlpapi.dll获取网络信息?

※==================================================================
※本连载文章说明:
※1、连载首发于《软件报》(http://www.sweek.com)2006年21期(2006年5月22日);
※2、此次网上连载采用的是原稿件结构,内容与《软件报》发表略有不同;
※3、谢绝除《软件报》及其相关刊物之外的传统媒体部分或全部转载;
※4、谢绝任何收费媒体、网络转载;
※5、原作者:uruseibest ,blog:http://blog.csdn.net/uruseibest;
※6、如有其它疑问,请联系作者;
※7、如有转载,必须连同本说明一并发表,否则将追究转载者责任。
※======================================================================

第四节 实例二:探测到某个IP地址经过的路由列表

计算机在Internet中传递信息时,并不能直接从某一主机上得到去往另一主机的路径,必须通过路由将信息传到主机。发送ICMP报时,ICMP报头中包含了一个TTL设置,报文每当经过一个路由,TTL值相应的减1。当请求报文在传输过程中超时,即TTL被减为0,则该路由器返回一个目标不可达到报文;否则在TTL未被减少到0时,报文到达目标主机,则目标主机返回回应报文,表示数据可以正常到达。我们可以利用此原理,开始时将TTL设置为1,然后发出ICMP报,获得响应,检验地址是否是目标主机IP地址,是目标主机的话,表示到达目标主机;不是的话,返回的地址就是最后到达的路由器的地址,然后将TTL设置为2,重复以上过程,直至TTL设置为255

在这个例子中,将使用第二章第十九节所用到的函数、类型及常量(请参看第二章第十九节中的介绍),但对IcmpSendEcho函数声明作一点变化。

Private Declare Function IcmpSendEcho Lib "icmp.dll" ( _

ByVal IcmpHandle As Long, ByVal DestinationAddress As Long, _

ByVal RequestData As String, ByVal RequestSize As Long, _

RequestOptions As IP_OPTION_INFORMATION, ReplyBuffer As ICMP_ECHO_REPLY, _

ByVal ReplySize As Long, ByVal Timeout As Long) As Long

其中RequestOptions是指向IP头请求选项的IP_OPTION_INFORMATION类型的指针,可以为空。如果没有具体的要求,那么就设置为Long,在调用的时候传0;如果要设定IP头请求选项,那么这里设置为IP_OPTION_INFORMATION类型,在调用的时候传定义为IP_OPTION_INFORMATION类型的变量。

主要代码如下:

Dim RBuffer As ICMP_ECHO_REPLY

Dim pIOI As IP_OPTION_INFORMATION

Dim Realip As String

IcmpHandle = IcmpCreateFile() 创建一个Icmp句柄

RData = "Hi,Hello!"

RequestSize = Len(RData)

DAddr = inet_addr(Trim(Text1.Text)) 目标机IP地址的长整数形式

Timeout = 1000 超时设置,毫秒

ReplySize = Len(RBuffer)

For i = 1 To 255

pIOI.Ttl = I 设置TTL

DoEvents

r = IcmpSendEcho(IcmpHandle, DAddr, RData, RequestSize, pIOI, RBuffer, ReplySize + 8, Timeout) 发送Icmp报文

DoEvents

If r <> 1 Then List1.AddItem "错误,终止": Exit For 检测是否出错

Realip = inversaip(RBuffer.Address) 将长整型IP转为点数格式字符串IP

List1.AddItem i & " IP " & Realip & ":" & RBuffer.RoundTripTime & "ms"

If Realip = Trim(Text1.Text) Then Exit For 比较IP地址,如果相同则到达目标主机

Next

r = IcmpCloseHandle(IcmpHandle) 关闭Icmp句柄

程序运行时截图:

 

本文地址:http://www.45fan.com/a/wireless/71973.html
Tags: 获取 网络 Iphlpapi.dll
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部