.net打开系统程序

Option Explicit

Private Sub Command1_Click(Index As Integer)

Select Case Index

    Case 0

    '启动控制面板:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL")

    Case 1

    '启动辅助选项面板:
    '常规:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")

    Case 2

    '显示:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3")

    Case 3

    '键盘:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1")

    Case 4

    '鼠标:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4")

    Case 5

    '声音:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2")

    Case 6

    '启动显示设置面板:
    '背景:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0")

    Case 7

    '外观:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2")

    Case 8

    '屏幕保护:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1")

    Case 9

    '设置:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3")

    Case 10

    '启动日期和时间设置:
    Shell ("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0")

    Case 11

    '显示设置时间区域。
    Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,1"

    Case 12

    '打开 IE6 的设置窗口：
    Shell "rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0", 9

    '{Internet 属性-安全}
    'Call Shell("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,1", 9)
    '{Internet 属性-内容}
    'Call Shell("rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,2", 9)
    '{Internet 属性-连接}
    'Call Shell("rundll32.exe shell32.dll,Control_RunDLL I

    Case 13

    '调用“添加打印机”对话框
    Shell "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter"

    Case 14

    '调用磁盘拷贝对话框：
    Shell "rundll32 diskcopy,DiskCopyRunDll", vbNormalFocus

    Case 15

    '添加删除程序
    Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1"

    Case 16

    '显示Windows 安装。
    Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2"

    Case 17

    '显示启动盘,for 9x
    Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3"

    Case 18

    '添加新硬件
    Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1"

    Case 19

    '复制磁盘
    Shell "rundll32.exe diskcopy.dll,DiskCopyRunDll"

    Case 20

    '打开拨号连接,for 9x
    Shell "rundll32.exe rnaui.dll,RnaDial " & "连接_名称", 1

    Case 21

    '操纵杆
    Shell "rundll32.exe shell32.dll,Control_RunDLL joy.cpl"

    Case 22

    'MS Exchange 属性设置,for 9x
    Shell "rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl"

    Case 23

    'MS Postoffice Workgroup Admin 设置,for 9x
    Shell "rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl"

    Case 24

    '显示电源管理属性。
    Shell "rundll32.exe shell32.dll,Control_RunDLL main.cpl @4"

    Case 25

    '显示性能设置。
    Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3"

    Case 26

    '显示硬件设置。
    Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2"

End Select

End Sub

'主设置
'模块: main.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
'结果: 显示鼠标属性?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
'结果： 显示键盘/速度属性。
’
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,1
'结果： 显示键盘/语言属性。
’
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @1,2
'结果： 显示键盘/常规属性。
’
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
'结果: 显示打印机属性?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
'结果: 显示字体属性?
’
’
'增加 modem
'模块: modem.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL modem.cpl,add
’
'多媒体
'模块: mmsys.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,0
'结果: 声音?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,1
'结果: 视频?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,2
'结果: 声音 MIDI?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,3
'结果：CD/音乐。
’
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,4
'结果: 高级?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1
'结果: 声音?
’
'网络
'模块: netcpl.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
’
'显示打开方式对话框建立文件的关联
'模块: shell32.dll
'命令：rundll32.exe shell32.dll,OpenAs_RunDLL path\filename
’
'口令
'模块: password.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL password.cpl
’
'区域设置
'模块: intl.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL intl.cpl,0
'结果: 区域设置?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL intl.cpl,1
'结果: 数字格式设置?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL intl.cpl,2
'结果: 金额格式设置?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL intl.cpl,3
'结果: 时间格式设置?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL intl.cpl,4
'结果: 日期格式设置?
’
'屏幕保护
'模块: appwiz.cpl
'命令： rundll32.exe desk.cpl,InstallScreenSaver c:\win\system\Flying Windows.scr
'结果: 安装屏幕保护并显示预览属性页?
’
'系统设置
'模块: sysdm.cpl
'命令： rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,0
'结果: 显示常规设置?
’
'命令： rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,1
'结果: 显示设备管理设置?

'打开 Win95 的创建快捷方式窗口
'命令： rundll32.exe AppWiz.Cpl,NewLinkHere " & App.Path & “”, 1