تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انشاء برنامج بلغه فجول بيسك
#1
Question 
لو تكرمتو اريد تحويل الكود الذي يتم وضعه في الاكسل لعمل ارسال الى ارقام الهواتف العملاء عبر واتساب ويب الى فورم بلغة فجول بسك يقوم بجلب البيانات من الاكسل  وارسالها عبر الواتس اب بنفس الطريقه ولكن اريد الكود داخل فورم بلغة فجول بيسك  وذلك بسبب انه يكون بطيئ جدا اثناء الارسال ويقوم يبحث عن كل رقم ومن ثم يكب الرساله واذا في ملف يقوم بجلب الملف وثم ارساله يحتاج وقت كبير لذلك لو في طريقه واعتقد انه يوجد لكن احترت كيف  
هذا الكود في الاكسل ويقوم بالعمليه اريد استبداله  للفجول بيسك  بحيث انه ما عاد اكتب في كل اكسل الكود وكذا 
مل برنامج او فورم. بلغة فجول بيسك. يقوم ب ارسال رسايل من ملف اكسل عبر الوتس ويب او تطبيق الوتس دسكتوب المتصل بنفس الجهاز  الملف الاكسل فيه صفوف متعدد  يحتوي عمود رسايل وعمود ارقام الهاتف 

هذا كود في اكسل 
=============================
إرسال رسائل عبر الواتس أب باستخدام الإكسل
Send messages via Whatsapp by Excel
--------------------------------------------------------------------------------------------------------------------
كود العمل
Sub send()
Dim contact As String
Dim Message As String
U = Application.WorksheetFunction.CountA(Sheets("whatsapp").Range("a:a")) - 2
ActiveWorkbook.FollowHyperlink Address:="https://web.whatsapp.com/"
Application.Wait (Now + TimeValue("00:00:20"))
For I = 0 To U
contact = Sheets("whatsapp").Range("b2").Offset(I, 0).Value
Message = Sheets("whatsapp").Range("c2").Offset(I, 0).Value
Call SendKeys("{TAB}", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(contact, True)
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys(Message, True)
Call SendKeys("~", True)
Call SendKeys("{TAB}", True)
Next I
End Sub

ارجو المساعده
الرد }}
تم الشكر بواسطة: عدنان الشمري
#2
متاببببببببببع
الرد }}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] ربط قاعدة بيانات أكسس بالفيجوال بيسك 2010 esawy1 0 26 , 06:41 AM
آخر رد: esawy1
  استفسار عن فكرة عمل برنامج نظام صندوق مالي مصغر بشكل مبسط nowiglah 9 330 12-08-22, 05:57 AM
آخر رد: Taha Okla
  التحكم بالبرنامج ( عند المستخدم ) عن طريق برنامج اخر (تعديل - حذف - اضافه - تغير كود) mohamedallams 1 199 08-08-22, 02:11 PM
آخر رد: mohamedallams
  هل فيجوال بيسك يدعم تقسيم الملف؟ سعود 8 382 07-08-22, 05:38 AM
آخر رد: سعود
  [سؤال] تفعيل برنامج فيجوال استوديو حسن الجلب 5 298 30-07-22, 12:40 PM
آخر رد: حسن الجلب
  [سؤال] لينك تحميل برنامج فيجوال استوديو 2019 حسن الجلب 1 151 29-07-22, 08:59 PM
آخر رد: أبو خالد الشكري
  قراءة البيانات من برنامج البصمة strongriseman 2 207 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
  محتاج مساعدة في برنامج حضور وغياب الطلبة علي مدار العام hatem555 2 194 25-07-22, 04:00 AM
آخر رد: hatem555
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 241 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  [VB.NET] أبحث عن شرح أو برنامج صغير للتعامل مع بصمة الأصبع بالفجوال بيسك abomo3ath 1 333 26-06-22, 03:24 AM
آخر رد: DR.YASER

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم