محب للبرمجة .. تفضل بالمشاركة

[ثامر أبو بلقيس]

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

جيد أكتب الطريقة مع ملاحظة انه :
- غير مسموح الاستعانة بملفات dll ولا الاضافات بشتى أنواعها على غرار luacom

موفــــــــــــــــــــــ :abc_138:ـــــــــــق

نلتقي بود :abc_138: لقراءة أفكار جميلة :abc_139: مفيدة

[عبد الهادي بهاب]

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

استفزاز رائع

محاولة اليس هذا من ضمن الحل

os.getenv(varname)

شكرا

[ياسرهتهت]

بسم الله الرحمن الرحيم
بهذا كنت اعرف مقاس الشاشة مناسب ام لا
display = System.GetDisplayInfo();

موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

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

استفزاز رائع

محاولة اليس هذا من ضمن الحل

os.getenv(varname)

شكرا

هذا الكود يخص متغيرات النظام variable globale وهي متغيرات عامة
كأن تعرف من خلاله مثلا على :
اسم الجهاز - القرص الذي يحتوي مجلدات النظام - مجلد المستخدم الحالي
عدد المعالجات المتوفرة على الجهاز - اسم نظام التشغيل - قائمة امتدادات الملفات القابلة للتشغيل
القرص الذي يحتوي مجلدات النظام - مجلد النظام- اسم المستخدم ... الخ

استغلاله في هكذا طلب عن نفسي أراه مستبعد قليلا لأني حاولت في الامر سابقا ولم يفدني
في مسعى مشابه :abc_138:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
بهذا كنت اعرف مقاس الشاشة مناسب ام لا
display = System.GetDisplayInfo();

موفق بإذن الله ... لك مني أجمل تحية .

نعم استاذ ياسر يمكن فعل ذلك لكن معرفة نوع الكارت من خلاله اجراء لم
أقرأه بعد ... اذا تحققت امكانية ذلك يوما من المفيد لي قراءتها :abc_138:

[ياسرهتهت]

بسم الله الرحمن الرحيم
محاولة محاكات كود فشلة :abc_085:

vID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "VendorIdentifier", true);
Display adaptersType = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "Display adaptersNameString", true);
Display adapterssiz = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "~Mpz", true);
Display adaptersID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "Identifier", true);

Paragraph.SetText("Display adapters", vID.."\r\n \r\n"..Display adaptersType.." "..Display adapterssiz.."\r\n \r\n"..Display adaptersID);



موفق بإذن الله ... لك مني أجمل تحية . :abc_102:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
محاولة محاكات كود فشلة :abc_085:

vID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "VendorIdentifier", true);
Display adaptersType = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "Display adaptersNameString", true);
Display adapterssiz = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "~Mpz", true);
Display adaptersID = Registry.GetValue(HKEY_LOCAL_MACHINE, "HARDWARE\\DESCRIPTION\\System\\Display adapters\\0", "Identifier", true);

Paragraph.SetText("Display adapters", vID.."\r\n \r\n"..Display adaptersType.." "..Display adapterssiz.."\r\n \r\n"..Display adaptersID);



موفق بإذن الله ... لك مني أجمل تحية . :abc_102:

أستاذ ياسر ضع هذا الكود على شكل ملف دفعي bat
dxdiag /t c:/tmp1.txt


ماناتجه في القرص c ؟

[ياسرهتهت]

أستاذ ياسر ضع هذا الكود على شكل ملف دفعي bat
dxdiag /t c:/tmp1.txt


ماناتجه في القرص c ؟

---------------------------------------------
بسم الله الرحمن الرحيم

ناتجة ملف نصي يعطي مواصفات الجهاز

http://b.top4top.net/p_101p4yw1.png

تمام استاذي الكريم
:abc_138:

[عبد الهادي بهاب]

---------------------------------------------
بسم الله الرحمن الرحيم

ناتجة ملف نصي يعطي مواصفات الجهاز

http://b.top4top.net/p_101p4yw1.png

تمام استاذي الكريم
:abc_138:



لقد ضعت يا سادة ...وحدة وحدة ...........اعد الكود يا ياسر ........لم افهم ما قمت به و لا هذه المشكلة الجديدة bat

[ثامر أبو بلقيس]

---------------------------------------------
بسم الله الرحمن الرحيم

ناتجة ملف نصي يعطي مواصفات الجهاز

http://b.top4top.net/p_101p4yw1.png

تمام استاذي الكريم
:abc_138:


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

لاحظ :
dxdiag /x c:/dx.xml
أليس كذلك :abc_138:

