مساعده في كود api

[CFAMURAD]

السلام عليكم ورحمه الله وبركاته وبها نبدأ اي موضوع

 

انا بحاول اربط GREEN API  

عباره عن ارسال رسائل من خلال api    للاواتساب

بس بحاول احط الكود و بعمل تشغيل ما بجاوب   

Sub SendMessage()
    Dim URL As String
    Dim RequestBody As String
    Dim http As Object

    ' استبدل القيم الفعلية لـ idInstance و apiTokenInstance
    URL = "https://console.green-api.com/instanceList/tariff/result?status=success&curTariff=DEVELOPER/waInstance7103936196/sendMessage/e99699119c394b29afa9beb144a8497698eb7f281b084a1089"

    ' تحديد رقم الهاتف ونص الرسالة
       RequestBody = "{""chatId"":""00970599335525@c.us"",""message"":""Hello World""}"

    Set http = CreateObject("MSXML2.XMLHTTP")

    With http
        .Open "POST", URL, False
        .setRequestHeader "Content-Type", "application/json"
        .Send RequestBody
    End With

    Set http = Nothing

End Sub

ايش رايكم .