发一个人工代答题源码！用的是简单人工代答/每题7题多点

jdda

官网： www.jdda.net
作者qq群：146761719    插件自己上官网下载最新版本

系统优势:
1.最高永久6折(实现方法：充值时7折，作者享受下级用户充值的10%抽成)
2.无论是一线用户还是作者都可以通过上述第一条实现自己成本的最小化与收益的最大化。
3.365*24全年不间断答题，过年也不中断。
4.质量最稳定的答题系统,错题超时全不扣分。
5.注册用户直接送分测试，不够用再找管理拿。

常用函数：
注意：本插件为VC编写的Com组件，支持任何语言调用。但是调用前必须先创建对象：
set Jdda = CreateObject("FAQQuestion.FAQObject")
--------------------------------------------------------------------------------------------------------------------
截图并发送　TID = Jdda.SendImage("验证串",题目类型ID, 起点x, 起点y, 截图宽, 截图高, 超时设定/秒)
--------------------------------------------------------------------------------------------------------------------
直接发送文件 TID = Jdda.SendFile("验证串", 题目类型ID, "图片路径", 超时设定 秒)
--------------------------------------------------------------------------------------------------------------------
获取答案 Answer=Jdda.ReceiveAnswer(题目ID)   
--------------------------------------------------------------------------------------------------------------------
发送错误报告 Jdda.Report(题目ID)
--------------------------------------------------------------------------------------------------------------------
下面是调用例子：

1. 功能 简单答()
   
2.     Jdda=com("FAQQuestion.FAQObject")
   
3.     i=0
   
4. dd:
   
5.         TID = Jdda.SendFile("上传密码串-登录后显示在网站上部","1001","c:\\screen.bmp" , "300")         
   
6. n:
   
7.          var Answer = "-7"        
   
8.         如果(Answer == "-7")            
   
9.             i=i+1
   
10.             Answer = Jdda.ReceiveAnswer(TID)
    
11.             辅助.等待(1000)
    
12.         否则            
    
13.             goto m            
    
14.         如果结束
    
15.   if(i>48)            
    
16.    goto nn         
    
17.         endif
    
18.         goto n        
    
19. m:        
    
20.         辅助.消息框(Answer)
    
21.         如果(Answer >0)            
    
22.             辅助.消息框(Answer)
    
23.         否则
    
24.             goto n            
    
25.         如果结束
    
26.     如果结束   
    
27. nn:   
    
28. 功能结束

复制代码