7476
社区成员
- 全部
text和button的问题请各位朋友帮我
我在form中建立了一个text1.text2和button.我要ping出text1中输入的网址在按下buutton后在text2中显示ping出的结果.希望各位朋友帮忙.最好写一段代码让我看看
谢谢
我QQ：174453914
谢谢
我QQ：174453914
...全文
当前发帖距今超过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
只要适当改一下参数也可以实现异步的
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
...................
tmp = Shell ("cmd /c ping " & Text1.Text & " >C:\aa.txt")
WaitForSingleObject tmp
...................
射天狼 2003-09-18
不过SHELL函数是以异步方式执行命令的,也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
所以可能PING命令没完成,也主是文件还没生成就会执行打开文件的语句,这样会出错,你可以换一个同步执行命令的函数就行了,你自己改吧`~~
所以可能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
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
