Line 27:
Line 28: Dim tmpCadena2 As String = strCode2
Line 29: tmpCadena2 = Mid(strCode2, InStr(strCode2, "id=" & Chr(34) & "searchResults", CompareMethod.Text) - 4)
Line 30: tmpCadena2 = Left(tmpCadena2, InStr(tmpCadena2, "</ol>") + 5)
Line 31: tmpCadena2 = "<!DOCTYPE html><html lang='es' class='no-js'><head><meta charset='UTF-8' /> <link rel='alternate' href='android-app://com.mercadolibre/meli/search?go=http%3A%2F%2Fvehiculos.mercadolibre.com.mx%2F_CustId_43508294' /> <link rel='alternate' href='ios-app://463624852/meli/search?go=http%3A%2F%2Fvehiculos.mercadolibre.com.mx%2F_CustId_43508294' /> <link rel='stylesheet' href='http://static.mlstatic.com/org-img/ch/ui/0.13.4/chico-mesh.min.css' type='text/css' /> <link rel='stylesheet' type='text/css' href='http://resources.mlstatic.com/search-css/MLM/STD/0.6.801.develop.4/meli.min,main,search_gallery__medium,search_gallery__large,mclics,autocomplete-desktop-1.1.1-standalone,autocomplete-desktop-fix,pads-medium' /> </head><body>" & tmpCadena2 & "</body></html>"
|