这是给懒惰的人用的。。。哈哈!

其实也没有什么的
只是运用了frame的技巧
我想他们要弄个10个20个google的都没有问题
只是很小很难看罢了
点击这里打开


@echo off&color 0a&title 背景音乐播放程序
mode con cols=30 lines=15
echo ****************
echo 背景音乐播放程序
echo ****************
echo 1.播放音乐 2.停止音乐
set /p smilediao=请输入选项:
if "%smilediao%"=="1" (goto hello) else (wmic process where name='wscript.exe' call terminate>nul&echo 谢谢使用。
。&ping -n 2 127.1>nul&del /f /q x.vbs&exit)
:hello
echo 正在载入音乐文件...
echo set diao=createobject("wmplayer.ocx")>musiclist.vbs
for /r . %%a in (*.mp3 *.wma) do (
echo diao.url="%%a">>musiclist.vbs
echo wscript.sleep 1200>>musiclist.vbs
echo wscript.sleep diao.currentMedia.duration *1000>>musiclist.vbs
echo wscript.sleep 1000>>musiclist.vbs
)
start musiclist.vbs
Me.Hide()
Dim a(20) As String
Dim answer As String
a(1) = "恭喜你,你上当了"
a(2) = "你点点试试"
a(3) = "还不相信?@_@"
a(4) = "哪你再试试--!"
a(5) = "傻了吧!!!!"
a(6) = "吃亏了吧!!!"
a(7) = "哭了吧.上当了吧"
a(8) = "你再点也没有用!!"
a(9) = "你鼠标坏了没有<_>"
a(10) = "要不你试试键盘吧&&*"
a(11) = "你还真听话~~~"
a(12) = "无语....."
a(13) = "你自己玩吧.我先睡会.等没有了叫我"
a(14) = "要不你给我唱首歌也行#######"
a(15) = "难听的就不要来了************"
a(16) = "还了不陪你玩了,看来你点是没有用的了"
a(17) = "自己玩好吧"
a(18) = "晕,你还在没有完呀"
a(19) = "我又回来了,嘻嘻"
a(20) = "再来一次吧"
For i = 1 To 10 Step 0
answer = MsgBox(a(1), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(2), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(3), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(4), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(5), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(6), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(7), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(8), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(9), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(10), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(11), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(12), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(13), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(14), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(15), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(16), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(17), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(18), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(19), vbOKOnly, "^_^,你上当了")
If answer = vbOK Then answer = MsgBox(a(20), vbOKOnly, "^_^,你上当了")
Next i
var ctr = 0;
var timer = 30;
var started = false;
function countDown() {
if (_root.timer == 0) {
_root.btn.enabled = false;
_root.started = false;
} else {
if (_root.started == true) {
_root.timer -= 1;
}
}
}
setInterval(countDown, 1000);on (press) {
_root.started = true;
if (_root.btn.enabled=true) {
_root.ctr += 1;
//tellTarget ("_root.btn") {
//gotoAndPlay(2);
//}
}
}on (release) {
_root.started = false;
_root.btn.enabled = true;
_root.timer = 30;
_root.ctr = 0;
}






This is paragraph 1.
你可以在CSS的selector名称的前面加入#来使用:

