丁野的回答：

Dim?b?As?Boolean?=?My.Computer.Network.Ping("192.168.1.1",?1000)?'返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果? ????????If?b?=?True?Then?'指定时间内ping通 ????????????Shell("cmd?/c?ping?192.168.1.1?>>?C:\time.txt")?'在C盘time.txt文件中保存ping的结果 ????????Else?'超时 ????????????MsgBox("999")?'弹出999提示 ????????End?If

张益的回答：

Dim?b?As?Boolean?=?My.Computer.Network.Ping("192.168.1.1",?1000)?'返回ping结果，true表示通，false表示不通，1000表示1000毫秒内返回结果? ????????If?b?=?True?Then?'指定时间内ping通 ????????????Shell("cmd?/c?ping?192.168.1.1?>>?C:\time.txt")?'在C盘time.txt文件中保存ping的结果 ????????Else?'超时 ????????????MsgBox("999")?'弹出999提示 ????????End?If

Desert的回答：

用.ini文件来存储。比如内容是：[userinfo]username=admin读取方式：charachusername[20];getprivateprofilestring("userinfo","username",null,achusername,20,"c:\\userinfo.ini");