Dim sj, h, m, mm
Rem begin
//调用时间函数
Call 获取时间
TracePrint h
TracePrint m
TracePrint mm
//---以下是判断时间,H代表小时,M代表分钟,(楼主自行更改,多个时间段可以自己把下面的代码多复制几个)---
If h = 0 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 1 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 2 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 3 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 4 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 5 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 6 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 7 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 8 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 9 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 10 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 11 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 12 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 13 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 14 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 15 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 16 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 17 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 18 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 19 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 20 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 21 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 22 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 23 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
ElseIf h = 24 and m = 00 and mm = 00 Then
Call Lib.图像.无限屏幕截图(0,0,1920,1080,"C:\jietu\","jpg")
Delay 3540000
Goto begin
Else
Goto begin
End If
//---以下是时间的函数---
Function 获取时间
sj = split(time, ":")
h=sj(0)
m=sj(1)
mm=sj(2)
End Function
按键精灵 整点截屏脚本
最新推荐文章于 2024-07-04 01:01:20 发布