[Release] AutoIt v3 Equipchanger Open Source

EnnDee · 06/05/2012, 18:00

Ich habe mich mal hingesetzt und nen Equipchanger geschrieben, dessen Quellcode ich nicht unter Verschluss halten werde. Mir ist das zu dubios gewesen, da irgendwelche .exe Dateien im Zusammenhang mit D3 zu benutzen, deren Source ich nicht kenne. Deshalb liefere ich mit diesem Release einen einfach konfigurierbaren Equipchanger.

Alle wichtigen Einstellungen lassen sich über die "equipwechsler.ini" einstellen. Bilder zur Erklärung sind auch dabei. Er kann alle Slots equippen, auch den zweiten Ring usw.

Über Anregungen und Verbesserungsvorschläge würde ich mich freuen und diese bei Gelegenheit auch umsetzen.

Grüße

Checkliste für Verbesserungen:
-andere Auflösungen als 16:9-formatige unterstützen (wahrscheinlich über einfache Case-Abfragen, oder hat jemand ne bessere Idee?)

Source:

Spoiler

Code:

#RequireAdmin
#include <File.au3>
#Include <Date.au3>
#include <Misc.au3>
_Singleton(@ScriptName)

; Calculate Coordinates of Equip
; we start counting from bottom left to up right; 2nd Value of $ratio defines wether we deal with the x- axis (1) or the y-axis (2);
; Parameter [0] defines if we use it or not

; bekannte Probleme: arbeitet nur mit 16:9 Auflösungen zusammen, könnte über Fallunterscheidungen gelöst werden

$inventorykey=Iniread("equipwechsler.ini","Hotkeys","Inventar","d")
$wechselhotkey=Iniread("equipwechsler.ini","Hotkeys","Wechselhotkey","i")
$beendenhotkey=Iniread("equipwechsler.ini","Hotkeys","Beenden","i")
$cleanupkey=Iniread("equipwechsler.ini","Hotkeys","Screenclear","{SPACE}")
$wintitle=Iniread("equipwechsler.ini","Optionen","Windowname","Diablo III")

HotkeySet($beendenhotkey,"MyExit")
HotkeySet($wechselhotkey,"Wechsel")


Global $ratio[10][6][4]
Global $absolut[10][6][4]
Global $clickfield[11][7]
Global $D3win[4]
Global $hWnd = WinGetHandle($wintitle)




$ratio[0][0][1]=1440/1920 ; Verhältnis der Inventarslotposition ganz unten links zur Gesamtbreite des Fensters
$ratio[0][0][2]=848/1080 ; Verhältnis der Inventarslotposition ganz unten links zur Gesamthöhe des Fensters

$diffxratio=(1873-1440)/1920 ; verhältnismäßige Entfernung zwischen dem ganz linken und ganz rechten bzw. ganz unteren und ganz oberen Inventarslot
$diffyratio=(848-610)/1080

$diffxratiostep=$diffxratio/9 ; Schrittweite zwischen den einzelnen Slots in x- bzw. y-Richtung
$diffyratiostep=$diffyratio/5



$ix=0
$iy=0

for $ix=0 to 9
	
	for $iy=0 to 5
		
		$ratio[$ix][$iy][1] = $ratio[0][0][1] + $ix * $diffxratiostep
		
		$ratio[$ix][$iy][2] = $ratio[0][0][2] - $iy * $diffyratiostep
		
;~ 		_FileWriteLog("xlog.txt","ix =" & $ix & "   xratio=" & $ratio[$ix][$iy][1] & "  iy =" & $iy & "   yratio=" & $ratio[$ix][$iy][2])
		
	Next
	
Next



While ProcessExists("Diablo III.exe")
	sleep(100)
Wend





Func Wechsel()
	

$blockinput=Iniread("equipwechsler.ini","Optionen","Input Blocken","0")
$Maxsleeptime=Iniread("equipwechsler.ini","Optionen","Maxsleeptime","30")
$Minsleeptime=Iniread("equipwechsler.ini","Optionen","Minsleeptime","100")

FileDelete(@Scriptdir & "\xlog.txt")
;~ WinWaitActive($wintitle)
$D3win=WinGetPos($wintitle)
Blockinput($blockinput)
;~ $mouseposi=MouseGetPos()



$ix=0
$iy=0

for $ix=1 to 10
	
	for $iy=1 to 6
		
	$clickfield[$ix][$iy] = Iniread("equipwechsler.ini","Inventar","Slot[" & $ix & "][" & $iy & "]",0)
		
	Next
	
