WoW & HB Autostart + Login (Scripts)

Keleg · Jan 25, 2014

Ich habe nun etwa 6 Stunden damit verbracht mich durch Googel zu w?hlen. Ich habe nicht viel Ahnung von solchen Scripts aber ich habe es geschafft und m?chte es gerne mit euch teilen.

Das ganze ist nun angepasst auf ein Full HD Display! Ebenfalls ist mein Rechner recht schnell, es kann sein dass ihr die Zeiten ab?ndern m?sst.

Falls ihr World of Warcraft z.B. nur 2x Starten wollt, entfernt in der Batch Datei einfach den dritten "WoW3" abschnitt. Und ganz unten die dritte HB.exe und den dazu geh?rigen timeout. Den Batch teil speichert ihr als NAME.BAT ab.

Sollte das ganze zu schnell f?r euren PC ablaufen, k?nnt ihr die Zeiten zwischen den Schritten an den "timeout /T 14 /nobreak" Stellen ?ndern.

Vergesst bitte nicht den Pfad wie z.B. "D:\Spiele\World of Warcraft\Wow.exe" dem Pfad von eurem WoW und HB anzupassen.

Wenn ihr mehrere Bots laufen lassen wollt Editiert in der VBS eure Accountdaten (EMAIL & Passwort), speichert sie als "WoW1.vbs", WoW2.vbs" & "WoW3.vbs" ab. Alle Dateien in den selben Ordner!

In den AutoIT Scripts "au3" k?nnt ihr die Position der Fenster einstellen, momment sind sie auf einen Full HD Monitor angepasst. Speichert diese als "WoW1.au3", "WoW2.au3", "WoW3.au3". Ladet euch die "AutoIt3.exe" runter und schiebt sie mit all den anderen Sachen in einen Ordner.

1. Teil - Batch

Code:

@echo off
echo -----------------------
echo #######################
echo # Starte "WoW1"       #
echo #######################
echo -----------------------
start "WoW1" "D:\Spiele\World of Warcraft\Wow.exe"
timeout /T 14 /nobreak
start "D:\Spiele\World of Warcraft\AutoIt3.exe" WoW1.au3
echo #######################
echo # Logge in "WoW1" ein #
echo #######################
echo -----------------------
pushd %~dp0
cscript WoW1.vbs
timeout /T 18 /nobreak

echo #######################
echo # Starte "WoW2"       #
echo #######################
echo -----------------------
start "WoW2" "D:\Spiele\World of Warcraft\Wow.exe"
timeout /T 14 /nobreak
start "D:\Spiele\World of Warcraft\AutoIt3.exe" WoW2.au3
echo #######################
echo # Logge in "WoW2" ein #
echo #######################
echo -----------------------
cscript WoW2.vbs
ping /n 18 localhost >nul

echo #######################
echo # Starte "WoW3"       #
echo #######################
echo -----------------------
start "WoW2" "D:\Spiele\World of Warcraft\Wow.exe"
timeout /T 14 /nobreak
start "D:\Spiele\World of Warcraft\AutoIt3.exe" WoW3.au3
echo #######################
echo # Logge in "WoW3" ein #
echo #######################
echo -----------------------
cscript WoW3.vbs
timeout /T 18 /nobreak

echo #######################
echo # Starte "Bot" 3x     #
echo #######################
echo -----------------------
start "HB1" "D:\Programme\HonorBuddy\Honorbuddy.exe"
timeout /T 3 /nobreak
start "HB2" "D:\Programme\HonorBuddy\Honorbuddy.exe"
timeout /T 3 /nobreak
start "HB3" "D:\Programme\HonorBuddy\Honorbuddy.exe"
timeout /T 3 /nobreak
exit

2. Teil - VBS

Code:

set WshShell = WScript.CreateObject("WScript.Shell")
wscript.sleep 1000
wshshell.sendkeys "EMAIL"
wscript.sleep 1000
wshshell.sendkeys "{TAB}"
wscript.sleep 1000
wshshell.sendkeys "PASSWORT"
wscript.sleep 1000
wshshell.sendkeys "{enter}"
wscript.sleep 7000
wshshell.sendkeys "{enter}"

3 Teil - AutoIT

WoW1.au3

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.2
 Author:         Keleg

 Script Function:
	Fenster positionieren

#ce ----------------------------------------------------------------------------



WinSetTitle("World of Warcraft", "", "WoW1")

WinActivate ( "WoW1" , "")

$windowTitleContains = "WoW1"

Opt("WinTitleMatchMode", 3)

