IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[求助] TCP监听

[复制链接]
www8899 发表于 2022-10-5 11:04:54 | 显示全部楼层 |阅读模式

服务端
#AccAu3Wrapper_UseX64=n
#include <FileConstants.au3>
#include <StaticConstants.au3>
#include <WinAPIEx.au3>
#include <AutoItConstants.au3>
#include <GUIConstantsEx.au3>
#include <array.au3>
#include <TrayConstants.au3>
#include <winapi.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <WinAPIFiles.au3>
#include <GuiListView.au3>
_WinAPI_Wow64EnableWow64FsRedirection(False)

Local $sIPAddress =''192.168.1.2'
Local $TCPPort= 8411
Local $mht = GUICreate("", 290, 322)
TCPStartup()
Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE)
Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER)
Local $ListView3 = GUICtrlCreateListView("", 5, 10, 280, 310, -1, $iExWindowStyle)
_GUICtrlListView_SetExtendedListViewStyle($ListView3, $iExListViewStyle)
_GUICtrlListView_AddColumn($ListView3, "", 0)
_GUICtrlListView_AddColumn($ListView3, "Socket", 0)
_GUICtrlListView_AddColumn($ListView3, "序号", 40,2)
_GUICtrlListView_AddColumn($ListView3, "客户机名称", 116,2)
_GUICtrlListView_AddColumn($ListView3, "客户机 IP", 116,2)
GUICtrlSetFont(-1, 10, 400, 1, "微软雅黑")

GUISetState(@SW_SHOW, $mht)
_JT()

Func _JT()
While 1
        _While()
WEnd
EndFunc ;===>_JT

Func _While()
        Dim $msg = GUIGetMsg()
        Switch $msg
                Case $GUI_EVENT_CLOSE
                        Quit()
        Local $iListenSocket = TCPListen($sIPAddress, $TCPPort)
                Return False
        Local $iSocket = 0
        Do
                $iSocket = TCPAccept($iListenSocket)
                If @error Then
                        $iError = @error
                        Return False
                EndIf
        Until $iSocket <> -1
        TCPCloseSocket($iListenSocket)
        TCPCloseSocket($iSocket)
        EndSwitch
EndFunc   ;==>_While

Func Quit()
        TCPShutdown()
        Exit
EndFunc   ;==>Quit()
客户端
#include <MsgBoxConstants.au3>
Local $sIPAddress = '192.168.1.2'
        Local $TCPPort = 8441
_start()

Func _start()
        TCPStartup()

        Local $iSocket = TCPConnect($sIPAddress, $TCPPort)
        If @error Then
                Local $iError = @error
                MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Could not connect, Error code: " & $iError)
                Return False
        Else
                MsgBox($MB_SYSTEMMODAL, "", "Connection successful")
        EndIf
        TCPCloseSocket($iSocket)
EndFunc   ;==>_start()


客户端边不上服务端,客户端用NetAssist.exe  能连上

QQ图片20221005110421.png





最近访问 头像模式 列表模式
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

www8899

1620

活跃

3

技术

6

互助
签到任务
最火的业界新闻
  • 明年才是重头戏!曝iPhone 15系列将取消实
  • 业内人士:感谢竞争 今年第二代骁龙8、天玑
  • PC搅局者来了!Arm杀入:剑指英特尔AMD
  • Intel也玩弯道超车:EUV工艺生产量子芯片
  • “4nm、3nm”EUV工艺来了 Intel最先进晶圆
  • 高通骁龙8 Gen2本周发!网友:王者芯片归来
  • 天玑8200杀疯!冲击高频率 碾压二代骁龙7
  • 英特尔i7-13700H移动处理器现身:性能惊喜
  • RTX 4080明日发售 AMD摊牌了!晒RX 7900 XT
  • 偷师锐龙 远超锐龙:AMD RDNA3显卡的小芯片
炫酷的硬件Show
  • MARK 1 - 设计型 PC 与垂直风道
  • 好的大王,没问题大王
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
有趣的美图分享
  • 电池行业这方面没了你不行
  • 经常被性急的破门而入
  • 奶奶:狗子头七还魂了这是?
  • 你写的取鲁大学,关我耶鲁大学什么事
  • 学校有心了, 喝凉水还放海带
关注官方微信
快速回复 返回顶部 返回列表