以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]使用weui开发的自建应用web页面怎么直接调用企业微信通信录？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193830)
--  作者：YDS
--  发布时间：2024/10/18 16:52:00
--  [求助]使用weui开发的自建应用web页面怎么直接调用企业微信通信录？
使用weui开发的自建应用web页面怎么直接调用企业微信通信录？求大佬指点。
--  作者：有点蓝
--  发布时间：2024/10/18 16:55:00
--  
提交到后台通过接口调用：http://www.foxtable.com/mobilehelp/topics/0223.htm

如果要在前端使用js，可以调用jssdk：https://developer.work.weixin.qq.com/document/path/91793
--  作者：YDS
--  发布时间：2024/10/18 18:13:00
--  
jssdk.js要怎么写，我一直不对。
--  作者：YDS
--  发布时间：2024/10/18 18:16:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.Title = "员工选择"
wb.AppendHTML("<script src=\'https://res.wx.qq.com/open/js/jweixin-1.2.0.js\'></script>", True) \'引入JS-SDK库
wb.AppendHTML("<script src=\'./lib/jssdk.js\'></script>") \'引入脚本文件
\'在页面注入权限验证配置
Dim st As New Date(1970, 1, 1, 8, 0, 0)
Dim appid As String = "appid"
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) \'时间戳
Dim noncestr As String = Rand.NextString(16) \'随机字符
Dim url As String = "ryxz.htm" \'当前页面地址
Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url) \'生成权限验证签名
Dim cfg As String = "wx.config({appId:\'{0}\',timestamp:{1},nonceStr:\'{2}\',signature:\'{3}\',jsApiList:[\'invoke\']});"
wb.AppendHTML("<script>" & CExp(cfg, appid, timestamp, noncestr, signature) & "</script>", True)
\'开始正常生成网页内容
wb.AddForm("", "form1", "ryxz.htm")
With wb.AddInputGroup("form1", "ipg1", "人员选择")
    With .AddInputCell("ic1")
        .AddLabel("lry", "人员", 0)
        .AddInput("sry", "text", 1)
        .AddVcodeButton("ryxz", "人员选择", 2) 
    End With
End With
With wb.AddButtonGroup("form1", "btg1", True)
    .Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) \'生成网页
--  作者：有点蓝
--  发布时间：2024/10/19 8:47:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0248.htm