VB 域名转换IP地址函数

它可以将一个域名转换成对应的IP地址。
调用FORM代码示例:

Private Sub Form_Load()
    MsgBox DomainNameToIP("http://miaozk2006.blog.163.com")
End Sub

Module:

Option Explicit

Private Type HOSTENT
    hName As Long
    hAliases As Long
    hAddrType As Integer
    hLength As Integer
    hAddrList As Long
End Type

Private Type WSADATA
    wversion As Integer
    wHighVersion As Integer
    szDescription(0 To 256) As Byte
    szSystemStatus(0 To 128) As Byte
    iM