以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  Dim hc As New HttpClient 怎么用变量的写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108723)

--  作者：fubblyc --  发布时间：2017/10/27 20:32:00 --  Dim hc As New HttpClient 怎么用变量的写 老师，以下标黄色的的写法是不对的，但是不知道怎么写。。。 Dim hc As  New HttpClient             这样写不对 If zhangtao = "A"     hc(CExp(url,Functions.Execute("GetAccessToken",appid,appsecret)))  hc这样写应该也不对 ElseIf zhangtao = "B"     hc(CExp(url,Functions.Execute("GetAccessTokenshandong",appid,appsecret))) End If Dim jo As New JObject jo("card_id") = cardid jo("code") = qh jo("check_consume") = False hc.Content = jo.ToString() jo = JObject.Parse(hc.GetData)

--  作者：有点蓝 --  发布时间：2017/10/27 20:43:00 --   必须指定一个网络地址 Dim hc As New HttpClient("http://127.0.0.1/gettime.htm")