Register for your free account! | Forgot your password?

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

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

 

Diablo III AutoEquipper (Equipment-Changer)

Reply
 
Old   #46
 
elite*gold: 20
Join Date: May 2009
Posts: 3,840
Received Thanks: 434
da der d3 bot atm nicht funktioniert bin ich gezwungen selber zu spielen habe mir natürlich sofort dein programm geladen und es funktioniert nun perfekt! echt gut gemacht



Mecco-Pekko is offline  
Old   #47
 
elite*gold: 0
Join Date: Feb 2010
Posts: 1
Received Thanks: 0
Hi ich hät ne Frage
und zwar fährt das Programm die Stellen im Inventory ab mit der Maus wenn ich Leertaste drücke aber er wechselt die Items nicht aus was mache ich falsch?


hekla123 is offline  
Old   #48
 
elite*gold: 0
Join Date: Oct 2011
Posts: 1
Received Thanks: 0
hi, bekomme leider diese fehlermeldung wenn ich versuche gear zu switchen:

AutoIt Error
Line 452 (File "C:\....\d3equipment.exe")
Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Eine Ahnung wie ich das fixe? Hier der Inhalt meines Inis:

[Positions]
2=1426,620
3=1478,611
4=1434,655
5=1527,638
6=1569,638
7=1622,625
8=1675,628
9=1733,629
10=1768,626
11=1826,622
12=1879,621
[Positions2nd]
1=1471,655
[Global]
Keys=12
ALTKeys=1
Switch=F1
Exit=F4
ploori is offline  
Old   #49
 
elite*gold: 0
Join Date: Mar 2007
Posts: 21
Received Thanks: 17
Quote:
Originally Posted by ploori View Post
hi, bekomme leider diese fehlermeldung wenn ich versuche gear zu switchen:

AutoIt Error
Line 452 (File "C:\....\d3equipment.exe")
Error: Array variable has incorrect number of subscripts or subscript dimension range exceeded.

Eine Ahnung wie ich das fixe? Hier der Inhalt meines Inis:

[Positions]
2=1426,620
3=1478,611
4=1434,655
5=1527,638
6=1569,638
7=1622,625
8=1675,628
9=1733,629
10=1768,626
11=1826,622
12=1879,621
[Positions2nd]
1=1471,655
[Global]
Keys=12
ALTKeys=1
Switch=F1
Exit=F4
In der Ini-Datei fehlt die Nummer 1 unter [Positions]. Ändere mal deine Ini-Datei wie folgt:
Quote:
[Positions]
1=1426,620
2=1478,611
3=1434,655
4=1527,638
5=1569,638
6=1622,625
7=1675,628
8=1733,629
9=1768,626
10=1826,622
11=1879,621
[Positions2nd]
1=1471,655
[Global]
Keys=11
ALTKeys=1
Switch=F1
Exit=F4


hijaxx is offline  
Old   #50
 
elite*gold: 0
Join Date: Jul 2006
Posts: 3
Received Thanks: 1
Hab eig. keine Ahnung von Programmieren, habe trotzdem grad mal versucht die sleep Zeiten im script alle radikal zu verkürzen und geschaut ob's dann noch läuft.

Performt bei mir immernoch problemlos und ist jetzt ein gutes stück schneller.


Code:
#RequireAdmin
#NoTrayIcon

#Region
    #AutoIt3Wrapper_Icon=d3equipment.ico
    #AutoIt3Wrapper_Compile_Both=y
    #AutoIt3Wrapper_UseX64=y
    #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#EndRegion

#include "Misc.au3"

Global $ApplicationName = "d3equipment"
Global $Paused

If FileExists("d3equipment_keys.ini") = False Then
    MsgBox(0, "[" & $ApplicationName & "]", "Bitte starte zuvor den Konfigurator.")

    Exit 1
EndIf

$SwitchKey = IniRead("d3equipment_keys.ini", "Global", "Switch", "SPACE")
$ExitKey = IniRead("d3equipment_keys.ini", "Global", "Exit", "SPACE")
HotKeySet("{" & $SwitchKey& "}", "Change")
HotKeySet("{PAUSE}", "Pause")
HotKeySet("{" & $ExitKey & "}", "Terminate")

If _Singleton($ApplicationName & ".exe", 1) = 0 Then	; Danke an TheOnlyOne652089
    MsgBox(0, "[" & $ApplicationName & "]", $ApplicationName & ".exe läuft bereits.")
    Exit
Endif

MsgBox(0, "[" & $ApplicationName & "]", "Betätige in Diablo III beliebig oft die " & $SwitchKey & "-Taste um schnellstmöglich dein Equipment" & _
    @LF & "zu wechseln." & _
    @LF & _
    @LF & "Um das Programm zu beenden drücke die " & $ExitKey & "-Taste, um es zu pausieren die PAUSE-Taste." & _
    @LF & _
    @LF & "ACHTUNG! Die oben angegebenen Tasten (" & $SwitchKey & "- und " & $ExitKey & "-Taste) können, während dieses" & _
    @LF & "Programm läuft, nicht anderweitig verwendet werden - es sei denn du drückst die PAUSE-Taste!" & _
    @LF & _
    @LF & "Viel Spaß! :-)")

