|
- #[HOTKEY]F11
- function main
- while true
- Wait(10)
- if not FindWindow("机上答卷",ziid) then
- if FindWindow("业余电台操作技术能力认定考核系统 CRAC-ArExam-CSB(模拟考试版) 20130601",zhuid) then
- ActiveWindow(zhuid)
- KeyPress("RETURN")
- wait(100)
- end if
- end if
- if FindWindow("机上答卷",ziid) then
- GetChildWindows(ziid, childWins)
- GetChildWindows(childWins[8], daan)
- GetChildWindows(childWins[13], jieshu)
- GetChildWindows(childWins[7], tihao)
- GetChildWindows(childWins[5], daanid)
- GetChildWindows(childWins[10], chakanbenti)
- GetChildWindows(chakanbenti[2], shitidaima)
- GetChildWindows(tihao[1], dqtihao)
- if CNum(GetTextBoxContent(dqtihao[1])) < 30 then
- SendWindowMessage(tihao[3], &H0201, 0, 0)
- Wait(10)
- SendWindowMessage(tihao[3], &H0202, 0, 0)
- Wait(10)
- SendWindowMessage(chakanbenti[1], &H0201, 0, 0)
- Wait(10)
- SendWindowMessage(chakanbenti[1], &H0202, 0, 0)
- stdm=GetTextBoxContent(shitidaima[1])
- daan=GetTextBoxContent(daan[5-CNum(GetTextBoxContent(daanid[1]))])
- WriteTextToFile("答案采集.txt", chr(13)&chr(10), true)
- WriteTextToFile("答案采集.txt", stdm&"答案:"&daan, true)
- Wait(10)
- else
- SendWindowMessage(jieshu[1], &H0201, 0, 0)
- Wait(10)
- SendWindowMessage(jieshu[1], &H0202, 0, 0)
-
- end if
- end if
- if FindWindow("操作证考试",cwid) then
- GetChildWindows(cwid, jieshu)
- if GetTextBoxContent(jieshu[1])="确定" then
- ret1=DllCall("user32.dll","int","GetWindowThreadProcessId","int",cwid,"int_ret",pid)
- ret2=DLLCALL("kernel32","int","OpenProcess","int",2035711,"int",0,"int",pid)
- ret3=DLLCALL("kernel32","int","TerminateProcess","int",ret2,"int",0)
- RunApp("C:\Program Files\CRAC_HamSoft\ArExam\ArExamCSB\ArExamCSB.exe")
- Wait(3000)
- end if
- end if
- wend
- end function
- function duqu()
- FindWindow("机上答卷",ziid)
- GetChildWindows(ziid, childWins)
- GetChildWindows(childWins[8], daan)
- GetChildWindows(childWins[7], tihao)
- GetChildWindows(tihao[1], dqtihao)
- GetChildWindows(childWins[5], daanid)
- GetChildWindows(childWins[10], chakanbenti)
- GetChildWindows(chakanbenti[2], shitidaima)
- Print("当前题号")
- print(CNum(GetTextBoxContent(dqtihao[1])))
- Print("试题代码")
- print(GetTextBoxContent(shitidaima[1]))
- Print("答案")
- print(GetTextBoxContent(daan[5-CNum(GetTextBoxContent(daanid[1]))]))
- end function
- function GetTextBoxContent(winID)
- ret = 256
- DllCall("user32.dll", "int", "SendMessageA", "int", winID, "int", 13, "int", 256, "str_ret", ret)
- GetTextBoxContent = ret
- end function
|