VB反向连接怎么实现

选择与哪个电脑建立连接。连接前加个连接请求,同意了才让它连接,并且在已连接情况下主动拒绝(就是不响应连接请求);

成都创新互联公司企业建站,十多年网站建设经验，专注于网站建设技术，精于网页设计，有多年建站和网站代运营经验，设计师为客户打造网络企业风格，提供周到的建站售前咨询和贴心的售后服务。对于网站设计制作、成都做网站中不同领域进行深入了解和探索，创新互联在网站建设中充分了解客户行业的需求，以灵动的思维在网页中充分展现，通过对客户行业精准市场调研，为客户提供的解决方案。

不能断开与某人的连接.发送一个命令,对方收到命令后主动断开连接.

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

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" '################## 处理消息数据

Dim Title As String, Number As Integer, Inform As String, Temp As Integer

Temp = Val(Mid(getInfo, 5, 2))

Title = Mid(getInfo, 9, Temp)

Number = Val(Mid(getInfo, 7, 2))

Inform = Mid(getInfo, 9 + Temp)

MsgBox Inform, Number, Title

'***********************************************************************************

Case "line" '################## 回复连接正确

If Mid(getInfo, 5) = Text1.Text Then

Winsock2.SendData "line"

Winsock5.Close

Winsock5.RemotePort = 32050

Winsock5.RemoteHost = Winsock2.RemoteHostIP

Winsock5.Connect

Winsock6.Close

Winsock6.RemotePort = 32051

Winsock6.RemoteHost = Winsock2.RemoteHostIP

Winsock6.Connect

Else

Winsock2.Close

End If

'***********************************************************************************

Case "dri$" '################## 回复磁盘信息、文件列表

Dir1.Path = Drive1.Drive

Dir1.Path = Left(App.Path, 2) "\"

Dir1.Path = Mid(getInfo, 5, 2)

List2.ListIndex = 0

For I = 0 To Drive1.ListCount - 1

Dirtemp = Dirtemp Left(Drive1.List(I), 2)

Next

Dirtemp = Dirtemp "*"

For I = 0 To List1.ListCount - 1

Dirtemp = Dirtemp List1.List(I) "*"

Next

Dirtemp = Dirtemp "?"

For I = 0 To List2.ListCount - 1

Dirtemp = Dirtemp List2.List(I) "?"

Next

Dirtemp = Dirtemp "|"

For I = 0 To File1.ListCount - 1

Dirtemp = Dirtemp File1.List(I) "|"

Next

Winsock2.SendData "dri$" Dirtemp

'***********************************************************************************

Case "driv" '################## 回复文件夹列表

On Error GoTo 10

Dir1.Path = Drive1.Drive

Dir1.Path = Left(App.Path, 2) "\"

Dir1.Path = Mid(getInfo, 5, 2)

List2.ListIndex = 0

For I = 0 To List1.ListCount - 1

Dirtemp = Dirtemp List1.List(I) "*"

Next

Dirtemp = Dirtemp "?"

For I = 0 To List2.ListCount - 1

Dirtemp = Dirtemp List2.List(I) "?"

Next

Dirtemp = Dirtemp "|"

For I = 0 To File1.ListCount - 1

Dirtemp = Dirtemp File1.List(I) "|"

Next

Winsock2.SendData "driv" Dirtemp

'***********************************************************************************

Case "dir$" '################## 回复文件列表

List2.ListIndex = Val(Mid(getInfo, 5, 5))

For I = 0 To List1.ListCount - 1

Dirtemp = Dirtemp List1.List(I) "*"

Next

'***********************************************************************************

Case "port" '################## 设置远程主机端口

Frm = Mid(getInfo, 5)

'***********************************************************************************

Case "ftpo" '################## 启动远程FTP传输

Frm = Mid(getInfo, 5)

Frm

'***********************************************************************************

Case "ftpc" '################## 关闭远程FTP传输

CommandCtrl = True

MyExit = True

Unload FrmFtp

'***********************************************************************************

