Hilfe bei schleife für loginprogramm v.2

Also für euch ahnungslose copypast forenbenutzer:
http://wow.ingame.de/forum/printthread.php?s=6aa45e6400301af9076cd02f92667a54&threadid=154071

Ich verstehe echt nicht wie sich leute sowas rausnehmen, wenn sie gar keine ahnung von dem spiel haben und nur irgendetwas über dritte gehört haben. Ihr seit echt lächerlich.

Zitat

Ich kenn deine IP, daher deine Abgleichdaten auf dem Blizzard Server und daher deinen Akkount in der Char Database

Man du lebst in deiner Traumwelt, wach auf. Soeinen Troll wie dich sollte man bannen.

Also back to topic :

Sorry hatte mit ein paar Trollen zu kämpfen. Die waren zwar 3 niveaulevel unter mir aber in der überzahl...

Zitat von SiLenCa

Naja Spawny... Irgentwie komme ich grade nicht so wirklich klar Ich hatte Probiert, dass für jede Instanz dann nen Neuer Tab erstellt wird, d.h. , wenn 10 ausgewählt ist, das dann 10Tabs oben sind, wo man extra Realm usw auswählen kann. Jedoch funktionierte das nicht, da ich nicht weiss wie man die Tabs wieder löscht, Falls die Anzahl mal wieder kleiner gemacht wird. Aber hier jetzt erstmal mit InputBoxen.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
;~ ;
;~ ; AutoIt Version: 3.0
;~ ; Language: Deutsch
;~ ; Platform: Server2008
;~ ; Author: Sp4wnY
;~ ; Script Function:
;~ ; multylogintool
;~ ;
;/////variblen////////
$login = IniRead("config.ini","WoWAccount1","AccName",False)
$PW = INIRead("config.ini","WoWAccount1","Password",False)
$Server = INIRead("config.ini","WoWAccount1","Realmname",False)
$char = INIRead("config.ini","WoWAccount1","Charnumber",False)
$exe = INIRead("config.ini","xdAccount1","XDexe",False)
$SYlogin = INIRead("config.ini","xdAccount1","SYlogin",False)
$SYPW = INIRead("config.ini","xdAccount1","SYpass",False)
$SYprofile = INIRead("config.ini","xdAccount1","SYprofile",False)
$Herb = INIRead("config.ini","xdAccount1","Herb",False)
$Mineral = INIRead("config.ini","xdAccount1","Mineral",False)

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

Global $flag = 0 , $Input[11], $Input1[11]

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

;///WoW ordner finden////
$regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft", "Installpath")

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

;////Inifehlerchecken////
if $login==False then
MsgBox(0,"Error","Loginname nicht gefunden")
$flag = 1
EndIf
if $PW==False then
MsgBox(0,"Error","Passwort nicht gefunden")
$flag = 1
EndIf
if $Server==False then
MsgBox(0,"Error","Realm nicht gefunden")
$flag = 1
EndIf
if $char==False then
MsgBox(0,"Error","Charakter nicht gefunden")
$flag = 1
EndIf
if $exe==False then
MsgBox(0,"Error","xd-Exe nicht gefunden")
$flag = 1
EndIf
if $SYlogin ==False then
MsgBox(0,"Error","Logindaten von SY fehlen")
$flag = 1
EndIf
if $Herb ==False then
MsgBox(0,"Error","Herb Einstellung fehlt")
$flag = 1
EndIf

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

if $flag = 1 then Exit

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

;/////Gui/////
$Gui = GUICreate("Loginprogramm")
$Tab = GUICtrlCreateTab(0,0,400,400)
$WoW = GUICtrlCreateTabItem("WoW")
$Ilogin = GUICtrlCreateInput($login, 30,30,120,20)
$IPW = GUICtrlCreateInput($PW,30,60,120,20,$ES_PASSWORD)
$Save = GUICtrlCreateButton("Speichern", 100,100)
$SY = GUICtrlCreateTabItem("SY")
$SYIlogin = GUICtrlCreateInput($login, 30,30,120,20)
$SYIPW = GUICtrlCreateInput($PW,30,60,120,20,$ES_PASSWORD)
$SaveSY = GUICtrlCreateButton("Speichern", 100,100)
$Starten = GUICtrlCreateTabItem("Start")
$Anzahl = GUICtrlCreateCombo("1", 30, 30)
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10", "5")
$Start = GUICtrlCreateButton("Starten", 100,100)

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

