مكتبة الموقع - 🖼️ أداة جميلة لإزالة خلفيات الصور | سلسلة هدايا الأكسس | ⭐ 🎁

[Moosak]

اعرض الملف

🖼️ أداة جميلة لإزالة خلفيات الصور | سلسلة هدايا الأكسس | ⭐ 🎁

---

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

لكسر الروتين وعموم الفائدة 😎👌

أقدم لكم أداة جديدة بفكرة جديدة 🙂 

:: أداة إزالة خلفيات الصور ::

الهدف من الأداة واضح >> وهو ببساطة  إزالة خلفيات الصور >> والناتج صورة بخلفية شفافة بصيغة png .

ولها استخدامات كثيرة في الاحتياجات العامة أو لتشذيب الصور قبل إدراجها في برنامج الأكسس مثلا .. أو .. أو .. أو .. عدد ما شئت
أنا شخصيا أحتجتها في برنامجي (صانع الشهادات) لإزالة خلفيات التواقيع 🖋️📜  ثم إضافتها للبرنامج كمرفق.

 

الأداة فكرتها بسيطة >>  الإتصال بموقع remove.bg المشهور عن طريق ال API والعودة بالناتج بدون الحاجة لفتح الموقع.
مفتاح الـAPI الحالي هو خاص بي ويمكنكم استخدامه مباشرة ولكنه محدود ب 50 تحويل لليوم ..

في حال رغبتك بوضع مفتاحك الخاص ( وهي خدمة مجانية بالمناسبة ) يمكن تغييره في أول صفحة الكود وقد وضحت الطريقة هناك . 🙂 

 

الملف مفتوح المصدر :: ودعواتكم الطيبة 🙂 

---

• صاحب الملف
  Moosak
• تمت الاضافه
  06/22/26
• الاقسام
  قسم الأكسيس

 

[منتصر الانسي]

ياسلام عليك أخي @Moosak مثل عوايدك لاتقدم إلا كل ماهو مفيد

لكن مع الأسف هذه الأداة لم تعمل معي وتظهر لي هذه الرسالة

مع العلم أني قد إستخدمت مفتاح API الخاص بالأخ موسى ومفتاح آخر قمت بإنشائه وفي الحالتين تظهر نفس الرسالة

وكنت أريد أن أسأل بقية الأخوان حل واجه أحدهم هذه المشكلة مثلي أم لا؟

 

[Moosak]

منذ ساعه, منتصر الانسي said:

الأداة لم تعمل معي وتظهر لي هذه الرسالة

شكرا لمرورك العاطر أخي @منتصر الانسي 🙂 ..

قمت بتحميل النسخة لأتأكد وما ظهرت عندي المشكلة .. فعرضتها على ال AI وكان هذا رده :
---------------------------------------------------------------------------------------------------------------------------------------------------------

هذا الخطأ The server name or address could not be resolved (ورقمه الشهير 2147012889- أو 0x80072EE7) يعني ببساطة أن الكود غير قادر على الوصول إلى خادم (سيرفر) موقع remove.bg.

بمعنى آخر: الكمبيوتر الخاص بك لم يتعرف على العنوان الرقمي (IP) للموقع المرسل إليه الطلب.

🔍 الأسباب الشائعة لهذه المشكلة:

1. انقطاع الإنترنت: الجهاز الذي يعمل عليه نظام أكسس ليس متصلاً بالإنترنت في تلك اللحظة.

2. مشكلة في الـ DNS: نظام الـ DNS في الشبكة أو الروتر عاجز عن ترجمة الرابط api.remove.bg إلى عنوان IP.

3. جدار الحماية (Firewall) أو برامج الحماية: قد يقوم جدار حماية الويندوز أو برنامج الأنتي فيرس بحظر برنامج Microsoft Access من إجراء اتصالات خارجية (خارج الشبكة المحلية).

4. خطأ إملائي في الرابط: تأكد أن الثابت في أعلى الكود مكتوب تماماً هكذا بدون أي مسافات أو أخطاء: https://api.remove.bg/v1.0/removebg

