用VFP 怎么判断INTERNET网络是否连接正常

答案:2 悬赏:60 手机版

解决时间 2021-02-22 22:11

提问者网友：锁深秋
2021-02-22 13:15

最佳答案

五星知识达人网友：佘樂
2021-02-22 14:49

******检查网络链接**
Public intnetlj
intnetlj=.F.
Do cslj
******************************
If     intnetlj=.T.
    Do lj
    Release intnetlj
Else
    Return
ENDIF
**************************
Procedure lj
*连接后处理代码

*************
Procedure cslj
Declare Integer InternetGetConnectedState In wininet.Dll ;
    Integer @lpdwFlags, ;
    Integer dwReservednReserved
If internetgetconnectedstate(7, 0) = 0
*Messagebox("未连结到互联网！请进行拨号连接或检查网络状态。", 0, "错误")
    intnetlj=.F.
Else
    Do Case
    Case internetgetconnectedstate(7, 0) = 1
*Messagebox("拨号已经连通!",0,"提示")
        intnetlj=.T.
    Case internetgetconnectedstate(7, 0) = 2
*Messagebox("网络已经连通",0,"提示")
        intnetlj=.T.
    Otherwise
*Messagebox("通过代理连通！")
        intnetlj=.T.
    Endcase
Endif

全部回答

1楼网友：琴狂剑也妄
2021-02-22 15:47

没看懂什么意思？

我要举报

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

点此我要举报以上问答信息