《三国群英传2》无限搜索之临战换兵

#MaxThreads 2	;最多同时运行两个线程
#NoEnv		;不使用 windows 的环境变量

;-------------------------------------------------------
; Here Functions define
;-------------------------------------------------------
WriteProcessMemory(win_id, addr, addr_value, addr_offset = 0, value_size = 4)
{
    if (win_id > 0)
    {
	addr += addr_offset

	WinGet, proc_id, PID, ahk_id %win_id%
   	ProcessHandle := DllCall("OpenProcess", "UInt", 0x28, "char", 0, "UInt", proc_id, "UInt")
	write_success := DllCall("WriteProcessMemory", "UInt", ProcessHandle, "UInt", addr, "UInt *", addr_value, "Uint", value_size, "Uint *", BytesWritten)

	DllCall("CloseHandle", "int", ProcessHandle)
    }

    return, % write_success
}

ReadProcessMemory(win_id, addr, ByRef addr_value, addr_offset = 0, value_size = 4)
{
    if (win_id > 0)
    {
	addr += addr_offset

	WinGet, proc_id, PID, ahk_id %win_id%
   	ProcessHandle := DllCall("OpenProcess", "Int", 24, "char", 0, "UInt", proc_id, "UInt")
	read_success := DllCall("ReadProcessMemory", "UInt", ProcessHandle, "UInt", addr, "UInt *", addr_value, "Uint", value_size, "Uint *", 0)

	DllCall("CloseHandle", "int", ProcessHandle)
    }

    return, % read_success
}

ValueWrite(win_id, addr, addr_value, addr_value_orig)
{
    ReadProcessMemory(win_id, addr, addr_value_read)
    if addr_value_read = %addr_value_orig%
	WriteProcessMemory(win_id, addr, addr_value)
}

ListValueWrite(win_id, List, WriteBack = 0)
{
    if WriteBack = 0
	Loop, parse, List, %A_Tab%%A_Space%
	    ValueWrite(win_id, addr%A_LoopField%, addr%A_LoopField%_value, addr%A_LoopField%_value_orig)
    else
	Loop, parse, List, %A_Tab%%A_Space%
	    ValueWrite(win_id, addr%A_LoopField%, addr%A_LoopField%_value_orig, addr%A_LoopField%_value)
}
;-------------------------------------------------------
; Start
;-------------------------------------------------------
;-------------------------------------------------------
CrazyClick := 0
;-------------------------------------------------------
IniRead, SearchUniq, Sango2Hotkey.ini, User, SearchUniq
IniRead, AutoItem, Sango2Hotkey.ini, User, AutoItem
IniRead, RenShu, Sango2Hotkey.ini, User, RenShu

; 从 INI 文件中读取需要改的地址及值，暂设最多64项。
Loop, 64
{
    IniRead, addr%A_Index%, Sango2Hotkey.ini, ProcessMemory, addr%A_Index%
    if addr%A_Index% = ERROR
	    break
    IniRead, addr%A_index%_value, Sango2Hotkey.ini, ProcessMemory, addr%A_index%_value
    IniRead, addr%A_index%_value_orig, Sango2Hotkey.ini, ProcessMemory, addr%A_index%_value_orig
}

#IfWinActive ahk_class Sango2 for Windows

F3::

init:

    hwnd := hwndSango2
    WinGet, hwndSango2, ID, ahk_class Sango2 for Windows
    ; 从INI中选取初始化所要改的项
    ; 搜索相关
    List := "1 2 3 4 5 13 14 15 16 17"
    ; 自动后选相关
    List .= " 6 12 18 22"
    ; 自动装备
    if AutoItem != 1
	List .= " 21"
    ; 出征人数
    if RenShu = 1
	List .= " 7 8 23 24"
    if (hwnd != hwndSango2 or A_ThisHotkey = "F3")
	ListValueWrite(hwndSango2, List)
Return

~Ctrl::
    gosub init

    ; 将阵形选择改为兵种选择
    ListValueWrite(hwndSango2, "9 10 19 20")
return

~Ctrl UP::
    ; 恢愎阵形选择
    ListValueWrite(hwndSango2, "9 10 19 20", 1)
return

+F2::
    ; 恢愎自动后选
    ListValueWrite(hwndSango2, "6 12 18", 1)
return

F5::
    gosub init
    ; 去除物品唯一性
    if SearchUniq = 1
	ListValueWrite(hwndSango2, "11")

    CrazyClick := 1
    SetTimer, LoopClick, 60
return

LoopClick:
    if CrazyClick = 0
	SetTimer, LoopClick, Off
    SendInput {Click down}
    Sleep, 30
    SendInput {Click up}
return

;-------------------------------------------------------
; The End
;-------------------------------------------------------
#IfWinActive

~Esc::
    if CrazyClick = 1
    {
	; 去除物品唯一性
	if SearchUniq = 1
	    ListValueWrite(hwndSango2, "11", 1)
	CrazyClick := 0
    }
    else
    {
	SendInput {ESC down}
	Sleep, 30
	SendInput {ESC up}
    }
return