按键精灵14年公需科目学习

[General]
SyntaxVersion=2
BeginHotkey=121
BeginHotkeyMod=1
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=188b6821-860a-4bd0-83fb-96738dd55772
Description=14公需科目
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment]

[Attachment]
UEsDBBQAAgAIAHIrB0PN7HxbaQIAABIGAAAKABEAzrSypbfFLmJtcFVUDQAHvdoBUr3aAVK92gFSnZFLV9pAGIbtokxCLiC1KrSni7aLLtruICQhECEpolZl2dsGRQNBQC4KBEnihUv7F/tj+k0CHhQPVN/zTE4y+Z7JN5Pk14BnyUkExgcYKzCCMJ4trTvzf58vzcTef23vBe3ddWtn1dwKWBm/vcnYacpW0Zi0Fz9mfPbOir0bxOyFsJV9A4oFyiZrKNSZTJ7LRDeJTAVZiucuCKOSVpqxtl+ABYuYacZUvT2FqElEPkJpUbjxtGRPN+nppTzmPRS8rKmS2MoEegoJYjdFHPIvO8Wf+VjoMEKVBNSIo/YGukih3iwKgS3Ve5FEgLGB3cFgcHNl174pubA/H/GWRbxCR0Zdp+Y+Kbw7oDNx3djtup75mAvTxxxZEVEzgXswnMppOhuYlnzHdeNu4SBMFaKoGkNN2IU8rp9AAC2ZzAurw5n0ry/r39WDyDIcgs7j8zxPEG2ZcC24Ac4TD7tuLjuN0tanXJiBQygJRN1ZoYUtzFl8nuvG0H8dSa/gEDSOqIqg4C8CzYT3SFwbLQr8hsaPL4dcQOfpJlhxTCP+X66bK6N5sv35NEY1JBKoS49wr02jus9VRHC9QE2ijmPrvxdlNBy0cvtHwuqJwGIrhoEGFrpmTSum3uo8C8VjS8RUxXnujdU9zUa1qO9EoN36WwuoiLQmBf/MBLpsH2SPxTVd8LmV01Qcyg+5Vr2gK++KvK8s0JVJ5TRlAQPNTLt9yzjNchrv13nGLXiQEu8ydkfDfiu3B00WeHbyag60A1OIh+y6VlLfF3g/PE7m56FHxxR5VuOX4Xo7s5Ai93QKT4fROFaL0I+GY3Vp7R9QSwMEFAACAAgACCoHQ/kkRSqeAAAA0gkAAAoAEQDOtNGnz7AuYm1wVVQNAAdE2AFSRNgBUkTYAVLtVMENgDAIrE9ffh3BCRzAvxs6lQudjemvFg5oYmIkaRoL2Du4su3nmG5b81rKPuU1pPk+P4r/txcNmhdajC+4ShJSEeahxoswHj31Z8slY4QlnsAo/AZEsRg9eDmBuBlEd0DIBgRdO0aTyvln0wOjo0ZWMXSto3oz2eUUxQg7Rj4lPAda/NVGu/UQmD2+Ga7OJ5KEiZ8FI4zv4aN2AVBLAwQUAAIACAB6dAZDU/HA0+wAAAAmEAAADAARANGnz7C9+LbILmJtcFVUDQAHoQkBUkibAVJImwFS7VZLDsJACB1PYBcuPIHxBD2Acev9r+ENlLSJi8K8eTDUalLCJG0DA49fuT0uQ5lolHOVc5dzknMo5+n781gMeu38dyy0lfpHd6ZOE7NY2B+tvngGVJPXJjDSlNia/njjYzrPJOtrZVaDYxqq5WKlmscCOLZeLDXdFCzNik3EwsiT/ah7k0k9riXgqtkgjCdZ/aLvz8Ky1V/GnKuLYJJ5B2OcdLh2v2sOMCquvDSFvfHHbU5OWi8Wb/P29z6DHbzm5gVrxZYi7Xwz1OlYzG2hf20I5CVWJ4w5M86BoRQOddYCs+q075w8O/8svwFQSwMEFAACAAgAknMGQxsdTvXDAAAAfgsAAAoAEQDS0c3qs8kuYm1wVVQNAAf5BwFSRJsBUkSbAVJz8q3jZgADMyDWAGIjIBYGYkYGCbC4B1QeFfwflGh4uQsIaOEcJGOpYQa6OBxgVYkshVscq3m4AEGnIYvgYuNyLI7wIhg1xDiNGHdhhiO2kCXJXQQF8RiCHCLIDsGhhUJ3EYwvMqKYRHeRaiExyjCS1aByFzaN5LmLSIDfXWgiqOqJtIoqZSaagXgDmtQoIDLUiDEEr3fJK9rJyLx0cRcZTiMxSVLiLjKqLtLDi8J0T0bewF1IUKv9RV6GxV2oDuJ2IQBQSwMEFAACAAgA5i0HQ5cBA6q8AAAAKgwAAAwAEQDV/dTa0afPsC5ibXBVVA0AB2ffAVJn3wFSZ98BUnPy1eJhAAMzINYAYmcg5gdiRgYJsPgXboZRMAzAzP8EELJKXOqxGkiS7RQ6G00KjYFVOx4ufsXEuI1Ip2IqwGUUTf2C323Eu5ZIo+gTL3gSBvEOxmUFfr/AcwqeBEB8vsPqHjwOo8QvuDI+SfFCfJZBCyjq+oUqaYxappHhFzJyAcHihdScToZfKMyztAsEMvI+fu8QH9poppGR96lSJmPN12QnD/z5Dn8lSLDxQF6rgEhATJySUUqMSAAAUEsDBBQAAgAIAI4zCENqO8sPLgAAACoDAAAOABEAvMzQ+NGnz7DQoS5ibXBVVA0AB5c6A1K3OgNSlzoDUnPy1WJmAAMzINYAYm4gFgViRgYJsPgXJgZMMOc/ATSqhhpqWs79x49G1dBNDQBQSwMEFAACAAgAJDQIQ4lxJWacAQAA5iEAAAwAEQC8zND40afPsC5ibXBVVA0AB647A1JgtQBS9B8DUu1YyQ0CMQwMTSAefJB4UAEF8KcpKqIqfvTAaoXQarNxZsbOAlKi5JM7Hnts53J9HNJYzkM7De02tO3QNmk39t/f49Ny3D97/XrtOPwoDh8Loaxlcea0E9xtOq06357gMfXS2pYn2puV5Lc4rUp6Bhr5EPJoW2CaYIy1qVZk3LCliLp7tAp

