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
可以参考这个例子
