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.
Ilmianna
Jaa

4 Vastausta



Hei taas.

Sain alun ongelmat selätettyä muokkaamalla koodin toiseen muotoon. Lisäksi sain lisättyä sivun mille olen menossa joten koodi näyttää nyt tältä:

Set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "iexplore.exe",3
wscript.sleep (7000)
WshShell.sendkeys "{F6}"
wscript.sleep (2000)
WshShell.Sendkeys "http://pelikone.fi/pelit/arcade-pelit/Goodgame-Empire/11409"
WshShell.sendkeys "{ENTER}"
wscript.sleep (60000)

Mutta nyt en saa ohjelmaa klikkaamaan painiketta jossa lukee pelaa koko ruudulla. Tuossa on sivun HTML koodi painikkeesta:

Pelaa koko ruudulla

Nyt en siis ymmärrä millä koodilla saan tuon klikkaamaan tuota nappia...?
Onko ratkaisu ison nenän varjossa..?
Ilmianna
Jaa
Oho. Ei antanut tota HTML...
Tossa:

Pelaa koko ruudulla
Kommentoi
Ilmianna
Jaa
2 VASTAUSTA:
No ei vieläkään...?
/script>
ul class="gamepage-action-bar">
li class="gamepage-action" style="position:relative">Pelaa koko ruudulla
Poistin parit < joten jos nyt toimis...
Kommentoi
Ilmianna
Jaa
Boten Anna kirjoitti:
No ei vieläkään...?
/script>
ul class="gamepage-action-bar">
li class="gamepage-action" style="position:relative">Pelaa koko ruudulla
Poistin parit < joten jos nyt toimis...
Osa tuli jo XD
/script>
ul class="gamepage-action-bar">
li class="gamepage-action" style="position:relative">span class="preroll-counter">/span>a rel="nofollow" title="Pelaa koko ruudulla" class="do-fullscreen action-bar-fullscreen disabled dd-pngfix" href="#">Pelaa koko ruudulla/a>/li>
Poistinpa niitä lisää...
Kommentoi
Ilmianna
Jaa
+Lisää kommentti

Ylläpito on poistanut tästä viestin sääntöjen vastaisena.

Ilmianna
Jaa

Vastaa alkuperäiseen viestiin

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.

5000 merkkiä jäljellä

Peruuta