Advertisement
jsbsan

leermarc

Oct 10th, 2014
1,436
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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
Advertisement
RAW Paste Data Copied
Advertisement