连接测试-初级程序-极语言教程

//窗体代码:

整数 窗体,网址,端口,连接;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-382)>>1,上=(桌面.高-309)>>1;
窗体=创建窗口($100,程序.名称,"窗口标题",$10C80000,左,上,382,309,0,0,0,0);
网址=创建窗口($200,"Edit","127.0.0.1",$50010080,120,50,132,18,窗体,1,4,0);
端口=创建窗口($200,"Edit","1300",$50010080,120,100,132,18,窗体,2,4,0);
连接=创建窗口($0,"Button","连接",$50000000,132,174,102,36,窗体,3,3,0);
窗体启动;读取消息
结束

 

//程序代码:

地址类 IP(协议=2)
小程序 窗体消息(整数 句柄,整数 消息,整数 参数,整数 数据);
    判断(消息)为 单击左键{如果(参数=3){连接测试}}
    为 窗口关闭{网络终止;停止(0);}
    否则{处理窗口(句柄,消息,参数,数据);}
结束

小程序 窗体启动();
    文本 wsData[400];
    网络启动($202,wsData);  
    读取消息
结束

小程序 连接测试
    整数 网号;文本 TIP[16];
    网号 = 分配(2,1,6); 
    如果(网号 = -1){
    信息框(0,"创建网络接口失败",0,错误图标); }
    否则{
    取窗口字(网址,TIP,16);
    IP.地址 = 转换地址(TIP);
    IP.端口 = 反转(取控件数(窗体,2,0,0)); 
    如果(连网(网号,IP,16)= -1){
    信息框(0,"连接远程端口失败",0,错误图标); }
    否则{ 信息框(0,"连接成功！","提示",信息图标); } 
    关闭(网号)} 
结束;