修正系统时间精简版

; 临时的作品
#NoEnv
SetBatchLines -1
DetectHiddenWindows On
RegExMatch(Z_Com("http://open.baidu.com/special/time/"),"window.baidu_time(Kd+",a)
t := 1970010108
t += SubStr(a, 1, 10), s
SetLocalTime(t)
SetLocalTime(a)
{
	VarSetCapacity(localTime, 16, 0)
	For i, n in [ [0,1,4],[2,5,2],[6,7,2],[8,9,2],[10,11,2],[12,13,2],[14,15,3] ]
		NumPut( SubStr(a, n.2, n.3), localTime, n.1, "UShort" )
	DllCall("SetLocalTime", UInt, &localTime)
}

 z_com(h:="http://61.135.169.125/forbiddenip/forbidden.html", c:="", p:="",t:=-1){
         comobjerror(false),x := comobjcreate("winhttp.winhttprequest.5.1"),(p?x.setproxy(2, p):""),x.open("get",h,true)
         ,x.setrequestheader("user-agent", "mozilla/5.0 (windows nt 5.1; rv:11.0) gecko/20100101 firefox/11.0"), x.send(), x.WaitForResponse(t)
         if c    {
                 s:=comobjcreate("adodb.stream"), s.type := 1, s.mode := 3, s.open(), s.write(x.responsebody), s.position := 0, s.type := 2, s.charset := c
                 return s.readtext(),s.close()
                 }
         else    return x.responsetext
         }

Return

给TA捐赠
共{{data.count}}人
人已捐赠
其他

修正版根据程序设置输入法1

2020-3-9 1:12:44

其他

倒计时

2020-3-9 1:14:44

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索