Register for your free account! | Forgot your password?

Go Back   elitepvpers > Diablo 3 > Diablo 3 Hacks, Bots, Cheats & Exploits
You last visited: Today at 15:19

  • Please register to post and access all features, it's quick, easy and FREE!

 

Diablo III - Equip-Changer (Magiefundbonus)

View Poll Results: Funktioniert der Item-Changer bei euch?
Ja, 1920x1080 mit Nebenhand 4 50.00%
Ja, 1920x1080 ohne Nebenhand 2 25.00%
Nein, 1920x1080 mit Nebenhand 2 25.00%
Ja, 1920x1080 ohne Nebenhand 0 0%
Voters: 8. You may not vote on this poll

Reply
 
Old   #31
 
elite*gold: 0
Join Date: Aug 2011
Posts: 8
Received Thanks: 3
Ich will wie gesagt gar keinen davon abhalten, was du sagst stimmt vollkommen, das Risiko ist nicht hoch, aber es ist da.
Jeder sollte eben wissen, dass man es feststellen kann.
Mehr will ich da gar nicht sagen



tf213 is offline  
Thanks
1 User
Old   #32

 
elite*gold: 0
Join Date: Dec 2008
Posts: 825
Received Thanks: 68
So... 1680x1050 auch released - jedoch noch nicht getestet


__#xuNsh1ne is offline  
Old   #33
 
elite*gold: 50
Join Date: May 2008
Posts: 2,216
Received Thanks: 1,821
Ich hab mich fix mal hingesetzt und das runtergeschrieben.

Vielleicht kannst du dir ja Sachen herausziehen die deinem Tool helfen.

*Wie eben das auslesen aus der Ini , usw. Das macht das Script automatisch für alle Auflösung funktionsfähig, ohne das du jedes mal hardcoded anpassen musst.

*Die User Eingabe wärend du equippst kannst du mit Admin Rechten "blocken", dann kann da nichts schieflaufen (wie eben Items aus versehen auf den Boden werfen, das ist total tödlich)

*Anstatt Rechte Maustaste und Alt etc. klicke ich hier direkt per ControlClick einmal auf das Item im Inventar und dann auf die Position wo es hinsoll im BodyPart. Das schöne daran ist man kann sich auch direkt "ausziehen" mit einem Hotkey ^^ in dem man direkt das umgekehrte macht.
Items werden ohnehin direkt ausgetauscht, ob jetzt das klicken mit Links oder Rechts (+Alt) effizienter ist stell ich mal in den Raum (im Prinzip sollte das egal sein)

*Hat man das Inventar nicht offen muss man "c" drücken, blöd nur wenn das Inventar doch offen ist, dann klickt man daneben. Einfache Lösung ist vorher "s" zu drücken, den dadurch ist das Inventar in jedem fall zu und man kann es öffnen, was dem fehler entgegenwirkt.

Wahnsinnig viel Hirnschmalz ist da nicht reingefloßen, aber ich denke du kannst das gut nutzen für Verbesserungen.

RECORDER.au3
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
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
TheOnlyOne652089 is offline  
Thanks
1 User
Old   #34
 
elite*gold: 0
Join Date: Mar 2011
Posts: 1
Received Thanks: 0
Hi, sehr geites Tool!
Könntest du evtl auch das script für 1920x1200 schreiben?

wäre sehr dankbar


lenz90 is offline  
Old   #35
 
elite*gold: 0
Join Date: May 2012
Posts: 2
Received Thanks: 3
Ich finde das Prog. super. Wie gesagt es ist sowas wie ein Macro .... ich denke auch nicht das Blizzard so kleinkariert ist und da was unternehmen wird oder es überhaupt auf der Rechnung hat. Ich mein Programme wie "KeyToPress" stören ja auch nicht. Ich denke Blizzard hat viel mehr mit dem vielen richtigen Bot Varianten incl. Maphacks zu kämpfen.

mfg
Melodyy87 is offline  
Thanks
1 User
Old   #36
 
