李海鑫个人博客

每步（www.meibu.com）动态域名解析源代码，ADSL架设VPN的帮手，利用动态域名解析，可以把ADSL上网电脑建立VPN服务，完整代码下载地址 http://www.noip.cn/ddns.asp
源码如下：

unit ddnsunit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdComponent, IdUDPBase, IdUDPClient, IdBaseComponent,
IdAntiFreezeBase, IdAntiFreeze, StdCtrls,link,shellapi, ComCtrls, ExtCtrls,
OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
nameedit: TEdit;
passedit: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
dlrz: TMemo;
UDPAntiFreeze: TIdAntiFreeze;
UDPClient: TIdUDPClient;
StatusBar1: TStatusBar;
Timer1: TTimer;
Timer2: TTimer;
wgip: TEdit;
Label3: TLabel;
ipdz: TEdit;
Label4: TLabel;
Label5: TLabel;
Memo1: TMemo;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Label5Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyStream: TMemoryStream;
MySendTxt,reciver_s,ym_s,bb_s: String;
MessageID: Integer;
ThisMessage: String;
ReceivedString,dkhm: String;
Begin
if nameedit.Text=\’\’ then begin StatusBar1.Panels[1].Text:=\’ 请输入用户名。\’; nameedit.SetFocus;exit;end;
if passedit.Text=\’\’ then begin StatusBar1.Panels[1].Text:=\’ 请输入密码。\’;passedit.SetFocus;exit;end;
UDPClient.Port :=7688;
UDPClient.Host :=\’shiyanbanben.noip.cn\’;{远程主机}
MysendTxt:= nameedit.Text+\’&\’+passedit.text;
MessageID := Random(MAXINT);
ThisMessage:= \’shiyanbanben\’+nameedit.Text+\’&&&\’+passedit.text+\’&&&\’;
try
UDPClient.Send(ThisMessage); timer1.Interval :=1500;
except
StatusBar1.Panels[1].Text:=\’ 登录失败，线路不通！ \’;
exit;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
MyStream: TMemoryStream;
MySendTxt,reciver_s,ym_s,bb_s,ip_s: String;
MessageID: Integer;
ThisMessage: String;
ReceivedString,dkhm: String;
begin
try
ReceivedString := UDPClient.ReceiveString();
if ReceivedString = \’\’ then
timer1.Interval :=0
else
begin
timer1.Interval :=1500;
reciver_s:=ReceivedString;
ym_s:=reciver_s;
if copy(reciver_s,1,8)=\’stopfuwu\’ then begin timer1.Interval:=0;end;
if copy(reciver_s,1,8)=\’dengluok\’ then
begin
Timer2.Interval :=15000; //开始检查IP
StatusBar1.Panels[1].Text:=\’ 登录成功！ \’;
ym_s:=copy(ym_s,12,pos(\’&&&\’,ym_s)-12);
bb_s:=copy(reciver_s,pos(\’&&&\’,reciver_s)+3,length(reciver_s));
ip_s:=copy(bb_s,1,pos(\’&&&\’,bb_s)-1);
wgip.Text :=ip_s;
ipdz.Text :=getips;
bb_s:=copy(bb_s,pos(\’&&&\’,bb_s)+3,length(bb_s));
bb_s:=copy(bb_s,1,pos(\’&&&\’,bb_s)-1);
reciver_s:=copy(reciver_s,9,1);
if pos(\’Repeat landing\’, ym_s)>0 then
dlrz.Lines.Add(\’域名重复登录成功,IP是 \’+ip_s+\’ 时间 \’+datetostr(date())+\’ \’+TimeToStr(Time)+\’ 用户（\’+nameedit.text+\’）\’)
else
dlrz.Lines.Add(\’域名:\’+ym_s+\’ 登录成功,IP是 \’+ip_s+\’ 时间 \’+datetostr(date())+\’ \’+TimeToStr(Time)+\’ 用户（\’+nameedit.text+\’）\’);
end;
if copy(reciver_s,1,12)=\’nzhuceyonghu\’ then
begin

dlrz.Lines.Add(datetostr(date())+\’ \’+TimeToStr(Time)+\’ \’+nameedit.text+\’ 登录失败！\’);
reciver_s:=copy(reciver_s,13,1);
StatusBar1.Panels[1].Text:=\’ 输入有误或没注册，请看弹出窗口！ \’;
end;
end;
except
StatusBar1.Panels[1].Text:=timetostr(now)+\’ 登录失败，线路不通\’;
end;
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
shellexecute(handle, \’OPEN\’, \’http://www.noip.cn/regedit.shtml\’, pchar(\’www.meibu.com/khd.asp\’), nil, SW_SHOW) ;

end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if ipdz.Textgetips then
begin
timer2.Interval :=0;//如果本机IP改变，则从新登陆
button1.Click ;
end;
end;

end.