脚本输出有错误，回合制游戏。新水浒q传。 - TC官方合作论坛

#include"login.t"
namespace sh
var self
function mminit(z)//插件初始化
main.ms[z]=com("mm.red")
if(type.vartype(main.ms[z])!="插件")
help.messagebox("插件对象创建失败")
return 0
endif
if(main.ms[z].ver()!="5.1423")
edit.settext("edit4"&(z+1),"插件版本不符:"&main.ms[z].ver())
return 0
endif
ret=main.ms[z].Reg("大漠API_KEY","sh")
if(ret==0)
edit.settext("edit4"&(z+1),"后台功能初始化失败:"&ret)
return 0
endif
edit.settext("edit4"&(z+1),"后台功能初始化成功")
bindtime=system.gettickcount()
main.ms[z].SetShowErrorMsg(0)
main.ms[z].ForceUnBindWindow(main.hWnds[z])
ret = main.ms[z].BindWindowEx(main.hWnds[z],"gdi2","dx.mouse.api","dx.keypad.api","",103)
if(ret==0)
edit.settext("edit4"&(z+1),"窗口绑定失败:"&main.ms[z].GetLastError())
return 0
endif
edit.settext("edit4"&(z+1),"窗口绑定成功,耗时"&(system.gettickcount()-bindtime)&"毫秒")
main.ms[z].SetShowErrorMsg(0)
if(main.ms[z].SetDict(0,"font.dict")==0)
edit.settext("edit4"&(z+1),"字库设置失败:"&main.ms[z].GetLastError())
return 0
endif
//main.ms[z].DownCpu(50)
return 1
endfunction
function enumhwnd()//枚举窗口句柄
hwnds=system.enum("新水浒Q传",0) //按标题枚举
str.split(hwnds,"|",hwnds) //分割枚举到的窗口
var len,Caption //申明变量用来保存窗口数量,窗口标题
arraysp.size(hwnds,len) //获取窗口数量
for(i=0;i<len;i++)
if(str.findstr(window.getwindowtype(hwnds[i]),"fsgamehero")<0) //如果窗口类名不符合
continue //直接略过
endif
Caption=window.getwindowcaption(hwnds[i]) //读取窗口标题
if(str.findstr(Caption," ")<0) //如果窗口标题不符合
continue //直接略过
endif
str.split(Caption," ",Caption) //将标题分割
var CaptionLen //标题分割出来的数组长度
arraysp.size(Caption,CaptionLen) //赋值
if(CaptionLen!=6) //长度不等于6[游戏名,标识,版本号,大区,服务器,角色名]
continue //略过
endif
arraysp.add(main.hWnds,hwnds[i],1) //添加窗口句柄
arraysp.add(main.pName,Caption[5],1) //添加角色名称
endfor
var GameWindowCount //游戏窗口数量
arraysp.size(main.hWnds,GameWindowCount) //获取游戏窗口数量
for(i=0;i<GameWindowCount;i++)
edit.settext("edit1"&(i+1),main.hWnds[i]) //显示窗口句柄
edit.settext("edit2"&(i+1),main.pName[i]) //显示角色名称
edit.settext("edit3"&(i+1),"未设置") //显示角色名称
edit.settext("edit4"&(i+1),"窗口初始化") //显示角色名称
endfor
return GameWindowCount //函数执行完毕,返回多开数量
endfunction
function NetTime()//获取网络上的时间
var data,arrlen,year,month,day,hrs,min,sec,DateTime
data=net.urlgetnetrequest("http://www.beijing-time.org/time.asp",6)//访问网址获得ANSI编码的数据
//t0=new Date().getTime(); nyear=2014; nmonth=10; nday=11; nwday=6; nhrs=10; nmin=11; nsec=58;
if(data=="")
help.messagebox("网络连接失败")
return "0000-00-00 00:00:00"
endif
data=str.strcut(data,str.findstr(data,"nyear="),true)//nyear=2014;\r\nnmonth=10;\r\nnday=11;\r\nnwday=6;\r\nnhrs=10;\r\nnmin=11;\r\nnsec=58;
data=str.replace(data,";","")//去掉分号
data=str.replace(data,"=","\r\n")//"="变成换行
str.split(data,"\r\n",data)//按换行符分割成数组
arraysp.size(data,arrlen)//得到数组大小
if(arrlen!=14)
return sh.NetTime()
endif
year =data[1]
month =data[3]
day =data[5]
hrs =data[9]
min =data[11]
sec =data[13]
data=null
DateTime=year&"-"&month&"-"&day&" "&hrs&":"&min&":"&sec
traceprint("当前网络时间: "&DateTime)
return DateTime
endfunction
//登录
var LastTime=0
function Login()
if(control.domodal("login")!=1)
help.exit()
endif
exptime=login.zcb.API_GetExpTime()
if(str.left(exptime,6)!="992001")
tip=help.readini("RegErrorCode",str.left(exptime,6),system.getprocesspath()&"res\\Config.ini")
help.messagebox(tip)
help.exit()
endif
exptime=str.aesencrypt(str.right(exptime,19),"bnEars")
LastTime=datetime.diff("n","2015-01-01 00:00:00",str.aesdecrypt(exptime,"bnEars"))
statictext.settext("BackGround","到期时间:"&str.aesdecrypt(exptime,"bnEars"))
timer.register("timerreg",60*1000)
endfunction
//定时检测到期时间
function timerreg_ontime()
now=datetime.diff("n","2015-01-01 00:00:00",sh.NetTime())
countdown=LastTime-now//倒计时秒
statictext.settext("countdown","剩余可用分钟:"&countdown)
if(countdown<0)
help.messagebox("使用到期,请续费")
sh.Close_click()
endif
endfunction
function init()//初始化
//设置路径
system.setcurrentpath(system.getprocesspath()&"\\res")
//
sh.Login()
//self.handle
self = window.getmyhwnd()
//裁剪窗口
sh.cutwindow(self,476,200)
//按钮背景
button.setbkimage("Close","WinBox_Close.bmp")
button.setbkimage("Min","WinBox_Min.bmp")
//button.setbkimage("Set","WinBox_Set.bmp")
button.setbkimage("Set","Btn_Login.bmp",4)
//枚举窗口
sh.enumhwnd()
endfunction
function cutwindow(hWnd,width,height)//裁剪窗口
var WinX,WinY,ClientX,ClientY
window.getwindowpos(hWnd,WinX,WinY)
window.getclientrect(hWnd,ClientX,ClientY,0,0)
hr=dllcall("gdi32.dll","int","CreateRectRgn","int",ClientX-WinX,"int",ClientY-WinY,"int",ClientX-WinX+width,"int",ClientY-WinY+height)
dl=dllcall("user32.dll","int","SetWindowRgn","int",hWnd,"int",hr,"bool",true)
endfunction
function Close_click()//退出
thread.beginthread("sh.Exit","")
endfunction
function Min_click()//最小化
window.setwindowmin(self)
endfunction
function Set_click()//设置
if(button.gettext("Start")=="开始")
sh.cutwindow(self,476,350)
button.settext("Start","保存")
else
sh.cutwindow(self,476,200)
button.settext("Start","开始")
endif
endfunction
function Start_click()//开始
if(button.gettext("Start")=="开始")
if(main.sydtapi=="")
return 0
endif
mainthread=thread.beginthreadex("main.Main","","main.Destory","")
else
//保存
endif
endfunction
function sh_pretranslatemessage(hwnd,message,wParam,lParam,time,x,y)//消息路由
if(message == 512)//鼠标移动
if(window.getmousemovewndhand()!=control.gethandle("BackGround"))
return false
endif
dllcall("user32.dll","Long","ReleaseCapture")
window.sendmessage(self,#A1,2,1)
endif
return false
endfunction
function Exit()//退出
for(i=0;i<6;i++)
if(main.checkThreads[i]!=null)
thread.closethread(main.checkThreads[i])
endif
if(main.taskThreads[i]!=null)
thread.closethread(main.taskThreads[i])
endif
if(main.ms[i]!=null)
main.ms[i].UnBindWindow()
endif
if(edit.gettext("edit4"&(i+1))=="")
continue
endif
edit.settext("edit4"&(i+1),"停止,准备退出")
endfor
main.hWnds=null
main.pName=null
main.ms=null
main.taskThreads=null
main.checkThreads=null
help.exit()
endfunction
function sydtfunc_selectchanged()//答题功能选择
select(combo.getcursel("sydtfunc"))
case 0://题分查询
statictext.settext("sydttext","格式帐号/密码如:xx0001/123456")
case 1://帐号注册
statictext.settext("sydttext","格式帐号/密码如:xx0001/123456")
case 2://充值题分
statictext.settext("sydttext","格式帐号/充值卡如:xx0001/591E873A99F85AE")
case 3://自主扣分
statictext.settext("sydttext","格式帐号/密码/分数如:xx0001/123456/10")
case 4://答题登录
statictext.settext("sydttext","格式帐号/密码如:xx0001/123456")
endselect
endfunction
function sydtbtn_click()//答题功能执行
var p,sendstr
if(str.findstr(edit.gettext("sydtedit"),"/")<=0)
edit.settext("sydtresult","格式错误!")
return 0
endif
str.split(edit.gettext("sydtedit"),"/",p)
select(combo.getcursel("sydtfunc"))
case 0://题分查询
sendstr=str.format("getpoints/username/%s/password/%s",p[0],p[1])
case 1://帐号注册
sendstr=str.format("register/username/%s/password/%s/author/q273814",p[0],p[1])
case 2://充值题分
sendstr=str.format("charge/username/%s/cards/%s",p[0],p[1])
case 3://自主扣分
sendstr=str.format("ownpoints/username/%s/password/%s/points/%s/author/q273814",p[0],p[1],p[2])
case 4://答题登录
sendstr=str.format("login/username/%s/password/%s/mode/1",p[0],p[1])
endselect
sy=com("sy.dt")
ret=sy.Send(sendstr,"")
if(ret==1)
ret="成功"
main.sydtapi=sy.send("getmyapi/username/"&p[0]&"/password/"&p[1])
endif
sy=null
edit.settext("sydtresult",ret)
endfunction
function destroy()
login.zcb.API_LoginOut()
endfunction
endnamespace
namespace main
var hWnds=array[0] //窗口句柄数组
var pName=array[0] //角色名称数组
var ms=array[6] //插件数组
var mainthread=0 //线程句柄
var taskThreads=array[6] //主线程数组
var checkThreads=array[6] //检测线程数组
var sydtapi="顺逸答题API_KEY"
function Main()//入口函数
var WinCount
arraysp.size(hWnds,WinCount)
for(z=0;z<WinCount;z++)
if(taskThreads[z]==null)
taskThreads[z]=thread.beginthread("main.start",z)
endif
endfor
endfunction
function Destory()//摧毁
endfunction
function start(z)//启动
edit.settext("edit4"&(z+1),"第"&(z+1)&"条多开线程启动")
if(sh.mminit(z)==0)
return 0
endif
checkThreads[z]=thread.beginthread("main.check",z)
//==========================
edit.settext("edit3"&(z+1),list.getchecktext("funclist"))
select(list.getchecktext("funclist"))
case "自动遇怪":
main.autofight(z)
default :
help.sleep(1000)
endselect
endfunction
function autofight(z)//自动战斗
help.sleep(1000)
for(i=0;i<31536000;i++)//循环60秒*60分*24小时*365天次
//自动走路
if(check.getstate("autorun")&&(i%10==0))//如果i是10的倍数
ms[z].MoveTo(740+help.randto(-4,4),8+help.randto(-4,4))
help.sleep(help.randto(20,50))
ms[z].LeftClick()
help.sleep(help.randto(20,50))
ret=ms[z].FindStr(353,288,447,311,"开始|取消","eeeeee-303030",1.0,0,0)
if(ret==1)//取消自动走路
i--
continue//直接重新循环再来一次
endif
endif
//判断自动战斗按钮
ret=ms[z].FindStr(683,43,800,92,"自动","eeeeee-303030",1.0,0,0)
if(ret>-1)
ms[z].MoveTo(750+help.randto(0,30),70+help.randto(0,5))
help.sleep(help.randto(20,100))
ms[z].LeftClick()
help.sleep(help.randto(20,100))
endif
//间隔1秒
help.sleep(1000)
endfor
endfunction
function check(z)//检测线程函数
edit.settext("edit4"&(z+1),"第"&(z+1)&"条检测线程启动")
help.sleep(1000)
while(true)
help.sleep(1000)
edit.settext("edit4"&(z+1),"检测验证码")
help.sleep(1000)
var ret,intX,intY
if(ms[z].FindStr(0,0,800,600,"请选择","00fcf8-030303",1.0,intX,intY)<0)
ret=ms[z].GetLastError()
if(ret==0)
edit.settext("edit4"&(z+1),"检测完毕,未发现验证码")
else
edit.settext("edit4"&(z+1),"验证码检测异常:"&ret)
endif
else
thread.suspendthread(taskThreads[z])
edit.settext("edit4"&(z+1),"出现验证码,开始截取")
if(ms[z].Capture(150,240,700,400, "yzm"&z&".bmp")==0)
edit.settext("edit4"&(z+1),"验证码截取失败")
else
ret=main.getyzm(z)
if(ret>0)
ms[z].MoveTo(75+ret*140+help.randto(-10,10),350+help.randto(-10,10))
help.sleep(help.randto(20,100))
ms[z].LeftDoubleClick()
help.sleep(help.randto(20,100))
endif
endif
thread.resumethread(taskThreads[z])
endif
endwhile
endfunction
function getyzm(z)//识别验证码
sy=com("sy.dt")
//申明变量发送字符串资源字符串资源ID 文件名
var sendstr,ResStr,ResId,filename
sendstr=str.format("sendvcode/myapi/%s/type/%s/timeout/%s/note/sh/author/q273814",sydtapi,"10005","60")
filename=system.getcurrentpath()&"yzm"&z&".bmp"
//发送验证码
//ResStr=dllcall(系统.获取当前路径()&"sy.dll","int","Send","Char *",sendstr,"Char *",filename)
ResStr=sy.Send(sendstr,filename)
if(str.left(ResStr,1)=="E")
edit.settext("edit4"&(z+1),"senderror")
else
ResId=ResStr
for(i=0;i<60;i++)
help.sleep(500)
//ResStr=dllcall(system.getcurrentpath()&"sy.dll","int","Send","Char *","getanswer/id/"&ResId,"Char *","")
ResStr=sy.Send("getanswer/id/"&ResId,"")
if(str.left(ResStr,7)!="WAITING")
break
endif
edit.settext("edit4"&(z+1),str.replace(ResStr,"WAITING","稍等"))
endfor
if(str.left(ResStr,7)!="WAITING")
edit.settext("edit4"&(z+1),"答案:"&ResStr)
sy=null
return ResStr
endif
edit.settext("edit4"&(z+1),"验证码识别失败:"&ResStr)
endif
sy=null
return 0
endfunction
endnamespace

复制代码

窗口 sh "新水浒Q传墨墨辅助 V2.108" 0,0,529,401 背景颜色:0| 窗口初始化:sh.init|窗口销毁:sh.destroy|消息路由:sh.sh_pretranslatemessage|
标签 countdown "剩余可用分钟:" 6,170,206,185 字体:(MS Sans Serif,8388608,FFFFFFFF,-11,64)| |
时钟 timerreg 480,0,500,20 | 时钟:sh.timerreg_ontime|
编辑框 edit46 "" 316,139,476,159 只读:1| |
编辑框 edit45 "" 316,120,476,140 只读:1| |
编辑框 edit44 "" 316,101,476,121 只读:1| |
编辑框 edit43 "" 316,82,476,102 只读:1| |
编辑框 edit42 "" 316,63,476,83 只读:1| |
编辑框 edit41 "" 316,44,476,64 只读:1| |
编辑框 edit36 "" 237,139,317,159 只读:1| |
编辑框 edit35 "" 237,120,317,140 只读:1| |
编辑框 edit34 "" 237,101,317,121 只读:1| |
编辑框 edit33 "" 237,82,317,102 只读:1| |
编辑框 edit32 "" 237,63,317,83 只读:1| |
编辑框 edit31 "" 237,44,317,64 只读:1| |
编辑框 edit26 "" 118,139,238,159 只读:1| |
编辑框 edit25 "" 118,120,238,140 只读:1| |
编辑框 edit24 "" 118,101,238,121 只读:1| |
编辑框 edit23 "" 118,82,238,102 只读:1| |
编辑框 edit22 "" 118,63,238,83 只读:1| |
编辑框 edit21 "" 118,44,238,64 只读:1| |
编辑框 edit16 "" 39,139,119,159 数字:1|只读:1|对齐:1| |
编辑框 edit15 "" 39,120,119,140 数字:1|只读:1|对齐:1| |
编辑框 edit14 "" 39,101,119,121 数字:1|只读:1|对齐:1| |
编辑框 edit13 "" 39,82,119,102 数字:1|只读:1|对齐:1| |
编辑框 edit12 "" 39,63,119,83 数字:1|只读:1|对齐:1| |
编辑框 edit11 "" 39,44,119,64 数字:1|只读:1|对齐:1| |
编辑框 edit06 "6" 0,139,40,159 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit05 "5" 0,120,40,140 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit04 "4" 0,101,40,121 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit03 "3" 0,82,40,102 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit02 "2" 0,63,40,83 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit01 "1" 0,44,40,64 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit40 "执行日志" 316,25,476,45 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit30 "挂机功能" 237,25,317,45 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit20 "游戏角色" 118,25,238,45 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit10 "窗口句柄" 39,25,119,45 有效:0|对齐:1|背景颜色:15790320| |
编辑框 edit00 "ID" 0,25,40,45 有效:0|对齐:1|背景颜色:15790320| |
按钮 Start "开始" 403,163,468,191 | 鼠标单击:sh.Start_click|
按钮 Set "△" 340,1,385,25 | 鼠标单击:sh.Set_click|
按钮 Min "一" 385,1,430,25 字体:(-13,0,0,0,400,0,0,0,134,0,0,0,0,)| 鼠标单击:sh.Min_click|
按钮 Close "×" 430,1,475,25 字体:(-16,0,0,0,400,0,0,0,134,0,0,0,0,)| 鼠标单击:sh.Close_click|
标签 BackGround "到期时间:0000-00-00 00:00:00" 1,1,475,199 字体:(MS Sans Serif,0,FFFFFFFF,-11,64)| |
选项卡 tabSet 1,200,475,349 | |
选项卡页面基本设置背景颜色:16185078| |
选项卡页面结束
选项卡页面功能设置背景颜色:16185078| |
复选框 autorun "自动遇怪时使用自动走路" 138,101,287,121 是否选中:1| |
标签 Static0 "鼠标点击左侧列表框进行功能选择在线挂机:此功能仅出现验证码的时候自动答题一个操作自动遇怪:答题后点击自动走路,出现怪物点击自动战斗分解武器:暂不开放此功能" 138,9,430,103 | |
列表框 funclist "功能选择" "在线挂机|自动遇怪|分解武器|" 0,1,111,126 | |
选项卡页面结束
选项卡页面技能设置背景颜色:16185078| |
选项卡页面结束
选项卡页面采集设置背景颜色:16185078| |
选项卡页面结束
选项卡页面答题设置背景颜色:16185078| |
标签 Static1 "目前版本题分无需用户自己提供" 146,8,417,23 字体:(MS Sans Serif,255,FFFFFFFF,-12,64)| |
编辑框 sydtresult "返回结果" 24,85,344,105 只读:1|字体:(-12,0,0,0,400,0,0,0,134,0,0,0,0,MS Shell Dlg 2)|文本颜色:16711680|背景颜色:15790320| |
下拉框 sydtfunc "题分查询|帐号注册|充值题分|扣除题分|答题登录|" 24,11,101,32 下拉模式:1|初始选项:0| 选择改变:sh.sydtfunc_selectchanged|
按钮 sydtbtn "确定" 364,80,424,108 字体:(-12,0,0,0,400,0,0,0,134,0,0,0,0,MS Shell Dlg 2)| 鼠标单击:sh.sydtbtn_click|
编辑框 sydtedit "" 24,56,424,76 字体:(-12,0,0,0,400,0,0,0,134,0,0,0,0,MS Shell Dlg 2)| |
标签 sydttext "题分查询格式:帐号/密码如:xx0001/123456" 24,36,418,51 | |
选项卡页面结束
选项卡页面其他设置背景颜色:16185078| |
选项卡页面结束
选项卡结束
窗口结束
窗口 login "登录/充值" 0,0,300,152 | 窗口初始化:login.init|消息路由:login.login_pretranslatemessage|
标签 userback " 注册/改密" 70,19,130,34 字体:(MS Sans Serif,0,16711935,8,64)| 鼠标单击:login.userback_click|
分组框 tip "用户名不能为空" 31,87,270,107 字体:(-11,0,0,0,400,0,0,0,0,1,2,1,34,MS Sans Serif)|对齐:2|边框颜色:12639424|标题背景颜色:12639424|客户区颜色:12639424|标题颜色:255|分组框模式:1| |
标签 Close "X" 278,2,298,18 字体:(MS Sans Serif,255,8421376,-16,64)| 鼠标单击:login.Close_click|
按钮 Btn_Login "登录" 31,110,270,135 | 鼠标单击:login.Btn_Login_click|
编辑框 pwdleft " 密码 :" 31,65,91,85 有效:0| |
编辑框 password "" 90,65,270,85 | |
标签 check1 " 充值 " 37,19,72,34 字体:(MS Sans Serif,0,255,8,64)| 鼠标单击:login.check1_click|
标签 check0 " 登录 " 2,19,37,34 字体:(MS Sans Serif,0,65280,-11,64)| 鼠标单击:login.check0_click|
编辑框 uidleft " 用户名 :" 31,40,91,60 有效:0| |
编辑框 username "" 90,40,270,60 | |
分组框 loginfrm "登录/充值" 0,0,300,150 字体:(-11,0,0,0,400,0,0,0,0,1,2,1,34,MS Sans Serif)|对齐:1|边框颜色:0|标题背景颜色:8421376|客户区颜色:12639424|标题颜色:16776960|分组框模式:1| |
窗口结束

复制代码