c7nloiFXYtlrSOwQ3+GX2yRQOCIaLJlfqlHFgl+fXth/C2wPCyn79oKgDEbwHh2rEmADSjjLXAsCILoJDThxsnZtFFWABASn1lAS1Fg721ZAXO66ZNHugXETG2YlSjTg/PZVfyFG4x8rR8/sHzVsvSqAUiduBtg8HkP7bhel2+KGFKJ7oCAwvmsWtFEOvgANFmOyJoFwb5w82Odg4sLdjHbmxLRL/hiRIMhsH5XGz58r+QdAnyh4oFySkTKkW4DvTGwYHITiNTWdlVvR8cLDBCm6iNV5iLZT9RXcaleZKhSMEBs4DHce/BvvlxsIifEZpJFNNf2XPFs4F6gebTAUh4FCpXyMKjd6tEbv32nHoOPTacfhzHF5QSwECFwsUAAIACAByKwdDzex8W2kCAAASBgAACgAJAAAAAAAAACAAgIEAAAAAzrSypbfFLmJtcFVUBQAHvdoBUlBLAQIXCxQAAgAIAAgqB0P5JEUqngAAANIJAAAKAAkAAAAAAAAAIACAgaICAADOtNGnz7AuYm1wVVQFAAdE2AFSUEsBAhcLFAACAAgAenQGQ1PxwNPsAAAAJhAAAAwACQAAAAAAAAAgAICBeQMAANGnz7C9+LbILmJtcFVUBQAHoQkBUlBLAQIXCxQAAgAIAJJzBkMbHU71wwAAAH4LAAAKAAkAAAAAAAAAIACAgaAEAADS0c3qs8kuYm1wVVQFAAf5BwFSUEsBAhcLFAACAAgA5i0HQ5cBA6q8AAAAKgwAAAwACQAAAAAAAAAgAICBnAUAANX91NrRp8+wLmJtcFVUBQAHZ98BUlBLAQIXCxQAAgAIAI4zCENqO8sPLgAAACoDAAAOAAkAAAAAAAAAIACAgZMGAAC8zND40afPsNChLmJtcFVUBQAHlzoDUlBLAQIXCxQAAgAIACQ0CEOJcSVmnAEAAOYhAAAMAAkAAAAAAAAAIACAgf4GAAC8zND40afPsC5ibXBVVAUAB647A1JQSwUGAAAAAAcABwDRAQAA1QgAAAAA


