按键精灵用户网络验证

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