ابوخليل قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك 5 1
omarahmed1424 قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 أضم صوتي لأستاذي في هذا الطلب فهل من مجيب؟ 1
ابوخليل قام بنشر مايو 17, 2017 الكاتب قام بنشر مايو 17, 2017 استدراك علما انه يتوفر الواتساب على جهاز الكمبيوتر واستخدمه كثيرا شرط يكون جهاز الهاتف مفتوحا انظروا الصور 3
wael_rafat قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 اضم صوتي الى استاذنا ومعلمنا القدير ابو خليل خاصية هامة جدااااا ، وخصوصا هذه الايام ومع التطور الحالي باللاتصالات .... 1
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 فكرة رائعة و مهمة و اضم صوتي لصوت معلمنا الجليل ابو خليل 1
jjafferr قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 9 ساعات مضت, ابوخليل said: السلام عليكم فهل من طريقة برمجية تساعد في ذلك لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 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) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر 3
Shivan Rekany قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 (معدل) استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديوhttps://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه تم تعديل مايو 17, 2017 بواسطه Shivan Rekany 2 1
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 بسم الله ما شاء الله جاري التجربة وجزاك الله كل خير سلفا
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 ملاحظة اولية الرابط الذي يرسل الرسالة مشكوك في امره رابط الواتساب ويب هو https://web.whatsapp.com/ ( لاحظ ان العنوان HTTPS اي ان البيانات محمية و مشفرة ) اما الرابط في الفيديو هو http://api.whatsmate.net/v2/whatsapp/single/message/ لاحظ هنا ان العنوان غير محمي فهو HTTP وليس HTTPS ثانيا يتم ارسال الرسالة باستخدام رابط يعطي صفحة مشابهة للواتساب وهذا قد يعرض البيانات للخطر خصوصا مع انتشار فيروس الفدية حاولت ان افتح الرابط لوحده http://api.whatsmate.net لم يفتح معي
Shivan Rekany قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 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, 2017 الكاتب قام بنشر مايو 17, 2017 في 17/5/2017 at 16:51, jjafferr said: لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي أكرمك ربي واصلح لك الذرية
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 الله الله الله يا استاذ جعفر وين مخبي كل هالعلم وين ؟ ملاحظة بسيطة استاذ جعفر تم التجريب على ASUS اندرويد 6 و لم يعمل الكود بشكل جيد جاري التجريب للحصول على النتيجة المطلوبة ان شاء الله اخي شيفان بالنسبة للرابط هو لا يفتح عندي ابدا ولكن برايي الشخصي ان ترسل الرسالة من ضمن الجهاز افضل و أامن بكثير خصوصا اننا في الحالتين بحاجة الى ان يكون الجهاز متصل بالانترنت
ابوخليل قام بنشر مايو 17, 2017 الكاتب قام بنشر مايو 17, 2017 السلام عليكم بالنسبة للرابط فهو غير مجاني اما كود الاستاذ جعفر فمن طرحه استاذنا وانا احاول ولكنه لم يعمل معي ويبدوا اني سأستأنف محاولاتي في الصباح شكرا لكل من شارك معنا
jjafferr قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 السلام عليكم تفضل هذا الكود شبه النهائي ، وشغال 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) ولكن للوصول الى الارقام في السطر قبل الاخير ، يجب اتباع التالي (بدل ان تكون ارقامك بالتجربة): . اختر الحقلين 1 و 2 بعلامة الصح ، واللي محتاجين لهم ليعطونا نتائج رقم 3 و 4 (وبعد الحصول على الارقام الصحيحة ، يجب الغاء الصح من الحقلين 1 و2): . لمعرفة مكان زر الارسال ، محور س و ص X Y : ثم بعد ان ندخل اي شيء في حقل الكتابة في الواتس اب ، اغغط وخليك ماسك زر المايكروفون (لانه بعد الكتابة سيتغير الى زر الارسال) ، لاحظ الارقام في الاعلى في المربعين الاحمرين ، وسترى من الصورة انها 1022 في 1062 ، والذي قربته انا في الكود الى 1000 في 1100 . جعفر 1
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 تحية طيبة استاذ جعفر الكود يعمل مليون بالمية بعد تعديل السطرين التاليين السطر الاول من 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" 1
jjafferr قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 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" وعليكم السلام أخي محمد ، وشكرا على التأكيد اما بالنسبة للرقم 1 فانا ذكرته في آخر كود ارفقته ، ومافي فرق بين ChrW(34) و Chr(34) والرقم 2 ، فقلت انك يجب ان تحصل عليه كما في الصورة الاخيرة ، والسبب ان الرقم غير ثابت ، فهو يعتمد على حجم الشاشة وحجم لوحة المفاتيح جعفر
محمد ايمن قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 تحية طيبة استاذي الكريم بسبب ضعف النت عندي لم يظهر الرد اما بالنسبة للسطرالثاني فهو مثلما تفضلت يختلف حسب حجم الشاشة بارك الله بك و زادك علما و معرفة
jjafferr قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية 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 3
Elsayed Bn Gemy قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 (معدل) السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar تم تعديل مايو 17, 2017 بواسطه Elsayed Bn Gemy 7
ابو جودي قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 1 دقيقه مضت, Elsayed Bn Gemy said: السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت فين دا ؟؟؟
Elsayed Bn Gemy قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 تم التعديل يا ابو جودى نسيت ارفعه طبعا الاسماء دى انا مسجلها عندى على الموبايل بنفس الاسم
ابو جودي قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 الان, Elsayed Bn Gemy said: تم التعديل يا ابو جودى نسيت ارفعه طبعا الاسماء دى انا مسجلها عندى على الموبايل بنفس الاسم هههههههههههههههههههههههه ايون كده ودا الملف اتظبطت لكن تحنسنا وتخلع ☺ واهلا بيك مره تانى فى عالم مارد 9 دقائق مضت, Elsayed Bn Gemy said: السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar طيب ممكن سؤال؟؟؟ هو انا اجيب الاسماء ازاى ؟؟؟ 1
Elsayed Bn Gemy قام بنشر مايو 17, 2017 قام بنشر مايو 17, 2017 تمام يا كبير ان شاء الله غدا اصمم لك مرفقا بالاكسس ولكن حان وقت النوم استودعكم الله 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.