hur.cn - 华软网

 热门搜索

pb中如何获得ip地址

  作者:未知    来源:网络    更新时间:2019/4/16
讨教pb中如何获得ip地址?
------华软网友回答------
本机ip?我有例子
------华软网友回复------
声明win32 API函数:
function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll"
function int WSACleanup() library "wsock32.dll"
function int WSAGetLastError ( ) library "wsock32.dll"
function int gethostname ( ref string name, int namelen ) library "wsock32.dll"
function string GetHost(string lpszhost, ref blob lpszaddress ) library "pbws32.dll"  

运用方法:
s_wsadata l_WSAData
string ls_HostName = space(128)
string ls_IpAddress
int li_version = 257
blob{4} lb_hostaddress 

IF wsastartup ( li_version, l_WSAData ) = 0 THEN

IF gethostname ( ls_HostName, len(ls_HostName) ) < 0 THEN
messagebox("GetHostName",WSAGetLastError())
ELSE
GetHost(ls_HostName, lb_HostAddress)
ls_IpAddress = string(asc(string(blobmid(lb_HostAddress,1,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,2,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,3,1))),"000") + "."
ls_IpAddress += string(asc(string(blobmid(lb_HostAddress,4,1))),"000")
END IF
WSACleanup()
ELSE
messagebox("GetHostName",WSAGetLastError())
END IF 
sle_1.text=ls_hostname
sle_2.text=ls_ipaddress
------华软网友回复------
谢谢,然则没有pbws32.dll库,如果有的话发份到jinchai_1983@yahoo.com.cn,非常谢谢!
------华软网友回复------
我用它后显示的是乱码,这是什么原因
------华软网友回复------
我获得的是0.0.0.0,怎么回事?
------华软网友回复------
获得本机IP地址:
RegistryGet('HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Class\NetTrans\0003',''IPAddress',ls_ipaddress)
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。