عبد الله قدور قام بنشر أكتوبر 24, 2021 مشاركة قام بنشر أكتوبر 24, 2021 السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم اخواني الكريم بعد بحث مطول عن كود ارسال رسائل الواتس اب عن طريق الاكسس حصلت على هذا الكود لكني لم استطيع تحديد المتغيرات المطلوب اضافتها في الكود وهي 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 رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر أكتوبر 24, 2021 مشاركة قام بنشر أكتوبر 24, 2021 هذا الموضوع ممكن يفيدك ...... في ٢٤/٩/٢٠٢٠ at 21:02, kanory said: السلام عليكم ورحمة الله وبركاته طرح في موضوع سابق موضوع رسائل الواتس اضع بين يديكم برنامج يقوم بارسال رسائل الواتس بدون حفظ الرقم في جهات الاتصال ويمكن استخدامه وتطويره لارسال رسائل للعملاء مثلا جربوه واعطونا انطباعكم حوله لتطويره والاستفادة منه ملاحظة هامة يجب تنصيب رنامج الواتس في جهازك ليعمل البرنامج هناك مدة زمنية وضعتها في الكود للتنفيذ مقدارها 40 يمكنك تغييرها ليتناسب مع سرعة جهازك ...... الطريقة سهله أوضحها باختصار مع اقتران كل شرح بالصورة ..... أولا : الذهاب للرابط https://www.whatsapp.com/download وتحميل برنامج الواتس حسب نسخة الويندوز لديك ( 64 - 32 )bit ثانيا: تشغيل برنامج الواتس والتسجيل عن طريق حسابك في الواتس وذلك بمسح البركود الظاهر في البرنامج من خلال البرنامج ( حسب الصورة ) ثالثا : عند اول تشغيل تظهر لك من خلال المتصفح رسالة بالسماح بفتح الارتباط بهذا النوع ( ضع علامة صح مثل الصورة ) رابعا : عند عمل البرنامج للمرة الثانية لا يحتاج تكرار هذه العمليات ( فقط انتظر اتمام المهمة ) هناك في الكود زمن افتراضي وضعته هو 40 ثانية أن رأيت جهازك والنت سريع حاول تقليل الزمن لكسب سرعة في الارسال أو العكس بالعكس تسجيل الارقام بالصيغة الدولية .... منتظر انطباعاتكم حول البرنامج ؟؟؟؟ WhatsApp_kan.accdb 596 kB · 479 downloads هنا تجدون الموضوع السابق ...... رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر أكتوبر 24, 2021 الكاتب مشاركة قام بنشر أكتوبر 24, 2021 اخي الكريم الطريقة المعروضة في الفيديو في الموقع هي افضل بكثير من هذه الطريقة يمكنك مراجعة الموقع والكود الرابط رابط هذا التعليق شارك More sharing options...
Amr Ashraf قام بنشر أكتوبر 24, 2021 مشاركة قام بنشر أكتوبر 24, 2021 السلام عليكم .. بحثت فى الموضوع لأنى شكيت انها لا علاقة لها بالواتس اساسا وفعلا هيا خدمة بتولد Tokens يتم استخدامها فى المصادقات من هذا النوع .. أعتقد يا أخى ان الخدمة دى مدفوعة لأنها سيرفر او كلاود على النت .. ده طبقا للبحث السريع اللى قمت بيه .. انظر الرابط يمكن تستفيد اكتر https://developers.google.com/instance-id رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان