获得机器的ip地址急！！！

linleming 2003-05-21 09:50:02

通过任何方法获得本机的ip地址，力争试用于任何操作系统

...全文

24 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

fengzeng 2003-05-21

打赏
举报

http://www.pbcoder.com/download/SoftView.Asp?SoftID=40

fengzeng 2003-05-21

打赏
举报

http://www.pbcoder.com/download/Search.asp

RechardXc 2003-05-21

打赏
举报

先帮你顶一下，
俺用很笨的方法：程序中run 'ipconfig > c:\outinfo.txt'
然后程序分析 c:\outinfo.txt来分析, 不过限于windows系列，

boyliulang 2003-05-21

打赏
举报

得到机器的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

birdslin 2003-05-21