我有一个问题，而发送WhatsApp消息给我的客户使用excel vba，一切都很好，直到我更新了windows 10，然后代码被打破

Option Explicit
Sub WhatsAppMsg()

Dim LastRow As Long
Dim i As Integer
Dim strip As String
Dim strPhoneNumber As String
Dim strMessage As String
Dim strPostData As String
Dim IE As Object

LastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow

    strPhoneNumber = Sheets("Sheet1").Cells(i, 1).Value
    strMessage = Sheets("Sheet1").Cells(i, 2).Value
    ActiveSheet.Shapes(1).Copy
    
        
        strPostData = "whatsapp://send?phone=" & strPhoneNumber & "&text=" & strMessage
        Set IE = CreateObject("InternetExplorer.Application")
        IE.navigate strPostData
        
        Application.Wait (Now + TimeValue("00:00:05"))
                
                
        Call SendKeys("^v")

        Application.Wait (Now + TimeValue("00:00:05"))
        
        Call SendKeys("{ENTER}", True)
        

Next i

End Sub