当前位置：主页>销售管理软件> 列表

要做一个仿真unix环境下命令行配置网络设备的系统，大家来 找破解网吧管理软件

库存管理软件版1楼: 初步构思：命令行系统应该是一个树状结构，从根节点到叶节点的路径构成一条合格的命令行。命令行的屏幕输出则应该分为固定的和不固定的，固定的是针对每一条命令，输出也是固定的；非固定的则要根据业务的不同显示相应的输出～～～

2楼: 一窍不通。接点分哦 如服装进销存软件破解

3楼: 呵呵，没人顶啊

4楼: 帮你顶

5楼: ivy1982简直就是一顶王

6楼: uses WinInet;
//********获取外网IP地址函数*******************//
function GetTheInternetLocalIP: string;
begin
Result := ＇＇＇＇;
//Use GetInternetLocalIP.pas
if not Assigned(GetInternetLocalIPForm) then
if CheckInternetOnline then
try
Application.CreateForm(TGetInternetLocalIPForm, GetInternetLocalIPForm);
while GetInternetLocalIPForm.TheInternetLocalIP = ＇＇E＇＇ do Application.ProcessMessages;
Result := GetInternetLocalIPForm.TheInternetLocalIP;
if not IsIP(Result) then
Result := ＇＇＇＇;
finally
FreeAndNil(GetInternetLocalIPForm);
end;
end;
//*******************************************//

procedure TForm1.gogogoClick(Sender: TObject);
begin
Edit1.text:= GetTheInternetLocalIP ;
end;

库存管理软件版7楼: baoyun 你的回答是不是少了点东西

8楼: 是少控件HTTPGet了，
自己找吧，有思路就是了

9楼: GetInternetLocalIP.pas
这个在那里

10楼: unit Functions;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

function CheckInternetOnline: boolean; //检查互联网是否在线
function IsIP(S: string): boolean; //判断录入的字符串是否为IP
function GetLocalIP: string; //获取本机IP地址
function GetTheInternetLocalIP: string; //获取外网IP地址


implementation

uses
GetInternetLocalIP,WinInet,Winsock;

//HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

function CheckInternetOnline: boolean; //检查互联网是否在线
var
ConnectState: DWORD;


