易语言_api判断是否连网InternetCheckConnectionA函数

.版本 2
.子程序 检查Internet连接, 逻辑型, 公开, 成功返回 真 InternetCheckConnectionA。点评:错误后响应时间过长。
.参数 Url地址, 文本型, 可空, url
.局部变量 a, 整数型
.局部变量 返回, 逻辑型
.如果真 (是否为空 (Url地址) ＝ 真)
    ' Url地址 ＝ “http://www.baidu.com ”
.如果真结束
a ＝ InternetCheckConnectionA (Url地址, 1, 0)
.如果 (a ＝ 0)
    返回 (假)
.否则
    返回 (真)
.如果结束
返回 (返回)


.版本 2
.DLL命令 InternetCheckConnectionA, 整数型, "wininet.dll", "InternetCheckConnectionA", 公开, InternetCheckConnectionA ' 连接网站，成功返回非0
    .参数 Url地址, 文本型, , lpszUrl http://www.baidu.com
    .参数 标志, 整数型, , dwFlags 一般为1
    .参数 返回值, 整数型, , dwReserved 一般为0