MsgBox "帐号文件不存在" EndScript end if //判断帐号文件存在不 Plugin.hauilang.qukongge(zhlj)//去掉空行和空格 End Sub //分割上号 Sub 分割上号() Text = Plugin.File.ReadFileEx(zhlj) txt行=Split(Text,"|") ii = 0 Rem ww If txt行(ii)=""then/////111111111111 Call Plugin.Media.Beep(2523, 400) MsgBox "帐号练完了" EndScript Else /////111111111111 //zhanghaomima=Split(txt行(ii),"----") zhanghaomima=Split(txt行(ii),fgf) If ubound(zhanghaomima)>=2 then If zhanghaomima(2)= "帐号封号" then//帐号封号 Goto AAAAAAAAA完成 End if End if//帐号封号 If ubound(zhanghaomima)>=2 then If zhanghaomima(2)= "体力不够" then//帐号封号 Goto AAAAAAAAA完成 End if End if//帐号封号 If ubound(zhanghaomima)>=2 then If zhanghaomima(2)= "级数不够" then//帐号封号 Goto AAAAAAAAA完成 End if End if//帐号封号 If ubound(zhanghaomima)>=2 then If zhanghaomima(2)= "帐号无人" then//帐号无人 Goto AAAAAAAAA完成 End if End if//帐号无人 If ubound(zhanghaomima)>=2 then//帐号异常 If zhanghaomima(2)= "帐号异常" then//帐号异常 Goto AAAAAAAAA完成 End if End if//帐号异常 If ubound(zhanghaomima)>=2 then /////AAAAAAAAA完成 If zhanghaomima(2)= "完成" then//完成 Goto AAAAAAAAA完成 End if//完成 //MsgBox "wancheng" //Exit sub End if/////AAAAAAAAA完成 If ubound(zhanghaomima)=0 then MsgBox"错误111 只有帐号没有密码。检查密码!在开启脚本?" EndScript End If If ubound(zhanghaomima)=1 and zhanghaomima(1)=""then/////bbbbbbbbbbb MsgBox "错误222 只有帐号没有密码。检查密码!在开启脚本" EndScript End if /////bbbbbbbbbbb // Call 游戏上号 //Call 覆盖帐号 Exit sub End If/////111111111111 Rem AAAAAAAAA完成 ii=ii+1 Goto ww End Sub //游戏上号 Sub 游戏上号() rem yxsh Call Plugin.hauilang.opencx(yxlj) Rem 进入游戏 FindPic 0,0,807,621,"C:\XYW\进入游戏.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then//进入游戏 MoveTo intX,intY Delay yc+ 100 LeftClick 1 else //进入游戏 Delay yc+ 500 Goto 进入游戏