Vbscript jelppii, botti

Boten Anna

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.

4

865

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Boten Anna

      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..?

    • Boten Anna

      Oho. Ei antanut tota HTML...
      Tossa:


      Pelaa koko ruudulla

      • Boten Anna

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


      • Boten Anna
        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ää...


    Ketjusta on poistettu 1 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Kela valvoo lasten tilejä.

      Tämä isoveli Kela kyttää jopa lasten yli 200,- euron rahat jotka on melko varmasti lahjaksi saatu. Se vaikuttaa perheen
      Yhteiskunta
      258
      2776
    2. Nainen, tervetuloa

      Tule luokseni eka vaikka viikoks tai pariksi. Saisin helliä, kannustaa ja tukea sua ja kokata lempi herkkujasi. Pääsisit
      Ikävä
      12
      1805
    3. Mitä haluaisit sanoa hänelle

      Nyt tällä hetkellä?
      Ikävä
      123
      1634
    4. TTK-tähti Saana Akiola paljasti tv-ohjelmassa tapahtuneen ahdistelun

      Olisko pitänyt suunnitella ulostulo paremmin? Nyt lehdet soittelevat kaikki 8 läpi ja kuusi sanoo ettei koskenut häntä.
      Maailman menoa
      16
      1522
    5. Elisa laskuttaa jo sähköpostilaskusta erikseen euron

      Paperilaskuista on otettu lisämaksua jo ajat sitten, mutta nyt Elisa ottaa euron siitä että lähettävät sähköisen laskun
      Maailman menoa
      97
      1384
    6. Oho! Susanna Laine kohtasi epäonnea lomareissulla Italiassa - Avaa tilannetta: "Vähän sahaavaa..."

      Ou nou! Tsemppiä kuitenkin loppulomaan Italiassa, Susanna Laine ja mahdollinen seuralainen! Lue lisää ja katso kuvat:
      Suomalaiset julkkikset
      7
      1220
    7. Väliämme on noin 6 km

      Niin lähellä ja niin kaukana. Sinä olet kotona, minä olen kotona. Olet jo unessa. Mutta kun herään, olet jo töissä ja vä
      Ikävä
      9
      983
    8. Odotatko vielä

      Häntä?????
      Ikävä
      61
      948
    9. Ensitreffit alttarilla Jyrki paljastaa hääyön intiimiasioista kameroiden sammuttua: "Fyysinen..."

      Ooo-la-laa… Ensitreffit alttarilla -sarjassa alkaa hääparien välillä ns. tunteet kuumenemaan. Lue lisää: https://www.s
      Ensitreffit alttarilla
      1
      925
    10. Mikä biisi

      Kuvaa sinun ja kaivattusi tämänhetkistä tilannetta? Laittakaa biisejä tulemaan ❤️
      Ikävä
      56
      918
    Aihe