希米日志

主页
目录
闲谈 代码 笔记 软件 分享
归档 留言 友人 关于

【VB】开机启动
18 0 
  1.     Private Sub Command1_Click() '开机启动
  2.     Set w = CreateObject("wscript.shell")
  3.     w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
  4.     End Sub
  6.     Private Sub Command2_Click() '取消开机启动
  7.     Set w = CreateObject("wscript.shell")
  8.     w.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
  9.     End Sub

   2024-04-25 01:58:00
二维码

 评论: 0

正在加载验证码......

请先完成验证

目 录

主页
评论