如何获取动态域名对应的IP地址

Question

VB编程:如何获取动态域名对应的IP地址

Answer 1

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 2

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 3

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 4

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 5

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 6

一个简单的思路：使用ping.exe
shell "ping.exe www.csdn.net >c:\1.txt",vbhide
从1.txt（此例中读取为result as string）中可以提取ip地址：
startpos=instr(result,"www.csdn.net")+len("www.csdn.net")+2
endpos=instr(result,"]",startpos)
ip=mid(result,startpos,endpos-startpos)[code=BatchFile]Pinging www.csdn.net [211.100.26.121] with 32 bytes of data:Reply from 211.100.26.121: bytes=32 time=343ms TTL=54Reply from 211.100.26.121: bytes=32 time=241ms TTL=54Reply from 211.100.26.121: bytes=32 time=473ms TTL=54Reply from 211.100.26.121: bytes=32 time=385ms TTL=54Ping statistics for 211.100.26.121:    Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),Approximate round trip times in milli-seconds:    Minimum = 241ms, Maximum = 473ms, Average = 360ms[/code]

Answer 7

靠……
麻烦版主删一下……估计是昨晚CSDN的系统出问题了。