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
…
…
…
🎉精彩不容错过!新文章震撼登场,却因代码不全让人意犹未尽?别担心!我们为你准备了软件截图,让你先睹为快,感受其强大魅力。
✨如果你渴望解锁全部精彩内容,那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门,让你深入探索其中的奥秘,挖掘无限潜力。
🔗源代码下载网址:[https://download.csdn.net/download/qq_32257509/89625448]。赶紧行动起来,下载完整源代码,开启你的编程之旅吧!