visited 12 states (5.33%)
Create your own visited map of The World
Dim XRQ ' global XMLHttpRequest object
Function GoogleLogin(UN,Pwd,Svc)
Dim RQData,I,RT
GoogleLogin = Null
RQData = EncodeFormData(Array("Email","Passwd","service","source"), _
Array(UN,Pwd,Svc,"VBScript-BloggerLibrary-0.1"))
If Not IsObject(XRQ) Then Set XRQ = CreateObject("Microsoft.XMLHTTP")
XRQ.open "POST","https://www.google.com/accounts/ClientLogin",false
XRQ.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XRQ.send RQData
If HTTPCheck(XRQ,"Google login response", _
"https://www.google.com/accounts/ClientLogin") Then
RT = XRQ.responseText
I = InStr(RT,"Auth=")
If I = 0 Then wr "Google response has no AUTH data" : Exit Function
RT = Mid(RT,I+5,Len(RT))
I = InStr(RT,Chr(10)) : If I > 0 Then RT = Left(RT,I-1)
GoogleLogin = RT
End If
End Function
Compression Compressed size Decompressor Total size Time (ns/byte)Program Options enwik8 enwik9 size (zip) enwik9+prog Comp Decomp Mem Alg Note------- ------- ---------- ----------- ----------- ----------- ----- ----- --- --- ----xwrt 3.2 -l14 -b255 -m96 -s -e40000 -f200 18,679,742 151,171,364 52,569 s 151,223,933 2537 2328 1691 CM