按键精灵 判断时间段内播放视频

聚龙

1. //脚本会在几点几分 到几点几分之间运行（时间格式 #时间#）
   
2. While True
   
3. mytime = time
   
4. If mytime > #00:00:00# and mytime < #07:00:00#  Then
   
5.                 Delay 100
   
6.         TracePrint "现在是0点至7点"
   
7.                                 Call 判断播放器有没有打开()
   
8.                Else
   
9.                                 Delay 100
   
10.         Goto 查下一个时间段
    
11.         End If
    
12.     Wend
    
13.         Rem 查下一个时间段
    
14.     While True
    
15.         mytime = time
    
16.         If mytime > #23:00:00# and mytime < #23:59:59#  Then
    
17.                         Delay 100
    
18.                 TracePrint "现在是23点至23：59"
    
19.                         Call 判断播放器有没有打开()
    
20.        Else
    
21.         Delay 100
    
22.                         TracePrint "不在设定时间段内，关闭脚本！"
    
23.         Call 关闭小精灵()
    
24. End If
    
25. Delay 2000
    
26. Wend
    
27. Sub 判断播放器有没有打开()
    
28. Do
    
29. 
    
30.     RunApp "D:\Program Files (x86)\Zdult entertainment\Adult entertainment.mp4"
    
31.                                 Delay 5000
    
32. HWND = Plugin.Window.Find("244BF600-9015-42B0-A566-67F4EF764FB6","Adult entertainment.mp4")'指定时间内运行爱奇艺为小精灵标题
    
33.                 If HWND>0  Then
    
34. Call Plugin.Window.Top(HWND, 0)
    
35.                                 Delay 200
    
36.         Call Plugin.Window.Max(HWND)
    
37.                                 Delay 500
    
38.                 Call 定时关闭播放和关机()
    
39.                    Else
    
40.                             ExitScript
    
41.         End If
    
42.     Loop
    
43.                 End Sub
    
44. Sub 定时关闭播放和关机()
    
45.                                     Delay 1000*60*27 //填写视频播放最后一位分钟时间（27代表27分钟）
    
46.                                         Delay 1000*46 //填写视频播放最后一位秒时间（46代表46秒）
    
47.     KeyPress "Space", 1
    
48.                                     Delay 200
    
49.     Plugin.Window.Close (HWND)
    
50.                                         Delay 200
    
51.                                 Call Lib.系统.结束进程("xiaojingling.exe")
    
52.                                 Delay 1000*3
    
53.     RunApp "D:\Program Files (x86)\IQIYI Video\GeePlayer\延时关机.bat"
    
54.                                     Delay 3000
    
55.                             ExitScript
    
56.             End Sub
    
57. 
    
58.     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (hWnd As Long, wMsg As Long, wParam As Long, lParam As Object) As Long
    
59. Sub 关闭小精灵()
    
60.                         Delay 100
    
61. WM_CLOSE = &H10
    
62. HWND = Plugin.Window.Find("#32770","xiaojingling")'指定时间内运行爱奇艺为xiaojingling标题
    
63. Call SendMessage(HWND, WM_CLOSE, 0, 0)
    
64.                         Delay 100
    
65.                     ExitScript
    
66.                         Delay 100
    
67.                 EndScript
    
68.                     Delay 500
    
69.                             Call Lib.系统.结束进程("xiaojingling.exe")
    
70.     End Sub

复制代码

聚龙

1. shutdown -s -t 10

复制代码

延时关机：用记事本，保存成 .bat文件