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
按鍵精靈高階指令碼
下面給出幾個利用vbscript訪問外部檔案的例子 rem 在當前盤根目錄下建立 測試.txt 並寫入乙個字串 vbs dim fso,file,filename vbs filename 測試.txt vbs const forwriting 2 vbs set fso createobject ...
按鍵精靈 5 按鍵精靈控制指令碼流程2
標記 rem 格式 rem 標記名 跳轉 goto 格式 goto 標記名 如果在子程式內部，goto會先搜尋子程式內部是否有對應標記，如果有則跳轉到子程式內部，若果沒有則跳轉到朱指令碼中的標記 不能從乙個子程式中goto到另乙個子程式中 不能從主指令碼goto到子程式或函式內部 endscript...
按鍵精靈 3 按鍵精靈鍵盤滑鼠命令
1.鍵盤命令 按下鍵盤上的某乙個鍵並彈起的動作被稱為按鍵。對應命令格式為 keypress 按鍵碼，次數 可以在編輯器的基本命令裡查詢按鍵碼 例如要實現組合命令的必殺技 d 有時速度太快遊戲未必能響應出動作，所以一般會加上延時 delay 單位為毫秒，1秒 1000毫秒 如果要打出 符號的話 模擬方...