参考代码
Dim key = "7a84a3bd76644302***1bf352b976f"
Dim secret = "0E485858BA****174A69C8C4310570B4"
Dim keyword = "小桔科技"
Dim st As New Date(1970,1,1,8,0,0)
Dim tp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim Token = key & tp & secret
token = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(token, "MD5").ToUpper()
Dim hc As New HttpClient("http://api.qichacha.com/ECIV4/Search?key=" & key & "&keyword=" & keyword)
hc.Headers.Add("Token", Token)
hc.Headers.Add("Timespan", tp)
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)
请用网站里面的【测试工具】测试你的各个参数