在InstallShield中通过主机名获取IP地址的代码_脚本其他教程-查字典教程网
在InstallShield中通过主机名获取IP地址的代码
在InstallShield中通过主机名获取IP地址的代码
发布时间:2016-12-28 来源:查字典编辑
摘要://文件名:setup.rul//脚本功能:通过主机名获得TCP/IP地址//编写日期:2003-07-15//使用方法:调用函数fGetI...

//文件名:setup.rul

//脚本功能:通过主机名获得TCP/IP地址

//编写日期:2003-07-15

//使用方法:调用函数fGetIpAddress(szHost,szIPAdress)

//writtenbyJaron,2002-07-15

//原出处:江都资讯网论坛http://www.jiangdu.net/bbs;;

//转载请注明出处和保留此版权信息

//欢迎使用SiteManager网站管理系统http://sitemanager.cnzone.net;;

#include"Sddialog.h"

#include"IpAddress.rul"

STRINGszIPAddress;

STRINGszHostName;

BOOLnResult;

program

SdShowDlgEdit1("","请输入您的主机名称","主机名:",szHostName);

nResult=fGetIpAddress(szHostName,szIPAddress);

ifnResultthen

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)

//writtenbyJaron,2002-07-15

//原出处:江都资讯网论坛http://www.jiangdu.net/bbs;;

//转载请注明出处和保留此版权信息

//欢迎使用SiteManager网站管理系统http://sitemanager.cnzone.net;;

prototypeNUMBERWSOCK32.WSAStartup(NUMBER,POINTER);

prototypeNUMBERWSOCK32.gethostbyname(STRING);

prototypeNUMBERKERNEL32.RtlMoveMemory(POINTER,NUMBER,NUMBER);

prototypeNUMBERWSOCK32.WSACleanup();

prototypefGetIpAddress(STRING,BYREFSTRING);

typedefWSADATA

begin

INTwversion;

INTwHighVersion;

STRINGszDescription[255];

STRINGszSystemStatus[128];

INTiMaxSockets;

INTiMaxUdpDg;

INTlpszVendorInfo;

end;

typedefHOSTENT

begin

NUMBERhName;//AsLong

NUMBERhAliases;//AsLong

SHORThAddrType;//AsInteger

SHORThLength;//AsInteger

NUMBERhAddrList;//AsLong

end;

typedefIPADDRESS

begin

CHARb1;//First

CHARb2;//Second

CHARb3;//Third

CHARb4;//Fourth

end;

functionfGetIpAddress(szHost,szIPAdress)

WSADATAStructWSAData;

WSADATAPOINTERpStructWSAData;

HOSTENTStructHostEnt;

HOSTENTPOINTERpStructHostEnt;

NUMBERnResult;

NUMBERpHostAddress;

POINTERpHostIPAddress;

NUMBERHostIPAddress;

IPADDRESSIpAddress;

IPADDRESSPOINTERpIpAddress;

STRINGsb1,sb2,sb3,sb4;

NUMBERnStartUp;

BOOLbReturn;

begin

ifszHost=""then

returnFALSE;

endif;

ifUseDLL(WINSYSDIR^"WSOCK32.DLL")<0then

returnFALSE;

endif;

pStructWSAData=&StructWSAData;

pStructHostEnt=&StructHostEnt;

nStartUp=WSAStartup(0x101,pStructWSAData);

ifnStartUp!=0then

returnFALSE;

endif;

pHostAddress=gethostbyname(szHost);

ifpHostAddress!=0then

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;

ifnStartUp=0then

WSACleanup();

endif;

UnUseDLL("WSOCK32.DLL");

returnbReturn;

end;

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新脚本其他学习
    热门脚本其他学习
    脚本专栏子分类