基于迅雷aplayer编写的视频播放器源码

time ＝ APlayer_GetPosition (aplayer)
播放进度.hour ＝ 绝对取整 (time ÷ 3600000)
播放进度.minutes ＝ 绝对取整 ((time ÷ 3600000 － 播放进度.hour) × 60)
播放进度.second ＝ 绝对取整 (((time ÷ 3600000 － 播放进度.hour) × 60 － 播放进度.minutes) × 60)
进度标签 ＝ 到文本 (播放进度.hour) ＋ “:” ＋ 到文本 (播放进度.minutes) ＋ “:” ＋ 到文本 (播放进度.second) ＋ “/” ＋ 到文本 (视频时长.hour) ＋ “:” ＋ 到文本 (视频时长.minutes) ＋ “:” ＋ 到文本 (视频时长.second)

.判断开始 (绝对取整 (APlayer_GetPosition (aplayer) ÷ 1000) ≠ 滑块条_进度条) ' 该判断有效解决子程序 <进度条显示>（Aplayer播放进度与进度条位置实时一致）和 “_进度条_位置被改变”产生的冲突
time ＝ 滑块条_进度条 '
播放进度.hour ＝ 绝对取整 (time ÷ 3600)
播放进度.minutes ＝ 绝对取整 ((time ÷ 3600 － 播放进度.hour) × 60)
播放进度.second ＝ 绝对取整 (((time ÷ 3600 － 播放进度.hour) × 60 － 播放进度.minutes) × 60)
进度标签 ＝ 到文本 (播放进度.hour) ＋ “:” ＋ 到文本 (播放进度.minutes) ＋ “:” ＋ 到文本 (播放进度.second) ＋ “/” ＋ 到文本 (视频时长.hour) ＋ “:” ＋ 到文本 (视频时长.minutes) ＋ “:” ＋ 到文本 (视频时长.second) '
延迟 (500)
APlayer_SetPosition (aplayer, 滑块条_进度条 × 1000) '
时钟1.时钟周期 ＝ 100