【以下是一个网友的问题 】

从网站http://whois.aizhan.com/reverse-whois/?q=baidu.com&t=domain中查询

用Inet提取  5 和 19 分别放入ListView1   

ListView1

1列     2列    3列

baidu.com   5   19

如何编写?

Dim s As String
s = LTrim(Text1.Text)'想把他改成批量导入查询，TXT文档内容如：baidu.com  XX.com  XXX.com
On Error Resume Next
Inet1.Execute "http://whois.aizhan.com/reverse-whois/?q=" & s, "get"

最终提取 放到 ListView1

1列     2列    3列

baidu.com   5   19

XX.com    X  XXX

xxx.com  x  x

【回答的程序如下，符合要求可以到留言薄索取源代码】