怎么找不见关于网络通信方面的视『频教』程呢

zxl19891030

{:soso__13496012817283154022_3:}  想做个聊天工具  和FTP工具

陌上青衣。

论坛搜索下这方面的源码，这方面比较详细的视频目前应该还没有

TCX将

空间 对话框
开启服务器线程句柄,发送状态句柄
功能 初始化()
    开启服务器线程句柄=线程.开启("对话框.开启服务器","")   
   
   
    发送状态句柄=线程.开启("对话框.发送状态","")
功能结束

服务器套接字句柄

功能 开启服务器()
    辅助.等待(3000)
    列表框.增加文本("列表框70","服务器已开启","对话框")
    网络.初始化() //初始化网络环境
    服务器套接字句柄=网络.套接字(2) //创建数据报(UDP)套接字
    网络.绑定(服务器套接字句柄,9999) //开启了计算机的9999端口,供外界连接
    变量 rPort
    变量 接收缓存,rIP,返回昵称
    循环(真)
        网络.接收来自(服务器套接字句柄,接收缓存,100,rIP,rPort)
        
        如果(字符串.查找字符串(接收缓存,"餮叅糍客户端|")==1)
            字符串.分割(接收缓存,"|",返回昵称)
            用户=列表框.得到个数("列表框71","对话框")
            
            如果(用户>0)
               
                K=0
                遍历(i=0;i<用户;i++)
                    
                    
                    如果(列表框.获得文本("列表框71",i,"对话框")==返回昵称[1])
                        
                        接收缓存=""
                        跳出
                    否则
                        K++
                    如果结束
                    
                遍历结束
               
                如果(K<用户)
                否则
                    列表框.增加文本("列表框71",返回昵称[1],"对话框")
                    接收缓存=""
                    
                如果结束
               
               
            否则
                列表框.增加文本("列表框71",返回昵称[1],"对话框")
                接收缓存=""
            如果结束
        否则
            如果(接收缓存=="")
               
            否则
                如果(字符串.长度(接收缓存)>8)
                    遍历(i=0;i<字符串.长度(接收缓存)/8;i++)
                        列表框.增加文本("列表框70",字符串.截取(接收缓存,i*8,i*8+8),"对话框")
                    遍历结束
                如果结束
                接收缓存=""
            如果结束
        如果结束
        
    循环结束   
功能结束

功能 发送()
    控件.有效("编辑框70",假,"对话框")
   
    遍历(i=0;i<100;i++)
        IP="172.168.1."&i
        
        网络.发送到(服务器套接字句柄,编辑框.获得文本("编辑框3","猎人")&":"&编辑框.获得文本("编辑框70","对话框"),IP,9999) //向指定地址端发送一串字符串
    遍历结束
    控件.有效("编辑框70",真,"对话框")
   
   
   
功能结束
功能 关闭功能()
   
   
    网络.关闭套接字(服务器套接字句柄)
    网络.关闭()
   
   
功能结束
功能 发送状态()
    辅助.等待(20000)
    循环(真)
        遍历(i=0;i<100;i++)
            IP="172.168.1."&i
            网络.发送到(服务器套接字句柄,"饕餮叅糍客户端|"&编辑框.获得文本("编辑框3","猎人"),IP,9999)//向指定服务器发送一串字符串
        遍历结束
    循环结束
   
功能结束




功能 按钮70_点击()
    对话框.发送()
    编辑框.设置文本("编辑框70","","对话框")
功能结束








//退出控制——————————————————————

功能 销毁()
    //这里添加你要执行的代码
    线程.开启("对话框.关闭对话框","")
功能结束


//点击关闭_执行操作
功能 对话框_关闭()
    线程.开启("对话框.关闭对话框","")
功能结束

功能 关闭对话框()
    网络.关闭套接字(服务器套接字句柄)
    网络.关闭()
    线程.关闭(开启服务器线程句柄)   
   
    线程.关闭(发送状态句柄)
    复选框.选中("复选框15",假,"猎人")
    辅助.等待(1000)
    控件.关闭窗口("对话框",0)  
   
   
功能结束


空间结束





//空间结束语句

TCX将

自己写的局域网通信的工具...解释下. [IP="172.168.1."&i]这个是局域网,端的IP.你自己可以任意设置.,,界面,请仔细看,自己把所有控件添加上,开启服务器和接受数据是一起的,启动脚本开是循环!
[  如果(字符串.查找字符串(接收缓存,"餮叅糍客户端|")==1) ]这句是所有的服务器都会不间断的循环向局域网内所有IP发送"餮叅糍客户端|"自己的昵称",当你的语句中有"餮叅糍客户端|"这段字符串 他 就会用"|"分割这句话,取后面的昵称,界面显示开启服务器的用户