PB12怎样检测本地某个端口是否打开
PB12怎样检测本地某个端口是否打开
[解决办法]
查一下MSDN 里 wsock32.dll 里的 bind() 方法看有没用。
[解决办法]
oleobject loint li_rlong ll_clo = create oleobjectli_r = lo.connecttonewobject('MSWinsock.Winsock.1')if li_r <> 0 then //无法连接ole returnend iflo.Protocol = 0lo.RemoteHost = '127.0.0.1'lo.RemotePoot = 1433 //端口号ll_c = cpu()lo.connect()do while lo.state <= 6 and cpu() - ll_c < 5000 yield()loopli_r = lo.stateif li_r <> 0 then lo.close()lo.disconnectobject()if li_r = 7 then //端口已经打开else //端口未打开end if