Trainer do Sapera! :D Winmine Score Tool

Protecto · 27 Grudnia 2011

Witam!

Z nudów zacząłem bawić się NomadMemory i wyskrobałem narzędzie do zmieniania rekordów w saperze.

Wymagany UDF NomadMemory.au3 w folderze Include.

Autor:

Protecto

Opis:

Program zmienia rekordy w sekundach dla każdego poziomu trudności.

SS:

http://screenshooter.net/1662461/ss_42

Kod:

#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### GUI
$okno = GUICreate("Winmine Score Tool", 340, 185, 192, 124)
$label1 = GUICtrlCreateLabel("Witaj w Winmine Score Tool!", -16, 8, 328, 17, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$label2 = GUICtrlCreateLabel("Wpisz żądane wyniki kliknij Zmień.", 168, 32, 167, 17)
$label3 = GUICtrlCreateLabel("Początkujący:", 8, 40, 71, 17)
$label4 = GUICtrlCreateLabel("Ekspert:", 8, 136, 43, 17)
$label5 = GUICtrlCreateLabel("Średniozaawansowany:", 8, 88, 116, 17)
$pocz = GUICtrlCreateInput("999", 8, 56, 41, 21)
GUICtrlSetLimit(-1, 3)
$sr = GUICtrlCreateInput("999", 8, 104, 41, 21)
GUICtrlSetLimit(-1, 3)
$eks = GUICtrlCreateInput("999", 8, 152, 41, 21)
GUICtrlSetLimit(-1, 3)
$label6 = GUICtrlCreateLabel("Przedział: 0 - 999", 248, 56, 87, 17)
$send = GUICtrlCreateButton("Zmień", 168, 88, 161, 81)
GUISetState(@SW_SHOW)
#endregion ### GUI
connect()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $send
  change()
EndSwitch
WEnd
Func connect()
GUICtrlSetState($send, $GUI_DISABLE)
TrayTip("Winmine Score Tool", "Oczekiwanie na okno Sapera...", 5)
Do
 $PID = ProcessExists("winmine.exe")
Until $PID <> 0
Global $memory = _MemoryOpen($PID)
GUICtrlSetState($send, $GUI_ENABLE)
TrayTip("Winmine Score Tool", "Połączono z Saperem!", 2)
EndFunc   ;==>connect
Func change()
check()
GUICtrlSetState($send, $GUI_DISABLE)
_MemoryWrite(0x010056CC, $memory, GUICtrlRead($pocz))
_MemoryWrite(0x010056D0, $memory, GUICtrlRead($sr))
_MemoryWrite(0x010056D4, $memory, GUICtrlRead($eks))
MsgBox(64, "Utrwalenie wyniku.", "Aby utrwalić wynik, to znaczy sprawić, aby po ponownym uruchomieniu" & @CRLF & "Sapera nie powrócił on do poprzedniego stanu należy" & @CRLF & "Po kolei włączyć każdy z trzech poziomów trudnośći.")
Sleep(1000)
GUICtrlSetState($send, $GUI_ENABLE)
TrayTip("Winmine Score Tool", "Zmieniono wynik!", 2)
EndFunc   ;==>change
Func check()
GUICtrlSetState($send, $GUI_DISABLE)
TrayTip("Winmine Score Tool", "Oczekiwanie na okno Sapera...", 5)
Do
 $PID = ProcessExists("winmine.exe")
Until $PID <> 0
Global $memory = _MemoryOpen($PID)
GUICtrlSetState($send, $GUI_ENABLE)
TrayTip("", "", 2)
EndFunc

Hia, hia, hia. :P

@EDIT

Zaraz wykombinuję jeszcze zmianę autora rekordu, bo coś mi nie idzie.

Winmine Score Tool by Protecto is licensed under a

Creative Commons Uznanie autorstwa-Użycie niekomercyjne 3.0 Unported License.