您的位置：程序门 -> vb -> 基础类

救急，vb如何判断与服务器电脑连接状态？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

救急，vb如何判断与服务器电脑连接状态？[已结贴,结贴人:jlbb102]

发表于：2007-09-26 14:40:19 楼主

知道服务器电脑ip和密码，如何用vb判断连接状态？
在网上搜了一些贴子，有用winsock控件的判断网卡工作状态，这种方法对我来说不可取，请教各位大虾有没其他好的方法来判断？

说明：是服务器电脑，不是sql数据库，能判断连接状态即可！

发表于：2007-09-27 09:12:401楼得分:10

简单的方法就是ping主机，比如：
shell "ping 192.168.11.1 > c:\plog.txt "
然后分析plog.txt中的内容即可

用api的网上搜索一下，示例代码有许多

发表于：2007-09-27 09:29:122楼得分:10

option explicit

private type qocinfo
dwsize as long
dwflags as long
dwinspeed as long
dwoutspeed as long
end type

private const network_alive_lan as long = &h1 ' lan
private const network_alive_wan as long = &h2 ' ras
private const network_alive_aol as long = &h4 ' aol （win95/98)

private declare function isdestinationreachable lib "sensapi.dll " _
alias "isdestinationreachablea " _
（byval lpszdestination as string, _
lpqocinfo as qocinfo) as long

public function isnetconnectionalive（byval strip as string) as boolean

dim result as long
dim qoc as qocinfo

qoc.dwsize = len（qoc)

result = isdestinationreachable（strip, qoc) '测试ip

isnetconnectionalive = qoc.dwflags
end function

发表于：2007-09-27 11:03:013楼得分:10

"连接状态 ",那需要与服务器通讯.

ping方面,如果服务器禁ping了就没用

个人认为最好的办法是定期向服务器发送一个心跳包

发表于：2007-09-27 12:18:524楼得分:0

关注

发表于：2007-09-28 10:55:065楼得分:15

'知道服务器电脑ip和密码，如何用vb判断连接状态？
shell "net use z: '服务器电脑ip\ipc$ ' '密码 ' 、user: 'username ' "
...............

发表于：2007-09-28 10:55:546楼得分:0

/user: 少了个/

发表于：2007-09-28 16:08:507楼得分:0

定期向服务器发送一个心跳包

发表于：2007-10-01 17:35:068楼得分:0

了解。。

发表于：2007-10-01 20:19:009楼得分:5

老马的方法不错
假如一定实践内没有收到心跳就判为断线

发表于：2007-10-01 20:19:2310楼得分:0

"一定时间内"

其他资讯