Hier mal ein Programm, das euch bei MineSweeper Hilft bzw. Alles alleine macht
Kann gerne verbessert werden
Spoiler anzeigen
#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