delphi 扫雷外挂

网络 Delphi

本文整理自网络，侵删。

 unit ForWinmineU; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls, Grids, ComCtrls; 

type 
TForm1 = class(TForm) 
btnStart: TButton; 
RadioGroup1: TRadioGroup; 
Button4: TButton; 
StringGrid1: TStringGrid; 
btnContinue: TButton; 
CheckBox1: TCheckBox; 
Label1: TLabel; 
UpDown1: TUpDown; 
Edit1: TEdit; 
CheckBox2: TCheckBox; 
btnCheat: TButton; 
procedure btnStartClick(Sender: TObject); 
procedure RadioGroup1Click(Sender: TObject); 
procedure FormClose(Sender: TObject; var Action: TCloseAction); 
procedure Button4Click(Sender: TObject); 
procedure btnContinueClick(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure CheckBox1Click(Sender: TObject); 
procedure btnCheatClick(Sender: TObject); 
private 
{ Private declarations } 
procedure OnHotKey(var msg: TMessage); message WM_HOTKEY; 
public 
{ Public declarations } 
end; 

type 
TCell = record 
Value: char; 
bNeed: boolean; 
end; 
const 
dx: array[1..8] of short = (-1, 0, 1, 1, 1, 0, -1, -1); 
dy: array[1..8] of short = (-1, -1, -1, 0, 1, 1, 1, 0); 
var 
Form1: TForm1; 
hSweep: THandle; 
mSweep: HMenu; 
dcSweep: HDC; 
atomSweep: ATOM; 
ColNum, RowNum: short; 
Cells: array[0..31, 0..17] of TCell; 

implementation 

{$R *.dfm} 

//0..8表示数字，9表示没有打开，*表示雷，F表示标记 
function GetCellInfo(x, y: short): char; 
var 
cl0, cl1: DWORD; 
begin 
{0c..colnum*10+0b}{1..colnum} 
{37..rownum*10+36}{1..rownum} 
if (x<1)or(y<1)or(x>ColNum)or(y>RowNum) then 
begin 
Result := '0'; 
Exit; 
end; 
cl0 := GetPixel(dcSweep, (x-1)*16+$C+1, (y-1)*16+$37+1); 
if cl0=$00FFFFFF then 
begin 
cl1 := GetPixel(dcSweep, (x-1)*16+$C+8, (y-1)*16+$37+8); 
case cl1 of 
$00C6C3C6: Result := '9'; 
$00000000: Result := 'F'; 
end; 
Exit; 
end; 
cl1 := GetPixel(dcSweep, (x-1)*16+$C+8, (y-1)*16+$37+8); 
// SetPixel(dcSweep, (x-1)*16+$C, (y-1)*16+$37, clRed); 
// Ellipse(dcSweep, (x-1)*16+$C-2, (y-1)*16+$37-2, (x-1)*16+$C+2, (y-1)*16+$37+2); 
case cl1 of 
$00C6C3C6: 
begin 
cl0 := GetPixel(dcSweep, (x-1)*16+$C+10, (y-1)*16+$37+10); 
if cl0=0 then 
Result := '7' 
else 
Result := '0'; 
end; 
$00FF0000: Result := '1'; 
$00008200: Result := '2'; 
$000000FF: Result := '3'; 
$00840000: Result := '4'; 
$00000084: Result := '5'; 
$00848200: Result := '6'; 
$00848284: Result := '8'; 
$00000000: Result := '*'; 
else 
Result := '7'; 
end; 
end; 

//模拟左键点击 
procedure ClickIt(x, y: short); 
begin 
if hSweep<=0 then 
Exit; 
SendMessage(hSweep, WM_LBUTTONDOWN, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
SendMessage(hSweep, WM_LBUTTONUP, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
end; 

//模拟右键标旗子 
procedure FlagIt(x, y: short); 
begin 
if hSweep<=0 then 
Exit; 
SendMessage(hSweep, WM_RBUTTONDOWN, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
end; 

//模拟左右键双击 
procedure DbClickIt(x, y: short); 
begin 
if hSweep<=0 then 
Exit; 
SendMessage(hSweep, WM_LBUTTONDOWN, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
SendMessage(hSweep, WM_RBUTTONDOWN, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
SendMessage(hSweep, WM_LBUTTONUP, 0, MAKELONG((x-1)*16+$C, (y-1)*16+$37)); 
end; 

procedure TForm1.OnHotKey(var msg: TMessage); 
begin 
if (msg.LParamHi=$58)and(msg.LParamLo=MOD_CONTROL or MOD_ALT) then 
begin 
if hSweep<=0 then 
Exit; 
if not btnContinue.Enabled then 
Exit; 
btnContinueClick(nil); 
end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
Randomize; 
CheckBox1Click(Sender); 
end; 

procedure TForm1.btnStartClick(Sender: TObject); 
var 
pmii: MENUITEMINFO; 
buf: array[0..255] of char; 
s: string; 
begin 
hSweep := FindWindow(nil, '扫雷'); 
if hSweep<=0 then 
begin 
FillChar(buf, SizeOf(buf), #0); 
GetSystemDirectory(buf, 255); 
s := buf; 
WinExec(PChar(s+'\winmine.exe'), SW_SHOW); 
hSweep := FindWindow(nil, '扫雷'); 
end; 
// atomSweep := GlobalAddAtom('ForWinMine'); 
// RegisterHotKey(Handle, atomSweep, MOD_CONTROL or MOD_ALT or MOD_SHIFT, $41); 
// showmessage(inttostr(getlasterror)); 
BringWindowToTop(hSweep); 
mSweep := GetMenu(hSweep); 
mSweep := GetSubMenu(mSweep, 0); 
RadioGroup1Click(Sender); 
end; 

procedure TForm1.RadioGroup1Click(Sender: TObject); 
var 
mID: DWORD; 
begin 
if (mSweep<=0)or(hSweep<=0) then 
Exit; 
case RadioGroup1.ItemIndex of 
0: 
begin 
mID := GetMenuItemID(mSweep, 2); 
ColNum := 9; 
RowNum := 9; 
UpDown1.Max := 3; 
end; 
1: 
begin 
mID := GetMenuItemID(mSweep, 3); 
ColNum := 16; 
RowNum := 16; 
UpDown1.Max := 5; 
end; 
2: 
begin 
mID := GetMenuItemID(mSweep, 4); 
ColNum := 30; 
RowNum := 16; 
UpDown1.Max := 10; 
end; 
else 
Exit; 
end; 
SendMessage(hSweep, WM_COMMAND, mID, 0); 
btnContinue.Enabled := true; 
if not CheckBox1.Checked then 
Exit; 
for mID:=1 to UpDown1.Position do 
ClickIt(Round(Random(ColNum)+1), Round(Random(RowNum)+1)); 
btnContinueClick(sender); 
end; 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
if hSweep>0 then 
SendMessage(hSweep, WM_CLOSE, 0, 0); 
// UnRegisterHotKey(Application.Handle, atomSweep); 
// GlobalDeleteAtom(atomSweep); 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
var 
r, c: short; 
begin 
if hSweep<=0 then 
Exit; 
BringWindowToTop(hSweep); 
dcSweep := GetDC(hSweep); 
with StringGrid1 do 
begin 
ColCount := ColNum + 2; 
RowCount := RowNum + 2; 
for c:=0 to ColNum+1 do 
begin 
Cells[c, 0] := ' '; 
Cells[c, RowNum+1] := ' '; 
end; 
for r:=0 to RowNum+1 do 
begin 
Cells[0, r] := ' '; 
Cells[ColNum+1, r] := ' '; 
end; 
for r:=1 to RowNum do 
for c:=1 to ColNum do 
begin 
Cells[c, r] := GetCellInfo(c, r); 
if (Cells[c, r]='9')or(Cells[c, r]='0') then 
Cells[c, r] := ' '; 
end; 
end; 
ReleaseDC(hSweep, dcSweep); 
end; 

procedure TForm1.btnContinueClick(Sender: TObject); 
var 
row, col, sum, k: short; 
fnum, mnum: short; 
bChange: boolean; 

procedure neighbour; 
var 
k: short; 
begin 
fnum := 0; mnum := 0; 
for k:=1 to 8 do 
begin 
Cells[col+dx[k], row+dy[k]].Value := GetCellInfo(col+dx[k], row+dy[k]); 
if Cells[col+dx[k], row+dy[k]].Value='9' then 
inc(mnum); 
if Cells[col+dx[k], row+dy[k]].Value='F' then 
inc(fnum); 
end; 
end; 

procedure FlagAll; 
var 
k: short; 
begin 
for k:=1 to 8 do 
begin 
if Cells[col+dx[k], row+dy[k]].Value='9' then 
FlagIt(col+dx[k], row+dy[k]); 
end; 
end; 

begin 
if hSweep<=0 then 
Exit; 
BringWindowToTop(hSweep); 
dcSweep := GetDC(hSweep); 
//初始化Map 
for row:=0 to RowNum+1 do 
for col:=0 to ColNum+1 do 
begin 
// Cells[col, row].Value := GetCellInfo(col, row); 
Cells[col, row].bNeed := true; 
end; 
repeat 
bChange := false; 
for row:=1 to RowNum do 
for col:=1 to ColNum do 
begin 
if not Cells[col, row].bNeed then 
continue; 
Cells[col, row].Value := GetCellInfo(col, row); 
//点爆了 
if Cells[col, row].Value='*' then 
begin 
btnContinue.Enabled := false; 
ReleaseDC(hSweep, dcSweep); 
Exit; 
end; 
if (Cells[col, row].Value='0')or(Cells[col, row].Value='F') then 
Cells[col, row].bNeed := false; 
if not(Cells[col, row].Value in ['1'..'8']) then 
continue; 
neighbour; 
if fnum=Ord(Cells[col, row].Value)-$30 then 
begin 
DbClickIt(col, row); 
Cells[col, row].bNeed := false; 
bChange := true; 
end; 
if (mnum>0)and(fnum+mnum=Ord(Cells[col, row].Value)-$30) then 
begin 
FlagAll; 
bChange := true; 
end; 
end; 
//如果上面的找完了，暂时随机点击 
if CheckBox2.Checked then 
if not bChange then 
begin 
for row:=1 to RowNum do 
if not bChange then 
for col:=1 to ColNum do 
begin 
if not Cells[col, row].bNeed then 
continue; 
if GetCellInfo(col, row)='9' then 
begin 
ClickIt(col, row); 
bChange := true; 
break; 
end; 
end; 
end; 
until not bChange; 
ReleaseDC(hSweep, dcSweep); 
end; 

procedure TForm1.CheckBox1Click(Sender: TObject); 
begin 
Label1.Enabled := CheckBox1.Checked; 
Edit1.Enabled := CheckBox1.Checked; 
UpDown1.Enabled := CheckBox1.Checked; 
end; 

procedure TForm1.btnCheatClick(Sender: TObject); 
var 
pID, pHandle, pAddr: DWORD; 
rNum, cNum, mNum, tmpNum: DWORD; 
r, c: short; 
buf: array[0..$400] of byte; 
s: string; 
begin 
if hSweep<=0 then 
Exit; 
GetWindowThreadProcessId(hSweep, pID); 
pHandle := OpenProcess(PROCESS_VM_READ, false, pID); 
if pHandle<=0 then 
begin 
ShowMessage('很遗憾，不能作弊了！'); 
Exit; 
end; 
pAddr := $010052C4; 
ReadProcessMemory(pHandle, Pointer(pAddr), Pointer(@mNum), 4, tmpNum); 
pAddr := $010052C8; 
ReadProcessMemory(pHandle, Pointer(pAddr), Pointer(@rNum), 4, tmpNum); 
pAddr := $010052CC; 
ReadProcessMemory(pHandle, Pointer(pAddr), Pointer(@cNum), 4, tmpNum); 
s := Format('行%d，列%d，雷数%d，确定作弊么？', [rNum, cNum, mNum]); 
if MessageDlg(s, mtConfirmation, [mbYes, mbNo], 0)=mrYes then 
begin 
pAddr := $01005700; 
ReadProcessMemory(pHandle, Pointer(pAddr), Pointer(@buf), $3FF, tmpNum); 
for r:=1 to rNum do 
for c:=1 to cNum do 
begin 
{if buf[r shl 5 + c] and $80 = $80 then 
FlagIt(c, r);} 
if (r=rNum)and(c=cNum) then 
break; 
if buf[r shl 5 + c] and $80 <> $80 then 
ClickIt(c, r); 
end; 
end; 
CloseHandle(pHandle); 
end; 

end.

相关阅读 >>

Delphi firemonkey的tedit七大变化

Delphi 判断com端口是否存在

使用Delphi启动和关闭外部应用程序

Delphi 10.2 创建并使用资源文件

常用的几个网络函数和系统函数

Delphi中如何向某个ip不间断的发送数据

Delphi datasnap传输流/文件问题

Delphi 通过api强制tedit仅接受数字输入

Delphi如何检测form的移动和调整尺寸事件

Delphi doc转txt

更多相关阅读请进入《Delphi》频道 >>



标签：

打赏

取消

感谢您的支持，我会继续努力的!

扫码支持
扫码打赏，您说多少就多少

打开支付宝扫一扫，即可进行扫码打赏哦

分享从这里开始，精彩与您同在

相关推荐

评论

管理员已关闭评论功能...