pb 中使用MSWinsock

pb 中应用MSWinsock
oleobject lo
int li_r
long ll_c
lo = create oleobject
li_r = lo.connecttonewobject('MSWinsock.Winsock.1')
if li_r <> 0 then 

    //无法连接ole  有些可以，但是大部分都不可以，不知道是少了什么wswinsck.ocx也注册过了
    return 9
end if
------解决方案--------------------
建议直接使用OCX控件，更加直观，通过OLE控件增加