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

liuyi3000 2003-09-18 12:23:22
我在form中建立了一个text1.text2和button.我要ping出text1中输入的网址在按下buutton后在text2中显示ping出的结果.希望各位朋友帮忙.最好写一段代码让我看看
谢谢
我QQ:174453914
...全文
65 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
dreamreality 2003-09-18
我用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
只要适当改一下参数也可以实现异步的
回复
lxcc 2003-09-18
http://www.dapha.net/down/list.asp?id=314
回复
jlum99 2003-09-18
加句
tmp = Shell ("cmd /c ping " & Text1.Text & " >C:\aa.txt")
WaitForSingleObject tmp
...................
回复
射天狼 2003-09-18
不过SHELL函数是以异步方式执行命令的,也就是说,用 Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell 函数之后的语句。
所以可能PING命令没完成,也主是文件还没生成就会执行打开文件的语句,这样会出错,你可以换一个同步执行命令的函数就行了,你自己改吧`~~
回复
射天狼 2003-09-18
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
回复
发帖
VB基础类
创建于2007-09-28

7476

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-09-18 12:23
社区公告
暂无公告