使用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
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