专门为PB,VB程序获取本机IP而制作的动态库

最新推荐文章于 2013-06-19 19:34:14 发布
最新推荐文章于 2013-06-19 19:34:14 发布
阅读量1.9k 收藏 1
点赞数
分类专栏： VC++/MFC 文章标签： vb powerbuilder dll api
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/SummerHeart/article/details/2516462
版权

本人在网上看到有些PB，VB的朋友为获取IP大费脑筋，所以在网上找了点资料，经过修改制成了调用方便的DLL库，并支持多个网卡，让PB、VB用一个函数调用搞定。呵呵。
注：pb10以上定义加： ALIAS FOR "foo;ansi"

下载地址：
http://www.cnblogs.com/Files/SummerHeart/GetIP.rar

PS:动态库有所更新，非常感谢网友骑猪去兜风在使用中发现问题，并应其要求，加入获取主机名的API。（2008.06.02更新）

　有关PowerBuilder的问题敬请关注

http://summerheart.cnblogs.com

PowerBuilder之5年经验谈

编程夜猫
关注
专栏目录
vb简单控制音量大小及静音的方法
miaozk2006的专栏
07-26 2394
代码如下:  复制内容到剪贴板 程序代码'新建EXE工程,添加三个按钮.'按钮一是音量增加,按钮二是音量减少,按钮三是静音切换.Option Explicit Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _                          ByVal hwn...
PB开发笔记(7)
盐碘
07-08 3513
//小写金额转换成大写金额string CN_NUM[10] = {"零","壹","贰","叁","肆","伍","陆","柒","捌","玖"}//大写0-9string CN_CARRY[19] = {"分","角","","元","拾","佰","仟","万","拾","佰","仟","亿","拾","佰","仟","万","拾","佰","仟"}string ls_pos,ls_numb
PB11.5程序支持动态库
04-25
PB11.5程序支持动态库,注意是PB11.5版本的。
专门为PB,VB程序获取本机IP而制作的动态库（2008.06.02更新）
dayao3530的博客
05-17 134
本人在网上看到有些PB，VB的朋友为获取IP大费脑筋，所以在网上找了点资料，经过修改制成了调用方便的DLL库，并支持多个网卡，让PB、VB用一个函数调用搞定。呵呵。 注：pb10以上定义加：ALIAS FOR "foo;ansi" 下载地址：http://u.download.csdn.net/source/458053 http://www.cnblogs.com...
powerbuilder获取本地IP地址或主机名
11-03
绝对真的，我在powerbuilder9.0下用的，能够获得，哈哈~~找了一星期了，分享下~~
PB11.5获取IP地址及主机名
06-24
PB11.5获取IP地址及主机名，已经验证
powerbuilder获取IP
04-25
iP地址是指互联网协议地址（英语：Internet Protocol Address，又译为网际协议地址），是IP Address的缩写。IP地址是IP协议提供的一种统一的地址格式，它为互联网上的每一个网络和每一台主机分配一个逻辑地址，以此来屏蔽物理地址的差异。
pb利用Windows下的iphlpapi.dll获取IP和MAC
06-22
本话题主要探讨如何在Windows操作系统环境下，利用PowerBuilder结合系统提供的iphlpapi.dll动态链接库来获取计算机的IP地址和MAC地址。这两项信息在网络通信中至关重要，IP地址是网络上的唯一标识，而MAC地址则是...
获取IP的动态库DLL
05-17
标题中的“获取IP的动态库DLL”指的是一个专为PowerBuilder (PB) 和Visual Basic (VB) 应用程序设计的动态链接库（DLL），它的主要功能是获取计算机的IP地址，尤其适用于拥有多个网络接口（即多个网卡）的系统。...
Java调用动态链接库通用方法.doc
最新发布
06-28
这样，编写的动态链接库不仅可以被Java调用，还可以被其他多种语言如VC、Delphi、PB、VB、C#等调用。 #### 三、Java调用DLL文件 Java调用DLL文件主要通过`Native`类来实现，该类位于`com.sun.jna`包中。下面以“D...
GetIP PB获取IP的DLL
05-13
我试了，支持PB11.5 VC++写的获取本机IP的动态库，并支持多个网卡。 若有多个网卡会用;号分隔开。调用定义 PB调用定义： Function uLong GetHostIpList(ref string hostAddressip) Library "GetIP60.dll" PB11.2调用定义： Function uLong GetHostIpList(ref string hostAddressip) Library "GetIP60.dll" ALIAS FOR "GetHostIpList;ansi" 调用方法 string ls_HostIP = space(128) if GetHostIpList(ls_HostIP) =0 then sle_1.text=trim(ls_HostIP) end if ========================================================== 获取主机名的API PB调用定义： Function uLong Gethost(ref string hostname) Library "GetIP60.dll" PB11.2调用定义： Function uLong Gethost(ref string hostname) Library "GetIP60.dll" ALIAS FOR "Gethost;ansi" 调用方法 string ls_Host = space(256) int result result = Gethost(ls_Host) if result =0 then sle_1.text=trim(ls_Host) end if
获取本地IP地址的小程序
04-20
java写的获取本地IP地址的小程序，附有源代码 大家一起学习 一起进步 如有更好的方法 请留言 谢谢
pb扩展dll可实现取本机IPMAC 加解密压缩 截图等功能
11-12
pb扩展dll可实现取 本机IPMAC 加解密压缩 截图等功能
Powerbuilder 获取IP地址，MAC地址
12-08
pb使用函数GetAdaptersInfo 这个资源，是我自己写的代码，我违反了什么规定？
pb中如何获得机器ip地址
02-23
在用pb开发信息管理系统时，为了安全期间，我们希望记录每个登录用户的信息，并生成日志，其中最重要的是知道是哪个机器运行程序的？这样，只要获取运行程序的机器ip问题就解决了，然而，pb中没有象delphi 中有现成的函数可以很方便的获的机器的ip，我们只好利用外部函数来实现了。首先声明外部函数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" 然后在form的open事件中执行如下代码就可以了s_wsadata l_WSADataint li_version = 257blob{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) //获得主机名和IP地址 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") //将IP地址的ASC码形式转化为***.***.***.***字符串格式 END IF WSACleanup()ELSE messagebox("GetHostName",WSAGetLastError())END IF
PB运行库(PB6.5,PB7,PB8,PB9)
ribut9225的专栏
05-31 7204
[收藏]PB运行库(PB6.5,PB7,PB8,PB9)     一、PowerBuilder运行时动态链接库( Runtime Library )。不同版本的PB所需要的运行时动态链接库文件不尽相同，但库名有相似的地方，这些DLL都必须包含在应用程序目录或系统目录当中： PB6.5所需文件： 　　必需 PBVM60.DLL PowerBuilder 虚拟机，可选 PBDWE60.DLL D
VB 域名转换IP地址函数
miaozk2006的专栏
06-19 595
它可以将一个域名转换成对应的IP地址。调用FORM代码示例: Private Sub Form_Load()    MsgBox DomainNameToIP("http://miaozk2006.blog.163.com")End Sub Module: Option Explicit Private Type HOSTENT    hName As Long    hAli...
pb中获得本机IP地址\MAC地址信息纯代码方式
01-22
pb9程序直接获取ip地址，mac地址。源码包含原生版本、以及PB9.0和9B11.2两个版本的工程文件，用于个性化设定，带有另一组获取DNS版本。仅供参考。
vb中从域名得到IP的软件源码
04-09
vb中从域名得到IP本人看了很多网上有关的源码,基本上都是一样的,不过功能就不是很强大 有感与此,本人特写了一个功能强大点的欢迎大家使用
pb9.0 获取本机ip地址
08-31
### 回答1： 在PB9.0中获取本机IP地址，可以使用PB提供的WinAPI函数GetAdaptersInfo()，该函数可以获取到计算机的网络适配器信息，其中包括IP地址等网络设置信息。 要获取本机IP地址，需要先定义结构体IP_ADAPTER_INFO，然后通过调用GetAdaptersInfo()函数获取到该结构体信息。最后遍历结构体链表即可获取到本机的IP地址。 具体实现代码如下： // 定义结构体 typedef struct _IP_ADAPTER_INFO { struct _IP_ADAPTER_INFO* Next; DWORD ComboIndex; char AdapterName[MAX_ADAPTER_NAME_LENGTH + 4]; char Description[MAX_ADAPTER_DESCRIPTION_LENGTH + 4]; UINT AddressLength; BYTE Address[MAX_ADAPTER_ADDRESS_LENGTH]; DWORD Index; UINT Type; UINT DhcpEnabled; PIP_ADDR_STRING CurrentIpAddress; IP_ADDR_STRING IpAddressList; IP_ADDR_STRING GatewayList; IP_ADDR_STRING DhcpServer; BOOL HaveWins; IP_ADDR_STRING PrimaryWinsServer; IP_ADDR_STRING SecondaryWinsServer; time_t LeaseObtained; time_t LeaseExpires; } IP_ADAPTER_INFO, * PIP_ADAPTER_INFO; // 获取本机IP地址 string ls_ips IP_ADAPTER_INFO AdapterInfo[16] = { 0 }; DWORD dwBufLen = sizeof(AdapterInfo); DWORD dwStatus = GetAdaptersInfo(AdapterInfo, &dwBufLen); for (PIP_ADAPTER_INFO pAdapterInfo = AdapterInfo; pAdapterInfo; pAdapterInfo = pAdapterInfo->Next) { IP_ADDR_STRING* pIpAddrString = &(pAdapterInfo->IpAddressList); do { ls_ips += string(pIpAddrString->IpAddress.String) + "~r~n" pIpAddrString = pIpAddrString->Next; } while (pIpAddrString); } // 输出本机IP地址 MessageBox("本机IP地址为：" + ls_ips) 注意，这里将获取到的所有IP地址都保存在一个字符串变量ls_ips中，可以根据自己的需要选择特定的IP地址输出。同时，需要注意编译时的选项，需要将编译选项设置为Allow unsafe code，以允许调用WinAPI函数。 ### 回答2： 在Python中，可以使用socket模块的gethostbyname()函数来获取本机的IP地址。具体步骤如下： ```python import socket def get_local_ip(): """ 获取本机的IP地址 """ try: # 获取本机主机名 hostname = socket.gethostname() # 获取本机IP地址 ip_address = socket.gethostbyname(hostname) return ip_address except Exception as e: print("获取本机IP地址失败：", e) return None # 调用函数获取本机IP地址 ip_address = get_local_ip() if ip_address: print("本机IP地址为:", ip_address) else: print("获取本机IP地址失败") ``` 其中，首先使用 `socket.gethostname()` 函数获取本机的主机名，然后通过 `socket.gethostbyname()` 函数将主机名转换为IP地址。最后将获取到的IP地址打印输出即可。 ### 回答3： 在Python中，可以使用socket模块来获取本机的IP地址。具体步骤如下： 1. 首先，导入socket模块：`import socket` 2. 创建一个socket对象：`s = socket.socket(socket.AF_INET, socket.SOCK_DGRAM)` 这里使用的是数据报套接字（SOCK_DGRAM），并使用IPv4地址族（AF_INET）。 3. 发送一个UDP数据包到特定的服务器地址：`s.connect(("8.8.8.8", 80))` 这里选择了Google的DNS服务器地址（8.8.8.8）和端口号80。 4. 获取本机的IP地址信息：`ip_address = s.getsockname()[0]` 利用getsockname()方法可以获取到套接字的本地地址，返回的是一个元组，其中第一个元素为IP地址。 5. 关闭socket连接：`s.close()` 最后，可以将获取到的IP地址打印出来，或者进行其他的处理。完整的代码如下： ```python import socket s = socket.socket(socket.AF_INET, socket.SOCK_DGRAM) s.connect(("8.8.8.8", 80)) ip_address = s.getsockname()[0] s.close() print("本机IP地址是：", ip_address) ``` 通过以上步骤，就可以获取到本机的IP地址。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

编程夜猫

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值