页面导航：首页 → 脚本专栏 → 其它 → 正文内容

在InstallShield中通过主机名获取IP地址的代码

发布：dxy 字体：[增加减小] 类型：转载

// 文件名：setup.rul
// 脚本功能：通过主机名获得TCP/IP地址
// 编写日期：2003-07-15
// 使用方法：调用函数 fGetIpAddress(szHost, szIPAdress)
// written by Jaron ,2002-07-15
// 原出处：江都资讯网论坛 http://www.jiangdu.net/bbs;;
// 转载请注明出处和保留此版权信息
// 欢迎使用SiteManager网站管理系统 http://sitemanager.cnzone.net;;
#include "Sddialog.h"
#include "IpAddress.rul"
STRING szIPAddress;
STRING szHostName;
BOOL nResult;
program
SdShowDlgEdit1 ("", "请输入您的主机名称", "主机名：", szHostName);
nResult = fGetIpAddress(szHostName, szIPAddress);
if nResult then
MessageBox ("IP地址是：" + szIPAddress, INFORMATION);
endif;
endprogram
#include "Sddialog.rul"

==========================
// 文件名：IpAddress.rul
// 脚本功能：通过主机名获得TCP/IP地址
// 编写日期：2003-07-15
// 使用方法：
// 1. 在 setup.rul 前面加入 #include "IpAddress.rul"
// 2. 调用函数 fGetIpAddress(szHost, szIPAdress)
// written by Jaron ,2002-07-15
// 原出处：江都资讯网论坛 http://www.jiangdu.net/bbs;;
// 转载请注明出处和保留此版权信息
// 欢迎使用SiteManager网站管理系统 http://sitemanager.cnzone.net;;

prototype NUMBER WSOCK32.WSAStartup( NUMBER, POINTER);
prototype NUMBER WSOCK32.gethostbyname(STRING);
prototype NUMBER KERNEL32.RtlMoveMemory (POINTER, NUMBER, NUMBER);
prototype NUMBER WSOCK32.WSACleanup();
prototype fGetIpAddress(STRING, BYREF STRING);
typedef WSADATA
begin
    INT wversion;
    INT wHighVersion;
    STRING szDescription[255];
    STRING szSystemStatus[128];
    INT iMaxSockets;
    INT iMaxUdpDg;
    INT lpszVendorInfo;
end;
typedef HOSTENT
begin
    NUMBER hName; // As Long
    NUMBER hAliases; // As Long
    SHORT hAddrType; //As Integer
    SHORT hLength; // As Integer
    NUMBER hAddrList; // As Long
end;
typedef IPADDRESS
begin
CHAR b1; //First
CHAR b2; //Second
CHAR b3; //Third
CHAR b4; //Fourth
end;
function fGetIpAddress(szHost, szIPAdress)
WSADATA StructWSAData;
WSADATA POINTER pStructWSAData;
HOSTENT StructHostEnt;
HOSTENT POINTER pStructHostEnt;
NUMBER nResult;
NUMBER pHostAddress;
POINTER pHostIPAddress;
NUMBER HostIPAddress;
IPADDRESS IpAddress;
IPADDRESS POINTER pIpAddress;
STRING sb1, sb2, sb3, sb4;
NUMBER nStartUp;
BOOL bReturn;
begin
if szHost = "" then
  return FALSE;
endif;
if UseDLL(WINSYSDIR^"WSOCK32.DLL") < 0 then
  return FALSE;
endif;
pStructWSAData = &StructWSAData;
pStructHostEnt = &StructHostEnt;
nStartUp = WSAStartup(0x101, pStructWSAData);
if nStartUp != 0 then
  return FALSE;
endif;
pHostAddress = gethostbyname(szHost);
if pHostAddress != 0 then
  RtlMoveMemory (pStructHostEnt, pHostAddress, 16);
  pHostIPAddress = &HostIPAddress;
  RtlMoveMemory (pHostIPAddress, StructHostEnt.hAddrList, 4);
  pIpAddress = &IpAddress;
  RtlMoveMemory (pIpAddress, HostIPAddress, 4);
  NumToStr(sb1, pIpAddress->b1);
  NumToStr(sb2, pIpAddress->b2);
  NumToStr(sb3, pIpAddress->b3);
  NumToStr(sb4, pIpAddress->b4);
  szIPAdress = sb1 + "." + sb2 +  "." + sb3 + "." + sb4 ;
  bReturn = TRUE;
else
  bReturn = FALSE;
endif;
if nStartUp = 0 then
  WSACleanup();
endif;
UnUseDLL("WSOCK32.DLL");
return bReturn;
end;

Tags：在InstallShield中通过主机名获取IP地址的代码