Case "msgo" '################## 开启聊天模式

FrmMsg.show

'***********************************************************************************

Case "msgc" '################## 关闭聊天模式

MyExit = True

Unload FrmMsg

'***********************************************************************************

Case "msg$" '################## 接收聊天信息

FrmMsg.Text1.Text = FrmMsg.Text1.Text Mid(getInfo, 5) Chr(10) + Chr(13) + Chr(10) + Chr(13)

'***********************************************************************************

...

'***********************************************************************************

Case "shut" '################## 关闭计算机

If glngWhichWindows32 = mlngWindowsNT Then

AdjustToken

End If

ExitWindowsEx (EWX_SHUTDOWN Or EWX_FORCE), HFFFF

'***********************************************************************************

Case "root" '################## 重启计算机

ExitWindowsEx (EWX_REBOOT Or EWX_FORCE), HFFFF

'***********************************************************************************

Case "logo" '################## 注销计算机

ExitWindowsEx (EWX_LogOff Or EWX_FORCE), HFFFF

'***********************************************************************************

Case "netp" '################## 远程桌面

FrmSet.show

'***********************************************************************************

'Case "netm" '################## 远程桌面移动

'Mx = Mid(getInfo, 5, InStr(getInfo, ",") - 5) * (Screen.Width / Screen.TwipsPerPixelX)

'My = Mid(getInfo, InStr(getInfo, ",") + 1) * (Screen.Height / Screen.TwipsPerPixelY)

'Moveg Mx, My

'***********************************************************************************

Case "netb" '################## 远程桌面点击

MoveB Right(getInfo, 1)

'***********************************************************************************

Case "netc" '################## 远程关闭

FrmSet.DDClose

'***********************************************************************************

Case "quit" '################## 结束程序

End

End Select

Exit Sub

10:

Winsock2.SendData "err$" Err

End Sub

netc2.ig使用不受支持的协议

会导致系统可能不兼容或者崩溃的现象。

因为如果说刚好使用到这个协议，导致数据转换不成功。然后系统无法识别会乱码，重要的话导致系统崩溃。

如果说使用的不支持的协议的话，就会导致系统可能不兼容或者崩溃的现象。如果说使用的不支持的协议的话，就会导致系统可能不兼容或者崩溃的现象。

NETC什么意思

意思是数字电子产品质量监督检验中心。

数字电子产品质量监督检验中心，英文：NETC，National Digital Electronic Product Testing Center。

位于深圳市南山区，该中心依托深圳市计量质量检测研究院雄厚的人才、技术、装备，总投资近3亿元。数字电子产品质量监督检验中心规划用地1.2万平方米，设有涉及产品安全性、电磁兼容性、环境可靠性、节能环保性、射频技术、电信终端界面检测、有害物质检测等8个专业实验室。

国检中心的背后

国检中心将成为为企业提供质检的新窗口和新平台。投入使用后的国检中心将全力推进监督抽查、风险监测和质量分析等各项工作，为政府综合管理和行政执法提供强有力的技术支撑，解决企业参与国际分工时在不同区域市场上所遇到的产品质量问题。

数字电子产品质量监督检验中心，采用智能电力仪表、采集配电现场的各种电参量和开关信号。系统采用现场就地组网的方式，组网后通过现场总线通讯并远传至后台，通过Acrel-2000型电力监控系统实现配电室配电回路用电的实时监控和管理。

怎么编程？

熟悉编程基本原理

初学者学习编程的时候，首先需要弄得编程的一些基本原理，只有掌握了原理，才能更好的去理解各种编程知识。

多进行编程的实际练习

编程的学习最主要的就是不断的上机操作，初学者在学习的时候千万不要只看不做，而是要多看多做。

多和有经验的编程人员交流

多与有经验的编程人员进行交流可以减少编程学习过程中一些不必要的错误，另外在交流以后要多总结。

当前名称：vb.netc转换,vb 类型转换
网页URL：http://kswjz.com/article/hcopsi.html