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控件增加