局域网要 127.0.0.1 IP
不用配置登录器
你只要 用那个测试登录器 添加 游戏名称 和IP 127.0.0.1 端口 7000
把那个登录器 发给你同事 叫他自己添加 游戏名称和IP 端口 （局域网才可以）比如网吧
ping它就行了 网上找，一时我也忘了写在哪了，反正delphi是可以ping的，或者你用IDEcho试试
procedure pinghost(ip:string;var info:string);
ip:目标IP地址；
info:ping了以后产生的信息(1)或(2)；
(1)成功信息
ip 发送测试的字符数 返回时间
(2)出错信息
Can not find host! .
使用
uses ping; 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
ping:Tping;
begin
ping:=Tping.create ;//一定要初试化哦
ping.pinghost(''''127.0.0.1'''',str);
memo1.Lines.Add(str);
ping.destroy ;
end; .
.
[ping.pas] 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!
(*作者：e梦缘*） .
unit ping; 特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系
interface 。
uses 版权申明：本站文章均来自网络.
Windows, SysUtils, Classes, Controls, Winsock,
StdCtrls; 。
type
PIPOptionInformation = ^TIPOptionInformation;
TIPOptionInformation = packed record
TTL: Byte;
TOS: Byte;
Flags: Byte;
OptionsSize: Byte;
OptionsData: PChar;
end; 。
PIcmpEchoReply = ^TIcmpEchoReply;
TIcmpEchoReply = packed record
Address: DWORD;
Status: DWORD;
RTT: DWORD;
DataSize: Word;
Reserved: Word;
Data: Pointer;
Options: TIPOptionInformation;
end; 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!
TIcmpCreateFile = function: THandle; stdcall;
TIcmpCloseHandle = function(IcmpHandle: THandle): Boolean; stdcall;
TIcmpSendEcho = function(IcmpHandle:THandle;
DestinationAddress: DWORD;
RequestData: Pointer;
RequestSize: Word;
RequestOptions: PIPOptionInformation;
ReplyBuffer: Pointer;
ReplySize: DWord;
Timeout: DWord
): DWord; stdcall; 。
Tping =class(Tobject) ..
private
{ Private declarations }
hICMP: THANDLE;
IcmpCreateFile : TIcmpCreateFile;
IcmpCloseHandle: TIcmpCloseHandle;
IcmpSendEcho: TIcmpSendEcho;
public
procedure pinghost(ip:string;var info:string);
constructor create;
destructor destroy;override;
{ Public declarations }
end; ..
var
hICMPdll: HMODULE; 对真正的成功者来说，不论他的生存条件如何，都不会自我磨灭
implementation 特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系.
constructor Tping.create;
begin
inherited create;
hICMPdll := LoadLibrary(''''icmp.dll'''');
@ICMPCreateFile := GetProcAddress(hICMPdll, ''''IcmpCreateFile'''');
@IcmpCloseHandle := GetProcAddress(hICMPdll,''''IcmpCloseHandle'''');
@IcmpSendEcho := GetProcAddress(hICMPdll, ''''IcmpSendEcho'''');
hICMP := IcmpCreateFile;
end; !
destructor Tping.destroy;
begin
FreeLibrary(hIcmpDll);
inherited destroy;
end; 对真正的成功者来说，不论他的生存条件如何，都不会自我磨灭
procedure Tping.pinghost(ip:string;var info:string);
var
// IP Options for packet to send
IPOpt:TIPOptionInformation;
FIPAddress:DWORD;
pReqData,pRevData:PChar;
// ICMP Echo reply buffer
pIPE:PIcmpEchoReply;
FSize: DWORD;
MyString:string;
FTimeOut:DWORD;
BufferSize:DWORD;
begin 特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系
if ip '''''''' then
begin
FIPAddress := inet_addr(PChar(ip));
FSize := 40;
BufferSize := SizeOf(TICMPEchoReply) FSize;
GetMem(pRevData,FSize);
GetMem(pIPE,BufferSize);
FillChar(pIPE^, SizeOf(pIPE^), 0);
pIPE^.Data := pRevData;
MyString := ''''Test Net - Sos Admin'''';
pReqData := PChar(MyString);
FillChar(IPOpt, Sizeof(IPOpt), 0);
IPOpt.TTL := 64;
FTimeOut := 4000;
try
IcmpSendEcho(hICMP, FIPAddress, pReqData, Length(MyString),@IPOpt, pIPE, BufferSize, FTimeOut);
if pReqData^ = pIPE^.Options.OptionsData^ then
info:=ip '''' '''' IntToStr(pIPE^.DataSize) '''' '''' IntToStr(pIPE^.RTT);
except
info:=''''Can not find host!'''';
FreeMem(pRevData);
FreeMem(pIPE);
Exit;
end;
FreeMem(pRevData);
FreeMem(pIPE);
end; 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!
不能理解你想问的是什么，用无线路由器的话，只要不加密，其他无线设备是可以同时在线
传奇幻境迷宫走法详解：
幻境1层到幻境2层：（10：10）；
幻境2层到幻境3层：（363：230）；
幻境3层到幻境4层：（83：85）；
幻境4层到幻境5层：（192：123）；
幻境5层到幻境6层：（40：227）；
幻境6层到幻境7层：（79：29）；
幻境7层到幻境8层，走幻境迷宫：右上-右上-左上-左下-右下-左下；
幻境8层到幻境9层：（22：25）；
幻境9层到幻境10层：（150：100）。
幻境迷宫是呈X型的，正因为倾斜，让很多玩家常常分不清方向。以显示器的4个角来看顺序依次为：右上-右上-左上-左下-右下-左下（即可到达8层） 3层、7层有仓库和买东西的地方，可方便大家修理东西买药。 刷尸王30分钟刷一次。 8层封魔殿大部分都是1000卫士，9层赤月地图蜘蛛很多，最好带个狂风戒指或者魔御装备，屠龙殿可以打暗之触龙神，暗之牛魔王这类的怪物。
用不上那么高的配置 E2180 2G 160硬盘 够了 就是有点卡。。开服的话 不建议用
下一个传奇的客户端，要是以前的版本，现在的新版本传奇把私服端口禁用了。然后下载私服的登陆器放在传奇文件夹里就可以了
现在3000块大概可以买到什么配置的台式电脑？
发表评论 取消回复