return_num=return_num+1 t_return=timer EndIf Return 自动归位 Sub 出错原登 Rem 判断是否跳出系统设置 KeyPress 27,1 Delay 2000 VBSCall esc_1=GetPixelColor(354-move_x,443-move_y) VBSCall esc_2=GetPixelColor(454-move_x,496-move_y) If esc_1=esc_2 MoveTo 518-move_x,487-move_y Delay 100 LeftClick 1 Delay 1000 MoveTo 358-move_x,352-move_y Delay 100 LeftClick 1 Delay 10000 Else Delay 500 Goto 判断是否跳出系统设置 EndIf Rem 等待回到人物选择界面 VBSCall denglu_1=GetPixelColor(147-move_x,599-move_y) VBSCall denglu_2=GetPixelColor(190-move_x,600-move_y) If denglu_1=denglu_2 and denglu_1="FFFFFF" If err_denglu=1 MoveTo 243-move_x,378-move_y Delay 100 LeftClick 1 Delay 3000 KeyPress 13,1 ElseIf err_denglu=2 MoveTo 355-move_x,378-move_y Delay 100 LeftClick 1 Delay 3000 KeyPress 13,1 ElseIf err_denglu=3 MoveTo 465-move_x,376-move_y Delay 100 LeftClick 1 Delay 3000 KeyPress 13,1 ElseIf err_denglu=4 MoveTo 702-move_x,437-move_y Delay 100 LeftClick 1 Delay 3000 KeyPress 13,1 EndIf Delay 10000 Rem 判断是否进入游戏 VBSCall FindCenterColor(684-move_x,63-move_y,777-move_x,141-move_y,color,gwblue_x,gwblue_y) If gwblue_x>0 t_return_err=timer Goto 总起始 Else Delay 1000 KeyPress 13,1 Goto 判断是否进入游戏 EndIf Else Delay 1000 Goto 等待回到人物选择界面 EndIf Return 出错原登 Sub 记录log //得到现在的时间 nowtime=now //追加的方式写文本 //VBSCall MessageBox(todaytime&"~"&nowtime&"您打怪的数量为"&i) VBS set file=CreateObject("Scripting.FileSystemObject") VBS set mylog=file.createtextfile(url_game&"\凤舞精灵配置文件夹\log.txt") VBS set mylog=file.opentextfile(url_game&"\凤舞精灵配置文件夹\log.txt",forappending) VBS mylog.writeline(todaytime&"~"&nowtime&" 您打怪的数量为"&guai_dd) VBS mylog.writeline("一共归位了"&return_num&"次") VBS mylog.writeline("死亡时间为"&die_time) VBS mylog.writeline("摆摊时间为"&die_time) VBS mylog.Close Return 记录log Sub 死亡后回城摆摊 VBSCall sile_color_3=GetPixelColor(393-move_x,373-move_y) VBSCall sile_color_4=GetPixelColor(388-move_x,253-move_y) If sile_color_3=sile_color_4 and sile_color_3="FFFFFF" //死亡时间 die_time=now Gosub 记录log Delay 3000 Rem 回到城市 MoveTo 393-move_x,373-move_y Delay 300 LeftClick 1 Delay 15000 VBSCall cname=GetPixelColor(742-move_x,34-move_y) If cname=color_lvse Delay 1000 Rem 摆摊时打开包裹 KeyPress 66 1