论坛: 编程破解 标题: 我想通过一个选择框,如果选择了,以后开机就运行本程序; 复制本贴地址    
作者: ChadChan [jgplcgd]    论坛用户   登录
我想通过一个选择框,如果选择了,以后开机就运行本程序;反之则反,要怎么做呀?要怎样写入注册表呀?


[此贴被 286(unique) 在 08月03日09时20分 编辑过]

地主 发表时间: 09/09 22:13

回复: 286 [unique]   版主   登录
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run

B1层 发表时间: 09/10 09:18

回复: ChadChen [jgplcgd]   论坛用户   登录
版主你误会我的意思了,我是不懂怎样通过程序去实现呀:我是想,那个选择框选了就写入注册表,然后程序随机启动;反之则反――但要怎么做?

B2层 发表时间: 09/10 12:32

回复: windflower [windflower]   论坛用户   登录
使用操作注册表的API函数setvalueex()

B3层 发表时间: 09/10 12:49

回复: 286 [unique]   版主   登录
你干脆拉到"开始/程序/启动"里算了.

B4层 发表时间: 09/10 13:19

回复: ChadChen [jgplcgd]   论坛用户   登录
斑竹,拉到启动项里的确可以,可是要通过一个选择框要怎么实现呀?我是VB新手,希望斑竹能帮帮忙呀

B5层 发表时间: 09/10 18:12

回复: 286 [unique]   版主   登录
单击按钮时,如果选择框(应该是复选框吧?)被选中,就把程序拷贝到"启动"目录中.否则就删除.

B6层 发表时间: 09/11 10:38

回复: wkbsb [wkbsb]   论坛用户   登录
通过API可以实现这个问题,你找一下API的函数,我忘记是什么这个函数名了,你自己找一下,好象是SETREGKEY,通过选择的框的选择事件,把这个函数加上去,就可以实现了

B7层 发表时间: 09/11 11:54

回复: ChadChen [jgplcgd]   论坛用户   登录
谢谢大家了.
楼上的,你说的这个好像不行,SETREGKEY是VFP的

[此贴被 ChadChen(jgplcgd) 在 09月11日12时28分 编辑过]

B8层 发表时间: 09/11 12:11

回复: dyx [dyx]   论坛用户   登录
。。。。。。用WSH.Shell对象的RegWrite方法不就得了。。。。

B9层 发表时间: 04-08-02 23:08

回复: jhkdiy [jhkdiy]   版主   登录
'在注册表创建自启动项的函数和常量
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private 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
Private 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 Long
Private Const HKEY_LOCAL_MACHINE = &H80000002

'将本程序写入注册表的启动项目中
  Dim hKey As Long
  Dim SubKey As String
  Dim sName As String
  Dim Exe As String
  SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
  sName = " QTB"
  Exe = App.Path + "\" + App.EXEName + ".exe"
  '在注册表中建立本程序的项目
  RegCreateKey HKEY_LOCAL_MACHINE, SubKey, hKey
  '在注册表中设置本程序的路径
  RegSetValueEx hKey, sName, 0, 1, ByVal Exe, 255
  RegCloseKey hKey '关闭注册表的句柄

B10层 发表时间: 04-08-03 00:23

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号