QQ连连看外挂--基于LAScript

花了我不少时间哦，基于LAScript脚本的模拟程序，虽然程序还不是很完美，有一些小的BUG，^_^，我2天时间快赚了有3W分了。当然模拟程序还是有缺陷的，不像截取封包程序那样运行极快，几乎一开始就结束了，或者一开始给你定住，然后就眼睁睁看着自己被消灭。

以下是脚本程序
－－－－－－－－－－－－－－－－－－－－－－－－
--Read config----------------------------------------------------------
config = string.load("llk.ini","rb");
configs =table.loadList(config,"\n");
--end----------------------------------------------------------------------
--以下为系统参数设置的读取-----------------------------------
imgwidth=configs["IMG_WIDTH"]-0;
imgheight=configs["IMG_HEIGHT"]-0; --图片高
imgcolsize=configs["IMG_COLSIZE"]-0;
imgrowsize=configs["IMG_ROWSIZE"]-0; --19*11幅图片
offsetWidth=configs["OFFSET_WIDTH"]-0+configs["CROP_OFFSET_WIDTH"]-0;
offsetHeight=configs["OFFSET_HEIGHT"]-0;
diff=configs["NORMAL_DIFF"]-0;
diff1=configs["BLANK_DIFF"]-0;
diff2=configs["SAME_DIFF"]-0;
delay1=configs["PIC1_CLICK_DELAY"]-0;
delay2=configs["PIC2_CLICK_DELAY"]-0;
blankurl=configs["BLANK_IMAGE"];
--end------------------------------------------------------------
--全局变量定义-------------------------------------------
winleft=0;
wintop=0;
winright=0;
winbottom=0;
blankimg=nil;
fullimg=nil;
tab={};
imgs={};
hwnd=nil; --游戏窗口
--end-----------------------------------------------------------
--加载空白图片--------------------------------------------
function loadBlank(url)
  local blank=image.new();
  blank:load(url);
  return blank;
end;
--end--------------------------------------------------------------
--本方法用来寻找是否可以相连------------------------
function findsame()
  local same={};
  local row=table.maxn(tab);
  local col=table.maxn(tab[1]);
  local visit={};
  for i=1,row,1 do
    for j=1,col,1 do
      if(tab[j]>0) then
        local index=tab[j];
        if(visit[index]==nil) then
          visit[index]={};
        end;
        table.insert(visit[index], {i,j});
      end;
    end;
  end;
  return visit;
end;
--end-----------------------------------------------------------
--在判断图片相同后的处理动作----------------------
function dosame(same)
  local size=table.maxn(same);
  local count=countLeft();
  while(nStop() and count>0) do
    for i=1,size,1 do
      local items=same;
      local isize=table.maxn(items);
      for j=1,isize,1 do
        if(items[j]~=nil) then
          for k=j+1,isize,1 do
            if(items[j]~=nil and items[k]~=nil) then
              local result=tryconnect(items[j],items[k]);
              if(result~=nil) then
                if(connect(items[j],items[k])) then
                  items[j]=nil;
                  items[k]=nil;
                  count=count-1;
                end;
                --showpoint(result[1],result[2],result[3],result[4]);
              end;
            end;
          end;
        end;
      end;
    end;
    delay(10);
  end;
end;
--尝试连接----------------------------------------------------
function connect(pos1,pos2)
  local r1=pos1[1];
  local r2=pos2[1];
  local c1=pos1[2];
  local c2=pos2[2];
  local offsetwidth1=(c1-0.5)*imgwidth;
  local offsetheight1=(r1-0.5)*imgheight;
  local offsetwidth2=(c2-0.5)*imgwidth;
  local offsetheight2=(r2-0.5)*imgheight;
  mouse.click(winleft+offsetWidth+offsetwidth1,wintop+offsetHeight+offsetheight1,true);
  delay(delay1);
  mouse.click(winleft+offsetWidth+offsetwidth2,wintop+offsetHeight+offsetheight2,true);
  delay(delay2);
  local img1=getImage1(c1,r1);
  local img2=getImage1(c2,r2);
  if(img1:test(imgs[r1][c1])<diff2 and img2:test(imgs[r2][c2])<diff2) then
    return false;
  end;
  return true;
end;
--end--------------------------------------------------------------------

function aroundcheck(r1,c1,r2,c2)
  if(r1==r2 and (c1-c2==1 or c1-c2==-1)) then
    return true;
  end;
  if(c1==c2 and (r1-r2==1 or r1-r2==-1)) then
    return true;
  end;
  return false; 
