VB如何獲得CMD的反饋信息?

使用command$()可以得到參數值。下面是MSDN中的一段完整示例:

創新互聯建站是一家專注于成都網站建設、網站設計與策劃設計,秦淮網站建設哪家好?創新互聯建站做網站,專注于網站建設10余年,網設計領域的專業建站公司;建站業務涵蓋:秦淮等地區。秦淮做網站價格咨詢:18982081108

Command 函數示例

本示例在某個函數中用 Command 函數獲得命令行參數，并將命令行參數以 Variant 類型之數組返回。

Function GetCommandLine(Optional MaxArgs)

'聲明變量。

Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs

'檢查是否提供了 MaxArgs 參數。

If IsMissing(MaxArgs) Then MaxArgs = 10

' 使數組的大小合適。

ReDim ArgArray(MaxArgs)

NumArgs = 0: InArg = False

'取得命令行參數。

CmdLine = Command()

CmdLnLen = Len(CmdLine)

'以一次一個字符的方式取出命令行參數。

For I = 1 To CmdLnLen

C = Mid(CmdLine, I, 1)

'檢測是否為 space 或 tab。

If (C " " And C vbTab) Then

'若既不是 space 鍵，也不是 tab 鍵，

'則檢測是否為參數內含之字符。

If Not InArg Then

'新的參數。

'檢測參數是否過多。

If NumArgs = MaxArgs Then Exit For

NumArgs = NumArgs + 1

InArg = True

End If

'將字符連接到當前參數中。

ArgArray(NumArgs) = ArgArray(NumArgs) C

Else

'找到 space 或 tab。

'將 InArg 標志設置成 False。

InArg = False

End If

Next I

'調整數組大小使其剛好符合參數個數。

ReDim Preserve ArgArray(NumArgs)

'將數組返回。

GetCommandLine = ArgArray()

End Function

在VB.NET中，主函數Sub Main(ByVal Args() As String) 的參數args就是傳遞過來的CMD參數的字符串

在VB.NET中如何獲取cmd命令回顯

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?b?As?Boolean?=?My.Computer.Network.Ping("192.168.1.1",?1000)?'返回ping結果，true表示通，false表示不通，1000表示1000毫秒內返回結果

My.Computer.FileSystem.WriteAllText("c:\1.txt",?b.ToString??vbCrLf,?True)?'寫入到c盤的1.txt文件中并自動加換行回車符

End?Sub

VB點虐 窗體程序如何讓cmd調用？

VB.NET 里面會有一個main方法表示函數的入口

main方法的參數就是命令行傳給它的

shutdown.exe能直接調用是因為你的環境變量有C盤的windows目錄

你只要在你程序的輸出目錄(一般為bin)里面打開命令行輸入程序名稱.exe就可以直接執行你的窗體

如果你要調試輸入命令的效果,你打開你項目的屬性,找到調試里面的命令行參數,在里面輸入測試參數就能在你main函數里面看到結果了

那如果你想打開任何命令行都可以執行你的窗體程序,那你把你程序的安裝目錄設置為環境變量,這樣就可以直接執行這個命令了

vb點虐 下如何獲取CMD返回的值？

Sub?Main()

Dim?myProcess?As?New?Process

Dim?startInfo?As?New?ProcessStartInfo("cmd.exe")

startInfo.Arguments?=?"/c?netsh?wlan?show?networks"

'獲取無線網卡可以搜索到的無線網絡信息

startInfo.UseShellExecute?=?False

startInfo.RedirectStandardOutput?=?True

startInfo.CreateNoWindow?=?True

myProcess.StartInfo?=?startInfo

myProcess.Start()

myProcess.WaitForExit()

Dim?myStreamReader?As?IO.StreamReader?=??????myProcess.StandardOutput

Dim?myStr?As?String?=?myStreamReader.ReadToEnd

End?Sub

可以參考這個例子

網頁標題：vbnet獲取cmd vbnet讀取文件內容
轉載來源：http://vcdvsql.cn/article12/ddijgdc.html

成都網站建設公司_創新互聯，為您提供云服務器、網站導航、品牌網站設計、標簽優化、企業建站、商城網站

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