AutoHotkey Community

;
; AutoHotkey Version: 1.0.47.00
; Language:       Anyone
; Platform:       Windows XP with XP theme enabled
; Author:         Fincs <fernandoincs@hotmail.com>
;
; Script Function:
;   Minesweeper auto-solver
;

; Results
; =======

; Nascent:         2 sec.
; Intermediate:      4 sec.
; Advanced:         8 sec.

level := 1   ; 1 - nascent, 2 - intermediate, 3 - advanced

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.

; Process level
level ++
If level = 2         ; Nascent
   c := 9            ; 9 columns
If level = 3         ; Intermediate
   c := 16            ; 16 columns
If level = 4         ; Advanced
   c := 30, r := 16   ; 30 columns, 16 rows

If r =
   r := c

Run, winmine   ; Execute Minesweeper
Sleep, 100
WinGetActiveTitle, title   ; Get the title of Minesweeper
WinMove, %title%,, 80, 80   ; Move the window to the position 80, 80
Send, {ALT}{DOWN %level%}{ENTER}   ; Select level
Sleep, 10
Send, xyzzy{LShift}      ; Enter cheat code
Sleep, 10

CoordMode, Mouse, Relative

; Define constants
x = 21
y = 111
sum = 16

Loop, %r%
{
   d := 0
   Loop, %c%
   {
      MouseMove, %x%, %y%      ; Move the mouse to the next square
      Sleep, 10
      PixelGetColor, color, -80, -80   ; Check the color of the first pixel
      If color <> 0x000000
         Click   ; The pixel says "secure"
      x += sum
      d ++
   }
   x = 21
   y += sum
}

;
; AutoHotkey Version: 1.0.47.00
; Language:       Anyone
; Platform:       WinXP with XP theme enabled
; Author:         Fincs <fernandoincs@hotmail.com>
;
; Script Function:
;   Minesweeper auto-solver
;

; Results
; =======

; Nascent:         2 sec.
; Intermediate:      4 sec.
; Advanced:         8 sec.

level := 3   ; 1 - nascent, 2 - intermediate, 3 - advanced
sleep := 1   ; 0 - no sleep when mouse is clicked, 1 - sleep

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetMouseDelay -1 ; Do the mouse operations immediately

; Process level
level ++
If level = 2         ; Nascent
   c := 9            ; 9 columns
If level = 3         ; Intermediate
   c := 16            ; 16 columns
If level = 4         ; Advanced
   c := 30, r := 16   ; 30 columns, 16 rows

If r =
   r := c

Run, winmine,,, pid   ; Execute Minesweeper
WinWait, ahk_pid %pid%
IfWinNotActive,,, WinActivate
WinWaitActive
WinMove,,, 80, 80   ; Move the window to the position 80, 80
Send, {ALT}{DOWN %level%}{ENTER}   ; Select level
Sleep, 10
Send, xyzzy{LShift}      ; Enter cheat code
Sleep, 10

CoordMode, Mouse, Relative

; Define constants
x = 21
y = 111
sum = 16

Loop, %r%
{
   d := 0
   Loop, %c%
   {
      MouseMove, %x%, %y%, 0      ; Move the mouse to the next square
      PixelGetColor, color, -80, -80   ; Check the color of the first pixel
      If color <> 0x000000
         Click   ; The pixel says "secure"
      If sleep
         Sleep, 10
      x += sum
      d ++
   }
   x = 21
   y += sum
}
WinWait, ahk_pid %pid%
IfWinNotActive,,, WinActivate
WinWaitActive

;


level :=


Gui, Add, Button, x6 y10 w110 h30 gbutton1, Easy
Gui, Add, Button, x6 y50 w110 h30 gbutton2, Intermediate
Gui, Add, Button, x6 y90 w110 h30 gbutton3, Advanced

;Guicontrol, -Disable, MinimizeBox



Gui, Show, x257 y110 h130 w125, Minesweeper auto-solver
Return

button1:
gui, hide
level := 1
goto, here
return

button2:
gui, hide
level := 2
goto, here
return

button3:
gui, hide
level := 3
goto, here
return

here:

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.

; Process level
level ++
If level = 2         ; Nascent
   c := 9            ; 9 columns
If level = 3         ; Intermediate
   c := 16            ; 16 columns
If level = 4         ; Advanced
   c := 30, r := 16   ; 30 columns, 16 rows

If r =
   r := c


Run, winmine   ; Execute Minesweeper
me:
Sleep, 300
IfWinActive, ahk_class Minesweeper,,,
{
BlockInput,Mouse
BlockInput,on
WinMove, ahk_class Minesweeper,, 80, 80   ; Move the window to the position 80, 80
Send, {ALT}{DOWN %level%}{ENTER}   ; Select level
Sleep, 10
Send, xyzzy{LShift}      ; Enter cheat code
Sleep, 10

CoordMode, Mouse, Relative

; Define constants
x = 21
y = 111
sum = 16

Loop, %r%
{
   d := 0
   Loop, %c%
   {
      MouseMove, %x%, %y%      ; Move the mouse to the next square
      Sleep, 10
      PixelGetColor, color, -80, -80   ; Check the color of the first pixel
      If color <> 0x000000
         Click   ; The pixel says "secure"
      x += sum
      d ++
   }
   x = 21
   y += sum
}
BlockInput,off
exitapp
}
else
{
;msgbox, try again
goto, me
;GuiClose:
;exitapp
}
return

#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
#Persistent
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
CoordMode, Pixel, screen    ;So that pixelgetcolor,0,0 is upper left pixel of the screen

Gui -AlwaysOnTop -caption
Gui, Color, 0000FF
Gui Show, w1 h1 x0 y0, blocker    ;creates a blue "pixel" using a window

Run, winmine,,, pid
WinWait, ahk_pid %pid% ; wait for the new window to exist
WinActivate, ahk_pid %pid% ; activate it
Send, xyzzy{LShift}      ; Enter cheat code

#X::exitapp   ; Win+X close the script if needed

#IfWinActive, ahk_class Minesweeper   ;Left Button only active when minesweeper is
LButton::
#IfWinActive, ahk_class Minesweeper   ;Right Button only active when minesweeper is
RButton::
mousegetpos,StartXX, StarYY
if (StartXX<>EndXX AND StartYY<>EndYY){  ;makes sure the mouse has moved to avoid errors
  PixelGetColor, color, 0, 0   ; Check the color of the first pixel
  If color = 0x000000
    send {RButton}
  If color = 0xFFFFFF
    send {LButton}
  If color = 0xFF0000
  {
    send {LButton Down}         
    keywait LButton
    send {Lbutton up}
  }
  winset,Redraw,,blocker  ;the cheat never redraw the 0,0 pixel.... will be latest color even if u close winmine.
}
 mousegetpos, EndXX, EndYY
Return
Return

SetMouseDelay, -1

;Sleep, 10

MouseMove, %x%, %y%, 0

Run, winmine,,, pid ; puts the ID of the new winmine process in "pid"
WinWaitActive, ahk_pid %pid% ; wait for the new window to be active

Run, winmine,,, pid
WinWait, ahk_pid %pid% ; wait for the new window to exist
WinActivate, ahk_pid %pid% ; activate it

HKEY_CURRENT_USER\Software\Microsoft\winmine\Name*
HKEY_CURRENT_USER\Software\Microsoft\winmine\Time*