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
444
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
Marin pyöräili jalkakäytävällä. Aikuinen ihminen! Vai onko?
https://www.seiska.fi/vain-seiskassa/hups-sanna-marin-ja-joni-rakas-kaahasivat-fillareilla-jalkakaytavalla-paljonkertova2202894TULI PALO HAAPAVEELLÄ
Omakotitalo tuhoutui tulipalossa Haapavedellä varhain torstaiaamuna, pelastuslaitos kertoo. Palokunnan saapuessa kohtee161774Miten sua nyt
Pitäisi lähestyä tai ylipäätään suhtautua mihinkään. Kyselenkö kuulumisia vai juttelenko päivän säästä. Vai hymyilenkö p771015Niina Lahtinen avautuu erikoisesta "krapula-metodista" ennen suoraa lähetystä: "Kuin mulla olisi..."
Kiitos, Niina! Upeasti vedit TTK-parketilla. Tsemppiä tuleviin tansseihin vaikkapa tuolla "krapulametodilla"! Lue Lahti291012Toivon vain
Ettet enää välittäisi. Kun näet niin ohitatko. Ettei silmissäsi loistaisi enää mikään minut nähdessäni. Ei sitä pilkettä4999Harmailla autoilla liikkuvat vorot
Keitäs sankareita nämä ovat? https://www.kainuunsanomat.fi/artikkeli/harmailla-autoilla-liikkuvat-vorot-ovat-tehneet-us16891Jenni Haukio ja Sauli Niinistö
Ero. Näinhän se menee kun ikäeroa on riittävästi. https://www.iltalehti.fi/viihdeuutiset/a/1c94ff48-185d-4d95-aff5-3e9322854Kuka on tämä henkilö
jonka pullukkaprinsessa kertoilee haisevan? Ennen nykyistä se oli erään seksuaalirikoksesta tuomitun tyypin kanssa, muit93822Minä näen sinut
Näen kuka olet. Osaan laskea. Olen todella, siis todella hämmentynyt, ihastunut, vaivautunut ja ehkä eniten todella epäu26795- 164782