程序执行时遇到下面问题，报错后不用做任何调整，再一次执行就没事
Dim s = System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(val, "MD5").Tolower
'Output.Show(s)
MessageBox.Show("1" & s)
jo("mac") = s.ToString
jo("transfertype") = "json"
Dim ss As String = CompressJson(jo)
Dim encode As String = Convert.ToBase64String(Encoding.UTF8.GetBytes(ss))
MessageBox.Show("2" & encode)
hc.content = encode
'程序走到这里有时就会报错，上面执行都没问题，这里提示 【请求被中止: 操作超时。】【Error reading JObject from JsonReader. Path '', line 0, position 0.】
Dim ret As String = hc.GetData()
MessageBox.Show(ret.Length) - ----报错时 这里显示0
Dim jo1 As JObject = JObject.Parse(ret)