GUISetState()

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

While 1
Local $Tab[99]
$Gmsg = GUIGetMsg()

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

Switch $Gmsg
Case $GUI_EVENT_CLOSE
Exit
Case $Save
IniWrite("config.ini","WoWAccount1","AccName", GUICtrlRead($Ilogin))
IniWrite("config.ini","WoWAccount1","Password", GUICtrlRead($IPW))
MsgBox(0,"","Daten wurden gespeichert,")
Case $SaveSY
IniWrite("config.ini","xdAccount1","SYlogin", GUICtrlRead($SYIlogin))
IniWrite("config.ini","xdAccount1","SYpass", GUICtrlRead($SYIPW))
MsgBox(0,"","Daten wurden gespeichert,")
Case $Start
For $i = 1 To GUICtrlRead($Anzahl)
$Input[$i] = InputBox("Server","Bitte gib den Namen deines servers hier ein.")
$Input1[$i] = InputBox("Charslot","Bitte gib den Slot für deinen Character an.")
If @error = 1 Then ExitLoop
_A()
_B()
Next
EndSwitch
WEnd

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

Func _A()
;//////configdatei edit////
$id=FileOpen($regread & "\WTF\Config.wtf",1)
FileWriteLine($id,"SET realmName"&" "& $Input[$i])
FileWriteLine($id,"SET lastCharacterIndex"&" "& $Input1[$i])
FileClose($id)

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

;/////wowstarten/////
Run($regread & "/wow.exe")
Sleep(100)
WinWaitActive("World of Warcraft")
sleep(1000)
WinActivate("World of Warcraft")
Sleep(6550)
WinMove("World of Warcraft", "", 0, 0, 328, 267)
WinSetTitle("World of Warcraft", "", $login)
Send($login & "{TAB}" & $PW & "{ENTER}")
sleep(7000)
Send("{ENTER}")
Sleep(10000)
EndFunc

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

Func _B()
;////B starten///
Run($exe)
sleep(1000)
$exe = StringReplace( $exe, ".exe", "" )
WinActivate("SY:"&" "&$exe)
sleep(1000)
Send("{TAB}"&$SYlogin & "{TAB}" &$SYPW & "{TAB}"&"{ENTER}")
sleep(2000)
Send("{TAB}"&"{RIGHT}"&"{TAB 2}"&"{ENTER}"&"{UP}"&$SYprofile&"{TAB 9}"&"{RIGHT}")
If $Herb = "FALSE" Then Send("{TAB 2}"&"{SPACE}")
If $Mineral = "FALSE" Then Send("{TAB 3}"&"{SPACE}")
WinActivate($exe)
Send("{TAB 2}"&"{ENTER}")
WinSetState($exe, "", @SW_MINIMIZE)
EndFunc

[/autoit]

Kannst ja selber noch nen bisschen rumprobieren, ich gucke jetzt TV und bin vor Morgen nicht mehr hier.

Edit: So nun will ich auch nochwas zu euren "Problemen" sagen.

1. Loginscripte sind hier im Forum nicht verboten.
2. Ist sogenanntes "Multiboxing" (Spielen mit mehreren Accounts) von Blizzard erlaubt. Sie kriegen doch ihr Geld für jeden Account, warum sollte sie es stören ?

Alles anzeigen

Also vielen Dank erstmal, ich hab dich mal in ICQ geaddet.

Ich probiere dann mal weiter rum. Hoffentlich verstehe ich noch was du gemacht hast, hehe