这里是一个组件 http://hi.youkuaiyun.com/attachment/201105/13/0_1305272744nuOS.gif 这是下载地址 下载改改成rar 文件
使用方法
Dim ht As New Hashtable
Dim url As String
Dim doc As String
Dim ua As New UserAgent
url = "http://cwhois.cnnic.cn/whois"
ht.Add("entity", "domain")
ht.Add("inputfield", "value")
ht.Add("value", TextBox7.Text)
ht.Add("vcinput", TextBox6.Text)
ht.Add("service", "%2Fwhois")
doc = ua.GetPage(url, ht) ‘
Debug.Print(doc)
这里就是一个post 提交
get 直接在url 里改上就可以了