السلام عليكم و رحمة الله و تعالى و بركاته .
مرحبا باعضاء المنتدى الكرام , اليوم سوف اعلمكم كيف تصنعون لوحة تحكم بسيطة بالفيجوال بيسك 6.0 و انا اسف لعدم وضع صور .
اولا انشئ مشروعا جديدا من نوع standard exe تم ضع 12 زر على الفورم و رتبهم كما تريد و قم بتسميتهم على الشكل التالي :
- الزر 1 : windows control panel .
- الزر 2 : add or delete progs .
- الزر 3 : multimedia settings .
- الزر 4 : accessibility properties .
- الزر 5 : date and time settings .
- الزر 6 : mouse settings .
- الزر 7 : display settings .
- الزر 8 : modem settings .
- الزر 9 : internet or ie settings .
- الزر 10 : joystick settings .
- الزر 11 : system settings .
- الزر 12 : exit .
و الان ناتي الى الاكواد .
- الزر 1 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL", vbNormalFocus)
- الزر 2 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
- الزر 3 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
- الزر 4 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL access.cpl", vbNormalFocus)
- الزر 5 :
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
- الزر 6 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
- الزر 7 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL desk.cpl,,1", vbNormalFocus)
- الزر 8 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
- الزر 9 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL inetcpl.cpl", vbNormalFocus)
- الزر 10 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
- الزر 11 :
Call Shell("rundll32.exe Shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
- الزر 12 :
unload me او end
و كهدية مني لكم ارفقت لكم البرنامج بصيغة exe مع السورس .
تحياتي لكم .