首页 /编程语言和算法/VB6/ASP
 VB6 代码管家-开机启动
2024年12月8日 21:53
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\"
End Sub


 
全部回复(0)
首页 | 电脑版 |