程序的设想：编写一个自动ftp取数的程序，设定程序在规定的时间从已知的ftp服务器自动下载已知的文件！
要实现这个目的，就需要在程序里加入伺服的模块，到了设定时间自动运行下载的功能。
程序设定了三个模块，第一个模块实现托盘的功能，点击右键弹出相应的功能（已实现，见图）
第二个模块是系统设置，比如时间，下载的目录等（已实现，见图）
第三个模块时伺服的模块，关键代码：
Do While True
   If system_auto_run = 1 Then ‘判断是不是自动取数
      If auto_time >= time_time And auto_time <= timetime + 5 Then‘时间判断
            。。。。。。 ’开始运行所设定的程序行
       end if
   else
      Exit Sub
   End If
   DoEvents
Loop
问题是，当我的程序进入上面的代码后，托盘右键失效了，弹不出菜单，而且通过 Windows 任务管理器察看 这个程序的cpu占用率达到100%，请帮忙！！！

没有人知道吗

不知道哦，在学习中

Do While True
   If system_auto_run = 1 Then ‘判断是不是自动取数
      If auto_time >= time_time And auto_time <= timetime + 5 Then‘时间判断
            。。。。。。 ’开始运行所设定的程序行 '你这中间是什么代码？你不说的话神也帮不了你。
       end if
   else
      Exit Sub
   End If 
　 DoEvents　 
Loop

[[it] 本帖最后由 Joforn 于 2008-1-27 17:27 编辑 [/it]]

使用这样的循环不好,我看还是用timer为好.
因为循环的话它会一直在使用CPU,只要条件没有达到,每秒钟不知道会循环多少次(取决于你的CPU速度),也就是你看见的CPU使用了100%.