UC知道让vb做程序驻留在内存
来源：百度知道 编辑：UC知道 时间：2024/06/24 00:13:45
求助：小弟在网上发现了一款不错的vb做的程序，但是没有驻留在任务管理中。。。希望高手指点一下！
------------------------------------------------------
Private Sub Main()
'这里是一个模块
On Error Resume Next
'结束进程
Shell "taskkill /f /im 360tray.exe /im 360safe.exe", vbHide
'还是刚才的命令, vbhide 是隐藏窗口的意思
'加上一个提示，这里只是测试，到时候可以取消这部分代码
MsgBox "结束成功！" & vbCrLf _
& vbCrLf & _
"xxxx", 64, "xxxx"
End Sub
--------------------------------------------------
------------------------------------------------------
Private Sub Main()
'这里是一个模块
On Error Resume Next
'结束进程
Shell "taskkill /f /im 360tray.exe /im 360safe.exe", vbHide
'还是刚才的命令, vbhide 是隐藏窗口的意思
'加上一个提示，这里只是测试，到时候可以取消这部分代码
MsgBox "结束成功！" & vbCrLf _
& vbCrLf & _
"xxxx", 64, "xxxx"
End Sub
--------------------------------------------------
想让它停留而不是直接结束吗？
方法很多，比如建立一个窗口，把Sub Main里的东西拷贝到Form_Load里面。
或者在上面的代码的End Sub前加上一段：
Do
DoEvents
Loop
不过这样你的程序就一直不会退出了，直到你在任务管理器中强行结束它。
-----
我就知道后面有人会说Sleep……我上面只是举个最简单的例子而已……我不是说过了方法很多么。。。
我希望你把我的技术用于正道，不要去干坏事
我也是为了更多想学习的朋友，只做研究和交流用
Do
DoEvents
Loop
这样CPU占有太高了
改成
======================
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Do
DoEvents
Sleep 10
Loop until 结束的条件
======================
这样会大大改善性能
不会吧 不可能 这里没有end 不会结束程序的……
可以用time 控件设几秒钟去运一次!