1楼的代码是已经实现隐蔽运行，所以不需要任何控件。

计划任务已经会做。只是希望一开机1楼的代码就可不停地运行。

隐藏运行，那你把窗体放到屏幕之外去就可以了。
需要使用定时器，那么定时器，就必须要的窗体。

当然，你使用 API 定时器 函数回调也行，如果打算使用 API 函数，就倒不如直接使用 目录监控 更好。

一句话， 如果你不需要窗体，那么你必须 使用 API 函数。这种情况下，DEBUG起来会很烦。
稳定性与精通度有关，我做不到。

这样的话，你百度 目录监控吧。这方面 的介绍有的。不要使用 循环去写。这样会拖累整个系统速度的。

实在用循环的话，那也要在循环里加入 线程挂起 API，每运行一次，挂起 10秒以上。sleep

希望你能成功。

感谢您的祝福，的确成功了，但不是用您的方法，而此方法也太简单了，真没想到，
即：xp系统→启动→自编的vb6程序→打开1楼的程序。

可以在 “C:\Documents and Settings\Administrator\「开始」菜单\程序\启动 ”下添加一个快捷方式，这样每次开机就能运行了，是这意思吗？

是的。

还有一个修改注册表的方法：

Dim WSHShell
Dim fi1 As String
Set WSHShell = CreateObject("wscript.shell")
fi1="程序全路径＋程序名.exe"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\tsqcic", fi1

收到的鲜花

• HVB6 于 2015-09-27 21:36 送鲜花  2朵   附言：我很赞同

太高端了，看不懂