怎么在vb中调用ping命令，并将ping的过程显示在vb界面中？

怎么在vb中调用ping命令，并将ping的过程显示在vb界面中，就是把运行——>ping 192.168.1.1 的dos界面嵌入到 所写的vb界面中？

利用VB的Shell执行PING命令，将PING的输出重定向到文件 c:\r.txt，然后读取c:\r.txt文件显示运行结果。

由于VB中的Shell命令是异步执行的，即调用Shell后，没等Shell执行完毕，程序就继续执行下一条语句。为此，程序使用了系统API来判断Shell是否结束。

1）窗体及控件

 

Private Declare Function GetExitCodeProcess Lib "kernel32" ( _
        ByVal hProcess As Long, _
        lpExitCode As Long) As Long

Private Declare Function CloseHandle Lib "kernel32" ( _
        ByVal hObject As Long) As Long

Private Declare Function OpenProcess Lib "kernel32" ( _
        ByVal dwDesiredAccess As Long, _
   &nb

VB调用PING命令 在VB中，如何调用命令行的命令？ VB如何调用ping命令来判断是否联网!? 怎么在VB中调用‘搜索对话框’ VB中调用命令行怎么把执行的命令结果输出到文本框中？ vb 调用运行命令 在VB中调用批处理文件 vb中怎么调用批处理文件 哪位大虾可以告诉我在VB中如何调用命令行的命令？ 在vb.net 中调用oracle数据库，代码怎么写？