t3=int((t2-t1)*1000)
Set file=fso.OpenTextFile(filename,ForAppending)
file.WriteLine("电脑性能测试--"&t3)
file.Close
Gosub 开三国策
For jushu
p=p+1
sj1=Time
Plugin File.Writefile(filehandle,sj1)
Plugin File.Writefile(filehandle,"第")
Plugin File.Writefile(filehandle,p)
Plugin File.Writefile(filehandle,"局战局开始")
Plugin File.Writefile(filehandle,"---")
Rem 出征
IfColor 117,734,844139,0
//找交谈人物兰色
MoveTo 926,716
Delay yanshi
LeftClick 1
Else
MoveTo 823,711
//到貂婵小考确定
Delay yanshi
LeftClick 1
Goto 出征
EndIf
Rem 历史任务
MoveTo 338,362
Delay yanshi
LeftClick 1
Rem 开新战场
IfColor 241,171,B5FB52,0
//开新战场对话框绿点色
MoveTo 445,517
Delay yanshi
LeftClick 1
Else
MoveTo 338,362
Delay yanshi
LeftClick 1
Delay yanshi
Goto 开新战场
EndIf
Rem 开大漠雄鹰
MoveTo 175,133
Delay yanshi
LeftClick 1
Rem 开大漠确定
IfColor 284,321,5a2c39,0
//开大漠确定人物帽兰色
MoveTo 537,467
Delay yanshi*2
LeftClick 1
Else
MoveTo 175,133
Delay yanshi
LeftClick 1
Goto 开大漠确定
EndIf
Delay yanshi*10
Rem 按出战
MoveTo 172,136
Delay yanshi
LeftClick 1
Rem 按不装备
IfColor 372,341,8006B,0
//不装备对话框红点色
MoveTo 550,416
Delay yanshi
LeftClick 1
Else
MoveTo 892,551
Delay yanshi
LeftClick 1
Delay yanshi
Goto 按不装备
EndIf
Rem 出战后确定
Delay yanshi*80
MoveTo 919,695
Delay yanshi
LeftClick 1
Rem 春季点出兵
IfColor 919,663,102439,0
//出兵休息色
MoveTo 845,661
Delay yanshi
LeftClick 1
Else
MoveTo 919,695
//出战后确定
Delay yanshi
LeftClick 1
Delay yanshi
Goto 春季点出兵
EndIf
Rem 出曹仁铁枪确定
IfColor 194,136,B5FF52,0
//出兵界面绿色点
MoveTo 320,282