[Script]
dim Obj
set Obj = createobject("WScript.Shell")
YN = Obj.Popup("学习完成后是否自动关机？", 0, "自动关机？", 36)

Call Plugin.Web.Bind("WQM.exe")
Call Plugin.Web.Go("https://www.wendangku.net/doc/a08996135.html,/index.asp")

Call Plugin.Web.Tips("请等待页面加载完成！")
Call Plugin.Web.SetSize(1000, 750)
Delay 10000
//Call Plugin.Web.TabClose()
//Call Plugin.Web.TabGoTo(1)
Call Plugin.Web.HtmlInput("身份证", "id:loginName")
Delay 500
Call Plugin.Web.HtmlInput("密码", "id:password")
Delay 500
Call Plugin.Web.LeftClick(171, 308)
Call Plugin.Web.LeftClick(171, 308)
Delay 5000
Dim wzid(20)
wzid(0) = 0
wzid(1) = 61
wzid(2) = 62
wzid(3) = 63
wzid(4) = 64
wzid(5) = 70
wzid(6) = 72
wzid(7) = 75
wzid(8) = 71
wzid(9) = 73
wzid(10) = 74
wzid(11) = 65
wzid(12) = 66
wzid(13) = 67
wzid(14) = 68
wzid(15) = 69
wzid(16) = 0
wzid(17) = 0
wzid(18) = 0
wzid(19) = 0
wzid(20) = 0
Call Plugin.Web.Go("https://www.wendangku.net/doc/a08996135.html,/Learn_view.asp?Learn_kcb=14")
Delay 2000
set lok=createobject("wscript.shell")
If lok.popup("已经学习了部分课程，请按“确定”5秒后自动默认未开始学习。", 5, "是否已经学习了部分课程", 0) = 1 Then
Dim kskc
Rem srkc
kskc = InputBox("请输入你开始学习的课程章节:","输入开始学习章节",1)
If not IsNumeric(kskc) or kskc<=0 or kskc >15 Then
Goto srkc
End If
Else
kskc=1
End If
For i=kskc to 15
Call Plugin.Web.Go("https://www.wendangku.net/doc/a08996135.html,/onlineVideo.asp?id="&wzid(i))
Delay 5000
Dim xiaoxi
xiaoxi = Split(Plugin.Web.HtmlGet("html", "tag:SPAN&txt*"), "<")
Call Plugin.Web.Tips("准备学习"&xiaoxi(0))
For f = 1 To 75
// Call Plugin.Web.LeftClick(500, 320)
jd="正在学习"
jd = Plugin.Web.HtmlGet("html", "id:jd_box")
Delay 2000
If jd = "已完成" Then
f=80
Call Plugin.Web.TabClose()

Call Plugin.Web.TabGoTo(1)
Call Plugin.Web.Tips("已经完成"&xiaoxi(0)&"的学习！")
Delay 1000

Else
if f = 1 Then
Call Plugin.Web.LeftClick(892, 482)
End If
Delay 60000
End If
Next
Next

Call Plugin.Web.Go("https://www.wendangku.net/doc/a08996135.html,/Learn_view.asp?Learn_kcb=14")
If YN = 6 Then
If lok.popup("学习结束，系统将自动关机，如果不需要关机，请按“取消”按钮。", 5, "学习结束", 1) = 2 Then
Call Plugin.Web.Tips("学习结束！")
Else
Call Plugin.Web.Tips("学习结束，1分钟后自动关机！")
Obj.Run "shutdown /f /s /t 60"
End If
Else
Call Plugin.Web.Tips("学习结束！")
End If
EndScript