| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2748 人关注过本帖
标题:如何获取IP地址
只看楼主 加入收藏
笨龙
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-9-21
收藏
 问题点数:0 回复次数:6 
如何获取IP地址
如题
搜索更多相关主题的帖子: 地址 获取 
2006-09-21 11:02
︷順⑦?zì繎
Rank: 1
等 级:新手上路
帖 子:255
专家分:0
注 册:2006-3-28
收藏
得分:0 

2006-09-21 11:15
潇洒老乌龟
Rank: 5Rank: 5
等 级:贵宾
威 望:18
帖 子:407
专家分:0
注 册:2005-12-13
收藏
得分:0 

获取本机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


乌龟学堂http://www. 承接各种软件开发、系统集成、网络搭建。 QQ:124030710
2006-09-22 10:14
石门书生
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-7-14
收藏
得分:0 
function int WSAStartup( uint UIVersionRequested, ref s_WSAData lpWSAData ) library "wsock32.dll"
这句语句老是出错,是怎么回事?
“error c0001: Illegl data type: lpWSAData”

承接定制开发企、事业单位各种信息管理软件 E_mail:gxjnetweb@.cn qq:317359430
2006-09-29 08:10
石门书生
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2006-7-14
收藏
得分:0 
s_WSAData 这个结构是如何定义的

承接定制开发企、事业单位各种信息管理软件 E_mail:gxjnetweb@.cn qq:317359430
2006-09-29 11:15
ヤ順祺冄繎ヤ
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:3032
专家分:0
注 册:2005-11-9
收藏
得分:0 
2楼的网站上面可以下载到代码。。

你也可以在网上找一下,很好找的。。
2006-10-02 20:04
jiazishu
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2006-11-9
收藏
得分:0 
支持原创!
2006-11-09 11:50
快速回复:如何获取IP地址
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028705 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved