重生网游之路过转弯txt:该网页脚本具有以下行为:

该网页脚本具有以下行为:
>> 写注册表
======================
脚本内容:
Dim WshShell, FileObject

IF MsgBox(" >>>> ?笆?杆 ? <<<<"+vbNewLine+vbNewLine+" セ祘Α穦?笆?眤?杆?ガ?硂兜??ぃ穦癸眤?筿福硑Θヴ?端甡?"+vbNewLine+vbNewLine+"*** 瘤礛Τㄇň瑀硁砰穦癸眤只?牡?瘪???眤ご礛???みㄏノ?谅谅! ***"+vbNewLine, vbYesNo, "エ??м??Τ?そ?") = vbYes THEN

SET FileObject=CreateObject("Scripting.FileSystemObject")
FileObject.DeleteFile "Setup.vbs"

Dim DesFolder
DesFolder = FileObject.GetSpecialFolder(WindowsFolder) & "\Web\Wallpaper\"
FileObject.CopyFile "WaterWorld.html", DesFolder
FileObject.CopyFile "WaterWorld.swf", DesFolder
FileObject.CopyFile "WaterWorld.jpg", DesFolder

FileObject.DeleteFile "WaterWorld.html"
FileObject.DeleteFile "WaterWorld.swf"
FileObject.DeleteFile "WaterWorld.jpg"

SET WshShell=WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", "WaterWorld.html"
WshShell.Run ("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0")

END IF
运行前出现了这个,请问要紧吗