While True
    ; ...

    Sleep(5)
WEnd

Func Change()
    If WinActive("Diablo III") = True Then
        Dim $Count = IniRead("d3equipment_keys.ini", "Global", "Keys", 0)
        Dim $Count2nd = IniRead("d3equipment_keys.ini", "Global", "ALTKeys", 0)

        If $Count = 0 And $Count2nd = 0 Then
            MsgBox(0, "[" & $ApplicationName & "]", "Die Konfigurationsdatei ist fehlerhaft!" & _
                @LF & _
                @LF & "Das Programm wird beendet - bitte starte den Konfigurator.")

            FileDelete("d3equipment_keys.ini")

            Exit 1
        Else
            Dim $OldPosition = MouseGetPos()

            BlockInput(1)	; Danke an TheOnlyOne652089

            Send("{s}")		; Danke an TheOnlyOne652089
            Sleep(2)

            Send("{i}")
            Sleep(2)

            For $x = 1 to $Count
                Dim $Position = StringSplit(IniRead("d3equipment_keys.ini", "Positions", "" & $x & "", "0"), ",")

                MouseMove($Position[1], $Position[2], 1)
                Sleep(2)

                MouseClick("right")
                Sleep(2)
            Next

            For $y = 1 to $Count2nd
                Dim $Position2nd = StringSplit(IniRead("d3equipment_keys.ini", "Positions2nd", "" & $y & "", "0"), ",")

                MouseMove($Position2nd[1], $Position2nd[2], 1)
                Sleep(2)

                Send("{ALTDOWN}")
                Sleep(2)

                MouseClick("right")
                Sleep(2)

                Send("{ALTUP}")
                Sleep(2)
            Next

            Send("{i}")
            Sleep(2)

            MouseMove($OldPosition[0], $OldPosition[1], 1)
            Sleep(5)

            BlockInput(0)	; Danke an TheOnlyOne652089
        EndIf
    Else
        MsgBox(0, "[" & $ApplicationName & "]", "Um diese Taste außerhalb von Diablo III verwenden zu können solltest du das Programm" & _
            @LF & "vorerst beenden - denn diese ist mit einer Funktion des Programms belegt.")
    EndIf
EndFunc

Func Pause()
    $Paused = Not $Paused

    If $Paused = True Then
        HotKeySet("{" & $SwitchKey& "}")
        HotKeySet("{" & $ExitKey & "}")

        While True

            Sleep(2)
        WEnd
    Else
        HotKeySet("{" & $SwitchKey& "}", "Change")
        HotKeySet("{" & $ExitKey & "}", "Terminate")
    EndIf
EndFunc

Func Terminate()
    MsgBox(0, "[" & $ApplicationName & "]", "Das Programm wird nun beendet." & _
        @LF & _
        @LF & "Für Bug-Reports/Kritik bin ich im Forum (epvp) gerne zu haben. :-)")

    Exit 1
EndFunc
Attached Files
File Type: rar d3eq.rar (298.3 KB, 18 views)
Xavlepuk is offline  
Thanks
1 User
Old   #51
 
elite*gold: 50
Join Date: May 2008
Posts: 2,216
Received Thanks: 1,821
Achja zum Thema "Die Hotkey Tasten können nicht anderweitig verwendet werden".


Das geht schon, indem in der Funktion des Hotkey einfach der Hotkey nochmal "zusätzlich" am Ende gesendet wird (oder direkt am Anfang).


Die Hotkey Funktion in AutoIT "consumed" den Send des Buttons, entsprechend muss man ihn einfach "erneut" senden. Macht man das innerhalb der Hotkey Funktion "sollte" der Send den Hotkey nicht erneut triggern (wenn doch controlsend testen, ich meine das funktioniert).

Sollte es mit normalen "Send" nicht funktionieren einfach Controlsend benutzen, das sowieso einfach besser.


Beispiel:

Code:
HotKeySet("{" & $SwitchKey& "}", "Change")
Func Change()

  Send ($SwitchKey)

; ...

Endfunc
TheOnlyOne652089 is offline  
Old   #52
 
elite*gold: 0
Join Date: Jun 2010
Posts: 18
Received Thanks: 0
Mich würde mal interessieren inwiefern das nützlich ist/bzw wie schnell die items geswichted sind. Reicht es theoretisch, wenn der letzte mob von dem pack bei 5% ist, einfach die taste zu drücken und den umzuklatschen?
Marco1987 is offline  
Old   #53
 
