محمد احمد لطفى

تفضل قمت بتغيير الامتداد فقط من accdb الى accdr (الملف الاصلى ) Zip Folder and CopyLast.rar

عند تغيير الامتداد الى accdr يعمل

مازال الملف المضغوط فارغ

جزاك الله خيراً أستاذى @ابوخليل تم الطباعة بالفعل ولكن الصفحة كبيرة كيف يمكن الطباعة بالغاء Fit Picture to frame أوجعلها Off فى خيارات الطباعة

الملف المضغوط ملف فارغ

فكرة جميلة بس فيه ناس عندها واتس لا تستخدمه خالص يعنى الرسالة بتوصل بس منغير مشاهدة الى الأبد يعنى ( علامتين صح مش منورين)

لم يعمل

1 - تم حلها ShellExecute Me.hwnd, "print", CurrentProject.Path & "\" & "print" & ".jpg", "", "", 1 2 - هل يمكن طباعة الصورة مباشرة

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

1 -فتح الصورة للطباعة مباشرة مثل الصورة و لذلك لضبط الصورة قبل الطباعة من الجهاز 2 - و هل يمكن طباعة الصورة مباشرة print.rar

للعلم الكود بداخل الوحدة النمطية

فى هذا النموذج كيف يمكن معرفة نوع الهارد وحجمة و لكن لا يعمل hard disk.accdb

لاحظت ذلك عند تشغيله على X64 ولكن اخفاء النموذج يعمل أو لم يعمل

يعمل على النواتين X32 و ْ64 ولكن على نواة X64 اخفاء النموذج لا يعمل يرحى التصحيح SystemInfo V1.3.rar

بخصوص العمل على نواة X64 النسخة التى أعمل عليها X32 سأحاول تعلم أن يعمل البرنامج على النواتين

تم اضافة نوع الرام تم اضافة نواة الويندوذ تم تغيير كود Pubic Ip و IP تم اضافة حفظ البيانات فى جداول عند التشغيل فى حالة أن تكون في فلاشة فى الجهاز بيانات الهارد تكون الفلاشة (حجم الهارد و عدد البارتشن) خطأ مازال جارى البحث عن حجم كارت الشاشة صورة من جهازى و فى حالة وجدت شيء أخر سأحدث الموضوع , وشكراً لأعضاء المنتدى الكرماء SystemInfo.rar

شفاه الله وعافاه اللهم اشفى كل مريض

شكراً أستاذى @ابوخليل كنت أريد معرفة كيف يعمل الكود فى المشاركة الاولى . شكراً أستاذى @kkhalifa1960

أستاذى @Eng.Qassim أنا الملف الى رافع كان مكتوب على الكود نواة قاعدة بيانات الاوفيس و فعلا كان النتيجة مظبوطة 32 و ملف حضرتك نواة الويندوذ لأن فعلا النتيجة 64 مظبوط كده

تعديل كود للعمل من الوحدة النمطية الكود الاصلى 'Collecting Clock Speed (MHz) Function Clock(strComputer) Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor") For Each objItem in colItems 'Wscript.Echo "Clock Speed: " & objItem.CurrentClockSpeed strResult = objItem.CurrentClockSpeed Next Clock = strResult End Function Clock.accdb

أستاذى @متقاعد هل تقصد Manufacturer Processor و Manufacturer PhysicalMemory

شكراً أستاذى

شكراً أستاذ @Eng.Qassim الرام هى الميمورى وظهرت عندى حجم كارت الشاشة تعطى نتيجة خطا (Graphics card size: -1 MB) ربنا يبارك فيك ويحفظك

فى هذا البرنامج نعرف مواصفات جهاز الكمبيوتر لم أستطيع التوصل الى نوع الرام DDR2 أو DDR3 ,,وهكذا . لم أستطيع التوصل الى حجم كارت الشاشة . لم أستطيع التوصل الى نواة الويندوذ هل هى X32 أو X68 مرجب بالتجربة و مرحب بالتطوير ان أمكن SystemInfo.rar

أستاذى @kanory جزاك الله خيرا الموجودة V 1.2 بس شغالة