使用pb的connection对象建立TCP连接

connection myconnect
int li_return
myconnect = create connection
myconnect.driver = "WinSock"
myconnect.application = "8100"
myconnect.location ="127.0.0.1"
li_return=myconnect.ConnectToServer()
if li_return=52 then
 messagebox("系统提示","网络中没有您输入的主机名，请确认后重新输入！")
 return
else
 MessageBox('tips',li_return)
end if