Question

vb6 点击按钮设置开机自动启动应用程序和取消该应用程序的开机自启动

如何用vb6点击按钮设置开机自动启动应用程序吧 和 取消该应用程序的开机自启动

Answer 1

'开机自动运行：
Private Sub Command1_Click()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

'取消自动运行：
Private Sub Command2_Click()
Set w = CreateObject("wscript.shell")
w.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub

追问

请问如果我想设置c:\1.txt，应怎么改？谢谢~我会加分的

追答

只有应用程序才可启动，1.txt是文本文件啊，如何启动？

Answer 2

有方法的：
1）你可以用程序把文件复制到系统的启动目录下；
2）至于取消启动就直接删除相应的文件就可以了。