|
5#

楼主 |
发表于 2012-6-30 19:34:25
|
只看该作者
空间 远程答题
功能 整型 答题()
整型 是否找到,x,y,选项
循环(真)
是否找到=大漠.FindPic(700,250,850,350,"判断出现答题否.bmp","102030",0.9,0,x,y)
如果(是否找到!=-1)
整型 截图句柄,X,Y, 逗号
字符型 返回的结果,答案,IP端口,路径
选项=下拉框.得到选项("答题方式")
路径=系统.获取程序路径()
如果(选项==1)
截图句柄 = 大漠.FaqCapture(630,275,920,550,70,0,0)
IP端口=编辑框.获得文本("IP端口")
如果(大漠.FaqPost(IP端口,截图句柄,0,30 * 1000)==1)
循环(真)
返回的结果 = 大漠.FaqFetch()
如果(字符串.长度(返回的结果)>0)
答案=字符串.修剪(返回的结果,"OK:")
逗号=字符串.查找字符(答案,44)
X=转换.字符型转整型(字符串.截取(答案,0,逗号),0)
Y=转换.字符型转整型(字符串.移除(答案,逗号+1,真),0)
大漠.MoveTo(630+X,275+Y)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(200)
是否找到=大漠.FindPic(620,490,800,650,"确定.bmp","203040",0.9,0,x,y)
如果(是否找到!=-1)
大漠.MoveTo(x+10,y+5)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(1000)
跳出
如果结束
否则
辅助.等待(500)
如果结束
循环结束
如果结束
如果结束
如果(选项==0)
辅助.蜂鸣(1000,5000)
如果结束
如果(选项==2)
字符型 微锐密码串,微速密码串
微速密码串=编辑框.获得文本("微速")
如果(单选框.获得状态("微速答题"))
大漠.Capture(630,275,920,550,路径+"88.bmp")
返回的结果=微速.SendFile(微速密码串,1032,路径+"88.bmp",30)
循环(真)
答案 = 微速.GetAnswer(返回的结果)
如果(字符串.长度(答案)>0)
逗号=字符串.查找字符(答案,44)
X=转换.字符型转整型(字符串.截取(答案,0,逗号),0)
Y=转换.字符型转整型(字符串.移除(答案,逗号+1,真),0)
大漠.MoveTo(630+X,275+Y)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(200)
是否找到=大漠.FindPic(620,490,800,650,"确定.bmp","203040",0.9,0,x,y)
如果(是否找到!=-1)
大漠.MoveTo(x+10,y+5)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(1000)
跳出
如果结束
否则
辅助.等待(500)
如果结束
循环结束
如果结束
微锐密码串=编辑框.获得文本("微锐")
如果(单选框.获得状态("暗雪人工代答"))
整型 截图=大漠.Capture(630,275,920,550,路径+"88.bmp")
返回的结果=微锐.SendFile(微锐密码串,1032,路径+"88.bmp",30)
循环(真)
答案 = 微锐.GetAnswer(返回的结果)
如果(字符串.长度(答案)>0)
逗号=字符串.查找字符(答案,44)
X=转换.字符型转整型(字符串.截取(答案,0,逗号),0)
Y=转换.字符型转整型(字符串.移除(答案,逗号+1,真),0)
大漠.MoveTo(630+X,275+Y)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(200)
是否找到=大漠.FindPic(620,490,800,650,"确定.bmp","203040",0.9,0,x,y)
如果(是否找到!=-1)
大漠.MoveTo(x+10,y+5)
辅助.等待(50)
大漠.LeftClick()
辅助.等待(1000)
跳出
如果结束
否则
辅助.等待(500)
如果结束
循环结束
如果结束
如果结束
否则
跳出
如果结束
循环结束
返回 0
功能结束 |
|