.vbs wow AH remote

m4dc0w344 · 8 aug 2011

hallo, ik heb een .vbs action house addon gemaakt als je GEEN wow speelt heb je hier NIKS aan

wat doet het ?
het laat je een paar pagina's van wow zien die je eht beste kan gebruiken wanneer je dingen koopt en dan voor meer verkoopt

tips en tricks zijn altijd welkom

HTML:

strTitle = "World of warcraft speed AH zegt: "
msgbox "Bedankt voor het gebruiken van World of Warcraft speed AH",64 + 0,strTitle 

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "welcome"

strTitle = "World of warcraft speed AH zegt: "
msgbox "Let op!!, iedere keer wanneer u op de pagina \create/ komt dan moet u de pagina ferfreshen dat doet u door middel van (crtl+f5) of door op het peltje dat een rondje formt te kliken ergens links boven", 64 + 0,strTitle


WScript.Sleep 1000
Set shl = CreateObject("Wscript.shell") 
shl.Run "http://eu.battle.net/wow/en/"
strTitle = "World of Warcraft speed AH"
msgbox"log eerst in, wanner u dat gedaan heeft druk dan op ok",48 + 0,strTitle



input1 = msgBox("als u door wilt gaan met \BidPerItem/ klik dan op /ja\. Wanneer u naar \BoyoutPerItem/ wilt klik dan op /nee\",256 + 3, "World of Warcraft speed AH zegt:")

select Case input1
Case vbYes
WScript.Sleep 2000
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?start=0&n=linen%20cloth&filterId=-1&end=20&minLvl=-1&sort=unitBid&maxLvl=-1&qual=1&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=wool+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=runecloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=+Silk+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=mageweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=netherweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=frostweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=embersilk+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false" 
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/create"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+water&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+fire&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+air&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=savage+leather&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?sort=unitBid&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/create"

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "goodbye"

wScript.Sleep 14600
strTitle = "World of Warcraft speed AH zegt:"
msgbox "Let op!!, u heeft lowest big gekozen. Als u de verkeerde heeft gebruikt kunt u de pagina sluiten en de andere kiezen",48 + 0,strTitle
strTitle = "World of warcraft speed AH zegt:"
msgbox "Gemaakt door: M4dc0w344 moo00!!",64 + 0, strTitle 


case vbNo



WScript.Sleep 2000
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?start=0&n=linen%20cloth&filterId=-1&end=20&minLvl=-1&sort=unitBuyout&maxLvl=-1&qual=1&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=wool+cloth+&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=silk+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=runecloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=mageweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=netherweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=frostweave+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=embersilk+cloth&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false" 
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/create"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+water&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+air&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=volatile+fire&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse?n=savage+leather&filterId=-1&minLvl=-1&maxLvl=-1&qual=1&start=0&end=20&sort=unitBuyout&reverse=false"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/browse"
WScript.Sleep 900
Set shl = CreateObject("Wscript.shell") 
shl.Run "https://eu.battle.net/wow/en/vault/character/auction/alliance/create"

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "goodbye"

WScript.Sleep 14880
strTitle = "World of warcraft speed AH zegt:"
msgbox "Gemaakt door: M4dc0w344 moo00!!",64 + 0, strTitle

case vbCancel

strTitle = "World of warcraft speed AH zegt:"
msgbox "toch bedankt voor het gebruiken van World of Warcraft speed AH, wij hopen u snel weer trug tezien",4069 + 0, strTitle

Set vo = CreateObject("SAPI.SpVoice")
vo.speak "goodbye"

strTitle = "World of warcraft speed AH zegt:"
msgbox "Gemaakt door: M4dc0w344 moo00!!",64 + 0, strTitle
end Select

JoZ1 · 9 aug 2011

Even een opmerking over de code:

Waarom geef je strTitle steeds dezelfde waarde als je de MsgBox-functie gebruikt? Dat hoeft maar één keer hoor!

Dit bedoel ik:

Code:

strTitle = "World of warcraft speed AH zegt: "
msgbox "Bedankt voor het gebruiken van World of Warcraft speed AH",64 + 0,strTitle

En even later:

Code:

[COLOR="red"]strTitle = "World of warcraft speed AH zegt: "[/COLOR]
msgbox "Let op!!, iedere keer wanneer u op de pagina \create/ komt dan moet u de pagina ferfreshen dat doet u door middel van (crtl+f5) of door op het peltje dat een rondje formt te kliken ergens links boven", 64 + 0,strTitle

Waar de roodgekleurde regel dus overbodig is.

m4dc0w344 · 9 aug 2011

ok dus ik hoef maar een keer die strTitle voor beeld te maken en dan herkeent ie ze alle maal ?

JoZ1 · 9 aug 2011

Inderdaad.

.vbs wow AH remote

m4dc0w344

Gebruiker

JoZ1

Terugkerende gebruiker

m4dc0w344

Gebruiker

JoZ1

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy