با متد shell می توان برنامه های exe را در وی بی 6 اجرا کرد فایلهای با پسوند .cpl مربوط به اپلت های control panel را چطوری می توان اجرا کرد ؟
با متد shell می توان برنامه های exe را در وی بی 6 اجرا کرد فایلهای با پسوند .cpl مربوط به اپلت های control panel را چطوری می توان اجرا کرد ؟
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
با تشکر از پاسخ زیبای شما
لطف کنید در مورد rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl کمی توضیح دهید.
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
خوب دوست عزیز این عبارتهای قبل از cpl. رو از کجا میشه استخراج کرد . منظورم اسامی قسمتهای مختلف در کنترل پنل هست