主题：网站收索

 路径要进行一下编码

Dim str As String = "锤子科技"
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toUrl() {return encodeURI('" & str & "')}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    str = .Run("toUrl")
End With

Dim proc As new Process
proc.File = "http://qichacha.com/search?key=" & str & "&index=0"
proc.Start