官方文档地址：https://developers.weixin.qq.com/miniprogram/dev/framework/open-ability/getPhoneNumber.html
| 功能 | 介绍 | 使用方法 |
| 获取手机号 |
获取微信用户绑定的手机号，需先调用wx.login接口。
因为需要用户主动触发才能发起获取手机号接口，所以该功能不由 API 来调用，需用 button 组件的点击来触发。
注意：目前该接口针对非个人开发者，且完成了认证的小程序开放（不包含海外主体）。需谨慎使用，若用户举报较多或被发现在不必要场景下使用，微信有权永久回收该小程序的该接口权限。
|
wx.login获取的code有效期为5分钟，5分钟后需要重新获取。
<button open-type="getPhoneNumber" bindgetphonenumber="getPhoneNumber"></button>
上面是获取手机号五部曲
|
获取手机号一共需要五步
1 <button open-type="getPhoneNumber" bindgetphonenumber="getPhoneNumber"></button>
1 getPhoneNumber (e) { 2 console.log(e.detail.iv) //加密算法的初始向量 3 console.log(e.detail.encryptedData) //包括敏感数据在内的完整用户信息的加密数据 4 }
1 wx.login({ 2 success(res) { 3 if (res.code) { 4 app.globalData.code = res.code //res.code重点为了获取session_key 5 } else { 6 } 7 } 8 })
1 //https://api.weixin.qq.com/sns/jscode2session 微信官方API 2 //需要三个参数：appid：小程序ID(AppID);secret:小程序密钥(AppSecret);grant_type：授权类型，此处只需填写 authorization_code;js_code：通过 wx.login 接口获得临时登录凭证 code 3 Public Function GetSessionKey() As Boolean 4 Dim relust As Boolean = False 5 Try 6 Dim urlStr As String = "https://api.weixin.qq.com/sns/jscode2session" 7 Dim currStr As String = "appid=" & iWeiChatInfo.appid & "&secret=" & iWeiChatInfo.secret & "&js_code=" & iWeiChatInfo.js_code & "&grant_type=" + iWeiChatInfo.grant_type 8 Dim jsonStr As String = httpHelper.GetData(urlStr, currStr) 9 Dim ijson As New JavaScriptSerializer 10 iSessionKeyInfo = ijson.Deserialize(Of SessionKeyInfo)(jsonStr) 11 Catch ex As Exception 12 End Try 13 End Function
1 Imports System.Net 2 Imports System.IO 3 Imports System.Text 4 Public Class httpHelper 5 Public Shared Function GetData(ByVal url As String, ByVal data As String) As String 6 Dim request As HttpWebRequest = WebRequest.Create(url + "?" + data) 7 request.Method = "GET" 8 Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream) 9 Return sr.ReadToEnd 10 End Function 11 Public Shared Function PostData(ByVal url As String, ByVal data As String) As String 12 ServicePointManager.Expect100Continue = False 13 Dim request As HttpWebRequest = WebRequest.Create(url) 14 ‘Post请求方式 15 request.Method = "POST" 16 ‘内容类型 17 request.ContentType = "application/x-www-form-urlencoded" 18 ‘将URL编码后的字符串转化为字节 19 Dim encoding As New UTF8Encoding() 20 Dim bys As Byte() = encoding.GetBytes(data) 21 ‘设置请求的 ContentLength 22 request.ContentLength = bys.Length 23 ‘获得请 求流 24 Dim newStream As Stream = request.GetRequestStream() 25 newStream.Write(bys, 0, bys.Length) 26 newStream.Close() 27 ‘获得响应流 28 Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream) 29 Return sr.ReadToEnd 30 End Function 31 End Class
1 Public Class Encrypt 2 Public Shared Function DecryptAesForWeChart(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String ‘使用标准AES对称解密 3 Try 4 Dim aes As New System.Security.Cryptography.AesCryptoServiceProvider ‘DES算法 5 Dim buffer As Byte() = Convert.FromBase64String(SourceStr) 6 aes.Key = Convert.FromBase64String(myKey) 7 aes.IV = Convert.FromBase64String(myIV) 8 aes.Mode = System.Security.Cryptography.CipherMode.CBC 9 aes.Padding = System.Security.Cryptography.PaddingMode.PKCS7 10 Dim ms As New System.IO.MemoryStream(buffer) 11 Dim cs As New System.Security.Cryptography.CryptoStream(ms, aes.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read) 12 Dim sr As New System.IO.StreamReader(cs) 13 Return sr.ReadToEnd() 14 Catch ex As Exception 15 Return "" 16 End Try 17 End Function 18 19 Public Shared Function EncryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String ‘使用的DES对称加密 20 Try 21 Dim des As New System.Security.Cryptography.DESCryptoServiceProvider ‘DES算法 22 Dim inputByteArray As Byte() 23 inputByteArray = System.Text.Encoding.Default.GetBytes(SourceStr) 24 des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) ‘myKey DES用8个字符，TripleDES要24个字符 25 des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) ‘myIV DES用8个字符，TripleDES要24个字符 26 Dim ms As New System.IO.MemoryStream 27 Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write) 28 Dim sw As New System.IO.StreamWriter(cs) 29 sw.Write(SourceStr) 30 sw.Flush() 31 cs.FlushFinalBlock() 32 ms.Flush() 33 EncryptDes = Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length) 34 Catch ex As Exception 35 Return "" 36 End Try 37 End Function 38 39 Public Shared Function DecryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String ‘使用标准DES对称解密 40 Try 41 Dim des As New System.Security.Cryptography.DESCryptoServiceProvider ‘DES算法 42 des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) ‘myKey DES用8个字符，TripleDES要24个字符 43 des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) ‘myIV DES用8个字符，TripleDES要24个字符 44 Dim buffer As Byte() = Convert.FromBase64String(SourceStr) 45 Dim ms As New System.IO.MemoryStream(buffer) 46 Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read) 47 Dim sr As New System.IO.StreamReader(cs) 48 Return sr.ReadToEnd() 49 Catch ex As Exception 50 Return "" 51 End Try 52 End Function 53 End Class
最后通过接口返回就OK
原文：https://www.cnblogs.com/wuxinheng/p/12967130.html