visualbasic源码用api函数控制光驱与延时效果