试试
Dim hc As New HttpClient(http://netocr.com/api/recog.Do)
'设置参数
hc.Timeout = 5 '秒
hc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.143 Safari/537.36")
hc.FormData.Add("key","xxxx")
hc.FormData.Add("secret","xxxx")
hc.FormData.Add("typeId","2")
hc.FormData.Add("format","ddddd")
'添加文件
hc.Files.Add("file","C:\图片2\IMAG3622.jpg")
Output.Show(hc.GetData())
或者
Dim hc As New HttpClient(http://netocr.com/api/recog.Do)
'设置参数
hc.Timeout = 5 '秒
hc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.143 Safari/537.36")
hc.C
'添加文件
hc.Files.Add("file","C:\图片2\IMAG3622.jpg")
Output.Show(hc.GetData())