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

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

一、自动登陆源码：

说明：这个没什么好说的，查找网页元素的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 If

End Sub

Private Sub Command1_Click()

On Error Resume Next '错了断续

'dm.CaptureGif 0, 300, 640, 780, "ss.gif", 100, 20000

If 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.SetFocus

End If

SetWindowPos 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")

Delay 800

dm_ret = dm.FindStr(0, 0, 1024, 600, "确定", "000000-000000", 1#, intX, intY)

If intX >= 0 And intY >= 0 Then

SetCursorPos intX + 5, intY + 5

mouse_event &H2 Or &H4, 0, 0, 0, 0

End If

Delay 800

End Function

二、进入考试中心后，接下来就是自动答题了。

说明：1、将题目内容与题库内的题比较，在题库中找到题目后，然后将试卷中正确答案前的选择框选择上。（不知道这样说清楚了没有？还是看下面的视频吧）

endFcomp = 0

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '设置窗口总在最前面

dm_ret = dm.SetDict(0, "Song9.txt")

https://www.360docs.net/doc/af93412.html,eDict 0

ss:

For Cnt = 1 To 400

If GetAsyncKeyState(vbKeyEscape) Then Exit For

If endF = 17 And Fag = 2 Then

WebBrowser1.Document.parentwindow.scrollby 0, 100

Delay 10

dm.WheelDown

Delay 500

Label2.Caption = "正在完成判断题的第：18题。"

dm_ret = dm.FindStr(30, 50, 800, 600, "18题", "ff3300-000000", 1#, intX, intY)

If intX >= 0 And intY >= 0 Then

s = dm.Ocr(intX + 10, intY - 3, intX + 700, intY + 15, "000000-000000", 1#)

s = Left(s, Len(s) - 5)

Call anser2(s, intX + 25, intY)

End If

WebBrowser1.Document.parentwindow.scrollby 0, 200

dm.WheelDown

Delay 500

Label2.Caption = "正在完成判断题的第：19题。"

dm_ret = dm.FindStr(30, 50, 800, 700, "19题", "ff3300-000000", 1#, intX, intY)

If intX >= 0 And intY >= 0 Then

s = dm.Ocr(intX + 10, intY - 3, intX + 700, intY + 15, "000000-000000", 1#)

s = Left(s, Len(s) - 5)

Call anser2(s, intX + 25, intY)

End If

WebBrowser1.Document.parentwindow.scrollby 0, 300

dm.WheelDown

Delay 500

Label2.Caption = "正在完成判断题的第：20题。"

dm_ret = dm.FindStr(30, 50, 800, 800, "20题", "ff3300-000000", 1#, intX, intY)

If intX >= 0 And intY >= 0 Then

s = dm.Ocr(intX + 10, intY - 3, intX + 700, intY + 15, "000000-000000", 1#)

s = Left(s, Len(s) - 5)

Call anser2(s, intX + 25, intY)

End If

SetCursorPos 1010, 500

dm.LeftDown

SetCursorPos 1010, 300

dm.LeftUp

Delay 200

dm_ret = dm.FindStr(600, 150, 1000, 400, "提交试卷", "103e89-000000", 1#, intX, intY)

If intX >= 0 And intY >= 0 Then

SetCursorPos intX + 10, intY + 3

mouse_event &H2 Or &H4, 0, 0, 0, 0

End If

WebBrowser1.Document.parentwindow.scrollby 0, -500

Label2.Caption = "会做的我都做完了，你检查一下，没有做的请你自己完成。记得“提交试卷”啊。。。"

SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 '设置窗口总在最前面

Exit For

End If

dm_ret = dm.FindStr(30, 50, 800, 600, "】", "ff3300-000000", 1#, intX, intY) If intX >= 0 And intY >= 0 Then

s = dm.Ocr(intX, intY - 3, intX + 700, intY + 15, "000000-000000", 1#)

s = Left(s, Len(s) - 5)

endF = dm.Ocr(intX - 30, intY - 1, intX - 5, intY + 12, "ff3300-000000", 1#)

If endF = "" Then

MsgBox "程序不能正确识别您的电脑，请联系作者：QQ1276652066"

Exit For

End If

If endF = endFcomp Then '是原来的题，向下滚动

SetCursorPos intX - 30, intY

mouse_event &H2 Or &H4, 0, 0, 0, 0

dm.WheelDown

Delay 500

GoTo ss:

End If

If endFcomp = 40 Then

'MsgBox "单选题已经完成，下面进入多选题。"

Fag = Fag + 1

Set xlBook = Nothing

Set xlSheet = Nothing

End If

'Debug.Print s

Select Case Fag

Case 0

Label2.Caption = "正在完成单选题的第：" & endF & "题。"

Call anser(s, intX, intY) '进入单选查找答案

Case 1

Label2.Caption = "正在完成多选题的第：" & endF & "题。"

Call anser1(s, intX, intY) '进入多选查找答案

Case 2

Label2.Caption = "正在完成判断题的第：" & endF & "题。"

Call anser2(s, intX, intY) '进入判断查找答案

End Select

Else

MsgBox "不能进入考试，怎么回事？？" & Chr(13) + Chr(10) & "请联系本软件作者：QQ1276652066", vbQuestion, "出错了!!"

Exit For

End If

SetCursorPos intX - 30, intY

mouse_event &H2 Or &H4, 0, 0, 0, 0

dm.WheelDown

Delay 500

endFcomp = endF

Next