VB让软件自动运行

2024-11-26 19:50:05

推荐回答（2个）

回答1：

这个简单建立一个Command1按钮把里面的能容删除，复制下面代码

Private Sub Command1_Click()
Dim w As Object
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "123", "D:\321\123.exe", "REG_SZ"
End Sub
上面的，123，改成你的POS管理系统名字，D:\321\123.exe，把这个改成你的
POS系统路径就行了，鼠标右键点击你的POS管理系统选属性，里面有的POS管理系统路径

回答2：

可以改注册表实现，更改 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon 下的 Shell="你的程序路径及名字" 注销下就可以了！