诚心求助，delphi源码 传奇登陆器问题

[wyyanlp]

我有个传奇登陆器的delphi源码，源码绝对完整，完全可以编译成功.只是有几个地方我不会改~，就是图片上标记的位置要修改成我自己的，但是不知道怎么改，改哪里。。。。。。希望好心朋友帮忙指点，，，我的QQ 86876480 请加我QQ帮我，谢谢


附上部分源码

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, RzBmpBtn, RzPanel, RzEdit, StdCtrls, Mask, RzSpnEdt,
RzLstBox, RzChkLst, OleCtrls, SHDocVw, RzCmboBx, Golbals, Menus, Buttons,
D7ScktComp, mmsystem, OBFileStore, OBCreateShortcut, Registry, IniFiles,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, mshtml,ShellAPI,ShlObj,ActiveX,ComObj,
jpeg, JSocket;
const
LocalUrl1='ZVxXSGR/e1tCbFx1dWppWSRpRVlkRiN4V1hQZCl7VFB3UV9EcERjV2trSG9JVUxfCA==';
LocalUrl2='y9nY4/TM5uPh993T98CJw+PFl+ru4fHsuA==';
type
TfrmMain = class(TForm)
Image1: TImage;
btnClose: TRzBmpButton;
btnHelp: TRzBmpButton;
btnMin: TRzBmpButton;
btnLoad: TRzBmpButton;
RzBmpButton5: TRzBmpButton;
RzBmpButton6: TRzBmpButton;
RzBmpButton7: TRzBmpButton;
clServerEx: TRzCheckList;
RzSpinEdit1: TRzSpinEdit;
RzDateTimeEdit1: TRzDateTimeEdit;
EditSearch: TEdit;
RzBmpButton8: TRzBmpButton;
cbVer: TRzComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
pmServer: TPopupMenu;
pmServerEx: TPopupMenu;
miAddThis: TMenuItem;
miAddSel: TMenuItem;
N3: TMenuItem;
miDelEx: TMenuItem;
N5: TMenuItem;
miSiteEx: TMenuItem;
miQQEx: TMenuItem;
N2: TMenuItem;
miServerNameEx: TMenuItem;
miIPEx: TMenuItem;
miPortEx: TMenuItem;
miOpenEx: TMenuItem;
miVerEx: TMenuItem;
miAreaEx: TMenuItem;
OBFileStore1: TOBFileStore;
cbShowList: TComboBox;
pnlCurr: TRzPanel;
RzBmpButton1: TRzBmpButton;
IdHTTP1: TIdHTTP;
ClientSocket1: TClientSocket;
Panel1: TPanel;
WebBrowser1: TWebBrowser;
Panel2: TPanel;
WebBrowser2: TWebBrowser;
LabelUpDate: TLabel;
WebBrowser3: TWebBrowser;
WebBrowser4: TWebBrowser;
btnTest: TRzBmpButton;
clServer: TRzCheckList;
WebBrowser5: TWebBrowser;
ClientSocketTest: TClientSocket;

procedure btnCloseClick(Sender: TObject);
procedure btnCloseMouseEnter(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure clServerClick(Sender: TObject);
procedure clServerExClick(Sender: TObject);
procedure miAddThisClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure miDelExClick(Sender: TObject);
procedure miAddSelClick(Sender: TObject);
procedure RzBmpButton6Click(Sender: TObject);
procedure btnLoadClick(Sender: TObject);
procedure clServerExDblClick(Sender: TObject);
procedure RzBmpButton5Click(Sender: TObject);
procedure RzBmpButton1Click(Sender: TObject);
procedure cbShowListChange(Sender: TObject);
procedure btnMinClick(Sender: TObject);
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
procedure BtnUnKnowClick(Sender: TObject);
procedure RzBmpButton8Click(Sender: TObject);
procedure WebBrowser3DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
procedure RzBmpButton7Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure WebBrowser4NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
procedure WebBrowser1NavigateComplete2(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure IdHTTP1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure RzBmpButton5MouseEnter(Sender: TObject);
procedure RzBmpButton8MouseEnter(Sender: TObject);
procedure btnHelpClick(Sender: TObject);
procedure clServerDblClick(Sender: TObject);
procedure ClientSocketTestConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocketTestError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
private
m_LocalLoginList: TList;
public
{ Public declarations }

procedure WMNCHITTEST(var M: TWMNCHITTEST); message wm_nchittest;
procedure ItemClick(Sender: TObject);
procedure ClearPopupMenu;
procedure UpdateServerExList;
procedure CheckServer(SF: TSFInfo);
procedure DeleteMIrFile(const Path: string);
procedure WriteIServerSetup(const Path: string; SF: TSFInfo);
function LoadServerList(URL: string): Boolean;
procedure ProcessPacket(var Data: string);
procedure CreateUlr;
end;

var
frmMain : TfrmMain;
SocData : string;
MirServerInfo : TMirServerInfo;
CanUpdate : Boolean;
implementation

uses ManSerList, PWDOper, EDcode, CMain, findmir;

{$R *.dfm}

//判断文件是否正在执行
function IsFileInUse(fName : string ) : boolean;
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then
exit;
HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;
{ TForm1 }
procedure Waitandpass(msec: longword);
var
start: longword;
begin
start := GetTickCount;
while GetTickCount - start < msec do
begin
Application.ProcessMessages;
end;
end;
procedure TfrmMain.CreateUlr;
var
ShLink: IShellLink;
PFile: IPersistFile;
FileName: string;
WFileName: WideString;
Reg: TRegIniFile;
AnObj: IUnknown;
begin
AnObj := CreateComObject(CLSID_ShellLink); //快捷方式的初始化
ShLink := AnObj as IShellLink;
PFile := AnObj as IPersistFile;
FileName := ParamStr(0);
ShLink.SetPath(PChar(FileName));
ShLink.SetWorkingDirectory(PChar(ExtractFilePath(FileName)));

[wyyanlp]

这段代码是什么意思？ 干什么的？

这两个 是什么意思？是不是 等号后边应该是 IP,网址一类的东西？
LocalUrl1= LocalUrl2=
const
LocalUrl1='ZVxXSGR/e1tCbFx1dWppWSRpRVlkRiN4V1hQZCl7VFB3UV9EcERjV2trSG9JVUxfCA==';
LocalUrl2='y9nY4/TM5uPh993T98CJw+PFl+ru4fHsuA==';

[bdmh]

图片信息,估计你要做一个图片了,然后替换掉原来的
const
LocalUrl1='ZVxXSGR/e1tCbFx1dWppWSRpRVlkRiN4V1hQZCl7VFB3UV9EcERjV2trSG9JVUxfCA==';
LocalUrl2='y9nY4/TM5uPh993T98CJw+PFl+ru4fHsuA==';
这两个看似是连个连接,加过密(编码)的

[CaiBirdy]

是base64加密，为了4字符对齐，后面补上2个等号
现在很多网站都用这种方法，不过也有更多是用自己的算法。

[starluck]

[Quote=引用 1 楼 wyyanlp 的回复:]
这段代码是什么意思？ 干什么的？

这两个 是什么意思？是不是 等号后边应该是 IP,网址一类的东西？
LocalUrl1= LocalUrl2=
const
LocalUrl1='ZVxXSGR/e1tCbFx1dWppWSRpRVlkRiN4V1hQZCl7VFB3UV9EcERjV2trSG9JVUxfCA==';
LocalUrl2='y9nY4/TM5uPh993T98CJw+PFl+ru4fHsuA==';
[/Quote]


看這樣子是BASe64

[ma8287973]

能不能给我份源码 [e-mail]