اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

مطلوب ارسال رسائل نصية عبر الواتس اب watsApp


الردود الموصى بها

السلام عليكم
مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة
ويريدون ارسال رسائل لهم
وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس
فهل من طريقة برمجية تساعد في ذلك

  • Like 5
  • Thanks 1
رابط هذا التعليق
شارك

9 ساعات مضت, ابوخليل said:

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

لبيك أخي ابوخليل:smile:

 

مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي:smile:

 

الكود غير مكتمل ، لكنه على الطريق الصحيح:

1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ،

2. انزل المرفق من الرابط ،

3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر

 

 

وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ،

يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ،

    Dim cmmd As String
    
    'how long does it take to take the picture
    istart = Timer
    
    'set BE_Path
    Call BE_or_FE
    
    'Adb location
    App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe"
    Save_images_to = BE_Path & "images\"
    

    'image capture mode
    cmmd = App_Location & " shell input keyevent 82" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell input tap 400 700" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
            
    cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    

 

المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه:smile:

وارجو منه يعطينا النتيجة:smile:

 

حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد:biggrin:

ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات:')

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat 

في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو
https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/

و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

تم تعديل بواسطه Shivan Rekany
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

ملاحظة اولية 

الرابط الذي يرسل الرسالة مشكوك في امره

رابط الواتساب ويب هو https://web.whatsapp.com/ ( لاحظ ان العنوان HTTPS اي ان البيانات محمية و مشفرة )

 

اما الرابط في الفيديو هو http://api.whatsmate.net/v2/whatsapp/single/message/ 

لاحظ هنا ان العنوان غير محمي فهو HTTP وليس HTTPS

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

خصوصا مع انتشار فيروس الفدية

حاولت ان افتح الرابط لوحده http://api.whatsmate.net لم يفتح معي

رابط هذا التعليق
شارك

14 دقائق مضت, محمد ايمن said:

لاحظ هنا ان العنوان غير محمي فهو HTTP وليس HTTPS

اتفضل 

عند دخول بهذا الرابط يقولك 
http://api.whatsmate.net 

القي نظرة الى هذا الرابط See http://www.whatsmate.net

https://www.whatsmate.net/

وعند دخولك في ذلك الرابط الاعلاه عند ثلاث اختيارات 
اولا اضغط على whatsapp gateway api

راح يفتح لك هذا الرابط وبه اللي في الفيديو

https://www.whatsmate.net/whatsapp-gateway-api.html

هذا والله يعلم 
وانا لا اعلم شي

رابط هذا التعليق
شارك

في 17‏/5‏/2017 at 16:51, jjafferr said:

لبيك أخي ابوخليل:smile:

مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي:smile:

 

 أكرمك ربي واصلح لك الذرية

رابط هذا التعليق
شارك

الله الله الله يا استاذ جعفر

وين مخبي كل هالعلم وين ؟

ملاحظة بسيطة استاذ جعفر تم التجريب على ASUS اندرويد 6 و لم يعمل الكود بشكل جيد

جاري التجريب للحصول على النتيجة المطلوبة ان شاء الله

اخي شيفان

بالنسبة للرابط هو لا يفتح عندي ابدا :imsorry:

ولكن برايي الشخصي ان ترسل الرسالة من ضمن الجهاز افضل و أامن بكثير

خصوصا اننا في الحالتين بحاجة الى ان يكون الجهاز متصل بالانترنت

 

رابط هذا التعليق
شارك

السلام عليكم 

بالنسبة للرابط فهو غير مجاني

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

شكرا لكل من شارك معنا

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

تفضل هذا الكود شبه النهائي ، وشغال 100% مع اللغة الانجليزية

    'turn on the mobile
    cmmd = App_Location & " shell input keyevent 82" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'turn close WhatsApp
    cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'start WhatsApp
    cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'search for a name or a Group or a phone number
    cmmd = App_Location & " shell input text " & "Hason" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'tap/touch the first name location (x,y)
    cmmd = App_Location & " shell input tap 400 700" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'insert the message
    cmmd = App_Location & " shell input text " & Chr(34) & "Testing" & Chr(34) & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'tap/click on the send button location (x,y)
    cmmd = App_Location & " shell input tap 1000 1100"
    Call ShellWait(cmmd, vbNormal)

 

ولكن للوصول الى الارقام في السطر قبل الاخير ، يجب اتباع التالي (بدل ان تكون ارقامك بالتجربة):

Dev_02.jpg

.

اختر الحقلين 1 و 2 بعلامة الصح ، واللي محتاجين لهم ليعطونا نتائج رقم 3 و 4 (وبعد الحصول على الارقام الصحيحة ، يجب الغاء الصح من الحقلين 1 و2):

ics_dev_3_francis0531.jpg.a934883e8e68fb1a1c8b03202bcb8a94.jpg

.

لمعرفة مكان زر الارسال ، محور س و ص  X Y :

ثم بعد ان ندخل اي شيء في حقل الكتابة في الواتس اب ، اغغط وخليك ماسك زر المايكروفون (لانه بعد الكتابة سيتغير الى زر الارسال) ،

