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

' 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