Nyt olen päässyt siihen vaiheeseen, että muodostan linkin, jolla Veikkaukselle voi jättää pelejä (esim. monivetorivejä) sisään. Siirrän linkin WebBrowseriin ja navigoin Veikkauksen tekstikäyttöliittymään ko. sivulle.
Tällä sivulla pitää tallentaa käyttäjätunnus ja salasana sekä painaa hyväksy-painiketta pelin hyväksymisen merkiksi. Tässä kohtaan kaksi ongelmaa.
Käyttäjätunnus ja salasana eivät välity koodilla:
EncodedDataString := 'username=' HTTPEncode(EditUname.Text) '&' 'password=' HTTPEncode(EditPword.Text);
PostData :=
VarArrayCreate([0, length(EncodedDataString)-1], varByte);
for i := 1 to length(EncodedDataString) do
PostData[i-1] := ord(EncodedDataString[i]);
Headers := 'Content-type: application/x-www-form-urlencoded'#10#13;
WebBrowser1.Navigate(Osoite, EmptyParam, EmptyParam, PostData, Headers);
Tuolta sivulta en pääse eteenpäin painamatta hyväksy-painiketta. Nähtävästi homma toimisi, jos teen nuo asiat käsin ja ilmoitan ohjelmalle, kun seuraava peli on valmis jätettäväksi. Tämä toimintatapa ei luonnollisesti kiinnosta, sillä hyväksymispainiketta pitäisi painaa kymmeniä, jopa satoja kertoja.
TWebBrowser
6
458
Vastaukset
- sillai et
hiiri klikkaa sit nappulaa sillai virtuaalisest: hiirtähän voi helposti ohjata ohjelmallisesti niin, että niistä, joilla ei ole tilastotieteistä mitään hajua, näyttää siltä, että jätkällähän on tosinopee hiirinäppi. Tietysti tuota vastaan on kehitetty kaikenmaailman bustereita, jotka yrittävät antaa siitä ohjelmoidusta hiirihyvästä sulle banskui. Kannataa laittaa sihähen niin, että se alkorytmi muuttuu satunnaisesti tai muuten ne alkaa Veikkauksen päässä haisteleen palaneen käryä, kun ne on tilastotiede-experttei, varsinkin, jos alat voittaa silmittömästi ja sit ne haastaa sut oikeuteen ja yrittää saada sulta kivuista ja säryistäkin rahat takas, vaikka sulla ei mitään vilunkia ois ollutkaan, mutta kaikkien pioneerien tie on kivikkoinen juuri tuossa mielessä, sillä ennakkotapauksia ei heidän tapauksissaan vielä ole.
- .-_._-.
Mieti että onko sinulla oikea luokka käytössäsi.
Kannattaisiko ongelmaa lähteä ratkomaan protokollapinosta vähän alemmalla tasolla?
Tarjollahan on vaikka kuinka paljon komponentteja esim :
- Indy
http://www.indyproject.org/
- Real Thin Client
http://www.realthinclient.org/
- Synapse
http://synapse.ararat.cz/
- ICS
http://www.overbyte.be/
- Lnet
http://lnet.wordpress.com/- just_coder
Winhttp tai vanhempiin käyttiksiin winInet tai siihen suuntaan...
- Delphiasiantuntija
Kyllä tähän TWebBrowser on paras lähtökohta.
Teoriassa tietysti voisit hoitaa hommman itse TCP/IP:llä ja olla käyttämättä graafisia kilkkeitä.
Mutta tämäntapaisessa tehtävässä tuo TCP/IP:n päälle itse koodaus on tuhoontuomittu viritys. Kun nimittäin Veikkaus muuttaa palvelimellaan jonkin pienenkin yksityiskohdan, TCP/IP:llä saat koodata kaiken alusta alkaen uudelleen.
Ja voin kokemuksesta kertoa: jotkut http -servereiden pitäjät tarkkailevat jopa sitä, missä järjestyksessä http GET -pyynnön eri header -rivit tulevat (standardien mukaan järjestyksellä ei ole mitään väliä). Ja estävät pääsyn palvelimelleen jos rivit tulevat eri järjestyksessä kuin esim MS Internet explorer ne antaa.
Siksi TWebBrowser on paras ratkaisu: se kun sisäisesti käyttää MS Internet explorerin kanssa samaa webbi"moottoria", siksi kun käytät sitä oikein, niin webbisivuston omistajalla ei ole mitään keinoa erottaa MS Internet exploreria ja omatekoista delphiohjelmaasi toisistaan, sillä palvelimen pääsät katsottuna ne näyttävät täsmälleen samalta.
Tuosta TWebBrowserista on olemassa "jalostetumpi" versio, TEmbeddedWB (ei ole delphissä vakiona vaan löytyy netistä).
Varoitus: JOS käytät TEmbeddedWB:tä, niin ennen moisen virityksen kääntämistä: etsi koodista kaikki kohdat jotka kirjoittavat windowsin rekisteriin ja poista ne!
Muussa tapauksessa TEmbeddedWB paljastaa itsensä web -palvelun ylläpitäjälle typerällä user-agent -rivillään, ja aiheuttaapa vielä senkin, että muokkaamatonta TEmbeddedWB:tä käyttävän delphiohjelman ollessa käynnissä, myös samaan aikaan käynnissä olevalla MS Internet explorerilla tehdyt sivuhaut myös näyttävät palvelmelle TEmbeddedWB:tä user-agent kentässä!
Mutta jois poistat TEmbeddedWB:n koodista kaikki windows rekisteriin kirjoittavat kohdat ennen kääntöä ja ajoa, ongelmaa ei ole.
Tuo komponentti siis kirjoittaa oman nimensä windows -rekisteriin käynnistettäessä ja pyrkii poistamaan sen sieltä Destroy -destruktoria kutsuttaessa (välillisesti siis myös Free ja FraaAndNil -kutsuilla).
Mutta jos tehtävässä on tärkeää, ettei web -palvelimen omistaja voi erottaa ohjelmasi tekemiä sivuhakuja selaimella tehdyistä, niin TWebBrowser (tai muokattu TEmbeddedWB) on ainoa oikea ratkaisu.
Suora TCP/IP:llä leikkiminen ei todellakaan kannata, syynä se, että kun palvelimen omistaja uudistaa sivustoaan, niin työmäärä jolla muutoksiin täytyy vastata, on huomattava, kun TWebBrowser:ia käytettäessä se on yleensä pieni.
mm. ICS (Internet Component Suite):een kuuluva THttpCli tekee juuri tuota, että antaa palvelimelle GET -pyynnön header -kentät eri järjestyksessä kuin MS-IE, ja tästä palvelimen ylläpitäjän on helppo tunnistaa tuon käyttö.
TWebBrowserissa taas state -kenttä on ystäväsi, samoin Delphin oma TTimer -komponentti, jolla voit luoda satunnaisia viiveitä, jottei haut näytä automatisoiduilta.
Delphi sensijaan on kova sana ohjelmoinnissa ja Delphin käyttäjällä on pysyvä kilpailuetu.
- just_coder
HTTP- protokollan mukaisen tunnistuksen (authentication) mukaan kun toimit niin pelaa varmasti, ihan samoin kuten kaikki selaimetkin, sitä en tiedä kuinka delphin web..luokka toimii, mutta perus proton tasolla tuon saa vaivattomasti hoidettua.
- 89101112
Jos on vielä ongelmana, laita formin source näkyviin tai url.
Tuosta puuttuu ainakin referer.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Vakava rikosepäily Seinäjoella
Ilkka ei taaskaan tiedä mitään mutta hesalaiset kertoo: https://www.is.fi/kotimaa/art-2000010959325.html412615Mitä on woketus?
Täälläkin hoetaan usein sanaa "woketus". Mitä se tarkalleen ottaen tarkoittaa? Ilmeisesti sen käyttäjät ymmärtävät sen k3982120Olet saanut kyllä tunnisteita
Itsestäsi ja meistä. Mutta mikä siinä on, ettet kirjoita etkä anna itsestäsi merkkejä. Ellei ole kysymys siitä, mikä ens201902Oletko jo luovuttanut?
Joko olet luovuttanut kaivatun suhteen ja hyväksynyt, että mitään ei tule?1381724Ikääntyvien tilanne Suomessa on järkyttävä - Hoivakotiin ei pääse, vaan joutuu selviytymään yksin
Ikääntyvien tilanne Suomessa on järkyttävä… Hoivakoteihin sijoittamista vältellään, koska hoito on kallista ja hyvinvoin1221610Mies pakko olla rehellinen
Kiinnostuin koska olet tosi komea ja sulla on ihana puheääni. Olen aika pinnallinen sitten kai... 😓 kyllä olet tosi rau151541Kristo Salminen, 52, riisuutui - Paljasti Iso-Börjen tatuoinnit - Somekansan tuomio yksimielinen
Iso-Börje, tuo iso, tatuoitu, yltiöromanttinen ja aika kuuma rikollispomo - vai mitä mieltä sinä olet? Lue lisää ja kat211113Hirvenmaitojuusto
Olin Prisman juustohyllyllä kun vierestä alkoi kuulua kamala paapatus. Siinä oli vanha muori, joka räyhäsi raivokkaasti,01112- 741019
Kerro mulle miksi juuri me
Kohdattiin? Tässä elämässä. Vaikka ollaan edelleen tutut tuntemattomat. Se on omituinen tunne.63915