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
503
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
Suomen markka otettiin käyttöön vuonna 1860
Suomi käytti vuoteen 1840 asti rahayksikkönään rinnakkain Ruotsin riikintaalareita ja Venäjän ruplaa. Tämän jälkeen oli144363"Mä elän vieläkin"
Ikurin turbiini vetäisi taannoin lainabiisin Topin (RIP också) ja kumppaneiden kanssa. Toivottavasti on yläkerrassa kunn193239Vassarit kummittelee pääni sisällä joulunakin
Hetki sitten alkoi punakapina. Joulupäivään mennessä ollaan jo Lindtmanin nuoruusvuosien näytelmäkerhossa. Tapaninpäivän652942Oho, köyhyys väheni Marinin hallituskaudella
👋💥🤕 Tuonkin Marinin hallitus sössi --- Vuosien 2019–2023 sosiaaliturva- ja verotusperusteiden muutokset suhteessa h1372638Yksityinen sektori aiheuttanut Suomen taantuman
Investointien sijasta nostaneet voitot osinkoina omistajille. Ehdotan korjausliikkeenä yksityisen sektorin sosialisoimi341986Kylläpä asiat onkin nyt hyvin verrattuna Sannan aikaan
Sannan aikana aähkön alv oli 10%, nyt 25,5%. Ajatelkaa nytkin pörssisähkö on ilmaista, keskellä talvea! Bensan hinta on111814Pate Mustajärvi on kuollut
Ihan pari tuntia sitten. Että sellaista. https://www.is.fi/viihde/art-2000011715177.html741605Ukrainan raukkamainen isku Moskovaan.
Pitikö isku tehdä juuri jouluna.Siinä saattoi jäädä joku lapsi isättömäksi.Kyseessä ei edes sotilaskohde.3691601En tiedä mitä olet mulle
Rakkauteni,ihastukseni,pakkomielteeni,mitä lie. Jokatapauksessa ajattelen sinua päivittäin lämmöllä ja haluan toivottaa611536Edes vitamiinit eivät taanneet loputonta elämää
Nimittäin niistä rahaa itselleen taikonut tohtori siirtyi tuonpuoleiseen.241238