我用weui做界面，调用钉钉扫码接口为什么出不来？1.界面代码
Dim fl As String = "D:\fox项目\管理项目1\" & e.path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Select Case e.Path
Case "scan.htm"
Dim wb As New weui
wb.AppendHTML("<script src='http://g.alicdn.com/dingding/open-develop/1.9.0/dingtalk.js'></script>",True) '引入JS-SDK库
wb.AppendHTML("<script src='./lib/jssdk.js'></script>") '引入脚本文件
wb.AddForm("","form1","scan.htm")
With wb.AddInputGroup("form1","ipg1","产品检测")
.AddInput("product","产品","text")
With .AddInputCell("ic1")
.AddLabel("lbh","编号",0)
.AddInput("number","text",1)
.AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
End Select
2.调用钉钉接口，按照开发文档，新建了lib/jssdk.js文件，代码为：
dd.ready(Function(){
document.getElementById('scan').onclick = function () {
dd.biz.util.scan({
type: all,
onSuccess: Function (data) {
document.getElementById('number').value = data.resultStr;
}
});
};
}
但在钉钉微应用中打开这个界面，按扫码输入按钮，没有反应，调不出钉钉扫码接口。肯请帮忙指导一下。
加好友 
发短信
Post By：2018/6/22 21:18:00 [只看该作者]
