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读操作。