تحديد ماهية المتغيرات المطلوبة في الكود

[عبد الله قدور]

السلام عليكم ورحمة الله وبركاته

اسعد الله اوقاتكم اخواني الكريم

بعد بحث مطول عن كود ارسال رسائل الواتس اب عن طريق الاكسس حصلت على هذا الكود لكني لم استطيع تحديد المتغيرات المطلوب اضافتها في الكود

وهي

INSTANCE_ID = "YOUR_INSTANCE_ID_HERE"

CLIENT_ID = "YOUR_CLIENT_ID_HERE"

CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE"

Sub Main_Routine()
  ''' The first parameter is the recipient's number, including the country code.
  ''' The second paramter is the content of the message.
  WhatsAppMessage_Send "12025550108", "God Loves You"   ''' TODO: Specify the recipient's number here. NOT the gateway number
End Sub


Sub WhatsAppMessage_Send(ByRef strNumber As String, ByRef strMessage As String)
  Dim INSTANCE_ID As String, CLIENT_ID As String, CLIENT_SECRET As String, API_URL As String
  Dim strJson As Variant
  Dim sHTML As String
  Dim oHttp As Object
  
  ''' TODO: Replace the following with your gateway instance ID, your Forever Green client ID and secret:
  INSTANCE_ID = "YOUR_INSTANCE_ID_HERE"
  CLIENT_ID = "YOUR_CLIENT_ID_HERE"
  CLIENT_SECRET = "YOUR_CLIENT_SECRET_HERE"
  API_URL = "http://api.whatsmate.net/v3/whatsapp/single/text/message/" & INSTANCE_ID

  strJson = "{""number"": """ & strNumber & """, ""message"": """ & strMessage & """}"

  Set oHttp = CreateObject("Msxml2.XMLHTTP")
  oHttp.Open "POST", API_URL, False
  oHttp.setRequestHeader "Content-type", "application/json"
  oHttp.setRequestHeader "X-WM-CLIENT-ID", CLIENT_ID
  oHttp.setRequestHeader "X-WM-CLIENT-SECRET", CLIENT_SECRET
  oHttp.Send strJson

  sHTML = oHttp.ResponseText
  MsgBox sHTML
End Sub

 

[ناقل]

هذا الموضوع ممكن يفيدك ......

في ٢٤‏/٩‏/٢٠٢٠ at 21:02, kanory said:

السلام عليكم ورحمة الله وبركاته 

طرح في موضوع سابق موضوع رسائل الواتس

اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا

جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه

ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج

هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40  يمكنك تغييرها ليتناسب مع سرعة جهازك ......

 

 

الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... 

أولا : الذهاب للرابط https://www.whatsapp.com/download  وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit

ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة )

ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة )

رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40  ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية ....

 

 

 

 

منتظر انطباعاتكم حول البرنامج ؟؟؟؟

 

 

WhatsApp_kan.accdb 596 kB · 479 downloads

هنا تجدون الموضوع السابق ......

 

 

[عبد الله قدور]

اخي الكريم

الطريقة المعروضة في الفيديو في الموقع هي افضل بكثير من هذه الطريقة يمكنك مراجعة الموقع والكود

الرابط

[Amr Ashraf]

السلام عليكم .. بحثت فى الموضوع لأنى شكيت انها لا علاقة لها بالواتس اساسا وفعلا هيا خدمة بتولد Tokens يتم استخدامها فى المصادقات من هذا النوع .. أعتقد يا أخى ان الخدمة دى مدفوعة لأنها سيرفر او كلاود على النت .. ده طبقا للبحث السريع اللى قمت بيه .. انظر الرابط يمكن تستفيد اكتر 

https://developers.google.com/instance-id