| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 549 人关注过本帖
标题:[求助]VB写的程序开机就运行
只看楼主 加入收藏
wolf_elite
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-6-26
收藏
 问题点数:0 回复次数:3 
[求助]VB写的程序开机就运行
我想用VB写的程序开机就运行,听说要操作注册表
我对这不是很了解,各位大哥能不能帮一下哈.?
搜索更多相关主题的帖子: 开机 运行 
2007-01-15 10:48
找不到服务器
Rank: 4
等 级:贵宾
威 望:12
帖 子:2937
专家分:1
注 册:2006-8-29
收藏
得分:0 

简单点就是在启动+个快捷方式.楼主的意思是在登陆前运行的程序吧?这就涉及注册表的问题了,到网上查查就知道了


史上点击数最高的贴
http://bbs.bccn.net/thread-146005-1-1.html
2007-01-15 10:58
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
收藏
得分:0 

Private Declare Function RegCreateKey& Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey&, ByVal lpszSubKey$, lphKey&)
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

Sub regedit1()
'声明变量
Dim sKeyName As String, sKeyValue As String, sKeyValueIcon As String
Dim Ret As Integer, lphKey As Long

sKeyName = "Software\Microsoft\Windows\CurrentVersion\Run"
sKeyValue = App.Path & IIf(Len(App.Path) > 3, "\" & App.EXEName & ".exe", "form1.exe")
Ret = RegCreateKey&(HKEY_LOCAL_MACHINE, sKeyName, lphKey)
Ret = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
End Sub


[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2007-01-15 11:39
wolf_elite
Rank: 1
等 级:新手上路
帖 子:35
专家分:0
注 册:2006-6-26
收藏
得分:0 
Thank You!!

2007-01-17 17:59
快速回复:[求助]VB写的程序开机就运行
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016203 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved