检测端口开放函数。

_CheckTcpPort("192.168.1.228",1390)
If @error Then MsgBox(64,"error","端口没有开放")


Func _CheckTcpPort($sIP,$sPort)
;=============================
;说明：检测TCP端口是否开放
;返回；错误值为1，IP地址错误
;      错误值为2，端口错误
;其他错误值依照
;Windows API WSAGetError 返回
;作者：Sanhen
;Web: www.autoit.net.cn
;=============================
Local $TcpSocket   
TCPStartUp()
$TcpSocket = TCPConnect($sIP ,$sPort)
Switch $TcpSocket
     Case -1    
        Return SetError(@error)
    Case Else
        Return ConsoleWrite("Open Port ")
EndSwitch

TCPShutdown()

EndFunc

_CheckUdpPort("192.168.1.228",139)
If @error Then MsgBox(64,@error,"端口没有开放")

Func _CheckUdpPort($sIP,$sPort)
;=============================
;说明：检测UdP端口是否开放
;返回；错误值为1，IP地址错误
;      错误值为2，端口错误
;其他错误值依照
;Windows API WSAGetError 返回
;作者：Sanhen
;Web: www.autoit.net.cn
;=============================
Local $UdpSocket
UDPStartup()
$UdpSocket = UDPBind($sIP,$sPort)
Switch $UdpSocket
     Case -1    
        Return SetError(@error)
    Case Else
        Return ConsoleWrite("Open Port ")
EndSwitch

UDPShutdown()

EndFunc