Bisschen MineSweeper gefällig?

#include <nomadmemory.au3>
#include<windowsconstants.au3>
#NoTrayIcon
Opt("WinTitleMatchMode", 3)
$Status = MsgBox(4,"MineSweeper-Hack 1.0 Beta","Soll 'MineSweeper' gestartet werden?")
If $Status = 7 or WinExists("MineSweeper") then Exit
If $Status = 6 then run(@SystemDir & "\winmine.exe")
GUICreate("Defuse", 77, 17, -100, -100, $WS_POPUP, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)
$EXIT = GUICtrlCreateButton("Exit", -1, -1, 30, 19)
$Defuse = GUICtrlCreateButton("Defuse", 38, -1, 40, 19)
GUISetState()
While ProcessExists("winmine.exe")
If WinActive("MineSweeper") Or WinActive("Defuse") Then
$WinPos = WinGetPos("MineSweeper")
If IsArray($WinPos) Then WinMove("Defuse", "", $WinPos[0] + 55, $WinPos[1] + 30)
Else
WinMove("Defuse", "", -100, -100)
EndIf
Switch GUIGetMsg()
case $EXIT
Exit
Case $defuse
BlockInput(1)
WinActivate("MineSweeper")
send("{X}{y}{z}{z}{y}+{backspace}")
for $e = $WinPos[1] + 111 to $WinPos[1] + $WinPos[3] - 10 step 16
for $i = $WinPos[0] + 22 to $WinPos[0] + $WinPos[2] - 10 step 16
_MemoryWrite("0x0100579C",_MemoryOpen(ProcessExists("winmine.exe")),"0")
MouseMove($i,$e,1)
If PixelGetColor(0,0) = 0xFFFFFF Then MouseClick("left",$i,$e,1,0)
next
Next
_MemoryClose(_MemoryOpen(ProcessExists("winmine.exe")))
BlockInput(0)
EndSwitch
WEnd

#include <nomadmemory.au3>;<--- McPoldy Erweiterung
HotKeySet("{F1}","start") ;HotKeySet für Start, belegt auf der Taste 'F1'
HotKeySet("{esc}","_exit") ;HotKeySet für Ende, belegt auf der Taste 'ESC'
MsgBox("","MineSweeper","Um zu starten, drücken Sie 'F1'")
while 1
WEnd

func start()
run(@SystemDir & "\winmine.exe") ;MineSweeper Start
MsgBox("","","Klicken Sie OK!") ;MsgBox ....einfach Ok drücken, damit man noch die möglichkeit hat bei MineSweeper etwas zu ändern..(Feldgröße)
WinActivate("MineSweeper") ;MineSweeper Fenster Activieren
WinWaitActive("MineSweeper") ;Auf MineSweeper Fenster warten
controlSend("MineSweeper","","","{X}{y}{z}{z}{y}{backspace}+{backspace}") ;Cheat Aktivieren mittels den Send's (in der reihenfolge aktiviert man einen Cheat)
;Der Cheat bewirkt, das wenn man mit der Maus über eines der Kästchen fährt ein weisser Pixel oben links erscheint.
;Wenn ein weisser Pixel oben links ist, ist 'KEINE' Mine darunter.
$WinPos = WinGetPos("MineSweeper") ;MineSweeper Fenster Position ermitteln
$x = $WinPos[0] + 22 ;MineSweeper Koordinaten werden Modifiziert
$y = $WinPos[1] + 111
$z = $WinPos[0] + $WinPos[2] - 10
$w = $WinPos[1] + $WinPos[3] - 10
;<--- McPoldy Erweiterung
$ProzessID = ProcessExists("winmine.exe")
$mem = _MemoryOpen($ProzessID)
$adr = 0x0100579C
;---> McPoldy Erweiterung
for $e = $y to $w step 16
for $i = $x to $z step 16
_MemoryWrite("0x0100579C",$mem,"1");<--- McPoldy Erweiterung
MouseMove($i,$e,1) ;MouseMove über das ganze Feld Koordinaten bekommt er über die 'for-schleifen'
if PixelGetColor(0,0) = 0xFFFFFF Then MouseClick("left",$i,$e,1,0) ;Wenn Pixel oben links weiss, dann klicken
next
Next
_MemoryClose($mem);<--- McPoldy Erweiterung
EndFunc

func _exit()
Exit ;EXIT
EndFunc