一乐拍卖专用秒杀时钟

72hour · 发表于 2012-5-27 22:57

经坛友lyz8的指点,知道了获取服务器时间的办法,抽个时间网上乱摘个钟,嘿嘿,能用!
志在打破论坛拍卖规则!
无标题.png

贴上代码如果有人报病毒,那就把你的杀毒软件删了!肯定不会!

'获取服务器时间的简易时钟
'By 72hour@Gmail.com
Set mxh = CreateObject("Msxml2.XMLHTTP")
mxh.Open "GET","https://www.yleee.com.cn/",0
mxh.Send()
a = mxh.getResponseHeader("Date") '获取http 日期时间头信息
a=Right(a,InStr(a, "20")) '取20以后的字符存入a
a=Left(a,InStr(a, " GMT")) '从a中取 GMT以前的字符存入a
a=FormatDateTime(a,0) '转换成时间格式
a=DateAdd("h",8,a) '加上8小时转换成北京时间
Function FormateTime(sendTime,Para) '格式化时间
select case Para
case "1"
sendTime = Right("00" & Hour(sendTime),2) & ":"& right( "00" & minute(sendTime),2) & ":"& right( "00" & Second(sendTime),2)
end select
FormateTime = SendTime
end Function
t = FormateTime(a, "1")
a = Mid(t,1,2)'获取当前小时
b = Split(t,":",-1,1)
c = b(1)'获取当前分钟
i = Right(t,2)'获取当前秒数
For x = a To 24 Step + 1 '小时循环
For y = c To 59 Step + 1 '分钟循环
For z = i to 59 step +1 '每数60次y加1
k = CreateObject("wscript.shell").popup ("现在时间为："&x&" 时 "&y&" 分 "&z&" 秒"&vbCrLf&vbcrlf,1,"一乐服务器的简易时钟",64) '每1秒点击1次确定
Select Case k
Case 1 WScript.Quit
End select
Next
i = Right(Time,2)'校正当前秒数
Next
Next

复制代码

存为文本文件,该扩展名为vbs 猛击运行.

slqin2418 · 发表于 2012-5-27 23:08

猛击运行

max-uan · 发表于 2012-5-27 23:41

网站下方也有

biaosoft · 发表于 2012-5-27 23:54

2000年那时有个叫“欢乐时光 HappyTime”病毒，用的就是VBScript . 专门感染网页，自身代码是随机加密隐藏在网页中。我通过反向解密得到了它的源代码。不过没多久就没什么用了，因为XP出了，该病毒失效了。

hanshuyujifen · 发表于 2012-5-28 00:13

拍买利器啊

QDHAM · 发表于 2012-5-28 00:50

好东西试试

panqi · 发表于 2012-5-28 01:23

本帖最后由 panqi 于 2012-5-28 01:24 编辑

O(∩_∩)O哈！不错呀还带响的，听起来有点怕怕{:3_480:}

社建电子 · 发表于 2012-5-28 07:42

恐怕以后不再搞拍卖了，你搞这些没用处。

199003326 · 发表于 2012-5-28 10:05

对于俺的拍卖规则，这玩意儿没用，HOHO

社建电子 · 发表于 2012-5-28 10:22

我的拍卖不火，所以……
不理他……

		自动登录	找回密码
密码			请使用微信账号登录和注册会员