電腦控制開啟 執行

mhfo

#Region "windows command 執行"
''' <summary>
''' Calls the calucater 開啟小算盤 .
''' </summary>
Public Shared Sub CallCalucater()
        System.Diagnostics.Process.Start("calc.exe")
        ' 開啟小算盤
End Sub
''' <summary>
''' Calls the notepad 開啟記事本.
''' </summary>
Public Shared Sub CallNotepad()
        System.Diagnostics.Process.Start("notepad.exe")
        ' 開啟記事本
End Sub

''' <summary>
''' Calls the regedit 註冊表.
''' </summary>
Public Shared Sub CallRegedit()
        System.Diagnostics.Process.Start("regedit")
        '註冊表
End Sub
''' <summary>
''' Calls the gpedit 群組原則.
''' </summary>
Public Shared Sub CallGpeditmsc()
        System.Diagnostics.Process.Start("gpedit.msc")
        '群組原則
End Sub
''' <summary>
''' Calls the nslookup IP位址偵測.
''' </summary>
Public Shared Sub CallNslookup()
        System.Diagnostics.Process.Start("nslookup")
        'IP位址偵測
End Sub
''' <summary>
''' Calls the explorer 檔案總管.
''' </summary>
''' <param name="Address">The address.</param>
Public Shared Sub CallExplorer(Address As String)
        If Address <> String.Empty Then
                System.Diagnostics.Process.Start("explorer", Address)
        Else
                '檔案總管
                System.Diagnostics.Process.Start("explorer")
        End If
End Sub
''' <summary>
''' Calls the lusrmgrmsc 本機用戶及群組.
''' </summary>
Public Shared Sub CallLusrmgrmsc()
        System.Diagnostics.Process.Start("lusrmgr.msc")
        '本機用戶及群組
End Sub
''' <summary>
''' Calls the servicesmsc 本機服務.
''' </summary>
Public Shared Sub CallServicesmsc()
        System.Diagnostics.Process.Start("services.msc")
        '本機服務
End Sub
''' <summary>
''' Calls the compmgmtmsc 電腦管理.
''' </summary>
Public Shared Sub CallCompmgmtmsc()
        System.Diagnostics.Process.Start("compmgmt.msc")
        '電腦管理
End Sub
''' <summary>
''' Calls the devmgmtmsc 裝置管理員.
''' </summary>
Public Shared Sub CallDevmgmtmsc()
        System.Diagnostics.Process.Start("devmgmt.msc")
        '裝置管理員
End Sub
''' <summary>
''' Calls the winver Windows版本.
''' </summary>
Public Shared Sub CallWinver()
        System.Diagnostics.Process.Start("winver")
        'Windows版本
End Sub
''' <summary>
''' Calls the taskmgr 工作管理員.
''' </summary>
Public Shared Sub CallTaskmgr()
        System.Diagnostics.Process.Start("taskmgr")
        '工作管理員
End Sub
''' <summary>
''' Calls the eventvwrmsc 事件檢視器.
''' </summary>
Public Shared Sub CallEventvwrmsc()
        System.Diagnostics.Process.Start("eventvwr.msc")
        '事件檢視器
End Sub
''' <summary>
''' Calls the secpolmsc 本機安全性設定.
''' </summary>
Public Shared Sub CallSecpolmsc()
        System.Diagnostics.Process.Start("secpol.msc")
        '本機安全性設定
End Sub
''' <summary>
''' Calls the MSTSC 遠端桌面.
''' </summary>
Public Shared Sub CallMstsc()
        System.Diagnostics.Process.Start("mstsc")
        '遠端桌面
End Sub
''' <summary>
''' Calls the write word pad.
''' </summary>
Public Shared Sub CallWrite()
        System.Diagnostics.Process.Start("write")
        'word pad
End Sub
''' <summary>
''' Calls the MMC 主控台.
''' </summary>
Public Shared Sub CallMmc()
        System.Diagnostics.Process.Start("mmc")
        '主控台
End Sub
''' <summary>
''' Calls the dcomcnfg 系統元件服務.
''' </summary>
Public Shared Sub CallDcomcnfg()
        System.Diagnostics.Process.Start("dcomcnfg")
        '系統元件服務
End Sub
''' <summary>
''' Calls the osk 開啟螢幕小鍵盤.
''' </summary>
Public Shared Sub CallOsk()
        System.Diagnostics.Process.Start("osk")
        '開啟螢幕小鍵盤
End Sub
''' <summary>
''' Calls the control 控制台.
''' </summary>
Public Shared Sub CallControl()
        System.Diagnostics.Process.Start("control")
        '控制台
End Sub
''' <summary>
''' Calls the charmap 字元對應表.
''' </summary>
Public Shared Sub CallCharmap()
        System.Diagnostics.Process.Start("charmap")
        '字元對應表
End Sub
''' <summary>
''' Calls the odbcad32 ODBC資料來源管理器.
''' </summary>
Public Shared Sub CallOdbcad32()
        System.Diagnostics.Process.Start("odbcad32")
        'ODBC資料來源管理器
End Sub
''' <summary>
''' Calls the ipconfig.
''' </summary>
''' <returns></returns>
Public Shared Function CallIpconfig() As String
        Dim psi As System.Diagnostics.ProcessStartInfo = New ProcessStartInfo()
        psi.FileName = "ipconfig.exe"
        psi.Arguments = " /all"
        psi.UseShellExecute = False
        psi.RedirectStandardInput = True
        psi.RedirectStandardOutput = True
        Dim ps As System.Diagnostics.Process = New Process()
        ps.StartInfo = psi
        ps.Start()
        Dim sr As StreamReader = ps.StandardOutput
        ps.Dispose()
        Return sr.ReadToEnd()
End Function
#End Region