لاحظ الارقام في الاعلى في المربعين الاحمرين ، وسترى من الصورة انها 1022 في 1062 ، والذي قربته انا في الكود الى 1000 في 1100

IMG_20170517_223053.jpg.4dab503a4939b6e4e3373596f58c70c4.jpg

.

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

تحية طيبة استاذ جعفر

الكود يعمل مليون بالمية بعد تعديل السطرين التاليين

السطر الاول من

cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1"

الى

cmmd = App_Location & " shell input text " & ChrW(34) & "I am testing'" & ChrW(34) & "; sleep 1"

 

و السطر الثاني من

 cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1"

الى

cmmd = App_Location & " shell input tap 60 640" & "; sleep 1"

:biggrin::biggrin::biggrin:

  • Like 1
رابط هذا التعليق
شارك

6 دقائق مضت, محمد ايمن said:

الكود يعمل مليون بالمية بعد تعديل السطرين التاليين

1.

cmmd = App_Location & " shell input text " & ChrW(34) & "I am testing'" & ChrW(34) & "; sleep 1"

 

2.


cmmd = App_Location & " shell input tap 60 640" & "; sleep 1"

:biggrin::biggrin::biggrin:

 

وعليكم السلام أخي محمد ، وشكرا على التأكيد:smile:

 

اما بالنسبة للرقم 1 فانا ذكرته في آخر كود ارفقته ، ومافي فرق بين ChrW(34) و Chr(34) :smile:

والرقم 2 ، فقلت انك يجب ان تحصل عليه كما في الصورة الاخيرة ، والسبب ان الرقم غير ثابت ، فهو يعتمد على حجم الشاشة وحجم لوحة المفاتيح:smile:

 

جعفر

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد):')

والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل:


Private Sub cmd_WhatsApp_Click()

    Dim cmmd As String
    Dim cmmd1 As String
    Dim cmmd2 As String
    Dim cmmd3 As String
    Dim cmmd4 As String
    Dim cmmd5 As String
    Dim cmmd6 As String
    Dim cmmd7 As String
    
    
    
    'set BE_Path
    Call BE_or_FE
    
    'Adb location
    App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe"
        
    'Send a message from MS Access through WhatsApp
    cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; "
    cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; "
    cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; "
    cmmd4 = "input text " & Me.To & "; sleep 1; "
    cmmd5 = "input tap 400 700" & "; sleep 2; "
    cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5
    'Debug.Print cmmd
    Call ShellWait(cmmd, vbHidden)
    
    cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    cmmd = App_Location & " shell input tap 1000 1100"
    Call ShellWait(cmmd, vbNormal)
    
Exit Sub
    'turn on the mobile
    cmmd = App_Location & " shell input keyevent 82" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'turn close WhatsApp
    cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'start WhatsApp
    cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'search for a name or a Group or a phone number
    cmmd = App_Location & " shell input text " & Me.To & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'tap/touch the first name location (x,y)
    cmmd = App_Location & " shell input tap 400 700" & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'insert the message
    cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1"
    Call ShellWait(cmmd, vbNormal)
    
    'tap/click on the send button location (x,y)
    cmmd = App_Location & " shell input tap 1000 1100"
    Call ShellWait(cmmd, vbNormal)
    

End Sub

 

جعفر

Send_WhatsApp_messages.mdb.zip

  • Like 3
رابط هذا التعليق
شارك

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

هو انا عندى شيت اكسل

بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه

بيعتمد على الاسماء اللى انت مسجلها  انا بستعمله دايما

هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها

 

دى صورة منه

 

Untitled.png.5646469feae90d2c45d0e12214eb06ab.png

 

ودا الشيت

 

 

 

Excel e whatapp.rar

تم تعديل بواسطه Elsayed Bn Gemy
  • Like 7
رابط هذا التعليق
شارك

1 دقيقه مضت, Elsayed Bn Gemy said:

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

هو انا عندى شيت اكسل

بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه

بيعتمد على الاسماء اللى انت مسجلها  انا بستعمله دايما

هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها

 

دى صورة منه

 

Untitled.png.5646469feae90d2c45d0e12214eb06ab.png

 

ودا الشيت

 

فين دا ؟؟؟

رابط هذا التعليق
شارك

الان, Elsayed Bn Gemy said:

تم التعديل يا ابو جودى نسيت ارفعه  طبعا الاسماء دى انا مسجلها عندى على الموبايل بنفس الاسم

 

هههههههههههههههههههههههه
ايون كده ودا الملف اتظبطت لكن تحنسنا وتخلع ☺
واهلا بيك مره تانى فى عالم مارد :wink2:

9 دقائق مضت, Elsayed Bn Gemy said:

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

هو انا عندى شيت اكسل

بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه

بيعتمد على الاسماء اللى انت مسجلها  انا بستعمله دايما

هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها

 

دى صورة منه

 

Untitled.png.5646469feae90d2c45d0e12214eb06ab.png

 

ودا الشيت

 

 

 

Excel e whatapp.rar

 

طيب ممكن سؤال؟؟؟
هو انا اجيب الاسماء ازاى ؟؟؟

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information