暗雪代答按键精灵9脚本源码

脚本附件：Ansay.dll(未签名), test.jpg

运行环境：分辨率：1024x768 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.50.11632

@woloveweb2012/12/21

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  
' 否则返回以下整型值：  
' -140表示汇报失败  
' -141表示题号错误  
' -142表示问题未答  
' -143表示问题已报错了  
' -144表示上报时间已过(接到答案10分钟后不可再报错)  
' -145表示上报超时  
i=plugin.ansay.Report (Form1.edtQuestionNo.text)  
Form1.edtInfo.text=Form1.edtInfo.text&chr(13)&"!!!答案报错返回="&Cstr(i)&", 题号="&Form1.edtQuestionNo.text  
  
  
End Event