PB12怎样检测本地某个端口是否打开,该如何解决

oleobject lo
int li_r
long ll_c
lo = create oleobject
li_r = lo.connecttonewobject('MSWinsock.Winsock.1')
if li_r <> 0 then 
    //无法连接ole
    return
end if
lo.Protocol = 0
lo.RemoteHost = '127.0.0.1'
lo.RemotePoot = 1433 //端口号
ll_c = cpu()
lo.connect()
do while lo.state <= 6 and cpu() - ll_c < 5000
    yield()
loop
li_r = lo.state
if li_r <> 0 then lo.close()
lo.disconnectobject()
if li_r = 7 then
    //端口已经打开
else
   //端口未打开
end if