unit kbKernel;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type pRGBTripleArray = ^TRGBTripleArray; TRGBTripleArray = ARRAY[0..32767] OF TRGBTriple; TRGBTriple = PACKED RECORD rgbtBlue : BYTE; rgbtGreen: BYTE; rgbtRed : BYTE; END;procedure CloseWindows;
procedure LeftClick(x, y: integer); procedure RightClick(x, y: integer); procedure DoubleClick(x, y: integer); procedure MoveTo(x, y: integer); procedure Presskey(vk: integer); procedure PressTwoKey(key1, key2: integer); function GetPixelColor(x, y: integer): integer; function Findcolor(iLeft, iTop, iRight, iBottom, Acolor: integer; var iX, iY: integer):boolean; function Findpicture(iLeft, iTop, iRight, iBottom: integer; strPic: string; var iX, iY: integer):boolean; procedure inputNum(num:integer); function GetXY(var x, y: integer): boolean;implementation
procedure CloseWindows();
var hdlProcessHandle : Cardinal; hdlTokenHandle : Cardinal; tmpLuid : Int64; //tkpPrivilegeCount : Int64; tkp : TOKEN_PRIVILEGES; tkpNewButIgnored : TOKEN_PRIVILEGES; lBufferNeeded : Cardinal; Privilege : array[0..0] of _LUID_AND_ATTRIBUTES;begin hdlProcessHandle := GetCurrentProcess; OpenProcessToken(hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle);// Get the LUID for shutdown privilege.
LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid); Privilege[0].Luid := tmpLuid; Privilege[0].Attributes := SE_PRIVILEGE_ENABLED; tkp.PrivilegeCount := 1; // One privilege to set tkp.Privileges[0] := Privilege[0]; // Enable the shutdown privilege in the access token of this // process. AdjustTokenPrivileges(hdlTokenHandle, False, tkp, Sizeof(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded); ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE), $FFFF);end;//点击鼠标左键
procedure LeftClick(x,y:integer);begin mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,round(x*65535/1024),round(y*65535/768),0,0); sleep(20); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,round(x*65535/1024),round(y*65535/768),0,0);end;//点击鼠标右键
procedure RightClick(x,y:integer);begin mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTDOWN,round(x*65535/1024),round(y*65535/768),0,0); sleep(20); mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_RIGHTUP,round(x*65535/1024),round(y*65535/768),0,0);end;//双击鼠标左键
procedure DoubleClick(x,y:integer);begin LeftClick(x,y); sleep(50); LeftClick(x,y);end;//移动鼠标到指定位置
procedure MoveTo(x,y:integer);begin mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_MOVE,round(x*65535/1024),round(y*65535/768),0,0);end;//按下一个键
procedure Presskey(vk:integer);begin keybd_event(vk,MapVirtualKey(vk, 0),0,0); sleep(20); keybd_event(vk,MapVirtualKey(vk, 0),KEYEVENTF_KEYUP,0);end;Procedure PressTwoKey(key1,key2:integer);
begin keybd_event(key1,MapVirtualKey(key1, 0),0,0); sleep(50); PressKey(key2); sleep(50); keybd_event(key1,MapVirtualKey(key1, 0),KEYEVENTF_KEYUP,0);end;//得到屏幕上的某点的颜色
function GetPixelColor(x,y:integer):integer;var aDc:HDC;begin aDc:=getdc(0); result:=getpixel(aDc,x,y); releasedc(0,aDc);end;//在指定范围内查找一个点，找到返回TRUE，失败为FALSE
function findcolor(iLeft,iTop,iRight,iBottom,Acolor:integer;var iX,iY:integer):boolean;var aDc:HDC; i,j:integer; bitmap:Tbitmap; row,row1 : pRGBTripleArray; ScanlineBytes: INTEGER;begin iX := -1; iY := -1;bitmap:= Tbitmap.Create;
bitmap.PixelFormat := pf24bit; bitmap.Width := iRight-iLeft+1; bitmap.Height := iBottom-iTop+1; aDc:= getdc(0); bitblt(bitmap.Canvas.Handle,0,0,bitmap.Width-1,bitmap.Height-1,aDc,iLeft,iTop,srccopy); releasedc(0,aDc); row := Bitmap.Scanline[0]; row1 := Bitmap.Scanline[1]; ScanlineBytes := Integer(row1) - Integer(row); for j := 0 to Bitmap.Height-1 do begin for i := 0 to Bitmap.Width-1 do begin if (row[i].rgbtRed=getRvalue(Acolor))and(row[i].rgbtGreen=getGvalue(Acolor))and(row[i].rgbtBlue=getBvalue(Acolor))then begin iX:= i; iY:= j; break; end; end; if iX<>-1 then break; inc(Integer(Row), ScanlineBytes); end; result := iX<>-1; bitmap.Free;end;function findpicture(iLeft,iTop,iRight,iBottom:integer;strPic:string;var iX,iY:integer):boolean;
var aDc:HDc; bitmap,bitmap1:Tbitmap; arrPoint:array[1..20] of Tpoint; iColors:array[1..20] of integer; i,j,k,x,y:integer; finded:boolean;row,row1 : pRGBTripleArray;
ScanlineBytes: INTEGER;begin iX := -1; iY := -1; result:=false; if not fileexists(strPic) then exit;//文件不存在，则退出； bitmap1 := Tbitmap.Create; bitmap1.LoadFromFile(strPic); for i:= 1 to 20 do begin repeat x := random(bitmap1.Width); y := random(bitmap1.Height); while bitmap1.Canvas.Pixels[x,y]= 16777215 do begin x := random(bitmap1.Width); y := random(bitmap1.Height); end;finded:= false;
for j:= i-1 downto 1 do begin if (arrPoint[j].X = x) and (arrPoint[j].Y = y) then begin finded := true; break; end; end; until not finded; arrPoint[i].X := x; arrPoint[i].Y := y; iColors[i] := bitmap1.Canvas.Pixels[arrPoint[i].X,arrPoint[i].Y]; end; bitmap:= Tbitmap.Create; bitmap.PixelFormat := pf24bit; bitmap.Width := iRight-iLeft+1; bitmap.Height := iBottom-iTop+1; aDc:= getdc(0); bitblt(bitmap.Canvas.Handle,0,0,bitmap.Width-1,bitmap.Height-1,aDc,iLeft,iTop,srccopy); releasedc(0,aDc); row := Bitmap.Scanline[0]; row1 := Bitmap.Scanline[1]; ScanlineBytes := Integer(row1) - Integer(row);for j := 0 to Bitmap.Height-bitmap1.Height do
begin for i := 0 to Bitmap.Width-bitmap1.Width do begin finded := true; for k:= 1 to 20 do begin integer(row1):= integer(row)+ arrPoint[k].Y*ScanlineBytes; if (abs(row1[i+arrPoint[k].X].rgbtRed-getRvalue(iColors[k]))>255*(1-0.9))or(abs(row1[i+arrPoint[k].X].rgbtGreen-getGvalue(iColors[k]))>255*(1-0.9))or(abs(row1[i+arrPoint[k].X].rgbtBlue-getBvalue(iColors[k]))>255*(1-0.9))then begin finded := false; break; end; end; if finded then begin iX := iLeft+i+round(bitmap1.Width/2); iY := iTop+j+round(bitmap1.Height/2); break; end; end; if iX<>-1 then break; inc(Integer(Row), ScanlineBytes); end; result:=iX<>-1; bitmap.Free; bitmap1.Free;end;procedure inputNum(num:integer);
var i:integer; aStr:string;begin aStr:= inttostr(num); for i:=1 to length(aStr) do begin PressKey(ord(aStr[i])); sleep(50); end; PressKey(VK_RETURN); sleep(50);end;//读取当前游戏坐标
function GetXY(var x, y: integer): boolean;var aDc:HDC; i,j,newX,TZCount:integer; PXCount:integer;//象素数量 EmptyLine,EmptyContent,negtiveX,negtiveY,XorY:boolean;bitmap:Tbitmap;
row,row1 : pRGBTripleArray; ScanlineBytes: INTEGER;begin bitmap:= Tbitmap.Create; bitmap.PixelFormat := pf24bit; bitmap.Width := 950-870+1; bitmap.Height := 34-22+1; aDc:= getdc(0); bitblt(bitmap.Canvas.Handle,0,0,bitmap.Width-1,bitmap.Height-1,aDc,870,22,srccopy); releasedc(0,aDc); row := Bitmap.Scanline[0]; row1 := Bitmap.Scanline[1]; ScanlineBytes := Integer(row1) - Integer(row);EmptyContent:=true;
EmptyLine:=true; TZCount:=0;//累加一个数字的所有想素的坐标总和 PXCount:= 0; negtiveX:=false;//x坐标负数标记 negtiveY:=false;//y坐标负数标记 XorY:=false;//表示扫描X还是Y,先扫描X newX:=0;//该语句多余，仅仅为了不产生警告错误而已 result:=false; x:=0; y:=0;for i:=0 to bitmap.Width-1 do
begin if (not EmptyContent)and(EmptyLine) then begin case TZCount of 111:;// [ 125 127: result:=true;// ] 141 11: XorY:=true;// . 12 开始扫描 Y 45: if XorY then negtiveY:=true else negtiveX:=true;// - 50 171:if XorY then y:=y*10 else x:=x*10;// 0 189 97:if XorY then y:=y*10+1 else x:=x*10+1;// 1 108 153:if XorY then y:=y*10+2 else x:=x*10+2;// 2 169 149:if XorY then y:=y*10+3 else x:=x*10+3;// 3 164 163:if PXCount = 16 then if XorY then y:=y*10+4 else x:=x*10+4// 4 179 else if XorY then y:=y*10+5 else x:=x*10+5;// 5 181 176:if XorY then y:=y*10+6 else x:=x*10+6;// 6 195 107:if XorY then y:=y*10+7 else x:=x*10+7;// 7 120 180:if XorY then y:=y*10+8 else x:=x*10+8;// 8 199 185:if XorY then y:=y*10+9 else x:=x*10+9;// 9 204 end;EmptyContent:=true;
TZCount:=0; PXCount:= 0; end; EmptyLine:=true; for j:=0 to bitmap.Height-1 do begin integer(row1) :=integer(row)+j*ScanlineBytes; if (abs(row1[i].rgbtRed-getRvalue(198))<20)and(abs(row1[i].rgbtGreen-getGvalue(198))<20)and(abs(row1[i].rgbtBlue-getBvalue(198))<20)then begin if EmptyContent then newX := i; //保存新数字的开始横坐标 TZCount:=TZCount+i-newX+1+j+1; //把像素点的横纵坐标累加 inc(PXCount); EmptyContent:=false; EmptyLine:=false; end; end; end; if negtiveX then x:=0-x; if negtiveY then y:=0-y; bitmap.Free;end;end.