按键精灵用户网络验证
txt = 取网页源码(" xxx ")
TracePrint txt
pos = instr(txt," ??? ")
TracePrint pos
Function 取网页源码(URL)
Set objXML=CreateObject("Microsoft.XMLHTTP")
objXML.Open "Get", Url, False
objXML.send
If objXML.readyState=4 then
取网页源码 =objXML.ResponseText
End If
objXML.Abort
Set objXML = Nothing
End Function
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！