按键精灵 整点截屏脚本

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