elite*gold: 0
Join Date: Aug 2008
Posts: 2
Received Thanks: 2
Hi Dodgecharger,

erstmal danke von mir und meinen Kumpels für dieses Script. Alle sind begeistert nur ich habe da so meine Probleme.

Bei der 1680x1050 Version von dir habe ich in beiden Versionen keine Funktionalität.

a) Mit Nebenhand bekomme ich nachdem ich alle Schritte durchgeführt habe folgende Fehlermeldung

You must register and activate your account in order to view images.

b) bei der Version ohne Nebenhand kommt keine Fehlermeldung, allerdings passiert nix, außer dass das Skills-Menü geöffnet wird und der Mouseovertooltip vom UI unten "hovert"

Vielleicht kannst du mir da ja helfen wenn du Zeit findest
darkhorse12 is offline  
Thanks
1 User
Old   #37

 
elite*gold: 0
Join Date: Dec 2008
Posts: 825
Received Thanks: 68
Quote:
Originally Posted by lenz90 View Post
Hi, sehr geites Tool!
Könntest du evtl auch das script für 1920x1200 schreiben?

wäre sehr dankbar
Habe leider keinen 1920x1200 Screen Aber evtl. kann ich jmd. überreden, der einen hat

Ich werde mich heute Nacht um eure Fehlermeldungen und Vorschläge kümmern - Vielen Dank an alle!

Quote:
Originally Posted by darkhorse12 View Post
Hi Dodgecharger,

erstmal danke von mir und meinen Kumpels für dieses Script. Alle sind begeistert nur ich habe da so meine Probleme.

Bei der 1680x1050 Version von dir habe ich in beiden Versionen keine Funktionalität.

a) Mit Nebenhand bekomme ich nachdem ich alle Schritte durchgeführt habe folgende Fehlermeldung

You must register and activate your account in order to view images.

b) bei der Version ohne Nebenhand kommt keine Fehlermeldung, allerdings passiert nix, außer dass das Skills-Menü geöffnet wird und der Mouseovertooltip vom UI unten "hovert"

Vielleicht kannst du mir da ja helfen wenn du Zeit findest

Habe das Script selbst nicht testen können - funktioniert es bei den anderen? (1680x1050)

** Okay - Fehler gefunden **
** UPDATED **
__#xuNsh1ne is offline  
Thanks
2 Users
Old   #38
 
elite*gold: 0
Join Date: Aug 2008
Posts: 2
Received Thanks: 2
Hi again,

also so deiner Frage vorhin nochmal, bei allen wo es klappt ist die Auflösung die nächst höhere also die 1900er...

Ich hab mir jetzt mal die Geupdatete Version geladen. 1680x1050

a) Version mit Nebenhand -> skills fenster wird einmal extrem kurz geöffnet, ein Skill wird kurz gecastet dann dauerhaft Skillfenster offen, keine Itemänderungen.

b) Version ohne Nebenhand -> nichts passiert.

Was ich interessant fande (vllt ist es auch normal), wenn ich in der Taskleiste auf das Symbol rechtsklicke ist der Haken bei "Script paused" dauerhaft drin und lässt sich auch nicht entfernen.

Das ganze auf Windows 7 Professional 64bit auch mit Adminrechten.

Grüße
darkhorse12 is offline  
Thanks
1 User
Old   #39
 
elite*gold: LOCKED
Join Date: Apr 2012
Posts: 39
Received Thanks: 15
das klingt schon besser
Aqua Vitale is offline  
Thanks
1 User
Old   #40
 
elite*gold: 0
Join Date: May 2011
Posts: 12
Received Thanks: 1
Hallo Dodgecharger,
erstmal vielen dank für das Tool, alle Kumpels von mir sind begeistert und schätzen deine Arbeit sehr.
Aber leider läuft das Programm bei mir nicht und ich bekomme eine Fehlermeldung beim starten der exe.

Ich bin nicht der beste wenn es um Computer und Programme geht deshalb wollte ich hier mal nachfragen ob jemand eine Lösung kennt.
Google spuckt nichts aus, als Admin zu starten hilft nichts und der Kompatibilitätsmodus funktioniert auch nicht.
Würde mich sehr freuen wenn jemand eine Lösung kennt.

