Beiträge von Schrubber

Schrubber

Ok habe die Links angepasst und direkt ein Update hochgeladen:

-> Bei Registry.exe muss nun auch noch der WoW Pfad (Bsp: D:\World of Warcraft) eingetragen werden.
-> Da WoW bei manchen ja schneller, bei manchen aber auch langsamer startet, habe ich die Funktion des
Logins auf NumPad1 gelegt. wenn man sich also einloggen will, soll man NUMPAD 1 drücken. Das Tool schließt
sich nach dem Login direkt.

Version 1.0

Rubberducky

Schrubber

Hallo Leute,

Ich wollte euch mal meinen WoW Reg-Writer und WoW-Launcher vorstellen.

DownloadLink Rar-Archiv

WoW-Launcher:

Spoiler anzeigen

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$wowpath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', 'Installpath')
$Account = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname")
$Password = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password")
$wowexe = $wowpath & "\wow.exe"

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Rubberducky´s WoW-Launcher 2009", 623, 396, 192, 124)
GUISetBkColor(0x000000)
$Header = GUICtrlCreateLabel("Rubberducky´s World of Warcraft Launcher", 72, 24, 501, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x800000)
$Label_Accountname = GUICtrlCreateLabel("Accountname:", 56, 152, 119, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label_Password = GUICtrlCreateLabel("Password:", 86, 196, 86, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Youraccoount = GUICtrlCreateInput($Account, 192, 152, 217, 21)
$Yourpassword = GUICtrlCreateInput($Password, 191, 200, 217, 21)
$StartandLogin = GUICtrlCreateButton("Start & Login", 16, 272, 137, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Onlylogin = GUICtrlCreateButton("Login only", 160, 272, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Exit = GUICtrlCreateButton("Exit", 313, 273, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
$Copyright = GUICtrlCreateLabel("© by Rubberducky @ UWC. All rights reserved. 2009", 304, 368, 305, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$UWC = GUICtrlCreateButton("Visit UWC", 465, 272, 145, 33, 0)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Startandlogin
ShellExecute($wowexe)
WinActivate("World of Warcraft")
Sleep(11000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(4000)
Case $Onlylogin
WinActivate("World of Warcraft")
Sleep(10000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(1000)
Case $UWC
shellexecute("www.uwcrew.eu")
EndSwitch
WEnd

WoW Reg-Writer:

Spoiler anzeigen

#include <GUIConstantsEx.au3>
$1 = InputBox("Accountname!", "Please insert the Accountname. Bitte geben sie den Accountnamen ein.", "")
$2 = InputBox("Password:!", "Please insert the Password. Bitte geben sie das Passwort ein.", "")
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname", "REG_SZ", $1)
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password", "REG_SZ", $2)

Was er tut: WoW starten und mit den durch WoW Reg-Writer eingetragenen Daten einloggen.

Kritk und Verbesserungsvorschläge gerne gesehen

Rubberducky

Schrubber

Zitat von bandido1

er wusste nich wie er es verbindn kann denke ich

also
[autoit]
&
[/autoit]

Genau so wars, danke

Schrubber

Ja, aber da er in der Registry hinterlegt ist, lässt er sich mit

[autoit]

$wowpath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', 'Installpath')

[/autoit]

auslesen

Schrubber

Hi Leute, ich habe derweil 2 Skripts:

Das ist mein Launcher

[autoit]

#include <GUIConstantsEx.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Timmy\Desktop\Autoit\WoW-Starter.kxf
$WoW = GUICreate("World of Warcraft Auto Starter / Login © Rubberducky 2008", 633, 447, 194, 128)
GUISetIcon("D:\World of Warcraft\Wow.exe")
GUISetCursor(3)
GUISetBkColor(0x000000)
$Headline = GUICtrlCreateLabel("World of Warcraft Game Starter and Auto Login", 24, 24, 583, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x8022)
$Startandlogin = GUICtrlCreateButton("Start and Login", 16, 400, 177, 33, 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Onlylogin = GUICtrlCreateButton("Only Login", 227, 400, 177, 36, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Exit = GUICtrlCreateButton("Exit", 448, 400, 177, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Label1 = GUICtrlCreateLabel("Accountname:", 16, 184, 186, 36)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Label2 = GUICtrlCreateLabel("Password:", 72, 246, 126, 33)
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$wowexecutable = (wow.exe)
$1 = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname")
$2 = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password")
GUICtrlCreateInput($2, 201, 248, 281, 21)
GUICtrlCreateInput($1, 201, 193, 281, 21)
$Label3 = GUICtrlCreateLabel("Charslot:", 88, 299, 108, 33)
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
GUISetState(@SW_SHOW)
GUICtrlCreatePic("background.jpg", 1, 1, 663, 447)
#EndRegion ### END Koda GUI section ###
$wowpath = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', 'Installpath')
$wowexe = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', 'Exedatei')
$Account = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname")
$Password = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Exit
Exit
Case $Startandlogin
ShellExecute($wowexe)
WinActivate("World of Warcraft")
Sleep(7000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(4000)
Case $Onlylogin
WinActivate("World of Warcraft")
Sleep(7000)
Send("{LCTRL}")
Send("{A}")
Send("{BS}")
Send($Account)
Send("{TAB}")
Send($Password)
Send("{ENTER}")
Sleep(1000)
EndSwitch
WEnd

[/autoit]

Das ist meine reg-write exe:

[autoit]

#include <GUIConstantsEx.au3>
$1 = InputBox("Accountname!", "Please insert the Accountname. Bitte geben sie den Accountnamen ein.", "")
$2 = InputBox("Password:!", "Please insert the Password. Bitte geben sie das Passwort ein.", "")
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Accountname", "REG_SZ", $1)
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Password", "REG_SZ", $2)
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft', "Exedatei", "REG_SZ", $3)

[/autoit]

Nun frage ich euch: Ich brauch für meinen Launcher (Quellcode1) einen Befehl, der die $wowpath nimmt. Die ist bei mir:

D:\World of Warcraft 2.3.3\

ZU diesem $wowpath soll noch die datei: wow.exe angehängt werden. Sodass ich nicht immer den Pfad sagen soll, sondern das Tool sich die Daten aus der Reg zieht. Nun soll das 2te Tool auch diesen Pfad ($wowpath\wow.exe) in die Reg schreiben, nur weiß ich nicht, wie ich die $wowpath vorne einfügen kann, sodass es auf jedne User angepasst wird.

Schrubber

Hallo liebe Autoit-Community,

Ich habe eine kleine Frage.

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <misc.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("WoW Bagseller", 273, 140, 193, 125)
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("WoW Bagseller © Rubberducky 2008", 8, 8, 257, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("F4 = Bag", 8, 48, 47, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("F5 = Netherstofftasche", 8, 64, 112, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Label4 = GUICtrlCreateLabel("F6 = Feuerclan", 8, 80, 75, 17)
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

$F4 = SEND("{F4}")
$F5 = SEND("{F5}")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEND

HotKeySet("{NUMPAD1}", "Rucksack")

[/autoit] [autoit][/autoit] [autoit]

Func Rucksack()
MouseClick("Right", 774, 498, 1)
MouseClick("Right", 817, 500, 1)
MouseClick("Right", 858, 496, 1)
MouseClick("Right", 829, 521, 1)
MouseClick("Right", 773, 539, 1)
MouseClick("Right", 815, 537, 1)
MouseClick("Right", 858, 540, 1)
MouseClick("Right", 873, 540, 1)
MouseClick("Right", 771, 579, 1)
MouseClick("Right", 816, 576, 1)
MouseClick("Right", 856, 619, 1)
MouseClick("Right", 900, 619, 1)

EndFunc

[/autoit]

Ich weiß nicht, was daran falsch ist.
Er soll bei klick der Num1 Taste die MouseClicks ausführen, sich nicht schließen, wenn fertig und diesen Vorgang bei bedarf wiederholen, bei erneuten Num1 drücken.

Habe vieles ausprobiert, schaffe es aber nicht, es hinzukriegen.

Danke,

Rubberducky

Schrubber

Soo,

So sieht halt der Ordner aus wo die Charnamen drinstehen...

[Blockierte Grafik: http://nobody1993.no.ohost.de/Autoit/Ordner.JPG] g [Blockierte Grafik: http://nobody1993.no.ohost.de/Autoit/Ordner.JPG] image

Und das is der Pfad zu der Registry, wo drinsteht: D:/World of Warcraft/

Hoffe ihr helft mir weiter

Rubberducky

Schrubber

Ok danke schonmal

Ich mein das so: Er soll, wenn der Char Rubberduck gesucht wird, das ganze Fenster nach Rubberduck durchsuchen ....

Klappt das nicht? :_)

Rubberducky

Schrubber

Hallo Leute.

Ich hätt noch ein paar kleine Fragen....

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Timmy\Desktop\Autoit\WoW-Starter.kxf
$WoW = GUICreate("World of Warcraft Auto Starter / Login © Rubberducky 2008", 633, 447, 194, 128)
GUISetIcon("D:\World of Warcraft\Wow.exe")
GUISetCursor (3)
GUISetBkColor(0x000000)
$Headline = GUICtrlCreateLabel("World of Warcraft Game Starter and Auto Login", 24, 24, 583, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x8022)
$Startandlogin = GUICtrlCreateButton("Start and Login", 16, 400, 177, 33, 0)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Onlylogin = GUICtrlCreateButton("Only Login", 227, 400, 177, 36, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Exit = GUICtrlCreateButton("Exit", 448, 400, 177, 33, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Label1 = GUICtrlCreateLabel("Accountname:", 16, 184, 186, 36)
GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$Label2 = GUICtrlCreateLabel("Password:", 72, 246, 126, 33)
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
$1 = InputBox("Bitte geben sie ihren Accountnamen ein!", "Accountname:", "")
$2 = InputBox("Bitte geben sie ihr Password ein!", "Password:", "")
GUICtrlCreateInput($2, 201, 248, 281, 21)
GUICtrlCreateInput($1, 201, 193, 281, 21)
$Char = GUICtrlCreateList("", 200, 288, 297, 58)
GUICtrlSetData(-1, "Character1|Character2|Character3|Character4|Character5|Character6")
$Label3 = GUICtrlCreateLabel("Charslot:", 88, 299, 108, 33)
GUICtrlSetFont(-1, 19, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x8022)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $Headline

Case $Exit
Exit

Case $Onlylogin
Sleep(5000)

SEND($1)
SEND("{TAB}")
SEND($2)
SEND("{ENTER}")

[/autoit] [autoit][/autoit] [autoit]

Sleep(1000)

If $Char = "Character1" Then
Send("{ENTER}")
EndIf

If $Char = "Char2" Then
Send("{DOWN}{ENTER}")
EndIf

If $Char = "Char3" Then
Send("{DOWN}{DOWN}{ENTER}")
EndIf

If $Char = "Char4" Then
Send("{DOWN}{DOWN}{DOWN}{ENTER}")
EndIf

If $Char = "Char5" Then
Send("{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
EndIf

If $Char = "Char6" Then
Send("{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}")
EndIf

Case $Exit
Exit
EndSwitch
WEnd

[/autoit]

Frage 1: Wie kann ich autoit sagen, dass er sich den Pfad zur WoW.exe des jeweiligen Pcßs selber sucht????
Frage 2: Wie kann ich die Liste (Character1|Character2........|Character6) einer Variabelen zuordnen. Sprich: ich such mir eines aus und dann folgt er der Anweisung? Nurmal hällt er an dem Charbildschirm an und weiß nicht mehr weiter....
Frage 3:Wie kann ich meinem Loader ein Hintergrund Pic geben????
Frage 4: Wie mache ich, dass wenn ich auf start drück, er automatisch in das offene WoW Fenster geht / Eines öffnet??
Frage 5: Dieses Character1 ect soll durch die eigeneen Charnamen gewechselt werden. WoW hat diese Namen als Ordnernamen gespeichert. Wie mache ich, dass er diese ausließt, dort einfügt und dann Ingame auch erkennt?

Danke schonmal

Rubberducky

Schrubber

ALL EDIT:

Habs nun soweit hinbekommen, dass ich denke, dass es fast klappt.

Spoiler anzeigen

[autoit][/autoit]

$Different = InputBox("Bitte die Anzahl aller UNTERSCHIEDLICHEN Verzauberungen eingeben!", "Anzahl:", "")

If $Different = 1 Then
$Verzauberung = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf
If $DIfferent = 2 Then
$Verzauberung1 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge1 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung2 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge2 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf
If $DIfferent = 3 Then

$Verzauberung1 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge1 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung2 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge2 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung3 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge3 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf
If $DIfferent = 4 Then
$Verzauberung1 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge1 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung2 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge2 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung3 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge3 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung4 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge4 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf
If $DIfferent = 5 Then
$Verzauberung1 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge1 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung2 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge2 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung3 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge3 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung4 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge4 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung5 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge5 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf
If $DIfferent = 6 Then
$Verzauberung1 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge1 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung2 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge2 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung3 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge3 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung4 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge4 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung5 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge5 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
$Verzauberung6 = InputBox("Bitte Verzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge6 = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")
EndIf

Sleep(5000)

If $Verzauberung = "Mungo" Then
MouseClick("Right", 212, 207, $Menge * 6)
MouseClick("Right", 208, 307, $Menge * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge * 40)
MouseClick("Left", 39, 460, 6)
EndIf

If $Different = 1 and $Verzauberung = "Mungo" Then
Exit
EndIf

If $Verzauberung2 = "Mungo" Then
MouseClick("Right", 212, 207, $Menge2 * 6)
MouseClick("Right", 208, 307, $Menge2 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge2 *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge2 * 40)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung3 = "Mungo" Then
MouseClick("Right", 212, 207, $Menge3 * 6)
MouseClick("Right", 208, 307, $Menge3 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge3 *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge3 * 40)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung4 = "Mungo" Then

MouseClick("Right", 212, 207, $Menge4 * 6)
MouseClick("Right", 208, 307, $Menge4 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge4 *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge4 * 40)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung5 = "Mungo" Then

MouseClick("Right", 212, 207, $Menge5 * 6)
MouseClick("Right", 208, 307, $Menge5 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge5 *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge5 * 40)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung6 = "Mungo" Then

MouseClick("Right", 212, 207, $Menge6 * 6)
MouseClick("Right", 208, 307, $Menge6 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge6 *
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge6 * 40)
MouseClick("Left", 39, 460, 6)
EndIf

;~ MUNGO VERZAUBERUNGEN FERTIG
;~ MUNGO VERZAUBERUNGEN FERTIG
;~ MUNGO VERZAUBERUNGEN FERTIG
;~ MUNGO VERZAUBERUNGEN FERTIG

If $Verzauberung = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge * 6)
MouseClick("Right", 208, 307, $Menge * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge * 30)
MouseClick("Left", 39, 460, 6)
EndIf

If $Different = 1 and $Verzauberung = "Scharfrichter" Then
Exit
EndIf

If $Verzauberung2 = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge2 * 6)
MouseClick("Right", 208, 307, $Menge2 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge2 * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge2 * 30)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung3 = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge3 * 6)
MouseClick("Right", 208, 307, $Menge3 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge3 * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge3 * 30)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung4 = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge4 * 6)
MouseClick("Right", 208, 307, $Menge4 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge4 * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge4 * 30)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung5 = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge5 * 6)
MouseClick("Right", 208, 307, $Menge5 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge5 * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge5 * 30)
MouseClick("Left", 39, 460, 6)
EndIf

If $Verzauberung6 = "Scharfrichter" Then
MouseClick("Right", 212, 207, $Menge6 * 6)
MouseClick("Right", 208, 307, $Menge6 * 10)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 42, 201, $Menge6 * 6)
MouseClick("Left", 324, 461, 3)
MouseClick("Right", 209, 207, $Menge6 * 30)
MouseClick("Left", 39, 460, 6)
EndIf

;~ SCHARFRICHTER VERZAUBERUNG FERTIG
;~ SCHARFRICHTER VERZAUBERUNG FERTIG
;~ SCHARFRICHTER VERZAUBERUNG FERTIG
;~ SCHARFRICHTER VERZAUBERUNG FERTIG

Exit

[autoit][/autoit]

Nur wenn ich im ersten Dialog Mungo 1 nehme, klappts

Aber bei Anzahl 2 Mungo 1 Scharfrichter 1 gibt er mir dne Fehler:

Zitat

>"D:\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Dokumente und Einstellungen\Timmy\Desktop\Autoit\WoW-Mats.au3"
C:\Dokumente und Einstellungen\Timmy\Desktop\Autoit\WoW-Mats.au3 (62) : ==> Variable used without being declared.:
If $Verzauberung = "Mungo" Then
If ^ ERROR
>Exit code: 1 Time: 13.390

Die Variable is bestimmt kA warum das nicht funktioniert

Rubberducky

Schrubber

Hallo Leute,

ich bins nochmal.

Mein Problem ist diesmal:

Ich hab ein kleines Script versucht zu programmieren, wo an eine bestimmte stelle mehrmals geklickt wird.

[autoit]

$Verzauberung = InputBox("Bitte Vrzauberung vollständig eingeben!", "Verzauberung:", "")
$Menge = InputBox("Bitte die Menge der Verzauberung eingeben!", "Menge:", "1")

[/autoit][autoit][/autoit][autoit]

Sleep(5000)

[/autoit][autoit][/autoit][autoit]

If $Verzauberung = Mungo Then
MouseClick("Left", 212, 207, $Menge*6)
MouseClick("Left", 208, 307, $Menge*10)
MouseClick("Left", 324, 461, 3)
MouseClick("Left", 42, 201, $Menge*8)
MouseClick("Left", 324, 461, 2)
MouseClick("Left", 209, 207, $Menge*40)

Else

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

EndIf
Exit

[/autoit]

Er soll die oben festgelegte Menge mit meiner vorher benötigten Anzahl Multiplizieren.

Nach start und Eingabe, wart ich die 5 Sekunden.

Error:

Line -1:
Error: Error parsing function call.

Habe alles probiert, will aber nicht klappen

Hoffe ihr könnt mir helfen.

// Rubberducky //

Schrubber

Guuuut

Danke

Bin mit meinem Tool fertig geworden, funktioniert einwandfrei

Rubberducky

Schrubber

Sorry, wenns jetzt so wirkt, als ob ich euch die Arbeit machen lassen will.

Nur: Wie lass ich das Programm das auslesen?

Hab mich versucht:

[autoit]

WinList ()

[/autoit][autoit]

$Task1 = GUICtrlCreateList("$array[0][0] ", 188, 192, 113, 19)

[/autoit]

Für jedes der 5 Felder

Nur beim Ausführen kommt das $array xx und nicht das Fenster.

Nebenfrage: Wird das Programm bei klick auf Close marked auch dann nachrücken oder werden maximal 5 anwendungen gezeigt?

Danke,

Rubberducky

Schrubber

Soo, danke ersma für den netten Empfang,

Ich hab den Exit Button nun fertig, nur der Info Button geht nicht.

Ich glaub dein Code is falsch

Er soll ja nicht das Programm schließen

Seite: https://autoit.de/www.google.de

[Blockierte Grafik: http://www.autoit.de/file:///C:/DOK…-screenshot.jpg]_IECreate ("www.google.de") hab ich woanders gefunden, nur da sagt er mir: Wrong Function ect ...

Danke,

Rubberducky

Schrubber

Hallo Leute.

Ich bin neu hier, habe direkt eine Frage.

Ich wollte mir einen All Window Closer schreiben.

Was er macht: Er zeigt mir die offenen Fenster an, soll sie per klick schließen ect.

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=
$AllWindowCloser = GUICreate("All Window Closer", 680, 460, 192, 130)
$Header = GUICtrlCreateLabel("All Window Closer", 224, 40, 298, 53)
GUICtrlSetFont(-1, 26, 400, 0, "Comic Sans MS")
$Marked = GUICtrlCreateButton("Close Marked", 100, 416, 100, 25, 0)
$All = GUICtrlCreateButton("Close All", 250, 416, 100, 25, 0)
$Info = GUICtrlCreateButton("Info", 400, 416, 100, 25, 0)
$Copyright = GUICtrlCreateLabel("© Rubberducky 2008", 528, 8, 125, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Exit = GUICtrlCreateButton("Exit", 550, 416, 100, 25, 0)
$Task1 = GUICtrlCreateList("", 188, 192, 113, 19)
$Task2 = GUICtrlCreateList("", 188, 219, 113, 19)
$Task3 = GUICtrlCreateList("", 188, 247, 113, 19)
$Task4 = GUICtrlCreateList("", 188, 274, 113, 19)
$Task5 = GUICtrlCreateList("", 188, 301, 113, 19)
$Control1 = GUICtrlCreateCheckbox("Control1", 144, 192, 17, 17)
$Control2 = GUICtrlCreateCheckbox("Checkbox1", 144, 219, 17, 17)
$Control3 = GUICtrlCreateCheckbox("Checkbox1", 144, 247, 17, 17)
$Control4 = GUICtrlCreateCheckbox("Checkbox1", 144, 274, 17, 17)
$Control5 = GUICtrlCreateCheckbox("Checkbox1", 144, 301, 17, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit][autoit][/autoit][autoit]

EndSwitch
WEnd

[/autoit]

Das ist das was ich bisher hab.... nur das Design

Meine Frage:

Wie mache ich:

1. Das wenn ich auf einen Knopf drück, dass er dann z.B. das Programm schließt (Exit)
2. Eine Internetseite extern öffnet (URL https://autoit.de/www.meineseite.de)
3. Mir die offenen Fenster in an bestimmten Stellen mit deeren Namen anzeigt.

Danke schonmal

Rubberducky

Beiträge von Schrubber

WoW Reg-Writer & WoW-Launcher

WoW Reg-Writer & WoW-Launcher

Problem mit RegRead

Problem mit RegRead

Problem mit RegRead

Auf Eingabe warten

Gamestarter

Gamestarter

Gamestarter

Error vor Mouseclick

Error vor Mouseclick

Onclick???

Onclick???

Onclick???

Onclick???