您的位置：程序门 -> vb -> 基础类

不用winsock,跟我来获取用户ip。（原创)

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

不用winsock,跟我来获取用户ip。（原创)

发表于：2007-01-22 11:28:35 楼主

大家在获取ip地址的时候，是否觉得麻烦？
必须用到winsock控件，而很多电脑根本就没装。
本来几十k的小软件，结果加上控件，多出了一百多k。
这里给大家介绍一个获取ip地址的简易方法。
不用winsock了，那我们用什么呢？对头，用ie。
我们加入一个webbrowser。哈，这所有win用户都有的。
在我们的空间上放一个asp或shtml文件

内容为 <%=request.servervariables（ "remote_addr ")%> '获取客户端ip。

vb建一个按钮.
private sub command1_click（)
webbrowser1.navigate （ "http://www.upschool.com.cn/setting.asp ")
website = webbrowser1.document.body.innerhtml
astr = trim（website)
msgbox astr
end sub

哈，效果如何？

成功了吧。多好。

这种远端文件读取，可做的事情很多，我不一一说了。至少，可以最简易的方式，控制客户端。

发表于：2007-01-22 12:22:261楼得分:0

还不如用api
什么控件都不用……

发表于：2007-01-22 12:25:582楼得分:0

he e 还以为lz全部用代码在本地实现呢！

下一篇：请教如何用msxml提取xml文件中的数据
上一篇：跪求~~~~~installshield下载地址

其他资讯