PutAttachment ".", "*.jpg"
Event Form1.btnClearInfo.Click
form1.edtInfo.text = ""

End Event
Event Form1.btnUserReg.Click



'用户注册，函数UserReg从Ansay.dll导出
' 用户注册成功后函数返回1
' 否则返回以下整型值：
' -100表示连接服务器失败
' -150表示注册失败
' -151表示帐号为空
' -152表示密码为空
' -153表示帐号已存在
' -154表示机器码已存在
' -155表示注册超时"
i=plugin.ansay.UserReg(Form1.edtUserId.text,Form1.edtPassowrd.text)
 
Form1.edtInfo.text=Form1.edtInfo.text&Chr(13)&"用户注册返回="&CStr(i)


End Event
 Event Form1.btnSendImage.Click
' 发送截图，函数SendImage从Ansay.dll导出
' 发送截图成功后函数将返回14位题号的字符串
' 否则返回以下字符串：
' -100表示连接服务器失败
' -101表示用登录失败
' -102表示登录超时
' -103表示登录账号为空
' -104表示登录密码为空
' -110表示查询积分失败
' -111表示积分不够
' -112表示查询积分超时
' -120表示发送截图超时

QuestionNo =plugin.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))
Form1.edtQuestionNo.text = QuestionNo
Form1.edtInfo.text=Form1.edtInfo.text &Chr(13)& "发送截图返回=" & QuestionNo


End Event
Event Form1.btnSendFile.Click


' 发送图片文件，函数SendFile从Ansay.dll导出
' 发送图片文件成功后函数将返回14位题号的字符串
' 否则返回以下字符串：
' -100表示连接服务器失败
' -101表示用登录失败
' -102表示登录超时
' -103表示登录账号为空
' -104表示登录密码为空
' -110表示查询积分失败
' -111表示积分不够
' -112表示查询积分超时
' -130表示文件路径错误
' -131表示发送图片文件超时
' -132表示图件文件格式无效
QuestionNo =plugin.ansay.SendFile(Form1.edtUserId.text, Form1.edtPassowrd.text, Cint(Form1.edtItemNo.text),"test.jpg", Cint(Form1.edtTimeOut.text))
Form1.edtQuestionNo.text = QuestionNo
Form1.edtInfo.text = Form1.edtInfo.text&Chr(13)&"发送图片文件返回="&QuestionNo


End Event
Event Form1.btnGetAnswer.Click
' 获取答案，函数GetAnswer从Ansay.dll导出
' 根据题号QuestionNO返回问题答案
Answer=plugin.ansay.GetAnswer(Form1.edtQuestionNo.Text)
Form1.edtInfo.text = Form1.edtInfo.text&Chr(13)&"获取答案返回=" & Answer & ", 题号=" & Form1.edtQuestionNo.text




End Event
Event Form1.btnGetCredits.Click
' 查询积分，函数GetCredits从Ansay.dll导出
' 查询成功将返回用户积分值
' 否则返回以下整型值：
' -100表示连接服务器失败
' -101表示用登录失败
' -102表示登录超时
' -103表示登录账号为空
' -104表示登录密码为空
' -110表示查询积分失败
' -111表示积分不够
' -112表示查询积分超时

i =plugin.ansay.GetCredits (Form1.edtUserId.text, Form1.edtPassowrd.text)
Form1.edtInfo.text = Form1.edtInfo.text&chr(13)&"查询积分="&Cstr(i)

End Event
Event Form1.btnReport.Click
' 答案报错，函数Report从Ansay.dll导出
' 根据题号QuestionNO向服务器答报错
' 报错成功后函数返回1
' 否则返回以下整型值：