¿VB utiliza inet o xmlhttp para obtener el contenido de la página web?
Puede agregar un número aleatorio después de xmlhttp al volver a leer la URL
Función getHtml(Url)
Dim XmlHttp, rUrl
Randomize()
p>
rUrl = Url amp; "rNum =" amp Int((9999) * Rnd(Now()) 1)
'Si su URL no tiene parámetros escriba rUrl = Url amp; "?rNum=" amp; Int((9999) * Rnd(Now()) 1)
Establecer XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp. Abra "GET", rUrl, False
XmlHttp.setRequestHeader "Content-Type", "text/HTML"
XmlHttp.Send
getHtml = XmlHttp. Cuerpo de respuesta
Función final