text和button的问题请各位朋友帮我

[liuyi3000]

我在form中建立了一个text1.text2和button.我要ping出text1中输入的网址在按下buutton后在text2中显示ping出的结果.希望各位朋友帮忙.最好写一段代码让我看看
谢谢
我QQ：174453914

[射天狼]

Private Sub Command1_Click()
Dim s As String

Shell "cmd /c ping " & Text1.Text & " >C:\aa.txt"

Open "C:\aa.txt" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
Text2.Text = s
End Sub

[射天狼]

不过SHELL函数是以异步方式执行命令的,也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
所以可能PING命令没完成,也主是文件还没生成就会执行打开文件的语句,这样会出错,你可以换一个同步执行命令的函数就行了,你自己改吧`~~

[jlum99]

加句
tmp = Shell ("cmd /c ping " & Text1.Text & " >C:\aa.txt")
WaitForSingleObject tmp
...................

[lxcc]

http://www.dapha.net/down/list.asp?id=314

[dreamreality]

我用ADO实现可以同步的
dim cn as new adodb.connect
dim rs as new adodb.recordset
set rs=cn.execute ("master..xp_cmdshell ping " & text1.text )
debug.print rs.fields(0).value
只要适当改一下参数也可以实现异步的