网络连接测试工具
本帖最后由 jianxiashao 于 2012-4-17 10:32 编辑本来还想加入循环定时检测的,意思就是每过多长时间测试一次,代码还可以更完善一些的,比如正确的时候不弹出消息,不能连接才弹出,这自己搞一下就可以了
附源码TrayTip("", "网络正在检测中,请稍候......", 5000,4)
$baidu = Ping("www.baidu.com", 8000)
$benji = Ping("127.0.0.1", 8000)
$luyou = Ping("192.168.0.1", 8000)
$soufei = Ping("192.168.0.252", 8000)
$youxi = Ping("192.168.0.206", 8000)
Sleep(2500)
If $baidu = true Then
TrayTip("", "与外网连接正常", 3000,4)
Else
TrayTip("", "无法与外网连接, 请问网线是否插好或本机网卡是否已坏?", 3000,4)
EndIf
Sleep(3000)
If $benji = true Then
TrayTip("", "本机网卡正常", 3000,4)
Else
TrayTip("", "本机网卡有问题", 3000,4)
EndIf
Sleep(3000)
If $luyou = true Then
TrayTip("", "本机与路由连接正常", 3000,4)
Else
TrayTip("", "本机无法与路由通信", 3000,4)
EndIf
Sleep(3000)
If $soufei = true Then
TrayTip("", "本机与收费服务器连接正常", 3000,4)
Else
TrayTip("", "无法与收费服务器连接", 3000,4)
EndIf
Sleep(3000)
If $youxi = true Then
TrayTip("", "本机与游戏更新服务器正常", 3000,4)
Else
TrayTip("", "无法与游戏更新服务器连接", 3000,4)
EndIf
Sleep(3000)
If ($baidu = true and $luyou = true) And ($soufei = true Or $youxi = true) Then
TrayTip("", "恭喜:一切正常", 3000,4)
Else
TrayTip("", "不是所有都能正常通信咯,请重新检查一次", 3000,4)
EndIf
Sleep(4000)发错地方了,不好意思,不次发到源码区,刚做了个XP系统的电源管理方案,附源码,已经发在源码区了,希望大家多支持!!!{:face (396):} 谢谢楼主分享 回复 1# jianxiashao
这样不太准确,且相对机器的不同会稍有不同。 回复 1# jianxiashao
发错地方了, 应该发到 '源码' 区 楼主辛苦了。 赞一个,楼主精神可嘉, 谢谢分享。。支持下 精神可嘉写成循环吧 这样检测合理么?路由器地址一定是192.168.0.1吗?其他ip也不确定啊。我非要用本地连接么?wlan、3g。。。 可以顶一下! 楼主辛苦了。 谢谢楼主分享 赞一个,留记号 好东西~~~~~~~ 源码不是都已经发出来了么?你们想怎么用就怎么修改就可以了,说路由不一定是192.168.0.1,这。。。难道修改一下源码都不会么?难道还是懒,不想修改????
页:
[1]
2