Next



$ix = 0
$iy = 0

for $ix=0 to 9
	for $iy=0 to 5
		
	$absolut[$ix][$iy][1] = $D3win[2] * $ratio[$ix][$iy][1] 
	$absolut[$ix][$iy][2] = $D3win[3] * $ratio[$ix][$iy][2] 
		
	Next
Next


Controlsend($wintitle,"",$hWnd,$cleanupkey)
;~ send($cleanupkey) ; schließt alle eventuell noch offenen Fenster
sleep(Random($Minsleeptime,$Maxsleeptime,1))
Controlsend($wintitle,"",$hWnd,$inventorykey)
;~ send($inventorykey)
sleep(Random($Minsleeptime,$Maxsleeptime,1))
;~ MouseMove($absolut[0][0][1], $absolut[0][0][2], 0)



$ix=0
$iy=0

for $ix = 0 to 9
	for $iy = 0 to 5
		
	Select
		
		
	case $clickfield[$ix+1][$iy+1] = 1 ; Dieser Teil der Schleife klickt alle Equipteile mit Rechtsklick an, die angelegt werden sollen
		Controlclick($wintitle,"",$hWnd,"right",1, $absolut[$ix][$iy][1], $absolut[$ix][$iy][2])
		sleep(Random($Minsleeptime,$Maxsleeptime,1))
		
		
	case $clickfield[$ix+1][$iy+1] = 2 ; Dieser Teil der Schleife klickt den zweiten Ring mit ALT + Rechtsklick an, um ihn auf den rechten Slot zu equippen
;~ 		send("{ALTDOWN}")
		Controlsend($wintitle,"",$hWnd,"{ALTDOWN}")
		Controlclick($wintitle,"",$hWnd,"right",1, $absolut[$ix][$iy][1], $absolut[$ix][$iy][2])
;~ 		Mouseclick("right", $absolut[$ix][$iy][1], $absolut[$ix][$iy][2], 1, 0)
		sleep(Random($Minsleeptime,$Maxsleeptime,1))
		Controlsend($wintitle,"",$hWnd,"{ALTUP}")
;~ 		send("{ALTUP}")


	EndSelect
	
	Next
Next


sleep(Random($Minsleeptime,$Maxsleeptime,1))
Controlsend($wintitle,"",$hWnd,$inventorykey)
;~ send($inventorykey)
;~ Mousemove($mouseposi[0], $mouseposi[1], 0)
Blockinput(0)

Endfunc









Func MyExit()
	Exit
Endfunc

Config:

Spoiler

TheOnlyOne652089 · 06/05/2012, 18:53

Bin deinen Code mal kurz überflogen, daher generelles Zeug:

Nutze wenn möglich Singleton bei solchen Tools.

Code:

#include <Misc.au3>
_Singleton(@ScriptName)

Damit immer nur eine Instanz läuft.

Den wenn die Leute so "blöd" sind es zwei mal zu öffnen dann funktioniert nur bei einer die Hotkeys (entsprechend der Exit hotkey) , was etwas unschön ist und mit Pech Probleme erzeugt.

Konfigurierbare Hotkeys finde ich in jedem fall ne super Idee, hab ich meist auch hardcoded.

u.U. musst du abprüfen das keine Doppelt Belegt sind, falls jemand so blöd ist und das eingibt (dann gilt nur der letzte Hotkey, der andere hat keine Funktion).

Das Tool sollte nur laufen wenn Diablo III auch offen ist ; beendet man Diablo III macht es Sinn das Tool gleich mit zu beenden.

Entsprechend bietet es sich an wenn du im While 1 einfach "While WinExists" machst, das sorgt entsprechend für eine schnelle einfache Lösung.

Du benutzt blockinput, was "gut" ist, beachte aber das man dazu Adminrechte benötigt.

Entsprechend macht es Sinn einen "#requireAdmin" hinzuzufügen, damit die Leute das auch richtig machen.

send("{SPACE}") soll das dafür sorgen, dass das Inventar geschlossen wird ?

Bin grad auf Arbeit und habe kein D3 hier, aber wenn "ja" gut so.

Die sleeps halte ich für unnötig an der Stelle, aber u.U. haben die ja einen Zweck.

Warum ein MouseMove ? Ergibt sich mir nicht warum das benötigt wird.

