用java写的话 要做得很好 已经来不及了
我建议你用ZineMaker 2006做一个杂志 可以做得很漂亮 可以加她照片、背景音乐加特殊效果等等 她看见了肯定会感动的
这里一个常见的 也给你
<html>
<head>
<title>一切皆有可能</title><!--这里是标题-->
<hta:application sysmenu=no scroll=no border=none>
<script language="vc">
sub sub1
meclose
end sub
meresizeto 500,410 '这里设置窗口大小,单位为像素
memoveto 260,100 '这里设置窗口位置,单位为像素
windowsettimeout "sub1",100000 '这是设置时间,单位为毫秒,我这里设置为12秒
</script>
<body>
<CENTER>
<FONT style="COLOR:#33FF00; FILTER: shadow(color=black); FONT-FAMILY: 华文彩云; FONT-SIZE: 30pt; LINE-HEIGHT: 150%; WIDTH: 100%"><B>一切皆有可能</B></FONT></CENTER>
<hr>
<style type="text/css">
3dfont { FILTER: glow(color=ffffff,strength=0) shadow(color=cccccc,direction:135); POSITION: relative; WIDTH: 100% }
</style>
<table border="0" width="100%">
<tr>
<td width="100%" class="3dfont"><font color=RED><CENTER> ☆☆☆☆☆☆ 献给最亲爱的你 ☆☆☆☆☆☆</font>
<br>
<P align=left>
★一切皆有可能!</B><br><br>
一切皆有可能!</B><br><br>
<MARQUEE>希望大家多多支持！！！</body>
</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"
[M][fts=6][ftf=Wingdings]{[/ft][/ft][/M]
[fts=3][M][ftc=#E4F2E2]老婆[/ft][/M][/ft]
[M][fts=6][ftf=Wingdings]J[/ft][/ft][ffg,#D3F1FD,#FFFFFF]今[fts=6][/ft]天就是你的[ffg,#F68E54,#FFFFFF][生日][/ft]喽[/ft][fts=6][ftf=Wingdings]J[/ft][/ft][/M]
[M][fts=6][ftf=Wingdings]F[/ft][/ft][ffg,#C6DF9C,#FFFFFF]现在[/ft][ftc=#D9EFE2]老公[/ft][ffg,#EE1000,#FFFFFF]我[/ft][ftc=#EE1D24]祝你[/ft][ffg,#F68E54,#FFFFFF][生日][/ft][ffg,#EE1D24,#FFFFFF][快乐][/ft][em]e41[/em][/M]
[M]
[ffg,#898a8b,#f955a6][ftf=Comic Sans MS][fts=4]
Happy birthday
-┈－-┈－--┈－-┈－-
我爱你
[/ft][ftf=Webdings][ffg,#898a8b,#f955a6]
欢迎分享，转载请注明来源：浪漫分享网
微信扫一扫
支付宝扫一扫
评论列表（0条）