基于winsock的网络通信技术

《基于winsock的网络通信技术》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于Winsock的网络通信技术基于and1_Click()　　and2）代码。　　PrivateSubmand2_Click()　　oteHostIP+":"+Str(otePort)+")的请求连接信息。由Winsock2来接受连接！可以发送信息！"　　Winsock2.AcceptrequestID　　EndSub　　⑥客户端自动响应代码。　PrivateSub.　　⑦发送信息代码。　　客户机端发送段信息命令　　PrivateSubmand4_Click()　　and5_Click()　　DimSAsString　　S=ReadTxtFil

2、e("ABC.TXT")自定义函数过程，见后　　dash;协议部分　　PrivateSubmand6_Click()　　FileName="abc.doc"　　L=FileLen(App.Path+""+FileName)　　e+"

3、"+Trim(Str(L))　　EndSub　　客户机端发送文件命令文件内容部分　　　　OpenApp.Path+""+FileNameForBinaryAs#1　　ReDimBuff(L)L前面已计算得到　　Get#1,,Buff　　Close#1　　ssAsString　　Buff()AsByte　　D

4、imsAsString　　'State="File"表示传输文件状态！　　IfState="File"Then　　eForBinaryAs#1　　FileAddFlag=True　　EndIf　　Put#1,,Buff　　IfFileLength>bytesTotalThen　　FileLength=FileLength-bytesTotal　Else　　'文件最后一个包到达　　FileAddFlag=False　　Close#1　　State=""　　Text7.Text="文件已保存！"　　EndIf　　Else　　id(s,

5、6,I-6)　　Filelength=Val(Right(s,Len(s)-I))　　Text7.Text=s　　e.Caption=Me.Caption+"本机IP地址"+.中创建一个新的文件夹UpLoad　　'获得文件的文本内容的自定义函数过程　　PublicFunctionReadTxtFile(ByValFileNameAsString)AsString　DimFnumAsInteger,FilesizeAsLong，SendDataB()AsByte　　IfLen(Dir(FileName))=0Then　　ReadTxtFile=""　　E

6、xitFunction　　EndIf　　Fnum=FreeFile()　　OpenFileNameForBinaryAs#Fnum　　Filesize=LOF(Fnum)　　IfFilesize=0Then　　ReadTxtFile=""　　Close#Fnum　　ExitFunction　　EndIf　　ReDimSendDataB(Filesize-1)　　Get#Fnum,,SendDataB()　　Close#Fnum　　ReadTxtFile=StrConv(SendDataB,vbUnicode)　　EndFunction　　4

7、结束语　　本文主要介绍了利用VB中的.写成模块或者封装成类模块，以便能得到更加广泛的应用。