$winX = 0
$winY = 0

$winWidth = 637 - $winX*2
$winHeight = 511 - $winY

$var = WinList()

For $i = 1 to $var[0][0]
  $windowTitle = $var[$i][0]
  $containsTitle = StringInStr($windowTitle,$windowTitleContains)
  If $windowTitle <> "" AND IsVisible($windowTitle) AND 0 <> $containsTitle Then
    ResizeWindowWithExactTitle($windowTitle)
  EndIf
Next

Exit

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf
EndFunc

Func ResizeWindowWithExactTitle($winTitle)
    If WinExists($winTitle) Then
        WinMove($winTitle, "", $winX, $winY, $winWidth, $winHeight)
    EndIf
 EndFunc

 Exit

WoW2.au3

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.2
 Author:         Keleg

 Script Function:
	Fenster positionieren

#ce ----------------------------------------------------------------------------
WinSetTitle("World of Warcraft", "", "WoW2")

WinActivate ( "WoW2" , "")

$windowTitleContains = "WoW2"

Opt("WinTitleMatchMode", 3)

$winX = 637
$winY = 0

$winWidth = 1274 - $winX
$winHeight = 511 - $winY

$var = WinList()

For $i = 1 to $var[0][0]
  $windowTitle = $var[$i][0]
  $containsTitle = StringInStr($windowTitle,$windowTitleContains)
  If $windowTitle <> "" AND IsVisible($windowTitle) AND 0 <> $containsTitle Then
    ResizeWindowWithExactTitle($windowTitle)
  EndIf
Next

Exit

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf
EndFunc

Func ResizeWindowWithExactTitle($winTitle)
    If WinExists($winTitle) Then
        WinMove($winTitle, "", $winX, $winY, $winWidth, $winHeight)
    EndIf
 EndFunc

 Exit

WoW3.au3

Code:

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.2
 Author:         Keleg

 Script Function:
	Fenster positionieren

#ce ----------------------------------------------------------------------------
WinSetTitle("World of Warcraft", "", "WoW3")

WinActivate ( "WoW3" , "")

$windowTitleContains = "WoW3"

Opt("WinTitleMatchMode", 3)

$winX = 1274
$winY = 0

$winWidth = 1911- $winX
$winHeight = 511 - $winY

$var = WinList()

For $i = 1 to $var[0][0]
  $windowTitle = $var[$i][0]
  $containsTitle = StringInStr($windowTitle,$windowTitleContains)
  If $windowTitle <> "" AND IsVisible($windowTitle) AND 0 <> $containsTitle Then
    ResizeWindowWithExactTitle($windowTitle)
  EndIf
Next

Exit

Func IsVisible($handle)
  If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
  Else
    Return 0
  EndIf
EndFunc

Func ResizeWindowWithExactTitle($winTitle)
    If WinExists($winTitle) Then
        WinMove($winTitle, "", $winX, $winY, $winWidth, $winHeight)
    EndIf
 EndFunc

 Exit

Mein Ordner als Bild:
http://s1.directupload.net/images/140125/3jrghwcs.png

Dandrob · Jan 25, 2014

Also ist das HBrelog und Arelog ein bisschen schwerer und komplizierter ??

Aber sonst nice Arbeit ich h?tte es nicht hinbekommen

Sent from my HTC One S using TheBuddyForum mobile app

Master878 · Jan 25, 2014

Das sieht ja gut aus. Wo bekomme ich die "AutoIt3.exe" her?

Keleg · Jan 26, 2014

AutoIT:
AutoIt v3.3.10.0 Released - AutoItScript

Naja habe mit dem HBRelogg und Arelogg oft Probleme. Also hab ich mir selber was gebastelt und muss nicht einmal meine accountdaten in irgent einem Programm eintragen.

Corleone · Jan 26, 2014

Das zu scripten hat dich sicher ne Menge Zeit gekostet.
Aber die Idee ist nicht schlecht... dickes Lob.

Wenn ich mal bissl Zeit hab, versuch ich mal das Ganze in einem einzigen VBScript zusammenzufassen.
Sollte nicht allzu schwer sein.

Keleg · Jan 28, 2014

Danke dir! Das waren etwa 6 Stunden der Wut und Verzweiflung!

Danke dir, bin auch Stolz auf mich... ist das erste mal dass ich sowas hinbekommen habe.

Search

Search

WoW & HB Autostart + Login (Scripts)

Keleg

New Member

Dandrob

Active Member

Master878

New Member

Keleg

New Member

Corleone

Well-Known Member

Keleg

New Member