ftp客户端ftpclient纯C语言winsock实现socket编程 /* *本程序是2009年计算机网络课程设计作品。 *本程序参考rfc959标准。能准确与遵守此标准的服务器进行信息交互。 *本人不保留任何版权。 *本程序仅供学习研究测试使用。因使用本程序所有或部分代码所产生的任何后果，本人均不负任何法律责任。 *2009年7月13日 */ #include #include #include /*system()*/ #include #pragma comment(lib,"ws2_32.lib") #define ONUM 512 #define MNUM 512 #define FNUM 512 #define pt struct host { char ip[20]; unsigned short port; }; SOCKET ts; fd_set readfds; struct timeval timeval; struct host host; char renum[4]; char ordertemp[ONUM]; char order[ONUM]; char ordercp[ONUM]; char mess[MNUM]; char file[FNUM]; char setpath[FNUM]; char setpathf[FNUM]; int i,door,r,sys,seti;/*i for;door switch;r receive num;sys system state;set set state*/ char *p;/*strtok*/ int printmess(); void input(char ordertemp[]); int ftp(); int user(); int pass(); int command(); int list(); SOCKET createDataSocket(); int set(); int retr(); int stor(); int stor() { char filename[256]; SOCKET ds; int wi; int r2,r3,r4,bsnum,brnum; FILE *fp=NULL; set(); memset(filename,'\0',256); memset(order,'\0',ONUM); for(i=5;i<=200&&ordercp[i]!='\0';i++)order[i-5]=ordercp[i]; strcpy(filename,setpathf); strcat(filename,"\\\\"); strcat(filename,order); memset(order,'\0',ONUM); strcpy(order,"type i\r\n");/*type i 二进制 type a ASCII*/ send(ts,order,strlen(order),0); switch(printmess()) { case 421:closesocket(ts);sys=0;return 421; case 530:sys=1;return -1; case 500: case 501: case 504: case 226:return -1; case 200:break; default:return -1; } ds=createDataSocket(); if(ds==-1)return -1; strcat(ordercp,"\r\n"); send(ts,ordercp,strlen(ordercp),0); switch(printmess()) { case 421:closesocket(ds);closesocket(ts);sys=0;return 421; case 532: case 530:closesocket(ds);sys=1;return -1; case 450: case 452: case 553: case 500: case 501:closesocket(ds);return -1; case 125: case 150:break; default:closesocket(ds);return -1; } fp=fopen(filename,"rb"); if(!fp){printf("read file fa

说明: 1此程序由ecz00程序优化而来 地址 http://download.csdn.net/download/ecz00/9403630 因此程序可以说是网上唯一的tcpclient使用的中文案例，提供了我思路，在此感谢 ；为什么用这个插件，vb自带的插件winsock 这么有用的插件 居然不是微软自带的插件， 最要命的是 直接注册ocx控件 win7 win10上可能因为序列号无法注册，那么vb下如何开发ip客户端,变得很麻烦，尝试过APi方法的，但是过于复杂，程序量太大，比较麻烦，因此用 此方案比较可行，在原版的基础上花了5天时间摸索和优化， 此版本使用方法 1 把vbRichClient5.dll放进C:\Windows\SysWOW64 (64位系统) 2 在vb6中点击 工程->引用 把上面的dll引用进来就可以额，不需要注册 3:使用sscom5.12.1 或其他tcp调试软件软件启动tcpserver 地址是127,0,0,1 5676 4:直接运行本软件即可使用。点击连接，显示成功，说明连接成功，可以相互发送数据了 服务端的程序在原版上未做修改，请自行优化 此软件改进了原版 1:无法显示连接状态和错误信息 2：只能发送不能接收 3：使用主机名的连接方式，无法直接使用,一开始 4：无法显示byte值 5：界面修改 6：连接的时候，不断开以前的连接，造成重复连接 提示 vbRichClient5的手册找遍了都找不到，估计作者都没写，更别想有中文版了，所以只能 在vb6中点击视图-》对象窗口，可显示vbRichClient5.dll 所有的类和方法 QQ175891641 2018-2-15优化

发现网上关于vbrichclient的教程比较少，但这个实在是好东西，实用性，稳定性都比VB自带的winsock好的多，多客户端不用winsock控件数组。　也不用在各窗体上放winsock，直接在模块中就能实现收发 下面直接上代码，窗体和文本钮、按钮大家自行拖放。要用到VB自带隐藏函数varptr()取内存指针(VbMsdn中没有这个函数，实际上很简单^^)。 VbRichClient5.0.38中包含sqlite3.9支持 上面共享中也包含VbRichClient5.0.38支持库 VbRichClient代替winsock 主要使用 cTCPServer cTCPClient cUDP '--------------------------------------------------------------------- '服务器端，代码最简化，要实现多客户端只要用数组存hsocket就可以 Option Explicit Dim WithEvents sv As cTCPServer Dim WithEvents udp1 As cUDP Dim cHsocket& Private Sub Form_Load() Set sv = New cTCPServer sv.Listen sv.GetHost("127.0.0.1"), 35912 Debug.Print sv.GetHost("") Set udp1 = New cUDP udp1.Bind "127.0.0.1", 5616 End Sub Private Sub sv_DataArrival(ByVal hSocket As Long, ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) sv.GetData hSocket, VarPtr(d(0)), BytesTotal '★★关键代码 s = d Text2.Text = Text2.Text & s & vbCrLf Debug.Print "收到：" & BytesTotal End Sub Private Sub sv_TCPAccepted(ByVal hSocket As Long) cHsocket = hSocket Text1.Text = Text1.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub sv_TCPDisConnect(ByVal hSocket As Long) Text3.Text = Text3.Text & sv.GetPeerHostIPAndPort(hSocket) & vbCrLf End Sub Private Sub udp1_NewDatagram(ByVal BytesTotal As Long, ByVal FirstBufferAfterOverflow As Boolean) Dim d() As Byte, s$ ReDim d(BytesTotal - 1) udp1.GetData VarPtr(d(0)), BytesTotal s = d Text2.Text = Text2.Text & s & vbCrLf End Sub '------------------------------------------------------- '客户端 Option Explicit Dim WithEvents cl As cTCPClient Dim WithEvents udp1 As cUDP Dim cid& Private Sub Command1_Click() cid = cl.Connect("QgB1", 35912) End Sub Private Sub Command2_Click() cl.Disconnect cid End Sub Private Sub Command3_Click() Dim b() As Byte b = Text1.Text cl.SendData cid, VarPtr(b(0)), UBound(b) + 1 End Sub Private Sub Command4_Click() Dim d() As Byte, s$ s = "yessss" d = s udp1.RemoteIP = "127.0.0.1" udp1.RemotePort = 5616 u

局域网内多人聊天室，，VB源码，winsock应用实例

该程序利用winsock实现PC与PLC进行以太网通信，通信稳定，传输速度快，传输效率高，传输数据量大

此资源传上来供大家学习使用，请勿用于经济目的。

用WINSOCK实现聊天室的VC++程序设计code.zip

该是程序是由VC6.0写的winsock聊天室，是WSAAsyncSelect基于Windows消息机制异步I/O模型。可以多人聊天，也可以和私人聊天，希望对需要winsockWSAAsyncSelect的人有用。

winsock设置注册表文件，此文件中包含两个文件，分别为：sock2.reg、sock.reg

注册VB6.REG，注册之后，运行VB6，打开工程——部件——选择Microsoft winsock control 6.0 （SP5），然后就可以调用winsock编写，里面获取配置config.ini是以前写的其他程序，有些没用信息，自行修改即可，可以学习用。