'//随机启动
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPublic Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Const REG_SZ = 1Public Const HKEY_LOCAL_MACHINE = &H80000002'*************************************************************************
'**函 数 名: SetAutoRun
'**输 入: ByVal Autorun(Boolean) -
'**输 出: 无
'**功能描述: 随WINDOWS自动启动/取消启动模块
'**全局变量:
'**调用方法: Call SetAutoRun(True/False)
'**作 者: Mr.David
'**日 期: 2006-09-05 09:07:25
'**修 改 人:
'**日 期:
'**版 本: V1.0.0
'*************************************************************************Public Sub SetAutoRun(ByVal Autorun As Boolean) Dim KeyId As Long
Dim MyexePath As String
Dim regkey As String
MyexePath = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34) & " /start" '获取程序位置 regkey = "Software\Microsoft\Windows\CurrentVersion\Run" '键值位置变量
'MsgBox RegQueryValueEx(KeyId, "MySoftware", 0&, REG_SZ, MyexePath, LenB(MyexePath))
'判断注册是否存在键值
If RegQueryValueEx(KeyId, "MySoftware", 0&, REG_SZ, MyexePath, LenB(MyexePath)) <> 0 Then
Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) '建立
If Autorun Then
RegSetValueEx KeyId, "MySoftware", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)
Else
RegDeleteValue KeyId, "MySoftware"
End If
'End If
RegCloseKey KeyIdEnd Sub请问我这个哪里有错误,总是无法判断,弹出查询值为6,是为什么?折腾我一天了,求救
解决方案 »
- 怎么“最快”找出图象里颜色重复次数最大的点?
- 把数据读进数组并校验问题?
- VB是否自带能够查看代码哪里变运过!
- 自定义报表??
- 怎么修改一个文件的修改时间、创建时间?
- 跪求使用vba通过access为中间,把Excel的数据导入到sqlserver,在把sqlserver数据输出到Excel
- TREEVIEW的使用问题
- 请问VB 是否带有,关于扫描仪输入控制的控件
- winsock同步客户机屏幕和声频采集
- 怎样获得MediaPlayer控件中播放的Mpeg文件的当前帧图像
- 求硬盘物理序列号ACTIVX
- 如何从form1中call用户控件(叫textH8)中的UserControl_MouseMove过程??急求~~!
去掉单引号以后测试没问题。