圆月山庄资源网 Design By www.vgjia.com
// 文 件 名: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;
// 脚本功能:通过主机名获得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;
圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com
暂无评论...
更新日志
2024年04月29日
2024年04月29日
- 方大同.2007-爱爱爱音乐会THISLOVELIVE2007【华纳】【WAV+CUE】
- 群星.2024-叶振棠80【环星】【FLAC分轨】
- 庄达菲.2024-东张西望(EP)【创娱无界】【FLAC分轨】
- dnf柯涅恩山搬砖怎么走
- dnf武器强化多少会碎
- dnf武器装扮怎么获得
- 【PCL特辑】PUBG三大顶流:PUBG很好玩,千万别开挂
- 在暴风雨的彼端依旧是暴风雨——《三月的狮子》
- 借由《星露谷》事件,聊聊游戏汉化中的“信达雅”
- 黄凤凤.2011-丽风金典系列VOL.2【丽风】【WAV+CUE】
- 郑秀文.2021-ListenToMi(EP)【寰亚】【FLAC分轨】
- 傻子与白痴.2021-YearofFate【哇唧唧哇】【FLAC分轨】
- 玩家晒《剑星》配饰截图:眼镜爱好者大满足!
- 女子买珍珠是贝壳做的 商家回复:这是珍珠的妈妈!
- 《英雄联盟手游》亚索新皮肤明日上线 峡谷吹奏《兰亭序》