سلام به همه دوستان عزیز
امروز می خوام مطلب کوتاهی در مورد نحوه اجرای بعضی از قسمت های ویندوز در MMB توضیح کوتاهی بدم. مثلا شما دوست دارید با کلیک روی شئی قسمت Internet Option از کنترل پانل اجرا گردد. این مطلب زمانی مفیده که مثلا میخواهید یک سی دی آموزشی در زمینه کامپیوتر یا هرچیز دیگه ای درست کنید .
نکته : تمامی فرمان های زیر را باید در قسمت اسکریپ نویسی شی مورد نظزتون قرار بدید.
دو عدد اخر هر اسکریپ تعیین کننده زبانه پنجره بازشونده است مثلا در مورد اسکریپ دوم (Display Properties) اگر به جای منفی یک از 0 استفاده کنید پنجره Display properties با زبانه Screen Saver و اگر از 3 استفاده کنید با زبانه Setting به نمایش در می آید.
لیست فرمان ها:
1- اجرای Date and Time
Run("rundll32.exe","shell32.dll,Control_RunDLL TIMEDATE.CPL,@0,0")
2- اجرای Display Properties
Run("rundll32.exe","shell32.dll,Control_RunDLL DESK.CPL,@0,-1")
3- اجرای Network Connection
Run("rundll32.exe","shell32.dll,Control_RunDLL NCPA.CPL,@0,2")
4- اجرای System Properties
Run("rundll32.exe","shell32.dll,Control_RunDLL SYSDM.CPL,@0,0")
5- اجرای Sound And Audio Device Properties
Run("rundll32.exe","shell32.dll,Control_RunDLL mmsys.cpl")
6- اجرای Game Controller
Run("rundll32.exe","shell32.dll,Control_RunDLL joy.cpl")
7- اجرای Internet Option
Run("rundll32.exe","shell32.dll,Control_RunDLL inetcpl.cpl users")
7- اجرای Format Disk
Run("rundll32.exe","shell32.dll,SHFormatDrive")
8- اجرای Copy Disk
Run("rundll32.exe","diskcopy.dll,DiskCopyRunDll")
7- اجرای Add or Remove Program
Run("RUNDLL32.EXE","shell32.dll,Control_RunDLL appwiz.cpl,,1")
8- اجرای Font Folder
Run("RUNDLL32.EXE","shell32.dll,SHHelpShortcuts_Ru nDL L FontsFolder")
9- اجرای Add Printer
Run("RUNDLL32.EXE","SHELL32.DLL,SHHelpShortcuts_Ru nDL L AddPrinter")
10- و در آخر هم یک اسکریپ جالب برای تغییر عملکرد کلیک های موس
Run("RUNDLL32.EXE","USER32.DLL,SwapMouseButton")
در مورد خاموش کردن و رستارت ویندوز هم باید این مطلب را بگم که از دو اسکریپ زیر میتونید استفاده کنید. اما در ویندوز اکس پی فکر نکنم عمل کنه. و دلیل اون هم تغییر در فایل RUNDLL32.exe ویندوزه . دارم روش کار میکنم تا راهش را پیدا کنم.
Run("RUNDLL32.EXE","USER.EXE,ExitWindows")
Run("RUNDLL32.EXE","USER.EXE,ExitWindow***ec
