#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 能连上
