Ta上传的资源 (0)

VB，亲测可用1)AddCSocketMaster.clsandmodSocketMaster.bastoyourproject. 2)InaForm,ClassorUserControladdthislineinthedeclarationareaforeachsocketyouwanttouse

'连接成功 PrivateSubsock_Connect() 'MsgBox("socketconnected") Shape.BackColor=vbGreen Command1.Caption="发送" Label1.Caption=Sock.LocalIP&":"&Sock.LocalPort