Imports System.Diagnostics
Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim hWnd As IntPtr = Shell("control.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim hWnd As IntPtr = Shell("cmd.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim hWnd As IntPtr = Shell("explorer.exe", AppWinStyle.NormalFocus)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim filePath As String = "services.msc" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim filePath As String = "compmgmt.msc" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim filePath As String = "gpedit.msc" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim filePath As String = "Taskmgr.exe" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim filePath As String = "devmgmt.msc" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim filePath As String = "diskmgmt.msc" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Dim filePath As String = "mmc.exe" ' 将此路径替换为实际的.msc 文件的绝对路径
Process.Start(filePath)
End Sub
End Class