المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : طلب من كل خبراء الريجيسترى


باسم
23-02-2002, 01:22 PM
أخوانى أعضاء المنتدى
بالتأكيد سمعتم عن برنامج أسرار الويندوز وهو يعتبر فى مضمونه برنامج winboost
ومعروف أن البرنامجين يقومان بالتحكم فى الويندوز عن طريق تغيير بعض القيم فى ملف الريجيسترى
فهل يتبرع أحد الخبراء بتوضيع هذه الطرق فى تغيير قيم الريجيسترى

فمثلاً هل يعرف أحدكم فى أى مكان فى الرجيسترى نستطيع تغيير كلمة start مع العلم أن برنامج winboost يقوم بهذه الحركة وبكل سهولة

باسم
24-02-2002, 01:59 PM
للرفع
فينك يا مشرفنا hamadi ويا أخى coobra

cobraa
25-02-2002, 05:10 PM
عزيزي الأخ باسم
آسف لتأخري في الرد وذلك نظرا لظروف العمل والعيد معا .
عزيزي إن ملف الريجستري يختلف من نوع إلى آخر طبقا لاختلاف نوع الوندوز الذي لديك . والعبث فيه قد يؤدي إلى أضرار بالجهاز لديك .
ولكن : ما الغرض من تغيير كلمة ابدأ ، هل هو لمجرد التفنن واظهار البراعة في سمات الوندوز لديك ؟ أم الغرض منه أخفاءها ؟؟؟
إذا كان القصد اظهار البراعة فيها فبرنامج winboost يفي بالغرض خاصة لسهولته وسرعته في تعديل السمات وارجاعها .
أما اذا كان القصد اخفاء زر ابدأ فالحل هو كالتالي :
أوامر الريجستري تحتاج إلى قيم وبعض الأكواد . وقد وجدت هذا الكود الذي يمكنك من اخفاء زر ابدأ كما تريد :

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Function hideStartButton()
'This Function Hides the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 0
End Function

Function showStartButton()
'This Function Shows the Start Button'
OurParent& = FindWindow("Shell_TrayWnd", "")
OurHandle& = FindWindowEx(OurParent&, 0, "Button", vbNullString)
ShowWindow OurHandle&, 5
End Function

وباختصار شديد إليك هذاالبرنامج الذي يساعدك في اخفاء واظهار زر ابدأ كما يحلو لك :

اضغط هنا (http://www.geocities.com/cobraa2002/hide.zip)
حجمه قبل الضغط 10 ك.ب
حجمه بالملف المضغوط 3.62 ك.ب

وتقبل تحياتي :
أخوك الكوبرا ،،،،،،،،،،

باسم
26-02-2002, 03:23 PM
1000 شكر أخى cobraa على مشاركتك
ولكن أنا لا أقصد تغيير كلمة أبدأ بعينها ولكن أردت أن أعطى مثال على طلبى كى يفهمه الأعضاء وطلبى هو معرفة القيم التى يغيرها برنامج winboost فى كل خياراته أو بعضها حسب ما يتيسر على الأعضاء معرفته