本帖最后由 老刘1号 于 2017-7-2 11:12 编辑
先来个暴力枚举(VBS):- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST", "http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .Send "send=reg&username=老刘"
- End With
-
- For i = 1 to 100
- If math(i) = "=" then msgbox "Win!The number is "&i
- next
-
- Function Math(num)
- With CreateObject("MSXML2.XMLHTTP")
- .Open "POST","http://bbaass.tk/math/", False
- .setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"
- .send "send=Answer&math=" & num & "&username=老刘"
- Math = Split(Split(.responseText,",")(2),"""")(3)
- End With
- End Function
复制代码
|