StateSize: DWORD;
begin
ConnectState := 0;
StateSize := SizeOf(ConnectState);
Result := false;
//Use WinInet.pas;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
Result := (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2;
if Result then
Result := InternetCheckConnection(＇＇http://www.microsoft.com/isapi/redir.dll？prd=ie&pver=6&ar=msnhome＇＇, 1, 0);
end;

//HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
function IsIP(S: string): boolean; //判断录入的字符串是否为IP
var
S1, S2, S3, S4, sTemp: string;
K, I: integer;
begin
S1 := ＇＇＇＇;
S2 := ＇＇＇＇;
S3 := ＇＇＇＇;
S4 := ＇＇＇＇;
K := 0;
Result := false;
S := Trim(S);
if Length(S) < 7 then exit; //最小的IP长度也是7位0.0.0.0
for I := 0 to Length(S) do
if S[I] = ＇＇.＇＇ then
Inc(K);
if K <> 3 then
begin
Result := false;
exit;
end
else
begin
sTemp := S;
for I := Length(sTemp) downto 1 do
if sTemp[I] = ＇＇.＇＇ then
Delete(sTemp, I, 1);
for I := Length(sTemp) downto 1 do
if not (sTemp[I] in [＇＇0＇＇..＇＇9＇＇]) then
begin
Result := false;
exit;
end;
K := Pos(＇＇.＇＇, S);
S1 := Copy(S, 1, K - 1);
Delete(S, 1, K);
K := Pos(＇＇.＇＇, S);
S2 := Copy(S, 1, K - 1);
Delete(S, 1, K);
K := Pos(＇＇.＇＇, S);
S3 := Copy(S, 1, K - 1);
Delete(S, 1, K);
S4 := S;
Result := (StrToInt(S1) >= 0) and (StrToInt(S1) <= 255) and
(StrToInt(S2) >= 0) and (StrToInt(S2) <= 255) and
(StrToInt(S3) >= 0) and (StrToInt(S3) <= 255) and
(StrToInt(S4) >= 0) and (StrToInt(S4) <= 255);
end;
end;
//HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

function GetLocalIP: string; //获取本机IP地址
type
TaPInAddr = array[0..255] of PInAddr; //Use Winsock.pas


PaPInAddr = ^TaPInAddr;
var
phe: PHostEnt;
pptr: PaPInAddr;
Buffer: array[0..63] of char;
i: integer;
GInitData: TWSADATA;
begin
wsastartup($101, GInitData);
result := ＇＇＇＇;
GetHostName(Buffer, SizeOf(Buffer));
phe := GetHostByName(buffer);
if not assigned(phe) then
exit;
pptr := PaPInAddr(Phe^.h_addr_list);
i := 0;
while pptr^[I] <> nil do
begin
result := Result + StrPas(inet_ntoa(pptr^[I]^)) + ＇＇,＇＇;
inc(i);
end;
Delete(Result, Length(Result), 1);
wsacleanup;
end;
//HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

function GetTheInternetLocalIP: string; //获取外网IP地址
begin
Result := ＇＇＇＇;
//Use GetInternetLocalIP.pas
if not Assigned(GetInternetLocalIPForm) then
if CheckInternetOnline then
try
Application.CreateForm(TGetInternetLocalIPForm, GetInternetLocalIPForm);
while GetInternetLocalIPForm.TheInternetLocalIP = ＇＇E＇＇ do Application.ProcessMessages;


Result := GetInternetLocalIPForm.TheInternetLocalIP;
if not IsIP(Result) then
Result := ＇＇＇＇;
finally
FreeAndNil(GetInternetLocalIPForm);
end;
end;

end.

11楼: 不用这么复杂，你只要上一些ip地址查询网站，立即就可以显示你的ip
例如 http://www.ip138.com/

12楼: 你要做什么啊。用自己家的电脑做WebServices？
要是这样的话就下个地址影射的工具然后申请一个免费的域名挂上去就行了
我原来做过，呵呵。 如销售商品附带软件

13楼: 最简单的办法是从路由器上取， 通过telnet或者http上路由器（取决于提供的管理接口）。

库存管理软件版14楼: 这个函数你试试
function GetIP:string;
//此函数实际是获取最后一个IP地址的字符串，一般是拨号后动态分配的IP地址。
//如果，主机还未拨号上网，则返回的是本地局域网的IP地址
var
WSAData:TWSAData;
HostName:array[0..MAX_COMPUTERNAME_LENGTH] of Char;
HostEnt:PHostEnt;
LastIP:PInAddr;
IPList:^PInAddr;
begin


result:=＇＇＇＇;
if 0=WSAStartup(MAKEWORD(1,1), WSAData) then
try
if 0=gethostname(HostName, MAX_COMPUTERNAME_LENGTH+1) then
begin
HostEnt:=gethostbyname(HostName);
if HostEnt<>nil then
begin
IPList:=Pointer(HostEnt^.h_addr_list);
repeat
LastIP:=IPList^;
INC(IPList);
until IPList^=nil;
if LastIP<>nil then
result:=inet_ntoa(LastIP^);
end;
end;
finally
WSACleanup;
end;
end;

15楼: 哎，没有一个是对的，你们取的都是局域网的ip。

16楼: 通过某些网站，可获取外网IP。

17楼: 透过我的网站就可以了。我给你返回你的ip地址

18楼: <%@ language=vbscript%>
<%Response.Write Request.ServerVariables(＂REMOTE_ADDR＂)%>

将上面的两行存为一个ASP文件（如getip.asp）放到你的站点上，然后在浏览器中访问该ASP文件就显示你上网的IP了，如果要在DELPHI程序中使用也可以，用Indy的HTTP控件访问该ASP就可返回IP了。

19楼: function LoadServer(const SvrScript: string; var RetString: string): BOOL;


var
NetHandle: HINTERNET;
UrlHandle: HINTERNET;
Buffer: array[0..1024] of char;
BytesRead: cardinal;
begin
RetString := ＇＇＇＇;
Result := False;
//打开Internet 句柄
NetHandle := InternetOpen(＇＇Delphi 5.x＇＇, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
//是否分配成功成名遂
if Assigned(NetHandle) then
begin
//打开URL句柄
UrlHandle := InternetOpenUrl(NetHandle, PChar(SvrScript), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(UrlHandle) then
begin
//打开成功, 填充数组
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
//保存结果
RetString := RetString + StrPas(Buffer);
FillChar(Buffer, SizeOf(Buffer), 0);
//读取Buffer
InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
//关闭URL句柄
InternetCloseHandle(UrlHandle);
Result := True;
end
else Result := False;
//关闭Intenet句柄
InternetCloseHandle(NetHandle);
end; // end if NetHandle <> 0 then
end;
//也可指定其他IP查询，根据自己所需修改


procedure Tfrm_FCUDPServer.Button1Click(Sender: TObject);
const
IPPos = ＇＇您的IP地址是：＇＇;
var
IP138Server: string;
l_pos: Integer;
begin
mmo1.Clear;
if not LoadServer(＇＇http://www.ip138.com/＇＇, IP138Server) then
if not LoadServer(＇＇http://www.ip138.com/＇＇, IP138Server) then
if not LoadServer(＇＇http://www.ip138.com/＇＇, IP138Server) then
if not LoadServer(＇＇http://www.ip138.com/＇＇, IP138Server) then
if not LoadServer(＇＇http://www.ip138.com/＇＇, IP138Server) then; //注意这里不能掉了分号

if IP138Server <> ＇＇＇＇ then
begin
l_pos := Pos(IPPos, IP138Server);
if l_pos > 0 then
begin
IP138Server := Copy(IP138Server, l_pos + Length(IPPos), 15);
IP138Server := Copy(IP138Server, 1, Pos(＇＇<＇＇, IP138Server) - 1);
lbledt_NetIP.Text := IP138Server;

end;
end;
end;

20楼: 这个你如果有用路由器进入路由器看就知道,没有就去网上访问一些网站也可以看到 .

库存管理软件版21楼: 在本机上折腾，是无法取得公网IP的，因为本机上根本就只有私网IP。要不到MODEM里面获得，要不访问一些网站获得。

22楼: 安一个花生壳三
再申请一个花生壳二级域名
以后要知道自已的地址：看一看花生壳生的就可以了
也可以ping 花生壳二级域名 就可以知道IP了 如破解网吧管理软件

23楼: 作程序来显示外网IP得方法就是通过访问某些网站来返回你的IP地址，
若嫌麻烦，这样吧，在IE地址栏输入
http://www.neworigin.com.cn/GetNetIP/
回车
就显示你上网的的IP地址了
若果用QQ的珊瑚虫显IP版本也可以的