Net.ServicePointManager.SecurityProtocol = Net.SecurityProtocolType.Tls12
Dim hc As New HttpClient("https://thirdpart-test.msunhis.com/msun-middle-business-lis/v1/lis-reports/third-reports")
hc.Headers.Add("appId", "app12345678")
hc.Headers.Add("hospitalId", "10016001")
hc.Headers.Add("orgId", "10017")
Dim timestamp As String = Rand.NextString(13)
hc.Headers.Add("timestamp", timestamp)
hc.Headers.Add("signType", "RSA2")
hc.Headers.Add("sign", "签名加密计算的结果")
hc.ContentType = "application/json"
hc.Content = "需要提交的json数据"
Dim ret As String = hc.GetData()
MessageBox.Show(ret)
[此贴子已经被作者于2025/4/3 9:38:50编辑过]
加好友 
发短信
Post By：2025/4/3 9:38:00 [显示全部帖子]
