电脑版 按键精灵 学习代码记录

聚龙

按键精灵限制循环时间有多种方法：
1，到指定时间停止。

1. Do
   
2. If time = "11:59:59" Then
   
3. Exit Do
   
4. End If
   
5. loop

复制代码

2，两个时间差停止
例子1：

1. t = now
   
2. Do
   
3. If DateDiff("s", t, now) > 60 Then //s代表秒，n代表分钟，h代表小时
   
4. Exit Do
   
5. End If
   
6. loop

复制代码

例子2：

1. t = time
   
2. Do
   
3. FindPic 977,83,1558,564,"Attachment:\01.bmp",0.9,intX,intY
   
4. If intX > 0 And intY > 0 Then
   
5. TracePrint "找到"
   
6. Else
   
7. TracePrint "没找到"
   
8. End If
   
9. Delay 1000
   
10. Loop Until DateDiff("s", t, time) = 5

复制代码

3，脚本运行多少次结束
方法1：

1. t =0
   
2. Do
   
3. t = t + 1
   
4. If t >= 100 Then
   
5. Exit Do
   
6. End If
   
7. Delay 1000
   
8. loop

复制代码

方法2：

1. for 100
   
2. next

复制代码

聚龙

1. //脚本会在几点几分 到几点几分之间运行（时间格式 #时间#）
   
2.     While True
   
3.         mytime = time
   
4.         If mytime > #23:00:00# and mytime < #23:59:59# or  mytime > #00:00:00# and mytime < #12:00:00# Then
   
5.             Delay 50
   
6.             TracePrint "在时间段内，开始运行！"
   
7.             Delay 50
   
8.             Call 遍历文件并播放()
   
9.         Else
   
10.             Delay 50
    
11.             TracePrint "不在时间段内，关闭脚本！"
    
12.             Call 关闭小精灵()
    
13.         End If
    
14.     Wend

复制代码

聚龙

1. Sub 遍历文件并播放()
   
2.         //遍历文件夹里的内容
   
3. 视频路径 = "E:\nox\Zdult entertainment"
   
4. 新文件路径 = "E:\nox\aj\new-Log.txt"
   
5. 老文件路径 = "E:\nox\aj\old-Log.txt"
   
6. //判断记录新文件jl-new-Log.txt是否在。
   
7. IsFilenew = Plugin.File.IsFileExist(新文件路径) //判断新文件是否存在
   
8. If IsFilenew = True Then
   
9.     Call Plugin.File.DeleteFile(新文件路径)//删除已有新TXT。
   
10. Else
    
11. End If
    
12. Delay 100
    
13. //命令库：遍历指定目录下所有文件名,保存到变量filelist MP4文件夹。
    
14. filelist = Lib.文件.遍历指定目录下所有文件名(视频路径)
    
15. TracePrint "视频文件夹中，有以下文件："
    
16. For i = 0 To UBound(filelist) - 1
    
17.     If InStr(filelist(i), ".mp4") > 0 Then
    
18.         lj=视频路径&filelist(i)
    
19.         TracePrint lj
    
20.         Delay 100
    
21.         Call Plugin.File.WriteFileEx(新文件路径, lj)//遍历出的内容写入文件。
    
22.     End If   
    
23. Next
    
24. Delay 100
    
25. //判断记录视频路径和文件名的文件夹和文件是否存在。
    
26. IsFile = Plugin.File.IsFileExist(老文件路径)
    
27. If IsFile = True Then  
    
28.     TracePrint "目标文件存在，不用重建。"
    
29.     //判断老文件是否为空内容。
    
30.     Text = Plugin.File.ReadFileEx(老文件路径)
    
31.     If Text = "" Then
    
32.         Delay 100
    
33.         TracePrint "old-Log是空文件，里面没有内容，用新文件数据覆盖。"
    
34.         Call Plugin.File.CopyFile(新文件路径, 老文件路径)
    
35.     End If
    
36. Else   
    
37.     TracePrint "目标文件不存在，复制new重命名为：old-Log.txt"
    
38.     Call Plugin.File.CopyFile(新文件路径, 老文件路径)
    
39. End If
    
40. //遍历old-Log.txt中有几行，所有行数。
    
41. Dim Text, MyStr
    
42. Text = Plugin.File.ReadFileEx(老文件路径)
    
43. MyStr = Split(Text, ".mp4")
    
44. If UBound(MyStr) >= 0 Then
    
45.     TracePrint "文本old-Log中有：" & UBound(MyStr) & "行!"
    
46. End If
    
47. 
    
48. //从总行数UBound(MyStr)中，随机选择一行。
    
49. 文件数=UBound(MyStr)
    
50. Randomize
    
51. 随机读一行数 = Int(文件数 * Rnd + 1)
    
52. TracePrint "随机打开第："&随机读一行数&"行。"
    
53. 
    
54. line0 = Lib.文件.读取指定行文本内容(老文件路径, 随机读一行数)
    
55. TracePrint line0
    
56. 
    
57. RunApp line0 //打开播放这个视频地址
    
58. 
    
59. Delay 2000
    
60. Call Lib.文件.删除指定行文本内容(老文件路径, 随机读一行数)
    
61. TracePrint "本次播放的视频地址已删除，下次再从剩下中随机播放某个视频。"
    
62. Call 判断播放器有没有打开()
    
63. TracePrint "调用子程序：判断播放器有没有打开()成功。"
    
64. End Sub
    
65. Sub 判断播放器有没有打开()
    
66. //判断视频是否在播放
    
67. T=Now()
    
68. Do Until DateDiff("s", T, Now) >= 10
    
69.     HWND = Plugin.Window.Find("244BF600-9015-42B0-A566-67F4EF764FB6", 0)
    
70.     Delay 50
    
71. Loop
    
72. Do
    
73.     If HWND > 0 Then         
    
74.         TracePrint "已开始播放啦"
    
75.         Call 检测视频是否播放完毕()
    
76.             Delay 50
    
77.         Else
    
78.             Delay 50
    
79.         EndScript
    
80.     End If
    
81. Loop
    
82. End Sub

复制代码

聚龙

1. //判断视频是否在播放
   
2. T=Now()
   
3. Do Until DateDiff("s", T, Now) >= 10
   
4.     HWND = Plugin.Window.Find("244BF600-9015-42B0-A566-67F4EF764FB6", 0)
   
5.     Delay 50
   
6. Loop
   
7. Do
   
8.     If HWND > 0 Then         
   
9.         TracePrint "已开始播放啦"
   
10.         Call 检测视频是否播放完毕()
    
11.             Delay 50
    
12.         Else
    
13.             Delay 50
    
14.         EndScript
    
15.     End If
    
16. Loop

复制代码