查询网络连接的一个问题

李月成

本人是正宗的菜鸟   


网络连接有两种   


一直 互联网连接

和本地连接       两个都要做出来   但是自己不行...

聚义堂神话

[e]
.版本 2

.DLL命令 API_InternetGetConnectedStateEx, 逻辑型, "wininet.dll", "InternetGetConnectedStateEx"
    .参数 lpdwFlags, 整数型, 传址
    .参数 lpszConnectionName, 文本型
    .参数 dwNameLen, 整数型
    .参数 dwReserved, 整数型
[/e]

李月成

下午各位大神帮帮忙啊

默默`

路过。

聚义堂神话

.版本 2

.子程序 拨号_判断是否连接网络, 文本型, , 返回状态文本
.局部变量 bConnected, 逻辑型
.局部变量 eR, 整数型
.局部变量 sName, 文本型
.局部变量 返回数据, 文本型

bConnected ＝ InternetConnected (eR, sName)

.判断开始 (bConnected)
    返回数据 ＝ “连接名称:  ” ＋ sName ＋ #换行符
    .如果真 (位与 (eR, 2) ＝ 2)
        返回数据 ＝ 返回数据 ＋ “通过局域网连接 Internet” ＋ #换行符
    .如果真结束
    .如果真 (位与 (eR, 1) ＝ 1)
        返回数据 ＝ 返回数据 ＋ “使用 MODEM 连接 Internet” ＋ #换行符
    .如果真结束
    .如果真 (位与 (eR, 4) ＝ 4)
        返回数据 ＝ 返回数据 ＋ “通过代理服务器连接 Internet” ＋ #换行符
    .如果真结束
    .如果真 (位与 (eR, 32) ＝ 32)
        返回数据 ＝ 返回数据 ＋ “当前为脱机模式” ＋ #换行符
    .如果真结束
    .如果 (位与 (eR, 64) ＝ 64)
        返回数据 ＝ 返回数据 ＋ “连接已经被设定” ＋ #换行符
    .否则
        返回数据 ＝ 返回数据 ＋ “没有设定好的连接” ＋ #换行符
    .如果结束
    .如果 (位与 (eR, 16) ＝ 16)
        返回数据 ＝ 返回数据 ＋ “本机已经安装了远程访问服务功能” ＋ #换行符
    .否则
        返回数据 ＝ 返回数据 ＋ “本机未经安装了远程访问服务功能” ＋ #换行符
    .如果结束

.默认
    返回数据 ＝ “没有 Internet 连接”
.判断结束
返回 (返回数据)

.子程序 InternetConnected, 逻辑型
.参数 eConnectionInfo, 整数型, 参考 可空
.参数 sConnectionName, 文本型, 可空
.局部变量 dwFlags, 整数型
.局部变量 sNameBuf, 文本型
.局部变量 lr, 逻辑型

sNameBuf ＝ 取空白文本 (512)
lr ＝ API_InternetGetConnectedStateEx (dwFlags, sNameBuf, 512, 0)
eConnectionInfo ＝ dwFlags
sConnectionName ＝ 选择 (删首尾空 (sNameBuf) ＝ 字符 (0), “”, sNameBuf)
返回 (lr)

李月成

怎么没有人回复捏

李月成

聚义堂神话 发表于 2013-5-11 16:59
.版本 2

.子程序 拨号_判断是否连接网络, 文本型, , 返回状态文本

亲   可以发源码么

聚义堂神话

拨号_判断是否连接网络.rar (1.93 KB, 下载次数: 4)

2013-5-11 17:03 上传

点击文件名下载附件

李月成

聚义堂神话 发表于 2013-5-11 17:04

我试一下呢

李月成

聚义堂神话 发表于 2013-5-11 17:04

亲    你的这个 不行...    没有局域网 的..而且调用的东西有点多