Nutze wenns geht "ControllClick" anstatt MouseClick, das ist einfach klar "superior". Sendet den Befehl direkt an das angegebene Controll und ist wohl auch einfach schneller (siehe dazu meinen Referenz Code, der macht das hoffentlich deutlich, ansonsten F1 in AutoIT sollte auch helfen).

Größter Vorteil von ControllClick, die Maus selbst wird nicht bewegt, es werden nur die Befehle gesendet, dadurch kann der Nutzer eigentlich tun was er will (sollte trotzdem BlockInput sein, den das macht das Macro einfach kaputt wenn der User dazwischen funkt).

Logging würde ich in jedem fall "optional" machen.

In meiner Referenz siehst du eine Alternative für das Macro.

Anstelle mit Rechtsklick verwende ich eine linksklick und füge die Items direkt dort ein wo sie hinsollen.
Das macht die Sache mit "Alt" unnötig und die Recorder Funktion erlaubt es mit jeder Auflösung seine Einstellung zu tätigen.

Die Option mit Rechtsklick und Alt funktioniert natürlich auch, im Detail müsste man das stärker Vergleichen ob es unterschiede gibt (nicht nur Geschwindigkeit, sondern Sicherheit auf Fehler, bzw. wie das Spiel in bestimmten Situation anders handelt, wenn vielleicht einmal eine 2h Waffe verwendet wird und im magic Set je 2x Einhand usw.).

Mein Recorder speichert einfach .ini files mit den Koordinaten als Namen die Auflösung.

Generell kann man einiges tun damit das Tool einfach "schöner" funktioniert und mehr Optionen zur Verfügung stehen, den die "eigentliche" Funktion des EquipWechsel ist ja ziemlich trivial.

Nur als Referenz Code:

RECORDER.au3

Spoiler

Code:

#include <Misc.au3>
_Singleton(@ScriptName)

AutoItSetOption ( "MouseCoordMode", 2)

Global $winTitle = "Diablo III"
Global $hWnd = WinGetHandle($winTitle)

HotKeySet("{ESC}", "_exit")
Func _exit()
	Exit 0
EndFunc

Global $iniFile = getIniFileName()
Func getIniFileName()
	local $clientSize = WinGetClientSize($winTitle)
	local $name = "COORD_" & $clientSize[0] & "x" & $clientSize[1] & ".ini"

	return $name
EndFunc
Global $item_names[13] = ["Helm","Shoulder","Body","Hand","Arm","Leg","Boots","Belt","Amulet","LeftRing","RightRing","LeftWeapon","RightSupport"]

Global $curCoordCount = 0
Global $coordMode = "Inventory"

HotKeySet("{Right}", "_countNext")
Func _countNext()
	if ($coordMode == "Inventory") Then
		$coordMode = "BodyPart"
	Else
		$curCoordCount+=1
		if ($curCoordCount >= UBound($item_names)) Then
			$curCoordCount = 0
		EndIf

		$coordMode = "Inventory"
	EndIf
EndFunc

HotKeySet("{Left}", "_countBack")
Func _countBack()

	if ($coordMode == "Inventory") Then
		$curCoordCount-=1
		if ($curCoordCount < 0) Then
			$curCoordCount = UBound($item_names)-1
		EndIf
		$coordMode = "BodyPart"
	Else
		$coordMode = "Inventory"
	EndIf
EndFunc

HotKeySet("{+}", "_addCoord")
Func _addCoord()
	local $mousePos = MouseGetPos()
	local $x = $mousePos[0]
	local $y = $mousePos[1]

	if ($coordMode == "Inventory") Then
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_x", $x)
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_y", $y)
	Else
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_x", $x)
		IniWrite($iniFile, $item_names[$curCoordCount], $coordMode & "_y", $y)
	EndIf

	_countNext()
EndFunc

HotKeySet("{-}", "_removeCoord")
Func _removeCoord()
	_countBack()
	if ($coordMode == "Inventory") Then
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_x")
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_y")
	Else
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_x")
		IniDelete($iniFile, $item_names[$curCoordCount], $coordMode & "_y")
	EndIf
EndFunc

ToolTip("RECORDER READY",0,0)
While (WinExists($winTitle))
	local $mousePos = MouseGetPos()
	ToolTip("Item: " & $item_names[$curCoordCount] & " : " & $coordMode & @CRLF & _
		"MousePos[" & $mousePos[0] & ", " & $mousePos[1] & "]",0,0)
	sleep(50)