[ياسرهتهت]

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

لاحظ :
dxdiag /x c:/dx.xml
أليس كذلك :abc_138:
-----------------------------------------------

http://c.top4top.net/p_10171hj1.png

تمام

بس الملف txt شكلوا اجمل وارتب من xml

:abc_138::abc_138:

[ياسرهتهت]

لقد ضعت يا سادة ...وحدة وحدة ...........اعد الكود يا ياسر ........لم افهم ما قمت به و لا هذه المشكلة الجديدة bat

-------------------
بسم الله الرحمن الرحيم
لا ضياع ان شاء الله
فقط استخرج الاستاذ ثامر المعلومات بملف دفاعي bat
وسيسحب المعلومات للبرنامج
:abc_025::abc_025:

[ثامر أبو بلقيس]

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

http://c.top4top.net/p_10171hj1.png

تمام

بس الملف txt شكلوا اجمل وارتب من xml

:abc_138::abc_138:

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

جرب هذا الكود في زر لم أكمل كل البيانات لضيق الوقت
mm = XML.GetXML(XML.Load("C:\\dx.xml"));
XML.SetXML(mm);
Manufacturer = XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/Manufacturer");
CardName = XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/CardName");
ChipType=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/ChipType");
DACType=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DACType");
DeviceKey=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DeviceKey");
DisplayMemory=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DisplayMemory");
CurrentMode=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/CurrentMode");
Monitor=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/Monitor");
DriverName=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverName");
DriverVersion=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverVersion");
DriverLanguage=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverLanguage");
DriverDate=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverDate");
Dialog.Message("Notice","Manufacturer:"..Manufacturer.."\r\n".."CardName:"..CardName.."\r\n".."ChipType:"..ChipType
.."\r\n".."DACType:"..DACType.."\r\n".."DeviceKey:"..DeviceKey.."\r\n".."DisplayMemory:"..DisplayMemory.."\r\n"..
"CurrentMode:"..CurrentMode.."\r\n".."Monitor:"..Monitor.."\r\n".."DriverName:"..DriverName.."\r\n".."DriverVersion:"
..DriverVersion.."\r\n".."DriverLanguage:"..DriverLanguage.."\r\n".."DriverDate:"..DriverDate);

[ياسرهتهت]

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

جرب هذا الكود في زر لم أكمل كل البيانات لضيق الوقت
mm = XML.GetXML(XML.Load("C:\\dx.xml"));
XML.SetXML(mm);
Manufacturer = XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/Manufacturer");
CardName = XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/CardName");
ChipType=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/ChipType");
DACType=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DACType");
DeviceKey=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DeviceKey");
DisplayMemory=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DisplayMemory");
CurrentMode=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/CurrentMode");
Monitor=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/Monitor");
DriverName=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverName");
DriverVersion=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverVersion");
DriverLanguage=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverLanguage");
DriverDate=XML.GetValue("DxDiag/DisplayDevices/DisplayDevice/DriverDate");
Dialog.Message("Notice","Manufacturer:"..Manufacturer.."\r\n".."CardName:"..CardName.."\r\n".."ChipType:"..ChipType
.."\r\n".."DACType:"..DACType.."\r\n".."DeviceKey:"..DeviceKey.."\r\n".."DisplayMemory:"..DisplayMemory.."\r\n"..
"CurrentMode:"..CurrentMode.."\r\n".."Monitor:"..Monitor.."\r\n".."DriverName:"..DriverName.."\r\n".."DriverVersion:"
..DriverVersion.."\r\n".."DriverLanguage:"..DriverLanguage.."\r\n".."DriverDate:"..DriverDate);

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

بسم الله الرحمن الرحيم
تمام 100% استاذي الكريم

http://d.top4top.net/p_1011plf1.png



موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

للتذكيــــــــــــــــر
لتعويض الملف الدفعي من داخل الاوتوبلاي يمكن التأكد أن الكود التالي
يعطي نفس ناتج الملف الدفعي فقط يشترط حسن استغلاله
command = [[
dxdiag /x c:/dx.xml
]]
os.execute (command)

ويمكن ربطه بشرط تواجده حتى لا يتم التكرار كل مرة :abc_138:

[ثامر أبو بلقيس]

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

استفزاز رائع

محاولة اليس هذا من ضمن الحل

os.getenv(varname)

شكرا

حاول كتابة الاكواد المعبرة على متغيرات النظام بهذا الكود :abc_138:

[عبد الهادي بهاب]

حاول كتابة الاكواد المعبرة على متغيرات النظام بهذا الكود :abc_138:

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