متد shell

[mohsenaminzare]

با متد shell می توان برنامه های exe را در وی بی 6 اجرا کرد فایلهای با پسوند .cpl مربوط به اپلت های control panel را چطوری می توان اجرا کرد ؟

[romina2006]

Private Sub Command1_Click()
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl", vbNormalFocus)
ID = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)
End Sub

[mohsenaminzare]

با تشکر از پاسخ زیبای شما
لطف کنید در مورد rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl کمی توضیح دهید.

[romina2006]

ID = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl", vbNormalFocus)

کد بالا اپلت Add or Remove Programs کنترل پنل را اجرا می کند.

روش دیگر برای اجرای اپلتهای کنترل پنل :

ابتدا از قسمت References گزینه Microsoft Shell Controls And Automation را انتخاب کن


Private Sub Command1_Click()
Dim SH As New Shell
SH.ControlPanelItem "access.cpl" 'Accessibility Option
SH.ControlPanelItem "appwiz.cpl" 'Add/Remove Programs
SH.ControlPanelItem "desk.cpl" 'Display Properties
SH.ControlPanelItem "hdwwiz.cpl" 'Add Hardare Wizard
SH.ControlPanelItem "inetcpl.cpl" 'Regional and Language Options
SH.ControlPanelItem "intl.cpl" 'Internet Options
SH.ControlPanelItem "joy.cpl" 'Game Controllers
SH.ControlPanelItem "main.cpl" 'Mouse Properties
SH.ControlPanelItem "main.cpl @1" 'Keyboard Properties
SH.ControlPanelItem "mmsys.cpl" 'Sounds and Audio Devices Properties
SH.ControlPanelItem "modem.cpl" 'Phone and Modem Options
SH.ControlPanelItem "ncpa.cpl" 'Network Connections
SH.ControlPanelItem "nusrmgr.cpl" 'User Accounts
SH.ControlPanelItem "powercfg.cpl" 'Power Options Properties
SH.ControlPanelItem "sapi.cpl" 'Speech Properties
SH.ControlPanelItem "sysdm.cpl" 'System Properties
SH.ControlPanelItem "telephon.cpl" 'Phone and Modem Options
SH.ControlPanelItem "timedate.cpl" 'Date and Time Properties
End Sub

[vb341]

خوب دوست عزیز این عبارتهای قبل از cpl. رو از کجا میشه استخراج کرد . منظورم اسامی قسمتهای مختلف در کنترل پنل هست

[romina2006]

خوب دوست عزیز این عبارتهای قبل از cpl. رو از کجا میشه استخراج کرد . منظورم اسامی قسمتهای مختلف در کنترل پنل هست

برای بدست آوردن اسم اپلتها کافیه عبارت cpl.* را جستجو کنید که در پوشه System32 ویندوز قرار دارند