WEnd

AutoEquipper.au3

Spoiler

Code:

#RequireAdmin

#include <Misc.au3>
_Singleton(@ScriptName)

AutoItSetOption ( "MouseCoordMode", 2)

Global $winTitle = "Diablo III"
Global $hWnd = WinGetHandle($winTitle)

HotKeySet("{ESC}", "_exit")
Func _exit()
	Exit 0
EndFunc

Global $iniFile = getIniFileName()
Func getIniFileName()
	local $clientSize = WinGetClientSize($winTitle)
	local $name = "COORD_" & $clientSize[0] & "x" & $clientSize[1] & ".ini"

	return $name
EndFunc
Global $item_names[13] = ["Helm","Shoulder","Body","Hand","Arm","Leg","Boots","Belt","Amulet","LeftRing","RightRing","LeftWeapon","RightSupport"]

Global $Inventory_coords[13][2]
Global $BodyPart_coords[13][2]

Func _readCoordsFromIniFile()

	if (NOT FileExists($iniFile)) Then
		MsgBox("", "ERROR", $iniFile & " not found. Use Record first")
		_exit()
	EndIf

	local $sectionNames = IniReadSectionNames($iniFile)
	if (UBound($sectionNames) < 1) Then
		local $ret
		$ret = MsgBox(1, $iniFile & " ERROR", $iniFile & " is empty, delete it ?")
		if ($ret == 1) Then
			FileDelete($iniFile)
			_exit()
		Else
			_exit()
		EndIf
	EndIf

	ReDim $Inventory_coords[UBound($sectionNames)][2]
	ReDim $BodyPart_coords[UBound($sectionNames)][2]
	for $i = 1 to UBound($sectionNames)-1
		$Inventory_coords[$i][0] = IniRead($iniFile, $sectionNames[$i],  "Inventory_x", 0)
		$Inventory_coords[$i][1] = IniRead($iniFile, $sectionNames[$i],  "Inventory_y", 0)

		$BodyPart_coords[$i][0] = IniRead($iniFile, $sectionNames[$i],  "BodyPart_x", 0)
		$BodyPart_coords[$i][1] = IniRead($iniFile, $sectionNames[$i],  "BodyPart_y", 0)
	Next

EndFunc


HotKeySet("{F1}", "_equip")
Func _equip()

	BlockInput(1)

	ControlSend($winTitle, "", $hWnd, "s")
	sleep(100)
	ControlSend($winTitle, "", $hWnd, "c")

	for $i = 1 to UBound($Inventory_coords)-1
		ControlClick($winTitle, "", $hWnd, "left", 1, $Inventory_coords[$i][0], $Inventory_coords[$i][1])
		ControlClick($winTitle, "", $hWnd, "left", 1, $BodyPart_coords[$i][0], $BodyPart_coords[$i][1])
	Next

	ControlSend($winTitle, "", $hWnd, "c")

	BlockInput(0)

EndFunc

HotKeySet("{F2}", "_unequip")
Func _unequip()

	BlockInput(1)

	ControlSend($winTitle, "", $hWnd, "s")
	sleep(100)
	ControlSend($winTitle, "", $hWnd, "c")

	for $i = 1 to UBound($Inventory_coords)-1
		ControlClick($winTitle, "", $hWnd, "left", 1, $BodyPart_coords[$i][0], $BodyPart_coords[$i][1])
		ControlClick($winTitle, "", $hWnd, "left", 1, $Inventory_coords[$i][0], $Inventory_coords[$i][1])
	Next

	ControlSend($winTitle, "", $hWnd, "c")

	BlockInput(0)

EndFunc


_readCoordsFromIniFile()
While (WinExists($winTitle))
	sleep(500)
WEnd

xXuserXx · 06/05/2012, 19:14

Hey, ich bekomme den Fehler Equipwechsler.exe ist keine zulässige Win32-Anwendung. Woran kann das liegen?

EnnDee · 06/05/2012, 19:28

Controlclick hab ich mir auch schon mal angeschaut, da es ja z.b. auch für inaktive und minimierte Fenster funktioniert, bzw. wenn D3 als Fenster im Hintergrund läuft. Allerdings hab ichs wieder veworfen, weil ich keine Ahnung hatte, was ich als ControlID angeben sollte, wenn ich son Spielfenster habe. Bei Windows GUI Fenstern kriegt man das ja leicht raus, aber bei Spielen gibt es so was ja nicht. Ich gucke mir das in deinem Script mal genauer an.
Könnte das nicht zu Problemen bei der Detectability führen, wenn man die Maus gar nicht mehr bewegt? Hauptaugenmerk meines Programms liegt ja darauf, es möglichst menschlich wirken zu lassen, daher auch die Random Delays zwischen allen Aktionen.

