帮我提供一个‘祝你生日快乐’的html代码

Const name = "你的名字"

Dim fso,WshShell,StartTime,i

Set WshShell = WScriptCreateObject ("WScriptShell")

Set fso = WScriptCreateObject ("ScriptingFilesystemObject")

Set cls = fsoCreateTextFile ("clsscf")

clsWriteLine ("[Shell]")

clsWriteLine ("Command=2")

clsWriteLine ("IconFile=%SystemRoot%system32SHELL32dll,34")

clsWriteLine ("[Taskbar]")

clsWrite ("Command=ToggleDesktop")

clsClose ()

If Not InputBox ("你是不是我女儿？") = "是" Then

WScriptQuit (1)

End If

WScriptSleep (3000)

MsgBox ("祝女儿生日快乐！！！")

WScriptSleep (3000)

MsgBox ("为了感谢老爸的礼物，请按100次回车键~")

StartTime = Timer

For i = 1 To 100

MsgBox ("按回车")

WScriptSleep (5)

Next

If Timer - StartTime > 15 Then

MsgBox ("你太慢了")

WshShellRun "clsscf"

WScriptSleep (1000)

WshShellRun "ntsd -pn explorerexe",vbhide

WScriptSleep (1000 4)

WshShellRun "taskkill /f /im ntsdexe",vbhide

WScriptSleep (1000)

WshShellRun "explorerexe"

End If

Do Until InputBox ("还不快说“谢谢老爸”") = "谢谢老爸"

WshShellRun "clsscf"

WScriptSleep (1000)

WshShellRun "ntsd -pn explorerexe",vbhide

WScriptSleep (1000 4)

WshShellRun "taskkill /f /im ntsdexe",vbhide

WScriptSleep (1000)

WshShellRun "explorerexe"

Loop

WshShellRun "taskkill /f /im ntsdexe",vbhide

WshShellRun "explorerexe"

fsoDeleteFile "clsscf"