1. 展开附件 *.jpg 到 . 文件夹
2. Event(Form1.btnClearInfo.Click)
3. 令 form1.edtInfo.text = ""
4. (语句无法识别，可能有错误): End Event
5. Event(Form1.btnUserReg.Click)
6. 注释：用户注册，函数UserReg从Ansay.dll导出
7. 注释： 用户注册成功后函数返回1
8. 注释： 否则返回以下整型值：
9. 注释： -100表示连接服务器失败
10. 注释： -150表示注册失败
11. 注释： -151表示帐号为空
12. 注释： -152表示密码为空
13. 注释： -153表示帐号已存在
14. 注释： -154表示机器码已存在
15. 注释： -155表示注册超时"
16. 令 i = ansay.UserReg(Form1.edtUserId.text,Form1.edtPassowrd.text)
17. 令 Form1.edtInfo.text = Form1.edtInfo.text & Chr(13) & "用户注册返回=" & CStr(i)
18. (语句无法识别，可能有错误): End Event
19. Event(Form1.btnSendImage.Click)
20. 注释： 发送截图，函数SendImage从Ansay.dll导出
21. 注释： 发送截图成功后函数将返回14位题号的字符串
22. 注释： 否则返回以下字符串：
23. 注释： -100表示连接服务器失败
24. 注释： -101表示用登录失败
25. 注释： -102表示登录超时
26. 注释： -103表示登录账号为空
27. 注释： -104表示登录密码为空
28. 注释： -110表示查询积分失败
29. 注释： -111表示积分不够
30. 注释： -112表示查询积分超时
31. 注释： -120表示发送截图超时
32. 令 QuestionNo = ansay.SendImage(Form1.edtUserId.text,Form1.edtPassowrd.text,CInt(Form1.edtItemNo.text),CInt(Form1.edtFormHandle.text),CInt(Form1.edtXBegin.text),CInt(Form1.edtYBegin.text),CInt(Form1.edtWidth.text),CInt(Form1.edtHeight.text),CInt(Form1.edtTimeOut.text))
33. 令 Form1.edtQuestionNo.text = QuestionNo
34. 令 Form1.edtInfo.text = Form1.edtInfo.text & Chr(13) & "发送截图返回=" & QuestionNo
35. (语句无法识别，可能有错误): End Event
36. Event(Form1.btnSendFile.Click)
37. 注释： 发送图片文件，函数SendFile从Ansay.dll导出
38. 注释： 发送图片文件成功后函数将返回14位题号的字符串
39. 注释： 否则返回以下字符串：
40. 注释： -100表示连接服务器失败
41. 注释： -101表示用登录失败
42. 注释： -102表示登录超时
43. 注释： -103表示登录账号为空
44. 注释： -104表示登录密码为空
45. 注释： -110表示查询积分失败
46. 注释： -111表示积分不够
47. 注释： -112表示查询积分超时
48. 注释： -130表示文件路径错误
49. 注释： -131表示发送图片文件超时
50. 注释： -132表示图件文件格式无效
51. 令 QuestionNo = ansay.SendFile(Form1.edtUserId.text,Form1.edtPassowrd.text,Cint(Form1.edtItemNo.text),"test.jpg",Cint(Form1.edtTimeOut.text))
52. 令 Form1.edtQuestionNo.text = QuestionNo
53. 令 Form1.edtInfo.text = Form1.edtInfo.text & Chr(13) & "发送图片文件返回=" & QuestionNo
54. (语句无法识别，可能有错误): End Event
55. Event(Form1.btnGetAnswer.Click)
56. 注释： 获取答案，函数GetAnswer从Ansay.dll导出
57. 注释： 根据题号QuestionNO返回问题答案
58. 令 Answer = ansay.GetAnswer(Form1.edtQuestionNo.Text)
59. 令 Form1.edtInfo.text = Form1.edtInfo.text & Chr(13) & "获取答案返回=" & Answer & ", 题号=" & Form1.edtQuestionNo.text
60. (语句无法识别，可能有错误): End Event
61. Event(Form1.btnGetCredits.Click)
62. 注释： 查询积分，函数GetCredits从Ansay.dll导出
63. 注释： 查询成功将返回用户积分值
64. 注释： 否则返回以下整型值：
65. 注释： -100表示连接服务器失败
66. 注释： -101表示用登录失败
67. 注释： -102表示登录超时
68. 注释： -103表示登录账号为空
69. 注释： -104表示登录密码为空
70. 注释： -110表示查询积分失败
71. 注释： -111表示积分不够
72. 注释： -112表示查询积分超时
73. 令 i = ansay.GetCredits(Form1.edtUserId.text,Form1.edtPassowrd.text)
74. 令 Form1.edtInfo.text = Form1.edtInfo.text & chr(13) & "查询积分=" & Cstr(i)
75. (语句无法识别，可能有错误): End Event
76. Event(Form1.btnReport.Click)
77. 注释： 答案报错，函数Report从Ansay.dll导出
78. 注释： 根据题号QuestionNO向服务器答报错
79. 注释： 报错成功后函数返回1
80. 注释： 否则返回以下整型值：
81. 注释： -140表示汇报失败
82. 注释： -141表示题号错误
83. 注释： -142表示问题未答
84. 注释： -143表示问题已报错了
85. 注释： -144表示上报时间已过(接到答案10分钟后不可再报错)
86. 注释： -145表示上报超时
87. 令 i = ansay.Report(Form1.edtQuestionNo.text)
88. 令 Form1.edtInfo.text = Form1.edtInfo.text & chr(13) & "!!!答案报错返回=" & Cstr(i) & ", 题号=" & Form1.edtQuestionNo.text
89. (语句无法识别，可能有错误): End Event