.NET微信小程序獲取用戶手機號

官方文檔地址：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>   上面是獲取手機號五部曲

 

獲取手機號一共需要五步

 

第一步：使用button組件；設置open-type屬性值為getPhoneNumber，設置bindgetphonenumber事件的方法

（ps:截至到目前必須使用button，官方的按鈕，我使用的第三方Vantn按鈕也支持，有的人覺得按鈕跟小程序里的UI組件有差異不美觀，我是這樣做的，去掉官方按鈕的默認樣式，自己根據第三發的組件樣式來改並不是改的一模一樣，只要不影響美觀就好了）

<button open-type="getPhoneNumber" bindgetphonenumber="getPhoneNumber"></button>

第二步：通過上一步綁定的方法getPhoneNumber獲取iv和encryptedData，此時還缺少session_key

getPhoneNumber (e) {
    console.log(e.detail.iv)            //加密算法的初始向量
    console.log(e.detail.encryptedData) //包括敏感數據在內的完整用戶信息的加密數據
  }

第三步：使用wx.login獲取code

wx.login({
      success(res) {
        if (res.code) {
          app.globalData.code = res.code //res.code重點為了獲取session_key
        } else {
        }
      }
    })

第四步：獲取到code之后，傳入自己的API接口中獲取session_key

（ps:接口是VB.NET webservice。個人覺得不會VB沒有關系，只要有基礎不管你用的JAVA、C#均可看懂以下代碼）

    //https://api.weixin.qq.com/sns/jscode2session  微信官方API
    //需要三個參數：appid：小程序ID(AppID);secret:小程序密鑰(AppSecret);grant_type：授權類型，此處只需填寫 authorization_code;js_code：通過 wx.login 接口獲得臨時登錄憑證 code
    Public Function GetSessionKey() As Boolean
        Dim relust As Boolean = False
        Try
            Dim urlStr As String = "https://api.weixin.qq.com/sns/jscode2session"
            Dim currStr As String = "appid=" & iWeiChatInfo.appid & "&secret=" & iWeiChatInfo.secret & "&js_code=" & iWeiChatInfo.js_code & "&grant_type=" + iWeiChatInfo.grant_type
            Dim jsonStr As String = httpHelper.GetData(urlStr, currStr)
            Dim ijson As New JavaScriptSerializer
            iSessionKeyInfo = ijson.Deserialize(Of SessionKeyInfo)(jsonStr)
        Catch ex As Exception
        End Try
    End Function

Imports System.Net
Imports System.IO
Imports System.Text
Public Class httpHelper
    Public Shared Function GetData(ByVal url As String, ByVal data As String) As String
        Dim request As HttpWebRequest = WebRequest.Create(url + "?" + data)
        request.Method = "GET"
        Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
        Return sr.ReadToEnd
    End Function
    Public Shared Function PostData(ByVal url As String, ByVal data As String) As String
        ServicePointManager.Expect100Continue = False
        Dim request As HttpWebRequest = WebRequest.Create(url)
        'Post請求方式
        request.Method = "POST"
        '內容類型
        request.ContentType = "application/x-www-form-urlencoded"
        '將URL編碼后的字符串轉化為字節
        Dim encoding As New UTF8Encoding()
        Dim bys As Byte() = encoding.GetBytes(data)
        '設置請求的 ContentLength 
        request.ContentLength = bys.Length
        '獲得請 求流
        Dim newStream As Stream = request.GetRequestStream()
        newStream.Write(bys, 0, bys.Length)
        newStream.Close()
        '獲得響應流
        Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)
        Return sr.ReadToEnd
    End Function
End Class

第五步：此時iv、encryptedData、session_key三個參數我們有了值使用Encrypt.DecryptAesForWeChart方法進行AES解密

Public Class Encrypt
    Public Shared Function DecryptAesForWeChart(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String    '使用標准AES對稱解密 
        Try
            Dim aes As New System.Security.Cryptography.AesCryptoServiceProvider 'DES算法  
            Dim buffer As Byte() = Convert.FromBase64String(SourceStr)
            aes.Key = Convert.FromBase64String(myKey)
            aes.IV = Convert.FromBase64String(myIV)
            aes.Mode = System.Security.Cryptography.CipherMode.CBC
            aes.Padding = System.Security.Cryptography.PaddingMode.PKCS7
            Dim ms As New System.IO.MemoryStream(buffer)
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, aes.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New System.IO.StreamReader(cs)
            Return sr.ReadToEnd()
        Catch ex As Exception
            Return ""
        End Try
    End Function
    
    Public Shared Function EncryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String '使用的DES對稱加密
        Try
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法  
            Dim inputByteArray As Byte()
            inputByteArray = System.Text.Encoding.Default.GetBytes(SourceStr)
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8個字符，TripleDES要24個字符  
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8個字符，TripleDES要24個字符  
            Dim ms As New System.IO.MemoryStream
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateEncryptor(), System.Security.Cryptography.CryptoStreamMode.Write)
            Dim sw As New System.IO.StreamWriter(cs)
            sw.Write(SourceStr)
            sw.Flush()
            cs.FlushFinalBlock()
            ms.Flush()
            EncryptDes = Convert.ToBase64String(ms.GetBuffer(), 0, ms.Length)
        Catch ex As Exception
            Return ""
        End Try
    End Function

    Public Shared Function DecryptDes(ByVal SourceStr As String, ByVal myKey As String, ByVal myIV As String) As String    '使用標准DES對稱解密 
        Try
            Dim des As New System.Security.Cryptography.DESCryptoServiceProvider 'DES算法  
            des.Key = System.Text.Encoding.UTF8.GetBytes(myKey) 'myKey DES用8個字符，TripleDES要24個字符  
            des.IV = System.Text.Encoding.UTF8.GetBytes(myIV) 'myIV DES用8個字符，TripleDES要24個字符  
            Dim buffer As Byte() = Convert.FromBase64String(SourceStr)
            Dim ms As New System.IO.MemoryStream(buffer)
            Dim cs As New System.Security.Cryptography.CryptoStream(ms, des.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Read)
            Dim sr As New System.IO.StreamReader(cs)
            Return sr.ReadToEnd()
        Catch ex As Exception
            Return ""
        End Try
    End Function
End Class

最后通過接口返回就OK