بعد البحث المطول على MSDN و بمساعدة الأخ msayed2004 فى البداية و بالعمل لعدة لساعات اليوم(خاصة فى موضوع ال Select Case و الذى لم يكن سهلا أبدا كما سترون من الكود) أقدم لكم الكود النهائى..
الكود مرفق, و أنا بأنتظار الردود.
سوف أرفعه على موقع PSCode أيضا.
أنا متأكد أن هذا الكود هو الوحيد الذى تم عمله 100% بالفيجوال بيسك لأول مرة على الإطلاق.و هو خطوة جيدة للعمل على التوافق مع الفيستا.
أرفقت الملف التنفيذى أيضا ليمكن لمستخدمى الفيستا أختباره حتى لو لم يكن لديهم الفى بى.
تم تعديل هذه المشاركة بواسطة xhacker في 16 أغسطس 2007 في 20:41
مش الأول أطلاقا , أنا أتسليت بكتابة واحد النهاردة الفجر يعنى سبقتك :P
الكود كتابتة كويسة لكن لم أتأكد من كل أجزاءه أو دقته , لكن أزل التالى من الكود لأنه مجرد Dead Code غير مستعمل و لا أعلم أنت أضفته ليه أساسا ؟!
Private Declare Function GetVersion Lib "kernel32" () As Long
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type
Private Const VER_PLATFORM_WIN32s As Long = 0
Private Const PRODUCT_UNLICENSED As Long = &HABCDABCD
تم تعديل هذه المشاركة بواسطة msayed2004 في 16 أغسطس 2007 في 20:30
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
لا لا يا مان (h)
انا كمان حاولت و أخدت الرد الإيجابى كمان النهارده على الكود المعدل المبدئى اللى رفعته أمبارح بليل على الساعة 12 ;) فى الموضوع القديم, على العموم أنا معترف أنك أنت اللى أرشدتنى للطريق الصح من خلال المقالة إياها :).
تم التعديل فى الكود و المرفقات
أزلت ال Dead Code الذى كنت أضفته لعمل مقارنة مبدئية ثم وجدت أن الدالة الثانية تكفى و لكننى نسيت أن أمسح الأولى .
و لكن السطر ال Unlicensed مهم, لأنه يشير إلى نسخ الفيستا التى لم يتم ترخيصها بعد B) .عدلت فى الكود و أضفته.
بأنتظار أى مساهمات إيجابية و نتائج تجارب على الفيستا :rolleyes: .
تم تعديل هذه المشاركة بواسطة xhacker في 16 أغسطس 2007 في 21:18
شكرا ليكم اخي الكريم
انت جربت الكود الجديد الاول ؟
ياريت يا جماعة التجارب للتأكيد.
نا حملت الملف بوقت 3:55
وهو يعمل بنسبة نجاح 100%
مشكور أخى الكريم
أنا كده مطمئن 100% للكود
الأن يمكن لى لك و لباقى الأعضاء الأستفادة و البدء فى توفيق برامجنا مع الفيستا :)
تم تعديل هذه المشاركة بواسطة xhacker في 17 أغسطس 2007 في 06:02
السلام عليكم ورحمة الله
الاخوة الكرام بارك الله فيكم على مجهوداتكم القيمه.
ولكن ,,,
انا جربت اليرنامج التنفيذى (EXE) المرفق من حضرتكم على نسخة الوندوز Windows XP عندى فى البيت واشتغل تمام, وجاب لى فعلا اصدار النسخة.
اما عند تجربته على نسخة الوندوز Windows Vista عندى فى المكتب , لم تعمل واعطت رسالة خطأ كما فى الصوره المرفقه.
مع العلم ان نسختى الوندوز عتدى اصليتين ومسجلتين.
طبعا انا كل فهمى للبرنامج انه بيعطيك اصدار نسخة الوندوز بتاعتك , وانا كتبت هذه المشاركة لعلها تكون مفيده فى لفت الانتباه الى عيب ما. اما لو كان فهمى خطأ فأنا اعتذر ويمكنكم تجاهل مشاركتى.
هذه نسخة الوندوز Windows Vista
وهذه الرسالة المعطاه
وبالله التوفيق,,,
غريب هذا الموضوع...
هل ي يمكنك تجريب تشغيله من السورو و تحديد السطر الذى يصدر الخطأ بالضبط ؟
غريب لأن الأخ hamata جربه و كان Ultimate أيضا..
ياريت مزين من التجارب..
لقد عرفت أين الخطأ
الخطأ كان فى الثابت UNLICENSED
و قد قمت بتعديله و هو الأن يعمل 100% و قد قمت بأختباره بنفسى على جهازين يعملون بنسخ مختلفة من الفيستا
المشكلة أننى لا يمكننى التعديل فى المرفق الأصلى.فياريت أحد المشرفين الكرماء يمسح المرفق القديم و يستبدله بالمرفق الذى مع هذه المشاركة لكى نتفادى اللخبطة.
السلام عليكم ورحمة الله
تمام اخى الكريم , اشتغل على وندوز Windows Vista عندى. بس بيعطى الرساله دى
Windows Vista not Activated Product [Version : 6.0.6000]
مع ان النسخه اصليه , والمفروض معمول لها Activate.
عامة بالتوفيق ان شاء الله ,,,
لأ صراحة أنا أشك هنا..ياريت أى حد تانى يجرب و يقولنا و يكون متأكد أنه Activated ..
تم تعديل هذه المشاركة بواسطة xhacker في 17 أغسطس 2007 في 19:09
تم التعديل فى الكود و للمرة الأخيرة بإذن الله
الكود مع المرفقات و قد أزلت الكود القديم.
X هو الموضوع ده تبعك و لا أتسرق منك ؟!
The FINAL solution for identifying 31 Vista editions+Older Windows also
تم تعديل هذه المشاركة بواسطة msayed2004 في 18 أغسطس 2007 في 03:32
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
الموضوع تبعى
يمكنك التأكد بأرسال إيميل إلى الAuthor و سوف أرد عليك :)
السلام عليكم ورحمة الله وبركاته
موضوع جميل أخ xhacker وجهد تشكر عليه
فقط أردت إغتنام فرصة تجريب الكود على الفيستا من الإخوة لكي يجربو سكريبت الwmi على الفيستا أيضا فأنا للأسف لا أملك نسخة هنا وقد كنت حملتها وبعدين رجعت للاكسبي
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.")
Set colOperatingSystems = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
MsgBox "Caption: " & objOperatingSystem.Caption & vbCrLf & _
"OSType: " & objOperatingSystem.OSType & vbCrLf & _
"Version: " & objOperatingSystem.Version & vbCrLf & _
"Service Pack: " & objOperatingSystem.ServicePackMajorVersion & _
"." & objOperatingSystem.ServicePackMinorVersion & vbCrLf & _
"Windows Directory: " & objOperatingSystem.WindowsDirectory, vbInformation, "Informations"
Nextبالتوفيق ان شاء الله للجميع
Alex Movsessian ؟!!!!!!
اقتباسWelcome !I am Alex Movsessian, Armenian(Hayastansi), currently living in Egypt. Love to make NEW codes ;) My main program URL: xhacker.download-area51.com
أنت عدلت في صفحتك بعد ما أنا شفتها أول مرة.
كنت مفكرك مصرى الأصل ;) علشان كده خفت يكون حد لطش المشروع منك و ده بيحصل كتير على PSC .
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
الحل في الصورة
اعتقد ان ده المثال الاخير
أنا سعيد جدا أن الكود تبعى شغال 100%, و أعتقد أن له أسبقية على script wmi لأنه يتعرف على إصدارات الويندوز الأخرى أيضا.
شىء جيد فعلا أن حققنا السبق بجد, و ألف شكر للأخ msayed2004 و للأخ hamata على المثابرة.
نعم أنا عدلت فى الصفحة لكى أزيل أى شك فى أنه أنا صاحب الكود(بالمناسبة: هل دخلت على الموقع تبعى الذى أضفته إلى الصفحة ؟؟ ;) ).
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
