qazplm

回复 87# 老刘1号

[大鱼小鱼或等鱼？]
何必加密呢，懂的还要多费时间，不懂的给源码也看不懂，半桶水的干脆略过
另外如果第一名名称为 a,a"a,"，split就不适用了，vbs解析json，可以使用htmlfile对象的execScript方法

With CreateObject("MSXML2.XMLHTTP")
    .Open "POST","http://bbaass.tk/math/", False
    .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
    .setRequestHeader "User-Agent","Chrome/59.0.3071.115"
    .send "send=Answer&math=5000&username=老刘"
    Set html = CreateObject("htmlfile")
    Set wd = html.parentWindow
    wd.execScript "var json=" & .responseText, "JScript"
    Set result = wd.json
    WSH.Echo result.re & vbCrLf & result.tokens
End With
复制代码

qazplm

回复 94# 老刘1号

噗嗤，加密的原因好单纯