vb下写注册表

1.普通启动，直接调用写注册表方法

Private Sub Form_Load()

'定义一个对象

Dim a

'创建一个对象

Set a = CreateObject("wscript.shell")

'写入注册表启动项

a.regwrite "KEY_LOCAL_ MACHINESOFTWAREMicrosfotWindowsCurrentVersionRun" & App.EXEName,App.Path & "" & App.EXEName & ".exe"

End Sub

这种方式，在第一次写入注册表的时候，360的注册表防护功能会发现，并提示，可能被阻止掉，所以采用第二种方式

2.设置定时器，没过一分钟就写一次

Private Sub Timer1_Timer()

Dim a

Set a = CreateObject ("wscript.shell")

a.regwrite "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun" & App.EXEName,App.Path & "" & App.EXEName & ".exe"

End Sub

这样就把程序写到运行注册表中了，每次启动机器的时候都会自动启动。。。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!