Vbscript jelppii, botti

Terve.
Nyt olis ongelma. Niinkuin Apulanta lauloi...
>>Koodissa on ongelma, jokin virhe ohjelmoinnissa, puuteita koodissa, korvaa arvaamattomuudella. XD (ei ihan noin mut melkein)

Eli siis mulla on seuraavankaltainen Botti:

'Etsi Google
Dim objWshShell,IE,searchStr

Set objWshShell = Wscript.CreateObject("Wscript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
searchStr = InputBox("Kirjoita Google-haku", "Boten Anna")

With IE
.Visible = True
.Navigate "http://www.google.com"

'Odota selainta
Do While .Busy
WScript.Sleep 100
Loop
.Document.getElementsByName("q").Item(0).Value = searchStr
.Document.getElementsByName("btnK").Item(0).Click

End With
With IE
.Visible = True
Do while .Busy
WScript.Sleep 100
Loop
IE.Document.getElementById("gbqfba").Click

End With

Oon yrittänyt kasata koodia eri nettisivuilta ja yrittänyt opetella sitä mukaa kuin oon saanu kasaan.
Eli kysymys on ilmaantunut.
1. Kun "Anna" avaa googlen, se kirjoittaa pyydetyn tekstin hakukenttään mutta sitten ongelmat alkavat. "Anna" ei osaa painaa Google-haku nappia mitä tuolla viimeisellä With osalla yritin saada opetettua. Miten saisin tuon napin painon onnistumaan? Kun klikkaan auennutta IE:n ikkunaa (se aukeaa taustalle, vois vaikuttaa siihen että napin paino ei onnistu) IE löytää kaiken normaalisti ja kaikki toimii... Paitsi "Anna" jonka koodi loppuu tohon.
2. Miten saisin "Annan" painamaan nappia flash sovelluksessa joka pyörii nettisivulla?
3. Tai tunnistamaan tiettyjä kuvia tai tapahtumia flash sovelluksesta.
Muualla on suositeltu käyttämään sovellusta joka saa koneen klikkaamaan tiettyä kohtaa näytössä ja se ei toimi koska koulut ja muut päivittävät sivujaan jolloin ohjelma ei tietenkään toimisi niinkuin toivoisi.
Ja kohdat 2 ja 3 ovat asioita joihin en ole vielä ehtinyt tutustua mutta ajattelin että voisin kysyä nyt topicin kerran avasin.
Jos joku kokeneempi voisi neuvoa.