这种PING Ip速度用易语言怎么写？来看图！

答案:2 悬赏:30 手机版

解决时间 2021-01-31 02:42

提问者网友：心牵心
2021-01-30 13:42

最佳答案

五星知识达人网友：低血压的长颈鹿
2021-01-30 14:34

.程序集窗口程序集1
.子程序 _按钮1_被单击
编辑框2.内容＝取PING速度 (编辑框1.内容)
.子程序取PING速度, 文本型, 公开
.参数网址或IP, 文本型
.局部变量 PING发送, 文本型
.局部变量 PING接收, 整数型
.局部变量 temp, 文本型, , "0"
PING发送＝“cmd /cping ”＋网址或IP ＋“>>c:\temp.txt”
运行(PING发送, 真, 1)
.如果真 (文件是否存在 (“c:\temp.txt”) ＝假)
返回(“0”)

全部回答

1楼网友：想偏头吻你
2021-01-30 15:16

.程序集窗口程序集1 .子程序 _按钮1_被单击编辑框2.内容＝取ping速度 (编辑框1.内容) .子程序取ping速度, 文本型, 公开 .参数网址或ip, 文本型 .局部变量 ping发送, 文本型 .局部变量 ping接收, 整数型 .局部变量 temp, 文本型, , "0" ping发送＝“cmd /cping ”＋网址或ip ＋“>>c:\temp.txt” 运行(ping发送, 真, 1) .如果真 (文件是否存在 (“c:\temp.txt”) ＝假) 返回(“0”) .如果真结束 ping接收＝打开文件 (“c:\temp.txt”, 1, ) .如果 (寻找文本 (读入文本 (ping接收, ), “request timed out.”, , 假) ＝ -1) .否则返回(“ping被屏蔽”) .如果结束temp ＝分割文本 (读入文本 (ping接收, ), “average = ”, ) 关闭文件 (ping接收) 返回(子文本替换 (temp [2], #换行符, “”, , , 假))

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！