Utilice vb para extraer contenido web periódicamente

Primero, utilice la regularización para extraer enlaces del código fuente:

& lta href=".*" id="">. * & lt/a & gt;

Luego siga el enlace devuelto para obtener la dirección:

GetUrl[cadena extraída regularmente]

Esta es la función GetUrl Código:

Función pública GetUrl(ByVal inString As String) como cadena

Dim I tiene la misma longitud, J tiene la misma longitud

I = InStr( 1, inString, " & lta href=" ", vbTextCompare)+Len(" & lt;a href=" " " ")

J = InStr(I, inString, """", vbTextCompare )

GetUrl = Mid(inString, I, J - I)

Fin de función