level 8
lele1894
楼主
datediff函数 描述：返回两个日期之间的时间间隔。
本吧就是提供一个稳定的网络验证时间的地方。
举个栗子：按键代码2015/03/01
//先把以下函数代码放在脚本任何位置
//获得网页源代码（按键精灵自带的函数无法分辨网页源码的charset（字符集）编码）
//GetHTML(URL, code, txtPath)
//取网页源文件优化函数（参数别忘带""半角引号）
//第一个参数URL需要获得源代码的网址
//第二个参数为网页编码，为空时获取网页头判断，若获取不到则设置为UTF-8。
//也可指定，如GB2312.UTF-8.gbk.
//第三个参数将网页源文件保存到txt，相同名覆盖，为空时不存到文件。
Function GetHTML(URL, code, txtPath)
Set obj = CreateObject("WinHttp.WinHttpRequest.5.1")
Randomize
With obj
.Open "get", URL&"?"&Rnd
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send
.waitForResponse
httpbody=.responsebody
End With
Set obj = Nothing
If Len(httpbody) = 0 Then
GetHTML = ""
Exit Function
End If
If code = "" Then
Dim mystr,start,t,i
For i = 1 To 300
t = MidB(httpbody, i, 1)
mystr=mystr+chr(AscB(t))
Next
start=Instr(mystr, "charset=")
If start>0 Then
code = mid(mystr, start + 8, Instr(start+9, mystr, chr(34))-start-7)
code = Replace(code, chr(34), "")
Else
code="UTF-8"
End If
End If
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.write httpbody
.position = 0
.Type = 2
.Charset = code
GetHTML = .ReadText
.Close
End With
Set ObjStream = Nothing
IF txtPath <>"" Then
If Plugin.File.IsFileExit(txtPath) = True Then
Call Plugin.File.DeleteFile(txtPath)
End If
Call Plugin.File.WriteFileEx(txtPath,GetHTML)
End If
End Function
//获得网页源码，返回值是网页源码
//（因为帖子没有发表，没有地址，发了好像又不能修改，记得下行地址修改下）
返回值 = GetHTML("http://本贴地址", "", "")
//下行代码去掉//可以弹出获得的源码
//MessageBox 返回值
//在返回的源码中搜索按键代码四个字
搜索 = InStr(返回值, "按键代码")
//弹出搜索到4个字（+4是越过按键代码4个字）显示后面10个字符（10）
MessageBox Mid(返回值, 搜索 + 4, 10)
//最后弹出的就是2015/03/01
Sub 时间()
//返回值日期时间的两个网址是一个返回日期，一个返回时间（没有其他编码只有时间）我们只使用日期
返回值日期 = GetHTML("http://symental.com/time/date.asp", "", "")
返回值时间 = GetHTML("http://symental.com/time/time.asp", "", "")
//取返回的源代码10个字符
日期 = Left(返回值日期, 10)
//用到DateDiff函数了参数1：“d”是返回对比日期隔了多少“日”
//参数2日期是我们区的网络时间
//参数3从本网页取的日期
//返回 间隔值参数 两个参数相差多少天
间隔值=DateDiff("d", 日期,Mid(返回值, 搜索 + 4, 10) )
//弹出
MessageBox "当前时间"&日期&vbcrlf&"到期时间"&Mid(返回值, 搜索 + 4, 10)&vbcrlf&"还有"&间隔值&"天过期"
End Sub
代码出处http://bbs.anjian.com/thread-415260-1-1.html
2015年03月12日 10点03分
1
本吧就是提供一个稳定的网络验证时间的地方。
举个栗子：按键代码2015/03/01
//先把以下函数代码放在脚本任何位置
//获得网页源代码（按键精灵自带的函数无法分辨网页源码的charset（字符集）编码）
//GetHTML(URL, code, txtPath)
//取网页源文件优化函数（参数别忘带""半角引号）
//第一个参数URL需要获得源代码的网址
//第二个参数为网页编码，为空时获取网页头判断，若获取不到则设置为UTF-8。
//也可指定，如GB2312.UTF-8.gbk.
//第三个参数将网页源文件保存到txt，相同名覆盖，为空时不存到文件。
Function GetHTML(URL, code, txtPath)
Set obj = CreateObject("WinHttp.WinHttpRequest.5.1")
Randomize
With obj
.Open "get", URL&"?"&Rnd
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send
.waitForResponse
httpbody=.responsebody
End With
Set obj = Nothing
If Len(httpbody) = 0 Then
GetHTML = ""
Exit Function
End If
If code = "" Then
Dim mystr,start,t,i
For i = 1 To 300
t = MidB(httpbody, i, 1)
mystr=mystr+chr(AscB(t))
Next
start=Instr(mystr, "charset=")
If start>0 Then
code = mid(mystr, start + 8, Instr(start+9, mystr, chr(34))-start-7)
code = Replace(code, chr(34), "")
Else
code="UTF-8"
End If
End If
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.write httpbody
.position = 0
.Type = 2
.Charset = code
GetHTML = .ReadText
.Close
End With
Set ObjStream = Nothing
IF txtPath <>"" Then
If Plugin.File.IsFileExit(txtPath) = True Then
Call Plugin.File.DeleteFile(txtPath)
End If
Call Plugin.File.WriteFileEx(txtPath,GetHTML)
End If
End Function
//获得网页源码，返回值是网页源码
//（因为帖子没有发表，没有地址，发了好像又不能修改，记得下行地址修改下）
返回值 = GetHTML("http://本贴地址", "", "")
//下行代码去掉//可以弹出获得的源码
//MessageBox 返回值
//在返回的源码中搜索按键代码四个字
搜索 = InStr(返回值, "按键代码")
//弹出搜索到4个字（+4是越过按键代码4个字）显示后面10个字符（10）
MessageBox Mid(返回值, 搜索 + 4, 10)
//最后弹出的就是2015/03/01
Sub 时间()
//返回值日期时间的两个网址是一个返回日期，一个返回时间（没有其他编码只有时间）我们只使用日期
返回值日期 = GetHTML("http://symental.com/time/date.asp", "", "")
返回值时间 = GetHTML("http://symental.com/time/time.asp", "", "")
//取返回的源代码10个字符
日期 = Left(返回值日期, 10)
//用到DateDiff函数了参数1：“d”是返回对比日期隔了多少“日”
//参数2日期是我们区的网络时间
//参数3从本网页取的日期
//返回 间隔值参数 两个参数相差多少天
间隔值=DateDiff("d", 日期,Mid(返回值, 搜索 + 4, 10) )
//弹出
MessageBox "当前时间"&日期&vbcrlf&"到期时间"&Mid(返回值, 搜索 + 4, 10)&vbcrlf&"还有"&间隔值&"天过期"
End Sub
代码出处http://bbs.anjian.com/thread-415260-1-1.html
