متد 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 ویندوز قرار دارند