Option Explicit
Private Sub Form_Load()
' Me.Picture = LoadPicture(App.Path & "\control.bmp")
End SubPrivate Sub Label1_Click(Index As Integer)
Dim x
Select Case Index
Case 0 '打开 IE4 的设置窗口:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")
Case 1 '打开 声音的设置窗口:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
Case 2 '启动日期和时间设置:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
Case 3 '启动显示设置面板:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,")
Case 4 '启动网络设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
Case 5 '启动多媒体设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
Case 6 '启动辅助选项
x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")
Case 7 '打开鼠标设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
Case 8 '启动键盘设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")
Case 9 '打开区域设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
Case 10 '启动添加硬件设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
Case 11 '启动添加软件设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
Case 12 '打开系统设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
Case 13 '启动调制解调器设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
Case 14 '打开密码设置:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
End Select
End Sub
Private Sub Command1_Click() '启动控制面板:
Dim x
x = Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
' Me.Picture = LoadPicture(App.Path & "\control.bmp")
End SubPrivate Sub Label1_Click(Index As Integer)
Dim x
Select Case Index
Case 0 '打开 IE4 的设置窗口:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl")
Case 1 '打开 声音的设置窗口:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1")
Case 2 '启动日期和时间设置:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
Case 3 '启动显示设置面板:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,")
Case 4 '启动网络设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
Case 5 '启动多媒体设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
Case 6 '启动辅助选项
x = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")
Case 7 '打开鼠标设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1")
Case 8 '启动键盘设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0")
Case 9 '打开区域设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0")
Case 10 '启动添加硬件设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
Case 11 '启动添加软件设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
Case 12 '打开系统设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
Case 13 '启动调制解调器设置
x = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl")
Case 14 '打开密码设置:
x = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl")
End Select
End Sub
Private Sub Command1_Click() '启动控制面板:
Dim x
x = Shell("rundll32.exe shell32.dll,Control_RunDLL", 1)
End Sub
Private Sub Command2_Click()
End
End Sub
![](https://imgsa.baidu.com/%CE%DE%C1%C4%CB%A3%CB%A3%BF%E1/pic/item/69f73c45e4edd629cffca3ec.jpg)