标题:【求助】讨教（待续）
作者:小色猫
时间:8/13 18:57
I 函数,写在 Module1.bas 文件中
Declare Function RegCreateKey& Lib \"advapi32.dll\" Alias \"RegCreateKeyA\" (ByVal hKey&, ByVal lpszSubKey$, lphKey&) \'在指定的项下创建一个新项。如指定的项已经存在，那么函数会打开现有的项
Declare Function RegSetValue Lib \"advapi32.dll\" Alias \"RegSetValueA\" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long \'设置指定项或子项的默认值
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
建立使程序自启动的过程
Sub AutoRun()
Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
Dim Ret As Integer, lphKey As Long
sKeyName = \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\" \'是启动项在注册表中位置，大家可能通过 regedit.exe 来查看
sKeyValue = App.Path & IIf(Len(App.Path) > 3, \"\\\" & \"KillOicq.exe\", \"KillOicq.exe\") \'monitor.exe ..
下页 上页
回复本帖|发新话题
回复列表 (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]
<<下一主题
>>上一主题
返回版块