Question

关于VB程序的条件判断

请问大家一个问题.我在单击事件中写了
Private Sub ExBtn7_Click()
Dim a As String
a = InputBox("请输入IP地址", "提示", "请填写IP", 5000, 5000)
我想通过给出的条件,在对话狂输入IP地址后可以调用系统的ping命令来ping我输入的IP地址,并且可以看到CMD窗口ping的过程,请问我该怎么做

根据以上条件,希望能给出代码,谢谢!

Answer 1

用SHELL语句,具体参看
http://hi.baidu.com/lcfccw/blog/item/45556a22d4ecbba74623e889.html
挺全的
要用VB控件看CMD结果，有两个方法，一个SHELL后加一个" >>C:\a.txt"
然后用TextBox控件浏览文件
还有一个在VB控件里实时显示CMD运行结果，貌似要用许多的API，这个我就不胜了了了。。。
我建议你去看看，才能知道SHELL各部分的意思，我就写出来你还是要问其他的，渔和鱼的故事。。。
shell "ping " & a,1

Answer 2

Private Sub Command1_Click()
Dim a As String
a = InputBox("请输入IP地址", "提示", "请填写IP", 5000, 5000)
Shell "cmd /c ping " & a, 1

End Sub

Answer 3

调用系统的cmd然后将得到的ip在前面假如ping 然后加空格 或者是在ip地址前面直接加一个空格复制到ping后面 再来一个回车事件 这样也就算是可以了！

Answer 4

shell "ping" & " " & a

这样就行了，我测试过了。

Answer 5

Shell "cmd /c ping 192.168.1.1"