“连连看外挂”
我前些日子写了一个连连看,现在想把它改成QQ外挂
但我对API懂的太少,不知道要如何把QQ连连看里面的小图标,转换为数据
是不是要先取得几图标的颜色的值然后再把它转换为数据
如果是那样,要怎么做,高手们提点想法吧
路过的朋友,你如果也很想知道外挂怎么写的,你也帮忙UP一下吧
如果这个外挂做成了,你如果要源代码的话,我会把它我发给你的“外挂连连看”
当然也你们也可以发表一些跟做外挂有关的想法,看法呀
谢谢
我前些日子写了一个连连看,现在想把它改成QQ外挂
但我对API懂的太少,不知道要如何把QQ连连看里面的小图标,转换为数据
是不是要先取得几图标的颜色的值然后再把它转换为数据
如果是那样,要怎么做,高手们提点想法吧
路过的朋友,你如果也很想知道外挂怎么写的,你也帮忙UP一下吧
如果这个外挂做成了,你如果要源代码的话,我会把它我发给你的“外挂连连看”
当然也你们也可以发表一些跟做外挂有关的想法,看法呀
谢谢
[email protected]
谢谢啊
虾米东东?你想改成什么样子的外挂?给你推荐个淫吧SF
给你的参考:
http://www.2ccc.com/article.asp?articleid=764 扫雷外挂
http://bbs.gameres.com/showthread.asp?threadid=17417 这儿有个人写了个反反外挂的东西,就是反np
color:Double;
color:=GetPixel(GetDC(0),x,y);
得到 (x,y)点的颜色。if color=VarDoubleTColor1 then IconType:=Dog;
根据点的颜色值确定某格的图标类型。按数组做出来,然后在数组中找,找到后用 setcorsorpos 把鼠标弄到图标上。 mouseeventf 的 leftdown leftup ,完了就好了。
这样你得先知道x,y呀,这时又得知道每个图标的大小才能定位呵,如果不同的尺寸,不同分辨例的屏幕
那它图标的大小也是不固定的呵
这样能行吗?
但不知道下面的数据他是怎么弄来的 //$010052c0 玩的模式
//$010052C4 2K下是雷数起始地址
//$010052C8 2K下是雷区高度起始地址
//$010052CC 2K下是雷区宽度起始地址
//$01005721 2K下是雷区内容起始地址,依次是$01005721+高*32+宽
//$01005a60 2K下是雷剩余个数 //$010056a0 玩的模式
//$01005330/56a4 XP下是雷数起始地址
//$01005338/56a8 XP下是雷区高度起始地址
//$01005334/56ac XP下是雷区宽度起始地址
//$01005361 XP下是雷区内容起始地址,依次是$01005361+高*32+宽
//$01005194 XP下是雷剩余个数
http://free.efile.com.cn/qufo/CoralDDP.exe
一个可执行文件而已呵
不过,你给的这个外挂还有问题吧
到时你做出来了不要忘记给我个Email :)
不过你的Blog打不开
你可以直接图象识别,就是用程序得到一个牌的图标,把它切成几块,然后计算直方图,或其它什么方法,反正把每一块数字化就可以了,然后与其它的图标去比较 ,这样就可以得到了
附我的程序中图象计算的函数
function zft(xbmp:Tbitmap):real;
var
his: array [0..255] of real;
ihis: array [0..255,1..3] of integer;
sum: longword;
XStart,XEnd,YStart,YEnd,x,y: integer;
sumreal:real;
bmp:TBitmap;
p: PByteArray;
begin
bmp:=TBitmap.Create;
bmp.Assign(xbmp);
Bmp.PixelFormat := pf24Bit;
XStart:=0;
XEnd:=bmp.Width-1;
YStart:=0;
YEnd:=bmp.Height-1; for x:=0 to 255 do
for y:=1 to 3 do
ihis[x,y]:=0; sum:=0;
for y:=YStart to YEnd do
begin
p:=bmp.ScanLine[y];
for x:=XStart to XEnd do
begin
inc(ihis[p[x*3],1]);
inc(ihis[p[x*3+1],2]);
inc(ihis[p[x*3+2],3]);
inc(sum);
end;
end; for x:=0 to 255 do
his[x]:=(ihis[x,1]+ihis[x,2]+ihis[x,3])/3.0; sumreal:=0.0;
for x:=0 to 255 do
sumreal:=sumreal+(x*his[x])/sum;
bmp.Free;
result:=sumreal;
end;
http://www.2ccc.com/article.asp?articleid=1740代码是我写的,确实有问题,可是我看不出来。有时会两个图片移来移去消不掉,暂停外挂,随意手动消除一对再开始外挂,就好了,本想在消不掉时做个快照,但没时间去做。做这个东东只不过想证实一下模拟功能及图片像素读取,数组应用,记录等初级内容。
http://blog.csdn.net/terry6394
[email protected]
兄弟,支持你!
[email protected]