end;
function tryconnect(pos1,pos2)
  local r1=pos1[1];
  local r2=pos2[1];
  local c1=pos1[2];
  local c2=pos2[2];
   
  --循同行往前移动寻找路线
  for i=c1-1,1,-1 do
    if(i<1) then
      break;
    end;
    if(i==c2 and r1==r2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
    if(tab[r1]>0) then
      break;
    end;
    local suc1=coltravel(i,r1,r2);
    local suc2=rowtravel(r2,c2,i);
    if(suc1 and suc2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
  end;
  --循同行往后移动寻找路线
  for i=c1+1,imgcolsize,1 do
    if(i>imgcolsize) then
      break;
    end;
    if(i==c2 and r1==r2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
    if(tab[r1]>0) then
      break;
    end;
    local suc1=coltravel(i,r1,r2);
    local suc2=rowtravel(r2,c2,i);
    if(suc1 and suc2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
  end;
  ----循同列往上移动寻找路线
  for j=r1-1,1,1 do
    if(j<1)  then
      break;
    end;
    if(j==r2 and c1==c2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
    if(tab[j][c1]>0) then
      break;
    end;
    local suc1=coltravel(c2,r2,j);
    local suc2=rowtravel(j,c1,c2);
    if(suc1 and suc2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
  end;
  --循同列往下移动寻找路线
  for j=r1+1,imgrowsize,1 do
    if(j>imgrowsize) then
      break;
    end;
    if(j==r2 and c1==c2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
    if(tab[j][c1]>0) then
      break;
    end;
    local suc1=coltravel(c2,r2,j);
    local suc2=rowtravel(j,c1,c2);
    if(suc1 and suc2) then
      logicremove(r1,c1,r2,c2);
      return {r1,c1,r2,c2};
    end;
  end;
end;
function logicremove(r1,c1,r2,c2)
  tab[r1][c1]=0;
  tab[r2][c2]=0;
end;
function coltravel(c,r1,r2)
  local step=1;
  if(r1==r2) then
    return true;
  elseif(r1>r2 ) then
    step=-1;
  else
    step=1;
  end;
  for i=r1+step,r2,step do
    if(tab[c]>0) then
      return false;
    end;
  end;
  return true;
end;
function rowtravel(r,c1,c2)
  local step=1;
  if(c1==c2) then
    return true;
  elseif(c1>c2 ) then
    step=-1;
  else
    step=1;
  end;
  for i=c1+step,c2,step do
    if(tab[r]>0) then
      return false;
    end;
  end;
  return true;
end;
function printresult(result)
  local size=table.maxn(result);
  for i=1,size,1 do
    showpoint(result[1],result[2],result[3],result[4]);
  end;
end;
function showpoint(x1,y1,x2,y2)
  win.messageBox("["..x1..","..y1.."] ["..x2..","..y2.."]");
end;
function getImage(fullimg,x,y)
    local ileft=offsetWidth+(x-1)*imgwidth+3;
    local itop=offsetHeight+(y-1)*imgheight+4;
    local iright=offsetWidth+x*imgwidth-4;
    local ibottom=offsetHeight+y*imgheight-5;
    local tmp=image.new(fullimg);
    tmp:Crop(ileft,itop,iright,ibottom);
    return tmp;
end;
function getImage1(x,y)
    local ileft=offsetWidth+(x-1)*imgwidth+3;
    local itop=offsetHeight+(y-1)*imgheight+4;
    local iright=offsetWidth+x*imgwidth-4;
    local ibottom=offsetHeight+y*imgheight-5;
    local tmp=image.new();
    image.capture(tmp,hwnd,ileft,itop,imgwidth-7,imgheight-9);
    return tmp;
end;
function countLeft()
  local count=0;
  for i=1,imgrowsize,1 do
    for j=1,imgcolsize,1 do
      if(tab[j]>0) then
        count=count+1;
      end;
    end;
  end;
  return count;
end;
------------------------------------
--辨识图片是否已经存在---------
sample={};
imgIdentify=function(tmpimg)
  if(blankfound==false) then
    if(tmpimg:test(blankimg)<diff1) then
      blankimg=tmpimg;
      blankfound=true;
      return 0;
    end;
  end;
  if(blankfound==true) then
    if(tmpimg:test(blankimg)<diff) then
      return 0;
    end;   
  end;
  local count=table.maxn(sample);
  for i=1,count,1 do
    if(sample:test(tmpimg)<diff) then --比指定的差异度小,判定为相同的图片
      return i;
    end;
  end
  sample[count+1]=tmpimg;
  return count+1;
end;
------------------------------------
--显示图片对应的数字情况----
imageShow=function()
end;
------------------------------
--获取窗口的整幅画面------------------------------------------------------------
function getFullImage()
  local winname="KYODAI~1.EXE";
  hwnd=win.fromFile(winname,"","连连看");
  winleft,wintop,winright,winbottom=win.getRect(hwnd);
  local img =image.new();
  image.capture(img,hwnd,0,0,0,0);
  return img;
end;
--end----------------------------------------------------------------------------------
--图片转换为数字标识-----------------------------------------------------------
function image2num()
  for i=1,imgrowsize,1 do
    tab={};
    imgs={};
    for j=1,imgcolsize,1 do
      --tmp:paint(ileft,itop,29,33);
      --tmp:save("d:\\"..i..j..".png");
      local tmp=getImage(fullimg,j,i);
      tab[j]=imgIdentify(tmp);
      imgs[j]=tmp;
    end;
  end;
end;
--end----------------------------------------------------------------------------------
function finish()
  image.del(fullimg);
  fullimg=image.new();
  image.capture(fullimg,hwnd,0,0,0,0);
  local count=0;
  for i=1,imgrowsize,1 do
    for j=1,imgcolsize,1 do
      local img=getImage(fullimg,j,i);
      if(img:test(blankimg)>diff1) then
        count=count+1;
      end;
    end;
  end;
  if(count>0) then
      image2num();
      local visit=findsame();
  end;
end;
function start()
  blankimg=loadBlank(blankurl);
  --blankimg:paint(100,100,40,40);
  blankfound=false;
  fullimg=getFullImage();
  image2num();
  local visit=findsame();
  dosame(visit);
  --finish();
  collectgarbage();
end;
--启动程序-------------------------------
start();
--end--------------------------------------