⭐ هدية ~ أداة بسيطة لتفحص حالة رقم الواتس أب 2025⭐

[Foksh]

أخواني وأساتذتي ومعلمينا ( دون استثناء )

أداة بسيطة - مفتوحة المصدر - مشتقة من أداة مرسال والواتس أب 2025 في هذا الموضوع هنا ، لفحص حالة الرقم من انه مسجل على الواتس اب أم لا ، تعتمد على تطبيق واتس أب سطح المكتب . يمكن تطويرها داخل المشاريع لتتلائم مع متطلبات مشروعك .

 فقط اكتب الرقم مع المفتاح الدولي ، وسيتم فتح التطبيق والكشف مما إذا كان مسجلاً على الواتس أب أم لا .
طبعاً الأداة ستعتمد على قراءة رسالة الواتس أب التالية ، وهنا اللغز في الموضوع  .

 

 صورة واجهة الأداة :-

 

 

Check Number.accdb

[ناقل]

9 ساعات مضت, Foksh said:

فقط اكتب الرقم مع المفتاح الدولي ، وسيتم فتح التطبيق والكشف مما إذا كان مسجلاً على الواتس أب أم لا .
طبعاً الأداة ستعتمد على قراءة رسالة الواتس أب التالية ، وهنا اللغز في الموضوع

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

[Moosak]

إبداع بسم الله ما شاء الله .. 👍😃
 

حليت مسألة لطالما انسألنا عنها 
سبحان الله هناك ثغرة لحل كل معضلة 
 

9 ساعات مضت, ناقل said:

هل يمكن تطويرها لمراجعة مجموع ارقام مسجلة في جدول مثلا ..... يقوم بالمرور عليها ووضع علامة صح للارقام التي لديها واتس

الموضوع سهل والله أعلم .. وذلك عن طريق عمل حلقة تكرر الكود على السجلات المطلوبة .. 

[ناقل]

2 ساعات مضت, Moosak said:

الموضوع سهل والله أعلم .. وذلك عن طريق عمل حلقة تكرر الكود على السجلات المطلوبة .

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

وسبب سؤالي ان استاذنا @Foksh اعتقد لم يضمن الاداة في تحديثه الجديد مرسال

تم تعديل بالامس في 10:29 بواسطه ناقل

[Foksh]

12 ساعات مضت, ناقل said:

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

حياك الله أستاذ @ناقل ،

شكراً لمرورك الكريم . في الحقيقة موضوع المرور على سجلات قد يكون له تبعات كبيرة أهمها على سبيل المثال أن الأداة ستمر مروراً لكل عملية على جميع الارقام سجلاً سجلاً وليس بشكل جماعي . ولكن الأمر ليس بالمستحيل طبعاً ..

 

2 ساعات مضت, Moosak said:

إبداع بسم الله ما شاء الله .. 👍😃
 

حليت مسألة لطالما انسألنا عنها 
سبحان الله هناك ثغرة لحل كل معضلة 

مهندسنا الغالي ، هذا إطراء سأحسد عليه 😅

شكراً لك على مرورك 

2 ساعات مضت, Moosak said:

الموضوع سهل والله أعلم .. وذلك عن طريق عمل حلقة تكرر الكود على السجلات المطلوبة .. 

الأمر يسير ان شاء الله بتمرير الارقام كما تفضلتم بحلقة تكرارية بدلاً من اعتماد مربع النص .. ولكن كما قلت سابقاً اعتقد انه سيكون له تبعات أبعد من مجرد أداة تحقق .

23 دقائق مضت, ناقل said:

ولكن المشكلة في برنامج الواتس تظهر رسالة ولابد التدخل يدويا

في الأداة ليس عليك ان تتدخل يدوياً عند ظهور الرسالة ، فهي وبعد تجربتها على عدة أجهزة تعمل تلقائياً عند ظهور الرسالة بالنقر على مفتاح Tab ثم Enter لانهاء دور الرسالة .

24 دقائق مضت, ناقل said:

وسبب سؤالي ان استاذنا @Foksh اعتقد لم يضمن الاداة في تحديثه الجديد مرسال

