/** *@ namne DNF自动登录分材料 *@ author onRoad 有共同学习者请加 QQ 2801623141 *@ data 2012-10-20 *@ Coyright * */ dnfPath="" //"游戏路径" qqPath="" //"QQ号文本路径" qqCount=1 //"QQ数量" whichQQ=1 //"第几个号" bigMoney=0 //"大号分给小号金钱数量" smallMoney=0 //"小号交个大号金钱数量" roleCount=0 //"小号角色数量" switchRolesCount=0 //"取一次材料交给多少个角色" weiRui = "" //微锐上传密码串 wsjk=0 //"无色小金块" hsjk=0 //"黑色小金块" lyt=0 //"炉岩炭" sbp=0 //"碎布片" //Dim dnfPath //Dnf insert path //Dim roleCount //dnf role numbers // ///** temp varible **/ // //dnfPath = "D:\地下城与勇士\start\DNFchina.exe" //qqPath = "E:\西北2.txt" //roleCount = 16 //qqCount = 5 //whichQQ = 1 //switchRolesCount = 8 dnfPath = Form.dnfPath.Text qqPath = Form.qqPath.Text qqCount = Form.qqCount.Text whichQQ = Form.whichQQ.Text roleCount = Form.roleCount.Text switchRolesCount = Form.switchRolesCount.Text bigMoney = Form.bigMoney.Text smallMoney = Form.smallMoney.Text wsjk = Form.wsjk.Text hsjk = Form.hsjk.Text lyt = Form.lyt.Text sbp = Form.sbp.Text weiRui = Form.weiRui.Text qqCount = CInt(qqCount) whichQQ = CInt(whichQQ) roleCount = CInt(roleCount) bigMoney = CInt(bigMoney) smallMoney = CInt(smallMoney) /****************************************/ /* handle DNF log info com from file for read */ Dim QQNum //instore qq accout Dim QQpass //instore qq passowrd Dim region //instore each region Dim services //instore each region every services Dim CH //频道 QQNum = "" QQpass = "" region = "" services = "" CH = "" //窗口句柄 Dim hand Dim Hwnd Dim validateFlag //tmep varible flag Dim roleNum //which role Dim tempI //循环次数临时变量 Dim roles(15) //角色数量 坐标 Dim judgeX, judgeY //验证码起始坐标 Dim Answer //微锐返回验证码值 Answer="" judgeX = 0 : judgeY = 0 roleNum = 0 tempI = 1 validateFlag = true tWsjk = wsjk * switchRolesCount tHsjk = hsjk * switchRolesCount tLyt = lyt * switchRolesCount tSbp = sbp * switchRolesCount tempI = roleCount / switchRolesCount Dim loginConten //日志记录内容 loginConten = "" //16个角色坐标 roles(0)="90,190":roles(1)="220,190":roles(2)="350,190":roles(3)="480,190":roles(4)="610,190":roles(5)="740,190" roles(6)="90,400":roles(7)="220,400":roles(8)="350,400":roles(9)="480,400":roles(10)="610,400":roles(11)="740,400"