Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: VB.NET: Internet Lottokupongin täyyttö

tnb [10.03.2005 23:07:39]

#

Ohjelma avaa oletusselaimella Veikkauksen Lotto-sivut ja täyttää Sendkeys käskyllä yhden rivin kupongista. Oletuksena on Firefox selain, muuta IE:lle sopivaksi kommentin mukaisesti. Selaimen avautumisaikaa täytynee säätää, jos hitaat yhteydet.

' Lisää projektissa referenssi: Windows script host model, COM tab:n alla
' Project/Add reference/Com lehti ...
'
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Veikkauksen internet lottokupongin automaattinen täyttö
        Dim Shell As IWshRuntimeLibrary.WshShell
        Dim i As Integer
        Shell = New IWshRuntimeLibrary.WshShell
        'avataan veikkauksen sivu oletusselaimeen
        Shell.Run("https://peli.veikkaus.fi/lotto/")
        Threading.Thread.Sleep(4000) 'odotetaan selaimen avautumista
        'kohdistus selaimeen
        Shell.AppActivate("Veikkaus - Mozilla Firefox") 'tai "Veikkaus - Microsoft Internet Explorer"
        'siirretään kohdistin ekaan lottonumeroon
        For i = 1 To 39
            System.Windows.Forms.SendKeys.Send("{TAB}")
        Next
        'täytetään ekarivi ja kohdistin seuraavalle riville
        System.Windows.Forms.SendKeys.Send("1{TAB}2{TAB}32{TAB}5{TAB}25{TAB}26{TAB}14{TAB}{TAB}")
    End Sub

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta