就是想做交互，现在想先实现微信扫码可以看到狐表里的内容不知道该如何实现
Dim loginid As String = Guid.NewGuid().ToString() '生成Guid
Dim d As Date = Date.Now
Dim nonce As Integer = (loginid & d).GetHashCode '生成随机值
Dim url As String = "http://127.0.0.1/scanlogon?n&token=" & urlencode(EncryptText(loginid,nonce,Vars("dkey"))) '生成包含加密串的URL,这里必须用urlencode编码特殊字符
Dim sql As String = "select * fro m uSysWeChatLogin where 1=2" '加载空表,因为登录都是新增记录
'因为没有加载登录表,所以用SQLCommand取值
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = sql
Dim dt As DataTable = cmd.ExecuteReader(True)
Dim dr As DataRow = dt.AddNew '增加登录记录
dr("LoginID") = loginid '登录ID
dr("OpenTime") = d '打开项目生成二维码时间
dr("State") = 0 '0为等待扫描
dr.Save
sql = "select [_Identify] fro m uSysWeChatLogin where LoginID='" & loginid & "'"
cmd.CommandText = sql
vars("id") = cmd.ExecuteScalar '保存后获取真正的主键值作为登录OpenQQ的用户
Functions.Execute("logtext",url) '记录日志,可以获取URL做本地测试
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
'Bar.Code = WeChat.WeChatOauth2Helper.GetOAuth2Uri(Vars("DevID"),url,False,Vars("DevID")) '生成授权的公众号URL作为二维码扫描结果
Bar.Code = 123456
Bar.QuietZoneWidth = 0
Bar.QRCodeModuleSize = 0.5 '影响生成的图片大小
Functions.Execute("logtext",Bar.Code )
Return Bar.GetImage
现在这样是可以微信扫描二维码出现"123456"的结果，我想怎样才能出现狐表里面做的一张表的内容
加好友 
发短信
Post By：2017/10/12 14:30:00 [显示全部帖子]
