不會飛的鳥

local tkey ={A=0,B=0,C=0,D=0,E=0,F=0,G=0,H=0,I=0,J=0,K=0,L=0,M=0,N=0,O=0,P=0,Q=0,R=0,S=0,T=0,U=0,V=0,W=0,X=0,Y=0,Z=0};
 
--在字典中添加所有數字鍵
for i =0,9,1 do
    tkey[ tostring(i) ] = 0; 
end;

--如果一個字符有多個樣本，例如 5A.jpg 5B.jpg 5C.jpg
for k,v in pairs(tkey) do 
    if((#k)~=2)then --如果元素鍵名不是兩位字符
        tkey[k.."A" ]=0;
        tkey[k.."B" ]=0;
        tkey[k.."C" ]=0;
        tkey[k]=nil;--刪除單字符的鍵名
    end;
end;
 
--k參數為鍵,v參數表示值 一個典型的tkeyle迭代器回調函數
loadtkey = function(k,v) 
    local img = image.new();
    
    img:load("C:\\test\\"..k..".jpg");
    assert(img:ok(),"C:\\test\\"..k..".jpg".."\n不是有效的圖片");
    
    img:bpp(1);
    img:bpp(24);
    --通過上面兩句，輕松去掉驗證碼上的雜色雜點
    
    img:Crop( 1 , 0 , 9 , 10);--修剪單個字符
    img:median(2);--中值濾波進一步去雜點
    
    tkey[k]= string.encode( img:getBytes("*.jpg") , ""); --因為轉換到字符串還是二進制，所以用base64進行編碼
    image.del(img);
end;
 
--遍歷表tkey的所有元素，調用loadtkey加載圖片文件 
for k,v in pairs(tkey) do 
    loadtkey(k,v);
end;
 
--把所有圖片保存到數據島，
ape:saveTable(tkey,"驗證碼樣本")

--從數據區塊讀取base64編碼的圖片數據
codekey = ape:loadTable("驗證碼樣本");
local timg = {}; --這是一個圖像數組，用來儲存還原后的驗證碼樣本的圖片數據
--必須進行一個轉換，因為codekey里面只是base64編碼的普通字符串，而timg 將是真正的圖片對象(二進制數據)
 
--還原到圖片對象
toImage = function(k,v)
    local img = image.new();
    local str = string.decode( v ,"");--首先進行base64解碼，將純文本轉換為二進制數據
    img:setBytes( str ,"*.jpg");--將二進制數據還原為圖像
    timg[k] = img; 
end;
 
--載入驗證碼樣本
tkey = ape:loadTable("驗證碼樣本");
for k,v in pairs(tkey) do  --驗證樣本
    toImage(k,v); --轉換為圖像
end;
    
--轉換圖片驗證碼到字符串的函數
function ImgToString(img)
    function test(imgX) --test是一個被包含在函數中的內部函數
        sleep(0); 
        local limit = (60 * 20) + (60 * 20); --最小相似度 local關鍵字聲明為局部變量
        local chr = "A"; --讀取的字符
    
    
        --testimg是一個被包含在函數中的內部函數，作為table.foreach的回調函數,k參數表示鍵，v參數表示值
        testimg = function(k,v)

            --調用image.testXX()函數得出相似度，類似的函數還有image.testX() image.test() 
            local n = imgX:testXX(timg[k]); 
            if(n<limit)then --比較最小相似度
                  limit = n;
                  chr = k.."";
            end;
        end;
    
        --遍歷timg表，并調用testimg函數
        for k,v in pairs(timg) do  
           testimg(k,v);  
        end;

        return string.left(chr,1); --返回讀取到的字符串首字符(如果每個字符有多個樣本)
    end;
    
    
    --修剪圖片    
    image.Crop(img, 4 ,3 , 56 ,18 )
    img:bpp(1);
    img:bpp(24);
    --上面的過程必須與下載樣本時的代碼完全一致。
    
    --使用split函數分割圖片
    local img2,img3,img4,img5 = img:split(1,4);
    win.messagePrint("正在檢測圖片，請稍候....");
    return test(img2)..test(img3)..test(img4)..test(img5);
 
end;

img = image.new()
img:getURL("http://www.***.com/test.asp","*.jpg")

--因為刷新了驗證碼與頁面不一致，把驗證碼畫到屏幕上
local x,y = mouse.getPos()
img:paint(x,y,60 ,20 )

local str = ImgToString(img);

--下面我們把驗證碼的每個字符都轉換為大寫，并控制鍵盤順序按鍵
code1 = string.upper( string.sub(str,1,1) ); 
code2 = string.upper( string.sub(str,2,2) ); 
code3 = string.upper( string.sub(str,3,3) ); 
code4 = string.upper( string.sub(str,4,4) );
key.press(100,code1,code2,code3,code4);

ele = wb:getEle("驗證碼控件名字");
ele:setAttribute("value",str)

img:bpp(1)
img:bpp(24)

--[[
用一個table結構{x=0; y=0}表示圖像上的「坐標點」
用一組點構成table結構表示圖像上的一條「線」。所有相連的黑色的點被認為是一條「連通線」。
找出最長的一條「連通線」，被認為是字符，其他的認為是雜點。
 
 
算法原理與種子填充算法相似。
 
首先讓用img:bpp函數處理為黑白圖片，并初步去除雜色。
 
先找到一個黑點，創建一個表示「坐標點」對象，并添加到「連通線」中。
然后在黑點周圍8個點中，再找黑色的點，找到就添加到「連通線」，這樣一直遞歸下去
直到遍歷圖像所有點，可能有幾塊。
 
清除雜點使用方法
image.scan(img);
 
清除雜點并切去掉周圍的空白
image.scan(img,true);
--]]
function image.scan(img,crop)
   
    --用一個table數組記錄所有的「連通線」
     assert(img:ok(),"image.scan 的參數必須是一個有效的圖片");
    
     local tlines ={}; 
     
     --首先計算出圖片的高度寬度，避免重復的調用
     local w = img:width();
     local h = img:height();
          
  
    --[[以table形式定義一個數組，對應圖象中的每個點。
    作用相當一個開關，首先值為false，但黑點首次被遍歷到時。把這個值變為true。
    下次，再找到這個點時忽略。避免重復加入連通線。  
    --]]
    local tchked ={};
    for i=0,w,1  do
        tchked[i]={};
        for j=0,h,1  do
            tchked[i][j]=false;
        end;
    end;
     
    -----去噪
    img:bpp(1);
    img:bpp(24);
     
    --首先計算出各點的顏色值，避免在循環遞歸中重復的取
    local tcl={};
    for i=0,w,1  do
        tcl[i]={};
        for j=0,h,1   do
            tcl[i][j]=img:getPos(i,j);
        end;
    end;
 
    
    --[[
    算點數函數
    參數x,y 坐標
    參數tab 所屬連通線;
    --]] 
    local   function  seed(x,y,tab)
    
        ---出界了則返回
        if(x<0 or y<0 or x>w or y>h) then
            return;
        end;
              
        ---點的顏色為白色時，返回，不處理。
        if(tcl[x][y]==16777215)  then
            return;
        end;
        
        ---值為1，則計數加1，返回
        if ( tchked[x][y]) then
            return ;
        else
            table.insert(tab,{x=x,y=y} );--添加到連通線里
            tchked[x][y]=true;---當值為0時，把值置為1。
            seed(x+1,y-1,tab);
            seed(x,y-1,tab);
            seed(x-1,y-1,tab);
            seed(x-1,y,tab);
            seed(x+1,y,tab);
            seed(x-1,y+1,tab);
            seed(x,y+1,tab);
            return seed(x+1,y+1,tab); --這里可以用一個尾調用(參考教程中的函數部份),加快遞歸的速度。
        end;
    end;
 
    
    ---------------------------
       
    ----遍歷圖像中的所有點
    for i=0,w,1   do
        for j=0,h,1  do
            ---如果是黑色的點，而且沒有被計過數，則調用seed函數。
            if(tcl[i][j]==0 and (not tchked[i][j])) then        
                local tab = {}
                seed(i,j,tab);
                table.insert(tlines,tab); --添加一條連通線
    
            end;
        end;
    end;
          
    --現在tlines 里記錄了的有的連通線，我們現在需要根據連通線的長度排序  
    sproc =  function(l,l2)   
        return table.maxn(l) > table.maxn(l2);--長的連通線排到前面 
    end;
    table.sort(tlines,sproc)
               
    --把圖像全部畫成白色的點      
    for i=0,w,1  do
        for j=0,h,1  do
            img:setPos( i , j, 16777215);
        end;
    end;
          
    --然后把最長的一條連通線畫上去
    for i,point in  ipairs(tlines[1])  do
        img:setPos( point.x, point.y , 0);   
    end;
    
  
    --如果需要去掉周圍的空白
    if(crop)then
        local n = table.maxn(tlines[1])
            
        --排序最長連通線中的所有坐標點
        sproc =  function(pt,pt2)   
            return  (pt.x <pt2.x );--*左的排前面
        end;
        table.sort(tlines[1],sproc);
        local x,x2 = tlines[1][1].x, tlines[1][n].x;
    
        --排序最長連通線中的所有坐標點
        sproc =  function(pt,pt2)   
            return (pt.y <pt2.y );--*上的排前面
        end;
        table.sort(tlines[1],sproc);
        local y,y2 = tlines[1][1].y, tlines[1][n].y;
        
        img:Crop( x,y,x2+1,y2)
    end;
    
end;