🛠️ كيف تحل المشكلة؟

• تحقق من الاتصال: تأكد من أن الإنترنت يعمل بشكل طبيعي على نفس الجهاز من خلال فتح المتصفح وتجربة فتح أي موقع.

• تغيير الـ DNS (إذا تكررت المشكلة): جرب تغيير الـ DNS في إعدادات الشبكة بالجهاز إلى DNS سريع ومستقر مثل DNS جوجل الشهير (8.8.8.8 و 8.8.4.4).

• السماح لأكسس بالاتصال: تأكد من أن جدار الحماية لا يمنع MSXML2.ServerXMLHTTP من إرسال البيانات.

---------------------------------------------------------------------------------------------------------------------------------------------------------

[منتصر الانسي]

الحقيقة أني لا أستطيع فتح الموقع إلا بإستخدام VPN (ولا أعرف أسباب الحجب؟؟؟) 

ولكن طالما أني إستطعت فتح الموقع عبر المتصفح لماذا لم يستطيع أكسس ؟

[Moosak]

36 دقائق مضت, منتصر الانسي said:

الحقيقة أني لا أستطيع فتح الموقع إلا بإستخدام VPN (ولا أعرف أسباب الحجب؟؟؟) 

أعتقد أن هذا هو صُلب المشكلة 🥴

[Foksh]

وعليكم السلام ورحمة الله وبركاته .. مهندسنا الغالي 

تبارك الله ، ما شاء الله على الأفكار الجميلات الممتعات 

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

ما أقصده هو ، وكمثال بعد محاولات كثيرة حتى تم استنزاف رصيد الـ 50 محاولة المجانية لديكم :-

والتنفيذ في الجزء :-

    Else
        Dim errTxt As String
        
        On Error Resume Next
        errTxt = http.responseText
        On Error GoTo 0
        
        DoCmd.Hourglass False
        
        If InStr(errTxt, "unknown_foreground") > 0 Then
            
            MsgBox "We’re sorry, we couldn’t remove the background." & vbCrLf & _
                   "Try another image.", _
                   vbExclamation, "Remove Background"
                   
        ElseIf http.Status = 401 Then
            
            MsgBox "API Key غير صحيح", vbCritical + vbMsgBoxRight, "Remove Background"
            
        ElseIf http.Status = 402 Then
            
            MsgBox "لم يعد لديك أي محاولات مجانية في هذا الحساب", vbCritical + vbMsgBoxRight, "Remove Background"
            
        Else
            
            MsgBox "حدث خطأ غير معروف:" & vbCrLf & _
                   http.Status & " - " & http.statusText, _
                   vbCritical + vbMsgBoxRight, "Remove Background"
            
        End If

 

كما قمت بإيقاف السطر التالي أيضاً :-

MsgBox "فشلت العملية"

 

 

 

Moosak BG Remover.accdb

[Moosak]

منذ ساعه, Foksh said:

قراءة الرد من السيرفر بشكل أوضح

ياسلام عليك .. 

أشكرك باش مهندس .. إضافة مهمة فعلا .. 🙂👌
وأدفع ثمن الرصيد اللي خلصته 😅🖐

[Foksh]

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

وأدفع ثمن الرصيد اللي خلصته 😅🖐

هههههههه ، اذا كذا الأمور بسيطة .. تتفضل

6NoGi3EQdt14ze2EgDhJikxp
gkqDtA9bNm19paxNfgZuuCQQ
gDjqVdH6a18n3e4xpTfnJryr
sbnYXhbjR7R6DMB5tLYsK5EQ

 

يكفي  !!

[Moosak]

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

تتفضل

6NoGi3EQdt14ze2EgDhJikxp
gkqDtA9bNm19paxNfgZuuCQQ
gDjqVdH6a18n3e4xpTfnJryr
sbnYXhbjR7R6DMB5tLYsK5EQ

 

شكرا لك على هذا الكرم 

وهذه مفاتيح API تفتح لكم الباب للامحدودية اليومية للعدد اليومي .. 😎