VB制作CMD

 
如何在输入框内输入命令，在执行结果内会显示，命令的执行结果
比如在输入框内输入 ping www.zhaoxi.net -t
单击“运行命令”
会在 命令执行结果框内，显示执行的结果
 
例如：
Reply from 121.14.89.10: bytes=32 time=63ms TTL=57

追问：可是，我需要VB编程的。。。。

答案：建议楼主使用批处理来实现这个功能，个人认为比VB要灵活一点。下面是我自己平时用的源码，贴出来共享。
 
:again
@color 70 
@mode con: cols=100 lines=40 
@cls 
@echo ===================================================================================================
@echo                                   192.168.局域网【C类】网关测试
@echo ===================================================================================================
@echo --------------------------------------------QQ:83194498--------------------------------------------
@echo ------------------------------------------由☆零壹☆制作-------------------------------------------
@echo 您可以输入0—255的任意数字然后回车，例如：
@echo   83，19，110， ...
@set "choice=" &set n=0
@set /p choice=请输入要进行操作的网段：
@if "%choice%"=="" goto again
@if %choice% equ cmd goto cmd
@if %choice% equ CMD goto cmd
@set choice1=%choice:~0,6% 
@if %choice1% equ telnet goto telnet
@if %choice1% equ TELNET goto telnet
@set choice1=%choice:~0,2% 
@if %choice1% equ ie goto ie
@if %choice1% equ IE goto ie
@set choice1=%choice:~0,4% 
@if %choice1% equ ping goto ping
@if %choice1% equ PING goto ping
@if %choice% equ exit goto end
@if %choice% equ EXIT goto end
@if %choice% equ E goto end
@if %choice% equ e goto end
@if %choice% equ q goto end
@if %choice% equ Q goto end
@if %choice% equ quit goto end
@if %choice% geq 256 goto again
@if %choice% lss 0  goto again
@echo off
@echo 正在ping【%choice%】网段的网关...
@ping 192.168.%choice%.254 -t
@set choice=qq:83194498
@CLS
rem call 192.168.局域网测试.bat rem 调用相对路径下的批处理文件
goto again
:cmd
@start "c:\windows\system32\cmd.exe"  c:\windows\system32\cmd.exe
@goto again
:telnet
@set choice4=%choice:~6% 
@telnet %choice4%
@goto again
:ping
@set choice3=%choice:~4% 
@echo   正在ping   IP  【%choice3%】...
@ping %choice3% -t
@goto again
:ie
@set choice2=%choice:~2% 
@START /max iexplore.exe %choice2%
goto again
:END
EXIT
 
 
 
 
 
 
 
 
参考我的很久前的一个文章
http://hi.zhaoxi.net/lijinfeng042/blog/item/851762ae8a40c5fcfbed5008.html

这个用易语言实现蛮好的，几行代码就行了。
 
用api来做，如果需要，，，5分啊，，。
 

上一个：vb 屏幕COPY
下一个：VB SendMessage的参数