Question

如何用VB Winsock控件获得输入网站的IP地址 程序应该怎么写

Answer 1

添加一个winsock控件，NAME: Winsock1
原理是，给winsock指定连接的hostname，成功后，读取 remotehostip

Private Sub Command1_Click()
MsgBox Winsock1.RemoteHostIP
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "www.baidu.com"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub

Answer 2

Private Declare Function icePub_tcpDomain2ip Lib "icePubDll.dll" (ByVal strDomain As String, ByVal strIP As String) As Integer

Dim strIP As String

strIP =Space(128)
a2= icePub_tcpDomain2ip ("www.baidu.com",strIP )
MsgBox strIP