vbnet獲取cmd vbnet讀取文件內(nèi)容

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

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

創(chuàng)新互聯(lián)建站是一家專注于成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計與策劃設(shè)計,秦淮網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設(shè)10余年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:秦淮等地區(qū)。秦淮做網(wǎng)站價格咨詢:18982081108

Command 函數(shù)示例

本示例在某個函數(shù)中用 Command 函數(shù)獲得命令行參數(shù)，并將命令行參數(shù)以 Variant 類型之?dāng)?shù)組返回。

Function GetCommandLine(Optional MaxArgs)

'聲明變量。

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

'檢查是否提供了 MaxArgs 參數(shù)。

If IsMissing(MaxArgs) Then MaxArgs = 10

' 使數(shù)組的大小合適。

ReDim ArgArray(MaxArgs)

NumArgs = 0: InArg = False

'取得命令行參數(shù)。

CmdLine = Command()

CmdLnLen = Len(CmdLine)

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

For I = 1 To CmdLnLen

C = Mid(CmdLine, I, 1)

'檢測是否為 space 或 tab。

If (C " " And C vbTab) Then

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

'則檢測是否為參數(shù)內(nèi)含之字符。

If Not InArg Then

'新的參數(shù)。

'檢測參數(shù)是否過多。

If NumArgs = MaxArgs Then Exit For

NumArgs = NumArgs + 1

InArg = True

End If

'將字符連接到當(dāng)前參數(shù)中。

ArgArray(NumArgs) = ArgArray(NumArgs) C

Else

'找到 space 或 tab。

'將 InArg 標(biāo)志設(shè)置成 False。

InArg = False

End If

Next I

'調(diào)整數(shù)組大小使其剛好符合參數(shù)個數(shù)。

ReDim Preserve ArgArray(NumArgs)

'將數(shù)組返回。

GetCommandLine = ArgArray()

End Function

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

在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結(jié)果，true表示通，false表示不通，1000表示1000毫秒內(nèi)返回結(jié)果

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

End?Sub

VB點虐 窗體程序如何讓cmd調(diào)用？

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

main方法的參數(shù)就是命令行傳給它的

shutdown.exe能直接調(diào)用是因為你的環(huán)境變量有C盤的windows目錄

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

如果你要調(diào)試輸入命令的效果,你打開你項目的屬性,找到調(diào)試?yán)锩娴拿钚袇?shù),在里面輸入測試參數(shù)就能在你main函數(shù)里面看到結(jié)果了

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

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

Sub?Main()

Dim?myProcess?As?New?Process

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

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

'獲取無線網(wǎng)卡可以搜索到的無線網(wǎng)絡(luò)信息

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

可以參考這個例子

網(wǎng)頁標(biāo)題：vbnet獲取cmd vbnet讀取文件內(nèi)容
轉(zhuǎn)載來源：http://muchs.cn/article12/ddijgdc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、網(wǎng)站導(dǎo)航、品牌網(wǎng)站設(shè)計、標(biāo)簽優(yōu)化、企業(yè)建站、商城網(wǎng)站

廣告

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