丰满白嫩尤物一区二区,三级资源在线,高潮一区二区

主頁(yè) > 知識(shí)庫(kù) > 在InstallShield中通過(guò)主機(jī)名獲取IP地址的代碼

在InstallShield中通過(guò)主機(jī)名獲取IP地址的代碼

// 文件名：setup.rul
// 腳本功能：通過(guò)主機(jī)名獲得TCP/IP地址
// 編寫(xiě)日期：2003-07-15
// 使用方法：調(diào)用函數(shù) fGetIpAddress(szHost, szIPAdress)
// written by Jaron ,2002-07-15
// 原出處：江都資訊網(wǎng)論壇 http://www.jiangdu.net/bbs;;
// 轉(zhuǎn)載請(qǐng)注明出處和保留此版權(quán)信息
// 歡迎使用SiteManager網(wǎng)站管理系統(tǒng) http://sitemanager.cnzone.net;;

#include "Sddialog.h"
#include "IpAddress.rul"

STRING szIPAddress;
STRING szHostName;

BOOL nResult;

program

SdShowDlgEdit1 ("", "請(qǐng)輸入您的主機(jī)名稱(chēng)", "主機(jī)名：", szHostName);
nResult = fGetIpAddress(szHostName, szIPAddress);
if nResult then
MessageBox ("IP地址是：" + szIPAddress, INFORMATION);
endif;

endprogram
#include "Sddialog.rul"

==========================
// 文件名：IpAddress.rul
// 腳本功能：通過(guò)主機(jī)名獲得TCP/IP地址
// 編寫(xiě)日期：2003-07-15
// 使用方法：
// 1. 在 setup.rul 前面加入 #include "IpAddress.rul"
// 2. 調(diào)用函數(shù) fGetIpAddress(szHost, szIPAdress)
// written by Jaron ,2002-07-15
// 原出處：江都資訊網(wǎng)論壇 http://www.jiangdu.net/bbs;;
// 轉(zhuǎn)載請(qǐng)注明出處和保留此版權(quán)信息
// 歡迎使用SiteManager網(wǎng)站管理系統(tǒng) 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;

您可能感興趣的文章:

Android手機(jī)獲取IP地址的兩種方法
Linux下Python獲取IP地址的代碼
JS不能跨域借助jquery獲取IP地址的方法
PowerShell腳本實(shí)現(xiàn)網(wǎng)卡DHCP自動(dòng)獲取IP地址、設(shè)置靜態(tài)IP地址的方法
js獲取IP地址的方法小結(jié)
java獲取ip地址示例
java中通過(guò)網(wǎng)卡名稱(chēng)獲取IP地址
asp下比較全面的獲取IP地址的代碼
安卓獲取手機(jī)IP地址的實(shí)現(xiàn)代碼

標(biāo)簽：泰安濟(jì)寧安徽濟(jì)源廣東武威臺(tái)州汕頭

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《在InstallShield中通過(guò)主機(jī)名獲取IP地址的代碼》，本文關(guān)鍵詞在,InstallShield,中,通過(guò),主,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。