每次请求都需要一个新的
HttpClient
Dim http,gd As String
http = "http://192.168.3.27:10086/clientShipYMCheck.htm"
Dim hc As New HttpClient(http)
Dim od As String = "2259"
hc.FormData.Add("md","LoadPur")
hc.FormData.Add("id",od)
hc.Timeout = 100
gd = hc.GetData()
hc = New HttpClient(http)
hc.FormData.Add("md","LoadTransQty")
hc.FormData.Add("id",od)
hc.Timeout = 100
gd = hc.GetData()