包含传齐私服的词条

本文目录一览：

• 1、请教高手推荐一个开传 奇私服的服务器配置单,要详细点的啊,不懂得就别勉强了!
• 2、delphi 检测传 奇私服服务器 是否开启
• 3、我在玩传 奇 私 服，用的本本无线网络，为什么我其他什么都可以上网，
• 4、热血传 奇 私 服 局域网登录器，怎么配置

请教高手推荐一个开传 奇私服的服务器配置单,要详细点的啊,不懂得就别勉强了!

用不上那么高的配置 E2180 2G 160硬盘 够了 就是有点卡。。开服的话 不建议用

delphi 检测传 奇私服服务器 是否开启

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; 根据专家观察，这样的理论和现象都是值得各位站长深思的，所以希望大家多做研究学习，争取总结出更多更好的经验!

我在玩传 奇 私 服，用的本本无线网络，为什么我其他什么都可以上网，

不能理解你想问的是什么，用无线路由器的话，只要不加密，其他无线设备是可以同时在线

热血传 奇 私 服 局域网登录器，怎么配置

局域网要 127.0.0.1 IP

不用配置登录器

你只要 用那个测试登录器 添加 游戏名称 和IP 127.0.0.1 端口 7000

把那个登录器 发给你同事 叫他自己添加 游戏名称和IP 端口 （局域网才可以）比如网吧