vb 注册表起步

2013-04-20

vb 注册表启动dim getSet get CreateObject(wscript.shell)get.regwrite HKLM\SOFTWARE\Microsoft\Wi

vb 注册表启动


dim get
Set get = CreateObject("wscript.shell")
get.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
End Sub

这个能启动，我想加一个判断，有键值就跳过，没有就写入。我一年前还用过的。时间长不写，忘记了，只记得判断键值。

也去网络上查了些资料，可都是大片的，不精简易懂。

先谢谢帮助的好心人了。谢谢你们。
[解决办法]
本帖最后由 bcrun 于 2013-04-11 08:44:10 编辑

Private Sub Command1_Click()
Dim WSH
Set WSH = CreateObject("Wscript.Shell")
MsgBox WSH.regread("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\soft001")
End Sub

Private Sub Command2_Click()
  Dim WSH
Set WSH = CreateObject("Wscript.Shell")
WSH.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\soft001", "检测注册表某个名称下是否有数据" & Now

End Sub

用REGREAD
[解决办法]
增加regread读操作。

热点排行

VB

vb 注册表起步