|
发表于 2017-2-7 12:40:19
|
显示全部楼层
广西壮族自治区桂林市
DLL
.版本 2
.DLL命令 InternetGetConnectedStateEx, 逻辑型, "wininet.dll", "InternetGetConnectedStateExA"
.参数 lpdwFlags, 整数型, 传址
.参数 lpszConnectionName, 文本型
.参数 dwNameLen, 整数型
.参数 dwReserved, 整数型
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 flag, 整数型
.局部变量 name, 文本型
.局部变量 state, 逻辑型
程序保护防止破J代码开始 ()
_启动窗口.可视 = 真
name = 取空白文本 (20)
state = InternetGetConnectedStateEx (flag, name, 20, 0)
.如果 (到文本 (state) = “真”)
标签2.标题 = “连接服务器成功”
.否则
标签2.标题 = “连接服务器失败”
延迟 (1000)
标签2.标题 = “1秒后结束”
延迟 (1000)
标签2.标题 = “0秒后结束”
结束 ()
.如果结束
程序保护防止破J代码结束 ()
|
|