leermarc

Public Sub leermarcador(url As String, jugador As String, pais As String, marcador As Integer)

  Dim contenidoweb As String

  If url = "" Then
    url = "http://www.marcadorjsbsan.hostinazo.com/marcador.php"
  Endif

  If jugador = "" And pais = "" And marcador = 0 Then
    'no hago nada
  Else
    url = "http://www.marcadorjsbsan.hostinazo.com/marcador.php?jugador=" & TextBoxJugador.text & "&pais=" & TextBoxpais.text & "&marcador=" & Str$(ValueBoxPuntos.value)
  Endif

  Application.busy = 1
  contenidoweb = usandoHttpClient(url)
  Application.busy = 0
  TextAreaContenidoHtML.Text = contenidoweb

  limpiarCodigo(contenidoweb)

End