Mit freundlichen Grüßen: René W.
woleby is offline  
Thanks
1 User
Old   #41
 
elite*gold: 50
Join Date: May 2008
Posts: 2,216
Received Thanks: 1,821
Quote:
Originally Posted by woleby View Post
Hallo Dodgecharger,
erstmal vielen dank für das Tool, alle Kumpels von mir sind begeistert und schätzen deine Arbeit sehr.
Aber leider läuft das Programm bei mir nicht und ich bekomme eine Fehlermeldung beim starten der exe.

Ich bin nicht der beste wenn es um Computer und Programme geht deshalb wollte ich hier mal nachfragen ob jemand eine Lösung kennt.
Google spuckt nichts aus, als Admin zu starten hilft nichts und der Kompatibilitätsmodus funktioniert auch nicht.
Würde mich sehr freuen wenn jemand eine Lösung kennt.

Mit freundlichen Grüßen: René W.
Nunja, die exe ist entweder 32-bit oder 64-bit ; entsprechend hast du wohl einen 32-bit Rechner und er hat es als 64-bit kompiliert.

Demnach kannst du es nicht benutzen.

Ist aber auch egal, lad dir einfach AutoIT runter, dann kannst du es selbst kompilieren (wenn er den SourceCode angibt).

*Alternativ kannst du auch den Script SourceCode von mir benutzen (damit nimmst du zuerst per Record die Koordinaten auf und nutzt das Script per AutoEquipper).
TheOnlyOne652089 is offline  
Thanks
1 User
Old   #42
 
elite*gold: 0
Join Date: May 2011
Posts: 12
Received Thanks: 1
Ok, hat alles geklappt vielen dank für die schnelle Antwort!
woleby is offline  
Old   #43
 
elite*gold: 0
Join Date: May 2012
Posts: 2
Received Thanks: 3
die 1920 version geht aber die 1680 version geht nicht ob mit schildhand oder ohne bei der 1680 wird einfach skillfenster kurz geöffnet und dann rechtsklick skill geused... ich denke mal das sollte nicht sein das das skillfenster kurz aufgeht, sonder das sollte bestimmt das inventar sein... hoffe da kommt noch nen update für die leute die 1680 nur usen können

mfg
Melodyy87 is offline  
Thanks
2 Users
Old   #44
 
elite*gold: 0
Join Date: May 2012
Posts: 1
Received Thanks: 1
Bin neu hier im Forum aber jetzt schon begeistert!

Möchte dem ersteller dieses Tools noch mal persönlich danken funktioniert klasse!
CentraCromos is offline  
Thanks
1 User
Old   #45
 
elite*gold: 0
Join Date: Sep 2009
Posts: 157
Received Thanks: 11
1440x900 auch möglich?


Maxh95 is offline  
Reply

Tags
diablo, goldfund, makro, swicher, wechsel



« Previous Thread | Next Thread »

Similar Threads
[AutoIt] "Background" Clicker (Diablo III Equip Changer)
Hallo, Mein aktuelles Script: If Not IsDeclared("sToolTipAnswer") Then Local $sToolTipAnswer $sToolTipAnswer = ToolTip("Equip wird...
14 Replies - AutoIt
Diablo III - Magiefundbonus-Gear Makro
Hey, Da es in Diablo ja leider keine Makrofunktion wie in WoW gibt, bin ich auf der suche nach einem magic find Gear Makro, mit dem man sein Gear...
5 Replies - Diablo 3 Main - Discussions / Questions
[S] Diablo II Hdin Perf Equip + Cdkeys
Cdkeys duerfen nicht stealed sein & das Equip muss perfekt bzw sehr gut sein.. dh. gutes CoA, crafted ammy, eni 775, 40er hoto, spirit, 6ercta,...
0 Replies - Diablo 3 Trading



All times are GMT +1. The time now is 15:19.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.