PB12.5 获取ip与计算机名

/建立全局的结构s_wsadata 
//结构如下： 
//version                                   unsignedinteger 
//highversion                           unsignedinteger 
//description[257]                 character 
//systemstatus[129]               character 
//maxsockets                             unsignedinteger 
//maxupddg                                 unsignedinteger 
//vendorinfo                             string 

//声明   extern   function

function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll" alias for "WSAStartup;Ansi" 
function int WSACleanup() library "wsock32.dll" alias for "WSACleanup;Ansi" 
function int WSAGetLastError ( ) library "wsock32.dll" alias for "WSAGetLastError;Ansi" 
function i