Ir para o conteúdo
alfaiate

obter chave do euro milhoes automaticamente

Mensagens Recomendadas

Andrepereira9

Boas

Deve de haver alguma coisa mais simples de fazer, mas deixo-te aqui o que consegui fazer  :P

Dim oWebRequest As WebRequest
Dim oWebResponse As WebResponse = Nothing
Dim strBuffer As String = ""
Dim objSR As StreamReader = Nothing
Dim leitor As Object
Dim ler As Boolean = False
Dim valores As String = String.Empty
Dim i As Integer = 0

Dim num_final As String = String.Empty
Dim estrela_final As String = String.Empty

'conecta com o website
Try
     oWebRequest = HttpWebRequest.Create("https://www.jogossantacasa.pt/web/SCCartazResult/euroMilhoes")
      oWebResponse = oWebRequest.GetResponse()
      'Le a resposta do web site e armazena em uma stream
      objSR = New StreamReader(oWebResponse.GetResponseStream)
      strBuffer = objSR.ReadToEnd
      leitor = Split(strBuffer, vbNewLine)

      For Each linha In leitor
             If ler = True Then
                    valores += linha.ToString + vbNewLine
                    i += 1
             End If


             If linha.Contains("Ordem Saída:") Then
                    ler = True
              End If

              If i > 8 Then
                     ler = False
              End If
       Next
          
Catch ex As Exception
        MsgBox(ex.ToString)
Finally
        objSR.Close()
        oWebResponse.Close()
End Try

Dim numeros As Object = Split(valores, vbNewLine)
Dim estrelas As Boolean = False
Dim num_total As Integer = 1

For Each n As String In numeros
        If n <> String.Empty Then
               Dim num As String = n.Substring(n.IndexOf(">") + 1, 2)

               If num.Contains("<") Then
                     num = num.Remove(num.IndexOf("<"))
              End If
      
                If estrelas = True Then
                    If estrela_final = String.Empty Then
                        estrela_final &= num.ToString + " - "
                    Else
                        estrela_final &= num.ToString
                    End If
                Else
                    If num_total < 5 Then
                        num_final &= num.ToString + " - "
                    ElseIf num_total = 5 Then
                        num_final &= num.ToString
                    End If
                    num_total += 1
                End If

                If num = "+" Then
                    estrelas = True
                End If

            End If
        Next

        MsgBox("Números: " + num_final.ToString + vbNewLine + "Estrelas: " + estrela_final.ToString)


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
alfaiate

Deu-me estes erros, como os posso resolver?

E se possivel podem-me explicar o erro 4?

Error 4 'HttpWebRequest' is not declared. It may be inaccessible due to its protection level.

Error 3 Type 'StreamReader' is not defined.

Error 5 Type 'StreamReader' is not defined

Error 1 Type 'WebRequest' is not defined.

Error 2 Type 'WebResponse' is not defined.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Andrepereira9

Boas

Esqueci-me dos Imports

Adiciona isto:

Imports System
Imports System.IO
Imports System.Net


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
alfaiate

Boas, desde já obrigado pela ajuda, mas agora dá erro de sintaxe nos Imports, diz Syntax error.

Estou a usar o Visual Basic 2010 express.

edit: Já corrigi, estava a colocar mal os imports.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.