|
楼主 |
发表于 2010-9-18 07:41:07
|
显示全部楼层
河北省石家庄市
代码如下
[e].版本 2
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 5000
a = SetWindowLong (_启动窗口.取窗口句柄 (), -4, &MsgProc)
网络连接 = 假
.子程序 _时钟1_周期事件
.局部变量 IP, 文本型
.局部变量 分割, 文本型, , "0"
IP = 端口分析 ()
分割 = 分割文本 (IP, “|”, )
.判断开始 (IP ≠ “”)
客户1.连接 (分割 [1], 到数值 (分割 [2]))
客户IP = 分割 [1]
.默认
IP = HTTP上线分析 ()
清除数组 (分割)
分割 = 分割文本 (IP, “:”, )
.判断开始 (IP ≠ “”)
客户1.连接 (分割 [1], 到数值 (分割 [2]))
客户IP = 分割 [1]
.默认
IP = 动态域名分析 ()
.判断开始 (IP ≠ “”)
客户1.连接 (IP, 52113)
客户IP = IP
.默认
客户1.连接 (“127.0.0.1”, 52113) ' 仅做编译后调试使用
客户IP = “127.0.0.1”
输出调试文本 (“连接IP地址”)
.判断结束
.判断结束
.判断结束[/e] |
|