اذا تكرمت تزويدي برقم الإصدار لديكم من تطبيق الواتس اب سطح المكتب  .

[ناقل]

5 ساعات مضت, Foksh said:

اذا تكرمت تزويدي برقم الإصدار لديكم من تطبيق الواتس اب سطح المكتب

تفضل بارك الله فيك ..................

 

[Foksh]

8 دقائق مضت, ناقل said:

تفضل بارك الله فيك ..................

هذه تجربتي على نفس الإصدار هنا في هذا الموضوع

والرد الذي يليه أيضاً توثيق النتيجة

[ناقل]

2 ساعات مضت, Foksh said:

هذه تجربتي على نفس الإصدار هنا في هذا الموضوع

جزاك الله خيرا ... يبدو المشكلة لدي

[Foksh]

في 9‏/8‏/2025 at 01:42, ناقل said:

هل يمكن تطويرها لمراجعة مجموع ارقام مسجلة في جدول مثلا ..... يقوم بالمرور عليها ووضع علامة صح للارقام التي لديها واتس 

تنفيذاً لفكرة وطلب أخي الأستاذ @ناقل ، تفضل هذا التعديل .

حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات

وإضافة زر جديد في النموذج السابق مع الكود التالي كتجربة :-

Private Sub Btn_CheckAll_Click()
    On Error GoTo ErrHandler
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim PhoneNumber As String
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT * FROM Tbl_WhatsAppNumbers WHERE Status IS NULL OR Status='غير معروف'", dbOpenDynaset)
    
    If rs.EOF Then
        MsgBox "لا توجد أرقام بحاجة للفحص", vbInformation + vbMsgBoxRight, ""
        GoTo ExitHandler
    End If
    
    Do Until rs.EOF
        PhoneNumber = Nz(rs!PhoneNumber, "")
        
        If PhoneNumber <> "" Then
            ShellExecute 0, "open", "whatsapp://send?phone=" & PhoneNumber, vbNullString, "", 1
            
            SendKeys "{TAB}", True
            Sleep 1000
            SendKeys "{ENTER}", True
            
            If IsWhatsAppWindowOpen("الرقم غير مسجل في واتساب") Then
                rs.Edit
                rs!Status = "غير مسجل"
                rs!LastChecked = Now
                rs.Update
            Else
                rs.Edit
                rs!Status = "مسجل"
                rs!LastChecked = Now
                rs.Update
            End If
            
        End If
        
        Sleep 500
        
        rs.MoveNext
    Loop
    
    MsgBox "تم فحص جميع الأرقام غير المعروفة", vbInformation + vbMsgBoxRight, ""
    
    SendKeys "{NUMLOCK}", True
    
ExitHandler:
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Exit Sub
    
ErrHandler:
    MsgBox "حدث خطأ: " & Err.Description, vbCritical, "خطأ"
    Resume ExitHandler
End Sub

 

 

Check Number.zip

[ناقل]

3 دقائق مضت, Foksh said:

تنفيذاً لفكرة وطلب أخي الأستاذ @ناقل ، تفضل هذا التعديل .

اشكرك اخي الكريم ... بارك الله فيك

جاري التجربة واعلامك بالنتيجة ... ولكن يجب علي اولا حذف الواتس وتنصيبه مرة اخرى لاتلافى المشكلة السابقة لدي

[ناقل]

1 ساعه مضت, Foksh said:

حيث تم انشاء جدول يضم حقل الرقم وحقل الحالة وحقل تاريخ التحقق وحقل ملاحظات

وإضافة زر جديد في النموذج السابق مع الكود التالي كتجربة

تمت العملية بنجاح تام ودون تدخل ........ بارك الله فيك وفي عملك ..... هذه الاداة تريحنا في حالة الارقام الكثيرة

[Foksh]

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

تمت العملية بنجاح تام ودون تدخل ........ بارك الله فيك وفي عملك ..... هذه الاداة تريحنا في حالة الارقام الكثيرة

وإياكم أخي @ناقل ، وهذا شيء يفرحني أن أقدم شيء يُـستفاد منه ..