DreamNet

لكي لا نعقد الأمر ربما أسهل طريقة هي الwmi يمكنك باستعمال الدالة التالية ايقاف أي خدمة حتى لكمبيوتر آخر في الشبكة اذا كانت لك الصلاحيات طبعا Function StopService (ServiceName) servername = "localhost" set wmi = getobject("winmgmts://" & servername) wql = "sele…

مثال تطبيقي جميل للأخت خلود حول استعمال DDE يعني بدون وينسوك DDE.zip

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

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

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

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

شكرا على المرور بالتوفيق دائما

آسف على تأخر الرد في الحقيقة لقد أنشات الأداة مع استخدام صلاحيات لذلك ارفق لكم الاداة مرة أخرى بدون مشاكل من هذا النوع بعض الشرح البسيط : انشاء خادم WSK.Listen("DreamNet", 5, "1070") السطر السابق ينشئ لنا خادم تحت اسم DreamNet ليس اسم الكمبيوتر في الشبكة لكي ي…

لا باس أخي الكريم بانتظار اقتراحاتكم كالعادة بالتوفيق للجميع

هل جربت البرنامجين المرفقين برنامج الخادم والعميل في الملف المرفق ؟ لتجربة الأداة وامكانياتها عليك تشغيل برنامج الخادم أولا ثم تشغيل برنامج العميل الذي يحوي على 3 اتصالات لتجربة استقبال أكثر من اتصال بأداة واحدة فقط وفي المثالين ستجد جميع الامكانيات التي تتيحه…

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

السلام عليكم ورحمة الله وبركاته للمهتمين بعمل تدرج لوني على الفورم أو صورة اليكم مثال بسيط لعمل ذلك بالتوفيق دائما Gradient.zip

ربما يفيدك هذا المثال البسيط جدا t.zip

كلامك صحيح أخي لقد مرت علي أداة ضمن ادوات Cia XPsuite تعمل نفس الشئ يمكن كسر حمايتها ببساطة مع العلم أن الأدوات المتوفرة V2.15 لم يتم كسر حمايتها سأبحث لك عن الأداة القديمة عندي وأرسلها في المنتدى في المرة القادمة بالتوفيق للجميع

السلام عليكم ورحمة الله وبركاته في نظري هناك عدة طرق لعمل ذلك لكن أفضل أن أستعمل شيئين الخاصية Tag للفورم و الدالة SendMessage لذلك عليك اضافة العناوين في List1 مثلا ثم التأكد من ان الرقم المدرج موجود او لا باستعمال الدالة SendMessage لذلك يمكنك استعمال الدالة…

الملف عذرا RDATA2.zip

السلام عليكم ورحمة الله وبركاته بعض الإضافات بانتظار التعليق

أظنك أخي تستعمل قاعدة بيانات مسجلة على usb drive

آسف نسيت يمكنك إضافة السطر التالي لكي تستفيد من المرور السريع الى التسجيلة المكتوبة في التكست Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Rs.AbsolutePosition = Val(Text1.Text) End Sub بالتوفيق دائما

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