无纸化学法用及考试系统(自动登陆及自动答题脚本.docVIP

下载本文档

17
0
约6.33千字
约 5页
2018-02-24 发布于河南
举报
版权申诉

无纸化学法用及考试系统(自动登陆及自动答题脚本.doc

1、本文档共5页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

无纸化学法用及考试系统(自动登陆及自动答题脚本

无纸化学法用及考试系统(自动登陆及自动答题脚本)一、自动登陆源码：说明：这个没什么好说的，查找网页元素的ID号，根据ID号填表。??On Error Resume Next? ? s = WebBrowser1.hwnd? ? If s 0 Then ny = MsgBox(如果你没有“提交试卷”,请选择“否”。否则，你会没有成绩。 Chr(13) + Chr(10) 请提交试卷后再退出本软件！, vbQuestion + vbYesNo, 请提交试卷后再退出本软件)? ? If ny = vbNo Then? ?? ???SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3??设置窗口总在最前面? ? Else? ?? ???WebBrowser1.Quit? ?? ???Set ie = Nothing? ?? ???xlBook.Close (True)? ?? ???xlApp.Quit? ?? ???Set xlApp = Nothing? ?? ???Set dm = Nothing? ?? ???Unload Me? ? End IfEnd SubPrivate Sub Command1_Click()On Error Resume Next 错了断续dm.CaptureGif 0, 300, 640, 780, ss.gif, 100, 20000If tID.Text Then? ? Set ie = GetObject(, InternetExplorer.Application)? ? WebBrowser1.Navigate Text1.Text 打开文本框中的网址? ? webbrowser1.WindowState = 1? ? Do Until WebBrowser1.ReadyState = 4 循环直到网址装载完毕? ?? ???DoEvents? ?? ???j = j + 1? ?? ???If j 65530 Then? ?? ?? ?? ?MsgBox 打开无纸学法用法考试网址失败，请联系管理员。? ?? ?? ?? ?Exit Sub? ?? ???End If? ? Loop? ? Delay 500? ? WebBrowser1.Document.All(type2).Click??单击选择“普法考试平台”? ? Delay 200? ? WebBrowser1.Document.All(name).Value = tID.Text??输入登陆用户名? ? WebBrowser1.Document.All(password).Value = 888888??输入登陆密码? ? Delay 100? ? WebBrowser1.Document.All.Tags(INPUT)(3).Click??单击“登陆”? ? Delay 500? ? Call InExam? ?输入正确，进入下一步Else? ? MsgBox 请输入你的登陆账号!? ? tID.SetFocusEnd IfSetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3??设置窗口总在最前面Private Function InExam()? ? On Error Resume Next? ? dm_ret = dm.FindStr(0, 0, 800, 700, 进入考试, 000000-000000, 1#, intX, intY)? ? If intX = 0 And intY = 0 Then? ?? ?? ?SetCursorPos intX, intY? ?? ?? ?mouse_event H2 Or H4, 0, 0, 0, 0? ? Else? ?? ???MsgBox 现在不是考试时间，请联系管理员。? ? End If? ? SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3??设置窗口总在最前面? ? Delay 800? ? dm_ret = dm.FindStr(200, 100, 1024, 800, 开始考试, 006699-000000, 1#, intX, intY)? ? If intX = 0 And intY = 0 Then? ?? ?? ?SetCursorPos intX, intY? ?? ?? ?mouse_event H2 Or H4, 0, 0, 0, 0? ? End If? ? dm_ret = dm.SetDict(0, Song10.txt)