在vb中呼叫出控制面板的内容

阿杰

协助工具 内容rundll32.exe最後一个叁数1代表协助工具中TabStrip中的第1个Tab(键盘)
若为2表第二个Tab(声音)以此类推
Call Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1",vbNormalFocus)

新增移除程式 rundll32.exe最後一个叁数1代表新增移除程式中TabStrip中的第1个Tab安装/移除)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1",vbNormalFocus)

显示器 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 背景,若为1则为萤幕保护装置，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus)

使用Flying Windows.scr 当作Screen Saver
Call Shell("rundll32.exe desk.cpl,InstallScreenSaver c:\windows\system\Flying Windows.scr", vbNormalFocus)

国别设定rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 国别,若为1则为
数字，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0",vbNormalFocus)

JoyStick 设定
Call Shell("rundll32.exe shell32.dll,Control_RunDLL joy.cpl", vbNormalFocus)

滑鼠
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0",vbNormalFocus)

键盘
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1",vbNormalFocus)

印表机
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2",vbNormalFocus)

Fonts
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @3",vbNormalFocus)

输入法
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @4",vbNormalFocus)

电源
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @5",vbNormalFocus)

MS Exchange设定
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl",vbNormalFocus)

多媒体 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 音效,若为1则为影像，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0",vbNormalFocus)

声音
Call Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1",vbNormalFocus)

数据机
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl",vbNormalFocus)

网路
Call Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl",vbNormalFocus)

拨号网路
Call Shell("rundll32.exe rnaui.dll,RnaWizard", vbNormalFocus)

密码
Call Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl",vbNormalFocus)

系统 rundll32.exe最後一个叁数0代表TabStrip中的第1个Tab 一般,若为1则为装置管理员，以此类推)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0",vbNormalFocus)

新增硬体 精灵
Call Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1",vbNormalFocus)

新增印表机 精灵
Call Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter",vbNormalFocus)

日期/时间 之日期时间
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl",vbNormalFocus)

日期/时间 之时区
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,/f",vbNormalFocus)

Microsoft Mail 邮局
Call Shell("rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl",vbNormalFocus)

开启档案
Call Shell("rundll32.exe shell32.dll,OpenAs_RunDLL d:\path\filename.ext",vbNormalFocus)

复制磁碟
Call Shell("rundll32 diskcopy.dll,DiskCopyRunDll", vbNormalFocus)

Internet(ie4)
Call Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0",vbNormalFocus)

32位元ODBC
Call Shell("rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl",vbNormalFocus)

拨号网路
Call Shell("undll32.exe shell32.dll,Control_RunDLL telephon.cpl users", vbNormalFocus)