elite*gold: 50
Join Date: May 2008
Posts: 2,216
Received Thanks: 1,821
Quote:
Originally Posted by Marco1987 View Post
Mich würde mal interessieren inwiefern das nützlich ist/bzw wie schnell die items geswichted sind. Reicht es theoretisch, wenn der letzte mob von dem pack bei 5% ist, einfach die taste zu drücken und den umzuklatschen?
Ohne sleeps dauert es vielleicht 0,5 sekunden.

Selbst wenn es "schneller" geht liegt die Geschwindigkeit nicht am Script, sondern einfach weil das Spiel selbst zu langsam ist.

Deine Frage funktioniert und genau dafür macht das ganze auch erst überhaupt Sinn ; den mitten im Kampf das Equipment per Hand zu wechseln ist komplett quarkig.
TheOnlyOne652089 is offline  
Old   #54
 
elite*gold: 20
Join Date: May 2009
Posts: 3,840
Received Thanks: 434
wie siehts eig mit bann aus wurde schon jemand wegen diesem prog gebannt?
Mecco-Pekko is offline  
Old   #55
 
elite*gold: 0
Join Date: Jul 2009
Posts: 1
Received Thanks: 0
Ich führe alles wie hier bzw. in der Konfig exe beschrieben aus, allerdings kommt stets die Meldung das ich keine Positionen festgelegt habe, obwohl ich im Inventar über jedes zu wechselende Item mit Leertaste drübergegangen bin und mit Esc am Ende bestätigt habe. Wo könnte mein Fehler liegen?
duke1989 is offline  
Old   #56
 
elite*gold: 0
Join Date: Jun 2011
Posts: 20
Received Thanks: 0
Wäre toll, wenn hijax das script nochmal ohne sleep basteln könnte Habe leider keinen Plan von Autoit.
dpsriell is offline  
Old   #57
 
elite*gold: 0
Join Date: Jul 2005
Posts: 9
Received Thanks: 1
Wie was BANN?
Nen BANN gibts nur, wenn man laut den Nutzungsbedinungen fürs Battle.NET den Speicher ändert etc. pp. Und da dies hier eben nicht geschieht, ist es auch nicht relevant! Wenn man sich dennoch in die Hose macht; sollte man es eben lassen..

Zum no sleep / Sleep(0): Würde ich von Abraten, da daß Programm nur so schnell handeln kann, wie die jeweilige Engine er kann und die Millisekunden sind. Ergo reichen eigentlich 5-10 bei 20 bis 75ms - ohne Lag!

EQ.au3 mit Sleep(10):
EQ_Konf.au3 mit Sleep(10):
rawthang is offline  
Old   #58
 
elite*gold: 0
Join Date: Mar 2012
Posts: 28
Received Thanks: 0
Top
Warp10 is offline  
Old   #59
 
elite*gold: 0
Join Date: Jun 2012
Posts: 1
Received Thanks: 0
Funktioniert eigentlich ganz gut, aber wäre es möglich das Script so zu schreiben dass wärend der zeit wo das euip geswitcht wird die maus etc geblockt wird, denn wenn ich meine Maus nur bisschen bewege werden die hälfte der items nicht geswitcht.

Gruß buffthell
buffthell is offline  
Old   #60
 
elite*gold: 0
Join Date: Jun 2011
Posts: 20
Received Thanks: 0
Quote:
Originally Posted by rawthang View Post
Wie was BANN?
Nen BANN gibts nur, wenn man laut den Nutzungsbedinungen fürs Battle.NET den Speicher ändert etc. pp. Und da dies hier eben nicht geschieht, ist es auch nicht relevant! Wenn man sich dennoch in die Hose macht; sollte man es eben lassen..

Zum no sleep / Sleep(0): Würde ich von Abraten, da daß Programm nur so schnell handeln kann, wie die jeweilige Engine er kann und die Millisekunden sind. Ergo reichen eigentlich 5-10 bei 20 bis 75ms - ohne Lag!

EQ.au3 mit Sleep(10):
EQ_Konf.au3 mit Sleep(10):
Besten Dank, wie mach ich daraus nun eine .exe?

edit: habs hinbekommen
Grüße


dpsriell is offline  
Reply

Tags
diablo iii equipment



« Previous Thread | Next Thread »

Similar Threads
Diablo III - Equip-Changer (Magiefundbonus)
Hallo, Ich habe hier einen (sehr) simplen Equip-Changer, um zwischen Magie-/Goldfundbonus-Equip und Main-Equip zu wechseln. -- 1920x1080 -- ...
151 Replies - Diablo 3 Hacks, Bots, Cheats & Exploits
Autoequipper für HB?
Grüße! Nach langem Lesen vieler Themen suche ich immernoch einen funktionstüchtigen Autoequipper. Ob als Plugin für einem Bot oder Addon ist mir...
2 Replies - WoW Bots



All times are GMT +2. The time now is 17:00.


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.