按键精灵做一个乐宁自动学习

在乐宁报名考试后，要参加在线学习， 上百个课时， 很多视频都是看过 或者没有什么用的，所以还是做了一个自动学习。

由于乐宁改版，这次这个自动学习 弄了一下午，还是 有点难度的 分享给大家。

1.先考虑用按键精灵自带的浏览器，做表单元素抓取，很可惜在视频播放的页面不兼容，吐槽一下按键精灵，2014后没有再更新过了。

//直接打开学习列表
RunApp "http://lening100.com/userStudy!listTrainCourse.action?xxx
Hwnd = Plugin.Window.Foreground()
TracePrint Hwnd
//激活最大窗口
Call Plugin.Window.Active(Hwnd)
Call Plugin.Window.Max(Hwnd)

2.没办法用元素，就只能前台抓取默认浏览器了，我笔记本装的是360急速，为了快速完成工具，我就没有做登录和句柄抓取，都是提前登录好，句柄直接定义好。

抓取页面的链接，这个很简单了，直接前台模拟查看源代码，然后正则匹配一下列表，把所有课程链接匹配出来，这中级也要比对一下学习进度，num就是页面中的学习进度，0到99的是没学习完，链接有效。

//抓取课程：
content = copycode()
TracePrint content
ul = Split(content, "<ul class=""list_show center-list-tab"">")
TracePrint ubound(ul)
for i=1 to ubound(ul)	
	 str = ul(i)
	 num=regval(str," value=""(\d+)""")
	If num >= 0 < 100 Then 		
		link = regval(str, "<a href=""(.+?)"">")
		gotolink( "http://lening100.com/"&link)
	End If
Next

3.进入课程后，又是一个列表，做法和上一部一样，正则匹配出来有效链接。

'跳转链接
Function gotolink(link)
	RunApp link
	content = copycode()
	tr = Split(content, "<tr>")
	TracePrint ubound(tr)
	for i=1 to ubound(tr)	
	 	str = tr(i)
	 	num=regval(str," value=""(\d+)""")
		If int(num) >= 0 and  int(num)< 100 Then 		
			link = regval(str, "<a href=""(.+?)"" target")
			RunApp ("http://lening100.com/" & link)
			times=gettime()
		End If		
	Next
	Delay 1000
	KeyDown 17, 1
	KeyPress 87, 1
	KeyUp 17, 1
	gotolink=1
End Function

4.进入视频播放学习界面，这部有些麻烦，也是唯一的难点，就是无法获取到视频的真实播放时间，头几年乐宁在列表页就标注好了视频的总时间和已学习时间，这次没有，要是抓取视频显示的时间很麻烦，位置不确定，准确度不高。

5.最后找了一下，发现一个思路是前台抓音频状态，这个可以 提前抓取好音频框的颜色，为了保证准确性做了10次循环 判断。

 

'获取声音
Function getsecond()
	t=0
	Do While t < 10
		Delay 5000
		//取窗口句柄(变量：Volume)窗口的客户区(坐标：83, 283)处的颜色
		GetColor = Plugin.Bkgnd.GetPixelColor(Volume, 6, 127)
		TracePrint GetColor
		if GetColor= "EAEAE7 " then
			t = t + 1
		Else 
			t=0
		End if		
	 	getsecond=t
    	//退出循环
	Loop
End Function

6.虽然程序还是有时不太稳定，受网络波动影响，也不能后台执行，但如果投入更多精力去做工具就失去偷懒的意义了。

将代码片段分享给大家，有经验的同学，按照我的思路和代码很快就可以做好的。

7.总结一下，按键精灵虽然功能较弱，对硬件和底层调用能力太弱，也不能 对网络数据进行处理，但对于重复性，简单的需求，它还是最快的解决工具之一。

'比对时间，没声就关闭页面
Function gettime()
	allsecond= getsecond()
	If allsecond > 9 Then 
	Delay 1000
	KeyDown 17, 1
	KeyPress 87, 1
	KeyUp 17, 1
	End If	
	gettime=allsecond
End Function

'复制源码，就是复制到剪切板
Function copycode()
	Delay 2000
	KeyDown 17, 1
	KeyPress 85, 1
	KeyUp 17, 1
	Delay 500
	KeyDown 17, 1
	KeyPress 65, 1
	KeyUp 17, 1
	Delay 500
	KeyDown 17, 1
	KeyPress 67, 1
	KeyUp 17, 1
	Delay 500
	copycode = Plugin.Sys.GetCLB() 
	Delay 500
	KeyDown 17, 1
	KeyPress 87, 1
	KeyUp 17, 1
End Function