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

864

    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. Haluaisitko nähdä

      Hänet alastomana?
      Ikävä
      71
      3240
    2. Hilirimpsistä

      Hyvää huomenta ja kivaa päivää. Ilmat viilenee. Niin myös tunteet. 🧊☕✨🍁❤️
      Ikävä
      201
      2832
    3. Nainen lopeta pakoon luikkiminen?

      Elämä ei oo peli 😔😟
      Ikävä
      22
      2648
    4. Älä elättele

      Toiveita enää. Ihan turhaa. Sotku mikä sotku.
      Ikävä
      49
      2608
    5. Olet täällä. Mutta ei minulle.

      Nyt olen tästä 100% varma. Satuttaa. T: V
      Ikävä
      20
      2486
    6. Kuule rakas...

      Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl
      Ikävä
      41
      2325
    7. Miten hitsissä ulosoton asiakas?

      On tää maailma kumma, tässä haisee suuri kusetus ja ennennäkemättömän törkeä *huijaus*! Miten to.monen kieroilu on edez
      Kotimaiset julkkisjuorut
      210
      1783
    8. Törmättiin tänään

      enkä taaskaan osannut reagoida fiksusti. Menen aina lukkoon. Yksi asia on varma: tunteeni sinua kohtaan ovat edelleen v
      Ikävä
      24
      1727
    9. Vieläkö sä

      Rakastat mua?❤️😔
      Ikävä
      37
      1600
    10. Dear mies,

      Hymyiletkö ujosti, koska näet minut? 😌
      Ikävä
      18
      1446
    Aihe