Danke für deine Anregungen auf jeden Fall. Einen Teil setze ich gerade um, einen Teil werde umzusetzen versuchen und eventuell nochmal hier nachfragen.

Quote:

Originally Posted by xXuserXx

Hey, ich bekomme den Fehler Equipwechsler.exe ist keine zulässige Win32-Anwendung. Woran kann das liegen?

Das liegt daran, dass ich es als 64Bit Anwendung compiliert habe. Werds bei Gelegenheit berichtigen und als 32 Bit compilen.

TheOnlyOne652089 · 06/05/2012, 20:02

Quote:

Originally Posted by EnnDee

Controlclick hab ich mir auch schon mal angeschaut, da es ja z.b. auch für inaktive und minimierte Fenster funktioniert, bzw. wenn D3 als Fenster im Hintergrund läuft. Allerdings hab ichs wieder veworfen, weil ich keine Ahnung hatte, was ich als ControlID angeben sollte, wenn ich son Spielfenster habe. Bei Windows GUI Fenstern kriegt man das ja leicht raus, aber bei Spielen gibt es so was ja nicht. Ich gucke mir das in deinem Script mal genauer an.

Da musst du wohl noch etwas lesen, aber die kurzfassung:

Jedes Window hat ein Handle (hwnd), das kannst du als ID betrachten in dem Zusammenhang.

Das zu bekommen ist sehr einfach mit AutoIT, einfach "WinGetHandle" und fertig.

Falls benötigt kannst du auch den Prozess abgreifen "WinGetProcess" (brauchst du hier aber nicht tun, das Handle reicht).

Quote:

Könnte das nicht zu Problemen bei der Detectability führen, wenn man die Maus gar nicht mehr bewegt? Hauptaugenmerk meines Programms liegt ja darauf, es möglichst menschlich wirken zu lassen, daher auch die Random Delays zwischen allen Aktionen.

Im Endeffekt lösen beide Funktionen das gleiche aus.

MouseClick geht den "umweg" über den MouseCursor und bewegt die Maus, das sorgt dann für das entsprechende "MouseClick" Event.

ControllClick sendet dieses MouseClick Event einfach direkt, spart sich den Umweg.

In Sachen Detectability sollte das komplett zu vernachlässigen sein, ich meine sogar es macht absolut keinen Unterschied.

Quote:

Danke für deine Anregungen auf jeden Fall. Einen Teil setze ich gerade um, einen Teil werde umzusetzen versuchen und eventuell nochmal hier nachfragen.

Gut so ^^

Quote:

Das liegt daran, dass ich es als 64Bit Anwendung compiliert habe. Werds bei Gelegenheit berichtigen und als 32 Bit compilen.

Kannst auch beides machen und als "_32bit" bzw. "_64bit" angeben.

Die 32-bit version funktioniert in aller Regel aber auch unter 64bit.

Quote:

Originally Posted by EnnDee

Danke für die Hinweise, hab das alles mal umgesetzt und noch etwas mehr Konfigurierbarkeit rein gebracht. Außerdem sollte es nun auch unter 32 Bit Betriebssystemen laufen.

Problem:
Ich kann keinen ALT+Rechtsklick mit dem Controlclick machen .. Lösungsideen?

Ich meine das geht.

Code:

ControlSend($winTitle, "", $hWnd, "{ALTDOWN}")
ControlClick($winTitle, "", $hWnd, "right", 1, $mouseCoord[0], $mouseCoord[1])
ControlSend($winTitle, "", $hWnd, "{ALTUP}")

Scheint relativ problemlos zu funktionieren.

EnnDee · 06/05/2012, 23:05

Quote:
Originally Posted by TheOnlyOne652089
Code:
ControlSend($winTitle, "", $hWnd, "{ALTDOWN}")
ControlClick($winTitle, "", $hWnd, "right", 1, $mouseCoord[0], $mouseCoord[1])
ControlSend($winTitle, "", $hWnd, "{ALTUP}")
Scheint relativ problemlos zu funktionieren.

jo, hab ich auch direkt danach herausgefunden und deshalb den Post schnell wieder gelöscht.