sandanet

شكرا لك استاذي الفاضل ابو ياسين واعتذر عن اي تقصير من جانبي تحياتي

تمام وضحت الرؤيا بارك الله فيك .. سؤال اخير وهو كم يساوي بالدولار مبلغ 1000 ريال في حال اردت الاشتراك في تلك الخدمة؟

اشكرك جزيل الشكر استاذ ابو ياسين على هذا التوضيح المهم .. انا في الواقع لم اقم بالعمل على ارسال الرسائل من خلال الموقع لذلك لم ألاحظ هذه الفقرة سؤالي هو ماهو التقرير الذي يتم ارساله؟ فعند تجربتي للبرنامج لم الاحظ الفرق ثانياً ماهو الخيار الموجود اسفل منها "تغيير معدل الارسال" ؟

وهل هذا الأمر تم توضيحه للعميل عند الاشتراك؟

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

لابد من ان يأذن بذلك صاحب البرنامج البرنامج المصمم هو خاص بشركة https://yamamah.com/ وهو يرسل رسائل لجميع دول العالم

ملاحظة: تم تحديث الملف المرفق في المشاركة السابقة

اخي الكريم .. اعتذر عن التأخير في الرد بسبب الظروف .. حالياً الملف يرسل رسائل بنجاح وبالعربي ايضا تفضل الملف في المرفقات .. تمت ازالة بيانات الحساب الخاصة بك من البرنامج ارجو من جنابك الكريم تجربته وابداء الملاحظات إن وجدت تحياتي

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

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

Langauge ELanguage.ar fOK = SetClipboardData_clt(strTemp) Langauge ELanguage.en بالاضافة الى جدول المعلومات الاساسية لا أعلم ما إذا كان هنالك المزيد من الأخطاء او الدوال الناقصة فقد اغلقت البرنامج .. طبعا دائما من الافضل وضع البرنامج كاملا لكي يتم التعديل عليه اما ان ترفقه بشكل منقوص فهذا يزيد الطين بله تحياتي

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

نعم تضعه في وحدة نمطية وتستدعي الدالة في نموذج تسجيل الدخول ولاتحتاج الى انشاء جدول جديد بل تستخدم نفس الجدول الذي فيه بيانات اسم المستخدم Amr والرقم السري *** عليك ان تضيف حقل اسمه uuid فقط

اخي الكريم بامكانك عمل مصادقة عن طريق اسم المستخدم والرقم السري المشار اليه أعلاه Amr - **** بالاضافة الى عنوان الـ uuid الخاص بجهاز المستخدم الذي يحاول الدخول .. بمعنى اخر عندما يقوم احد المستخدمين بتسجيل الدخول باسم Amr والرقم السري **** يقوم نموذج تسجيل الدخول بقراءة رقم الـ uuid لجهاز المستخدم هذا ومن ثم يخزن هذا الرقم في الجدول الذي فيه بيانات الدخول username password uuid وعندما يقوم مستخدم اخر بادخال نفس الاسم والرقم من جهاز اخر يقوم نموذج الدخول بالتحقق من وجود رقم ال uuid اذا ما كان موجود بالجدول ام لا .. فلو وجد ان الرقم مسجل في الجدول عندها يخبر المستخدم بان هذا الاسم مفتوح على جهاز اخر واذا لم يجد رقم مخزن في حقل ال uuid يقوم النموذج بتخزين رقم ال uuid للمستخدم الجديد طبعا لابد من وضع كود يحذف رقم ال uuid من الجدول عندما يقوم المستخدم الاول بتسجيل خروجه لكي يسمح لمستخدم اخر بالدخول ملاحظة: رقم الـ uuid هو رقم فريد لكل جهاز كومبيوتر لايتكرر ولا يتغير حتى لو تمت فرمته الجهاز وهنالك كود يعمل على قراءة هذا الرقم Public Function GetUUID() On Error Resume Next Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." 'default to localhost Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = Nz(Trim(objItem.UUID), 0) Next End Function اتمنى ان تكون الفكرة واضحة تحياتي

ضع الملف المرفق في مسار البرنامج وشغله مرة واحدة run_me.zip

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

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

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

شكراً جزيلا لك أستاذنا القدير جعفر دائماً متميز بمواضيعك .. وفقك الله

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

