منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] انشاء برنامج بلغه فجول بيسك - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] انشاء برنامج بلغه فجول بيسك (/showthread.php?tid=40967)



انشاء برنامج بلغه فجول بيسك - نسيم الشباطي - 19-03-22

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

هذا كود في اكسل 
=============================
إرسال رسائل عبر الواتس أب باستخدام الإكسل
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

ارجو المساعده


RE: انشاء برنامج بلغه فجول بيسك - عدنان الشمري - 20-03-22

متاببببببببببع