Sub 计时()

    开始时间 = now
    
    Do
		aaa = DateDiff("s", 开始时间, now)
		t1 = aaa mod 60
		t2 = Fix(aaa / 60) mod 60
		t3 = Fix(aaa / 3600)		
		text_t1 = String(2 - Len(t1), "0") & t1
		text_t2 = String(2 - Len(t2), "0") & t2
		text_t3 = String(2 - Len(t3), "0") & t3
		
		new_title = title&"  D4T WoW自动钓鱼运行中：已钓"&数量&"条，用时 " & text_t3 & ":" & text_t2 & ":" & text_t1
		Call Plugin.Window.SetText(hwnd, new_title)			
	Loop
End Sub

Sub OnScriptExit()
	UnlockMouse
	Call Plugin.Window.SetText(hwnd, title)	 
End Sub