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 进入游戏