document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Public Sub leermarcador(url As String, jugador As String, pais As String, marcador As Integer)
  2.  
  3.   Dim contenidoweb As String
  4.  
  5.   If url = "" Then
  6.     url = "http://www.marcadorjsbsan.hostinazo.com/marcador.php"
  7.   Endif
  8.  
  9.   If jugador = "" And pais = "" And marcador = 0 Then
  10.     \'no hago nada
  11.   Else
  12.     url = "http://www.marcadorjsbsan.hostinazo.com/marcador.php?jugador=" & TextBoxJugador.text & "&pais=" & TextBoxpais.text & "&marcador=" & Str$(ValueBoxPuntos.value)
  13.   Endif
  14.  
  15.   Application.busy = 1
  16.   contenidoweb = usandoHttpClient(url)
  17.   Application.busy = 0
  18.   TextAreaContenidoHtML.Text = contenidoweb
  19.  
  20.   limpiarCodigo(contenidoweb)
  21.  
  22. End
');