Function GetURL (URL) Set retrieval = CreateObject ("Microsoft.XMLHTTP") with retrieval. Open ' get ', url, False. Send GetURL = Bytes2bstr (. responsebody) ' Verifies the acquisition information, if the information length is less than 100, the interception fails if Len (. responsebody) <100 Then ' Get remote file ' &url& ' failed. The "Response.End End If" and Set retrieval = "Nothing" Function ' binary turn string, otherwise there will be garbled! function Bytes2bstr (vin) Strreturn = "For i = 1 to LenB (vin) Thischarcode = ASCB (MidB (vin,i,1)) if Thischarcode < &h80 then Strreturn = strreturn & Chr (thischarcode) Else Nextcharcode = ASCB (MidB (vin,i+1,1)) Strreturn = str Return & Chr (CLng (thischarcode) * &h100 + CInt (nextcharcode)) i = i + 1 End If Next bytes2bstr = Strreturn en d function function SaveToFile (bodyall,filename) Dim objstream1 Set Objstream1=createobject ("ADODB.stream") objstream1.type=2 Objstream1.open objstream1.position=objstream1.size Objstream1.writetext bodyall Objstream1.savetofile filename,2 objstream1.close set objstream1=nothing enD function ' declares the intercepted format, intercepts from start, to last for End Function Getkey (html,start,last) filearray=split (Html,start) filearray2= Split (Filearray (1), last) getkey=filearray2 (0) End Function url= "http://www.86516.com" Html = GetURL (URL) savetofile HTML, "ce.htm"
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]
Current 1/2 page
12 Next read the full text
