vb 提取网址字符

楼上的FixURL函数多少有点问题，如果网址是http://www.baidu.com则会出错

Private Function FixURL(strURL As String) As String
FixURL = ""
Dim oRegExp
Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.IgnoreCase = True
oRegExp.Global = True
oRegExp.Pattern = "(\w+):\/\/([^/:]+)(:\d*)?([^# ]*)"
If oRegExp.Test(strURL) Then
FixURL = oRegExp.Replace(strURL, "$2")
End If
End Function

你是把地址复制进一个textbox，然后提取吗？

如果是这样的话

dim URLStr as String
dim tmpStr as String
dim hostStr as String

按钮事件
URLStr = textbox1.text
tmpStr = split(URLStr, "http://")
hostStr = split(tmpStr, "/")(0)

hostStr 就是你要提取出来的网址

至于加hosts，不太清楚你到底想加成什么样子