主题：微信号中移动测试里面订单案例中用户管理和扫描输入功能怎么做出来？

Static CreateTime As Date '记录最近一次生成Ticket 的时间

Static Ticket As String '记录最近一次生成的Ticket

Dim tp As TimeSpan = Date.Now - CreateTime

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/get_jsapi_ticket?access_token={0}"

If tp.TotalSeconds > 7200 Then

    Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))

    Dim ret As String = hc.GetData()

    If ret = "" Then '如果失败,再尝试一次

        hc.GetData()

    End If

    CreateTime = Date.Now()

    Dim jo As JObject = JObject.Parse(ret)

    If jo("errcode") = "0" Then

        Ticket = jo("ticket")

    Else

        MessageBox.show("获取jsapi_ticket,原因:" & vbcrlf & jo.ToString)

    End If

End If

Dim signature As String = CExp("jsapi_ticket={0}&noncestr={1}&timestamp={2}&url={3}",Ticket,args(0),args(1),args(2))

Return Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(signature, "SHA1").ToLower()