TCPStartUp()
$MainSocket = TCPListen(TCPNameToIP(@computername), 65432, 100 )
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
msgbox(0,"","connected",1)
ExitLoop
EndIf
Wend
While 1
$Message=TCPRecv($ConnectedSocket,2048)
Sleep(25)
If $Message<>"" Then
Switch $Message
Case "IPAddress"
$Info=@IPAddress1
Case "ComputerName"
$Info=@ComputerName
Case "UserName"
$Info=@UserName
Case "LogonDomain"
$Info=@LogonDomain
Case Else
$Info="Unknown command"
EndSwitch
TCPSend($ConnectedSocket,$Info)
EndIf
WEnd
--这种比较简单,需要复杂点的实例哈