كنت قد استخدمت الدالة التالية التي تعمل على استخراج الفرق بين جملتين Function WORDDIF(rngA As String, rngB As String) As String On Error GoTo Err ' to test the function, press ctrl+G then paste this line of code--> ?WORDDIF("عبد الرحيم بن سلمان عبد الله بو سالم", "عبد الرحيم بن سلمان عبد الله سالم") Dim WordsA As Variant, WordsB As Variant Dim ndxA As Long, ndxB As Long, strTemp As String WordsA = Split(rngA, " ") WordsB = Split(rngB, " ") For ndxB = LBound(WordsB) To UBound(WordsB) For ndxA = LBound(WordsA) To UBound(WordsA) If StrComp(WordsA(ndxA), WordsB(ndxB), vbTextCompare) = 0 Then WordsA(ndxA) = vbNullString Exit For End If Next ndxA Next ndxB For ndxA = LBound(WordsA) To UBound(WordsA) If WordsA(ndxA) <> vbNullString Then strTemp = strTemp & WordsA(ndxA) & " " 'strTemp = strTemp & IIf(WordsA(ndxA) <> vbNullString, WordsA(ndxA), "-") & " " Next ndxA WORDDIF = Trim(strTemp) Exit Function Err: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function قمت باستدعاؤها كالتالي If Me.txtFullName.Text <> fullName() Then txt = WORDDIF([Text0], fullName()) وكانت النتيجة ممتازة لكن للأسف عندما تكون اللاحقة فقط في الاسم الرابع

اخي العزيز أبو عبدالله في الحقيقة انا ابحث عن النتيجة النهائية المرضية كمبرمج .. والنقاش العلمي و المنطقي واحتمالات حدوث الصح والخطأ في اي فكرة يتم طرحها هي هدفي ولست من ذلك النوع الذي يلتفت للردود ويقيمها فيما اذا كانت قاسية او جارحة او مازحة من الاعضاء الكرام فنقاشنا علمي بحت وافكارنا تحتمل الصح والخطأ وما يهمنا دائما هو النتيجة الافضل ..اليس كذلك؟ بالنسبة لي لم ولن يكن في صدري حرج من اي رد منك او من اي شخص آخر مالم يكن نقاشنا خارج إطار العلم فلا داعي للإعتذار . نعم كلامك صحيح يمكن حصر اغلب اللواحق المحلية والمشهورة بنسبة كبيرة كما تفضلت انت .. لكننا دائماً نتطلع بأن تكون الطريقة أكثر شمولية خصوصا لو فكرت في تسويق برنامجك على نطاق دولي .. في الواقع كنت ارغب بعمل طريقة ما تضيف اللاحقة غير المسجلة مسبقاً الى جدول اللواحق تلقائياً ومن ثم حفظ الاسم الرباعي بالشكل الصحيح في جدول الاسماء وقد قمت بالفعل بعملها لكني وجدت مشكلة ظهور اللاحقة في منتصف الاسم او في بدايته مما سبب لي خلل في استخراج تلك اللاحقة وخلل في تقسيم الاسم الى ربع اجزاء وهذا ما أشرت به إليك في سؤالي السابق "لكن ماذا لو اتى الاسم "بو سالم" في المنتصف اي الاسم الثاني او الثالث؟" والان بعد التفحيص والتمحيص ومناقشة الافكار ووالخ تبين لي ان افضل واسهل حل هو اجبار المستخدم على ادخال الاسم الرباعي موزع على اربع خانات ومن ثم تجميعها وحفظها بالشكل الصحيح .. بذلك نتلافى الاخطاء الوارد حدوثها بشكل نهائي تحياتي

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

رائع جداً .. لكن ماذا لو اتى الاسم "بو سالم" في المنتصف اي الاسم الثاني او الثالث؟

نعم استاذي العزيز افهم قصدك من ذلك لكن لايمكن اعتبار الاسم "عبد الرحيم بن سلمان عبد الله بو" اسم رباعي ولا يمكن السماح بادراج الاسم بهذا الشكل في حال لم تكن اللاحقة "بو" مضافة للجدول مسبقاً لذلك قمت بتعديل بسيط على طريقتكم باستخدام كود الاستاذ القدير @ابوخليل والنتيجة كانت ممتازة .. انظر المرفق جرب ادخل الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" بدون ادخال اللاحقة "بو" الى جدول tblSpecialParts تحياتي Test Four Name.mdb